public interface laqz1
LAQZ1 chases a 1x1 shift bulge in a matrix pencil down a single position
Subroutines
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
ilq |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
ilz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
k |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
istartm |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
istopm |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ihi |
|
|
complex(kind=sp),
|
intent(inout) |
|
|
:: |
a(lda,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
lda |
|
|
complex(kind=sp),
|
intent(inout) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nq |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
qstart |
|
|
complex(kind=sp),
|
intent(inout) |
|
|
:: |
q(ldq,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldq |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
zstart |
|
|
complex(kind=sp),
|
intent(inout) |
|
|
:: |
z(ldz,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldz |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
a(lda,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
lda |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
sr1 |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
sr2 |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
si |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
beta1 |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
beta2 |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
v(*) |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
a(lda,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
lda |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
sr1 |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
sr2 |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
si |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
beta1 |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
beta2 |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
v(*) |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
ilq |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
ilz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
k |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
istartm |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
istopm |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ihi |
|
|
complex(kind=dp),
|
intent(inout) |
|
|
:: |
a(lda,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
lda |
|
|
complex(kind=dp),
|
intent(inout) |
|
|
:: |
b(ldb,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldb |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nq |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
qstart |
|
|
complex(kind=dp),
|
intent(inout) |
|
|
:: |
q(ldq,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldq |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
zstart |
|
|
complex(kind=dp),
|
intent(inout) |
|
|
:: |
z(ldz,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldz |
|
Module Procedures