Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=1), | intent(in) | :: | jobu1 | |||
character(len=1), | intent(in) | :: | jobu2 | |||
character(len=1), | intent(in) | :: | jobv1t | |||
integer(kind=ilp), | intent(in) | :: | m | |||
integer(kind=ilp), | intent(in) | :: | p | |||
integer(kind=ilp), | intent(in) | :: | q | |||
real(kind=sp), | intent(inout) | :: | x11(ldx11,*) | |||
integer(kind=ilp), | intent(in) | :: | ldx11 | |||
real(kind=sp), | intent(inout) | :: | x21(ldx21,*) | |||
integer(kind=ilp), | intent(in) | :: | ldx21 | |||
real(kind=sp), | intent(out) | :: | theta(*) | |||
real(kind=sp), | intent(out) | :: | u1(ldu1,*) | |||
integer(kind=ilp), | intent(in) | :: | ldu1 | |||
real(kind=sp), | intent(out) | :: | u2(ldu2,*) | |||
integer(kind=ilp), | intent(in) | :: | ldu2 | |||
real(kind=sp), | intent(out) | :: | v1t(ldv1t,*) | |||
integer(kind=ilp), | intent(in) | :: | ldv1t | |||
real(kind=sp), | intent(out) | :: | work(*) | |||
integer(kind=ilp), | intent(in) | :: | lwork | |||
integer(kind=ilp), | intent(out) | :: | iwork(*) | |||
integer(kind=ilp), | intent(out) | :: | info |