Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=1), | intent(in) | :: | jobu1 | |||
character(len=1), | intent(in) | :: | jobu2 | |||
character(len=1), | intent(in) | :: | jobv1t | |||
character(len=1), | intent(in) | :: | jobv2t | |||
character(len=1), | intent(in) | :: | trans | |||
integer(kind=ilp), | intent(in) | :: | m | |||
integer(kind=ilp), | intent(in) | :: | p | |||
integer(kind=ilp), | intent(in) | :: | q | |||
real(kind=dp), | intent(inout) | :: | theta(*) | |||
real(kind=dp), | intent(inout) | :: | phi(*) | |||
complex(kind=dp), | intent(inout) | :: | u1(ldu1,*) | |||
integer(kind=ilp), | intent(in) | :: | ldu1 | |||
complex(kind=dp), | intent(inout) | :: | u2(ldu2,*) | |||
integer(kind=ilp), | intent(in) | :: | ldu2 | |||
complex(kind=dp), | intent(inout) | :: | v1t(ldv1t,*) | |||
integer(kind=ilp), | intent(in) | :: | ldv1t | |||
complex(kind=dp), | intent(inout) | :: | v2t(ldv2t,*) | |||
integer(kind=ilp), | intent(in) | :: | ldv2t | |||
real(kind=dp), | intent(out) | :: | b11d(*) | |||
real(kind=dp), | intent(out) | :: | b11e(*) | |||
real(kind=dp), | intent(out) | :: | b12d(*) | |||
real(kind=dp), | intent(out) | :: | b12e(*) | |||
real(kind=dp), | intent(out) | :: | b21d(*) | |||
real(kind=dp), | intent(out) | :: | b21e(*) | |||
real(kind=dp), | intent(out) | :: | b22d(*) | |||
real(kind=dp), | intent(out) | :: | b22e(*) | |||
real(kind=dp), | intent(out) | :: | rwork(*) | |||
integer(kind=ilp), | intent(in) | :: | lrwork | |||
integer(kind=ilp), | intent(out) | :: | info |