Go to the source code of this file.
Functions/Subroutines | |
subroutine | DORCSD (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, IWORK, INFO) |
subroutine DORCSD | ( | CHARACTER | JOBU1, |
CHARACTER | JOBU2, | ||
CHARACTER | JOBV1T, | ||
CHARACTER | JOBV2T, | ||
CHARACTER | TRANS, | ||
CHARACTER | SIGNS, | ||
INTEGER | M, | ||
INTEGER | P, | ||
INTEGER | Q, | ||
DOUBLE PRECISION,dimension( ldx11, * ) | X11, | ||
INTEGER | LDX11, | ||
DOUBLE PRECISION,dimension( ldx12, * ) | X12, | ||
INTEGER | LDX12, | ||
DOUBLE PRECISION,dimension( ldx21, * ) | X21, | ||
INTEGER | LDX21, | ||
DOUBLE PRECISION,dimension( ldx22, * ) | X22, | ||
INTEGER | LDX22, | ||
DOUBLE PRECISION,dimension( * ) | THETA, | ||
DOUBLE PRECISION,dimension( ldu1, * ) | U1, | ||
INTEGER | LDU1, | ||
DOUBLE PRECISION,dimension( ldu2, * ) | U2, | ||
INTEGER | LDU2, | ||
DOUBLE PRECISION,dimension( ldv1t, * ) | V1T, | ||
INTEGER | LDV1T, | ||
DOUBLE PRECISION,dimension( ldv2t, * ) | V2T, | ||
INTEGER | LDV2T, | ||
DOUBLE PRECISION,dimension( * ) | WORK, | ||
INTEGER | LWORK, | ||
INTEGER,dimension( * ) | IWORK, | ||
INTEGER | INFO | ||
) |