public interface laqr5
LAQR5 called by CLAQR0 performs a
single small-bulge multi-shift QR sweep.
Subroutines
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
wantt |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
wantz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kacc22 |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ktop |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kbot |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nshfts |
|
|
complex(kind=sp),
|
intent(inout) |
|
|
:: |
s(*) |
|
|
complex(kind=sp),
|
intent(inout) |
|
|
:: |
h(ldh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldh |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
iloz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ihiz |
|
|
complex(kind=sp),
|
intent(inout) |
|
|
:: |
z(ldz,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldz |
|
|
complex(kind=sp),
|
intent(out) |
|
|
:: |
v(ldv,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldv |
|
|
complex(kind=sp),
|
intent(out) |
|
|
:: |
u(ldu,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldu |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nv |
|
|
complex(kind=sp),
|
intent(out) |
|
|
:: |
wv(ldwv,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldwv |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nh |
|
|
complex(kind=sp),
|
intent(out) |
|
|
:: |
wh(ldwh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldwh |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
wantt |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
wantz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kacc22 |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ktop |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kbot |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nshfts |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
sr(*) |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
si(*) |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
h(ldh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldh |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
iloz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ihiz |
|
|
real(kind=dp),
|
intent(inout) |
|
|
:: |
z(ldz,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldz |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
v(ldv,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldv |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
u(ldu,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldu |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nv |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
wv(ldwv,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldwv |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nh |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
wh(ldwh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldwh |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
wantt |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
wantz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kacc22 |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ktop |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kbot |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nshfts |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
sr(*) |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
si(*) |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
h(ldh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldh |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
iloz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ihiz |
|
|
real(kind=sp),
|
intent(inout) |
|
|
:: |
z(ldz,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldz |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
v(ldv,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldv |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
u(ldu,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldu |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nv |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
wv(ldwv,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldwv |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nh |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
wh(ldwh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldwh |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
wantt |
|
|
logical(kind=lk),
|
intent(in) |
|
|
:: |
wantz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kacc22 |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ktop |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
kbot |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nshfts |
|
|
complex(kind=dp),
|
intent(inout) |
|
|
:: |
s(*) |
|
|
complex(kind=dp),
|
intent(inout) |
|
|
:: |
h(ldh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldh |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
iloz |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ihiz |
|
|
complex(kind=dp),
|
intent(inout) |
|
|
:: |
z(ldz,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldz |
|
|
complex(kind=dp),
|
intent(out) |
|
|
:: |
v(ldv,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldv |
|
|
complex(kind=dp),
|
intent(out) |
|
|
:: |
u(ldu,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldu |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nv |
|
|
complex(kind=dp),
|
intent(out) |
|
|
:: |
wv(ldwv,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldwv |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
nh |
|
|
complex(kind=dp),
|
intent(out) |
|
|
:: |
wh(ldwh,*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
ldwh |
|
Module Procedures