Go to the source code of this file.
Functions/Subroutines | |
subroutine | CUNCSD (JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS, SIGNS, M, P, Q, X11, LDX11, X12, LDX12, X21, LDX21, X22, LDX22, THETA, U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, LDV2T, WORK, LWORK, RWORK, LRWORK, IWORK, INFO) |
subroutine CUNCSD | ( | CHARACTER | JOBU1, |
CHARACTER | JOBU2, | ||
CHARACTER | JOBV1T, | ||
CHARACTER | JOBV2T, | ||
CHARACTER | TRANS, | ||
CHARACTER | SIGNS, | ||
INTEGER | M, | ||
INTEGER | P, | ||
INTEGER | Q, | ||
COMPLEX,dimension( ldx11, * ) | X11, | ||
INTEGER | LDX11, | ||
COMPLEX,dimension( ldx12, * ) | X12, | ||
INTEGER | LDX12, | ||
COMPLEX,dimension( ldx21, * ) | X21, | ||
INTEGER | LDX21, | ||
COMPLEX,dimension( ldx22, * ) | X22, | ||
INTEGER | LDX22, | ||
REAL,dimension( * ) | THETA, | ||
COMPLEX,dimension( ldu1, * ) | U1, | ||
INTEGER | LDU1, | ||
COMPLEX,dimension( ldu2, * ) | U2, | ||
INTEGER | LDU2, | ||
COMPLEX,dimension( ldv1t, * ) | V1T, | ||
INTEGER | LDV1T, | ||
COMPLEX,dimension( ldv2t, * ) | V2T, | ||
INTEGER | LDV2T, | ||
COMPLEX,dimension( * ) | WORK, | ||
INTEGER | LWORK, | ||
REAL,dimension( * ) | RWORK, | ||
INTEGER | LRWORK, | ||
INTEGER,dimension( * ) | IWORK, | ||
INTEGER | INFO | ||
) |