Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=ilp), | intent(in) | :: | icompq | |||
integer(kind=ilp), | intent(in) | :: | n | |||
integer(kind=ilp), | intent(in) | :: | qsiz | |||
integer(kind=ilp), | intent(in) | :: | tlvls | |||
integer(kind=ilp), | intent(in) | :: | curlvl | |||
integer(kind=ilp), | intent(in) | :: | curpbm | |||
real(kind=sp), | intent(inout) | :: | d(*) | |||
real(kind=sp), | intent(inout) | :: | q(ldq,*) | |||
integer(kind=ilp), | intent(in) | :: | ldq | |||
integer(kind=ilp), | intent(out) | :: | indxq(*) | |||
real(kind=sp), | intent(inout) | :: | rho | |||
integer(kind=ilp), | intent(in) | :: | cutpnt | |||
real(kind=sp), | intent(inout) | :: | qstore(*) | |||
integer(kind=ilp), | intent(inout) | :: | qptr(*) | |||
integer(kind=ilp), | intent(inout) | :: | prmptr(*) | |||
integer(kind=ilp), | intent(inout) | :: | perm(*) | |||
integer(kind=ilp), | intent(inout) | :: | givptr(*) | |||
integer(kind=ilp), | intent(inout) | :: | givcol(2_ilp,*) | |||
real(kind=sp), | intent(inout) | :: | givnum(2_ilp,*) | |||
real(kind=sp), | intent(out) | :: | work(*) | |||
integer(kind=ilp), | intent(out) | :: | iwork(*) | |||
integer(kind=ilp), | intent(out) | :: | info |