public interface laeda
LAEDA computes the Z vector corresponding to the merge step in the
CURLVLth step of the merge process with TLVLS steps for the CURPBMth
problem.
Subroutines
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
tlvls |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
curlvl |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
curpbm |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
prmptr(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
perm(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
givptr(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
givcol(2,*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
givnum(2,*) |
|
|
real(kind=dp),
|
intent(in) |
|
|
:: |
q(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
qptr(*) |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
z(*) |
|
|
real(kind=dp),
|
intent(out) |
|
|
:: |
ztemp(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
n |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
tlvls |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
curlvl |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
curpbm |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
prmptr(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
perm(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
givptr(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
givcol(2,*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
givnum(2,*) |
|
|
real(kind=sp),
|
intent(in) |
|
|
:: |
q(*) |
|
|
integer(kind=ilp),
|
intent(in) |
|
|
:: |
qptr(*) |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
z(*) |
|
|
real(kind=sp),
|
intent(out) |
|
|
:: |
ztemp(*) |
|
|
integer(kind=ilp),
|
intent(out) |
|
|
:: |
info |
|
Module Procedures
