Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=ilp), | intent(in) | :: | m | |||
integer(kind=ilp), | intent(in) | :: | p | |||
integer(kind=ilp), | intent(in) | :: | q | |||
complex(kind=sp), | intent(inout) | :: | x11(ldx11,*) | |||
integer(kind=ilp), | intent(in) | :: | ldx11 | |||
complex(kind=sp), | intent(inout) | :: | x21(ldx21,*) | |||
integer(kind=ilp), | intent(in) | :: | ldx21 | |||
real(kind=sp), | intent(out) | :: | theta(*) | |||
real(kind=sp), | intent(out) | :: | phi(*) | |||
complex(kind=sp), | intent(out) | :: | taup1(*) | |||
complex(kind=sp), | intent(out) | :: | taup2(*) | |||
complex(kind=sp), | intent(out) | :: | tauq1(*) | |||
complex(kind=sp), | intent(out) | :: | phantom(*) | |||
complex(kind=sp), | intent(out) | :: | work(*) | |||
integer(kind=ilp), | intent(in) | :: | lwork | |||
integer(kind=ilp), | intent(out) | :: | info |