Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=ilp), | intent(in) | :: | icompq | |||
integer(kind=ilp), | intent(in) | :: | nl | |||
integer(kind=ilp), | intent(in) | :: | nr | |||
integer(kind=ilp), | intent(in) | :: | sqre | |||
real(kind=sp), | intent(inout) | :: | d(*) | |||
real(kind=sp), | intent(inout) | :: | vf(*) | |||
real(kind=sp), | intent(inout) | :: | vl(*) | |||
real(kind=sp), | intent(inout) | :: | alpha | |||
real(kind=sp), | intent(inout) | :: | beta | |||
integer(kind=ilp), | intent(inout) | :: | idxq(*) | |||
integer(kind=ilp), | intent(out) | :: | perm(*) | |||
integer(kind=ilp), | intent(out) | :: | givptr | |||
integer(kind=ilp), | intent(out) | :: | givcol(ldgcol,*) | |||
integer(kind=ilp), | intent(in) | :: | ldgcol | |||
real(kind=sp), | intent(out) | :: | givnum(ldgnum,*) | |||
integer(kind=ilp), | intent(in) | :: | ldgnum | |||
real(kind=sp), | intent(out) | :: | poles(ldgnum,*) | |||
real(kind=sp), | intent(out) | :: | difl(*) | |||
real(kind=sp), | intent(out) | :: | difr(*) | |||
real(kind=sp), | intent(out) | :: | z(*) | |||
integer(kind=ilp), | intent(out) | :: | k | |||
real(kind=sp), | intent(out) | :: | c | |||
real(kind=sp), | intent(out) | :: | s | |||
real(kind=sp), | intent(out) | :: | work(*) | |||
integer(kind=ilp), | intent(out) | :: | iwork(*) | |||
integer(kind=ilp), | intent(out) | :: | info |