| 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=dp), | intent(inout) | :: | d(*) | |||
| real(kind=dp), | intent(inout) | :: | vf(*) | |||
| real(kind=dp), | intent(inout) | :: | vl(*) | |||
| real(kind=dp), | intent(inout) | :: | alpha | |||
| real(kind=dp), | 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=dp), | intent(out) | :: | givnum(ldgnum,*) | |||
| integer(kind=ilp), | intent(in) | :: | ldgnum | |||
| real(kind=dp), | intent(out) | :: | poles(ldgnum,*) | |||
| real(kind=dp), | intent(out) | :: | difl(*) | |||
| real(kind=dp), | intent(out) | :: | difr(*) | |||
| real(kind=dp), | intent(out) | :: | z(*) | |||
| integer(kind=ilp), | intent(out) | :: | k | |||
| real(kind=dp), | intent(out) | :: | c | |||
| real(kind=dp), | intent(out) | :: | s | |||
| real(kind=dp), | intent(out) | :: | work(*) | |||
| integer(kind=ilp), | intent(out) | :: | iwork(*) | |||
| integer(kind=ilp), | intent(out) | :: | info |