INTEGER DDRVGG |
( |
INTEGER |
NSIZES, |
|
|
INTEGER,dimension( * ) |
NN, |
|
|
INTEGER |
NTYPES, |
|
|
LOGICAL,dimension( * ) |
DOTYPE, |
|
|
INTEGER,dimension( 4 ) |
ISEED, |
|
|
DOUBLE PRECISION |
THRESH, |
|
|
DOUBLE PRECISION |
THRSHN, |
|
|
INTEGER |
NOUNIT, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
A, |
|
|
INTEGER |
LDA, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
B, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
S, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
T, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
S2, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
T2, |
|
|
DOUBLE PRECISION,dimension( ldq, * ) |
Q, |
|
|
INTEGER |
LDQ, |
|
|
DOUBLE PRECISION,dimension( ldq, * ) |
Z, |
|
|
DOUBLE PRECISION,dimension( * ) |
ALPHR1, |
|
|
DOUBLE PRECISION,dimension( * ) |
ALPHI1, |
|
|
DOUBLE PRECISION,dimension( * ) |
BETA1, |
|
|
DOUBLE PRECISION,dimension( * ) |
ALPHR2, |
|
|
DOUBLE PRECISION,dimension( * ) |
ALPHI2, |
|
|
DOUBLE PRECISION,dimension( * ) |
BETA2, |
|
|
DOUBLE PRECISION,dimension( ldq, * ) |
VL, |
|
|
DOUBLE PRECISION,dimension( ldq, * ) |
VR, |
|
|
DOUBLE PRECISION,dimension( * ) |
WORK, |
|
|
INTEGER |
LWORK, |
|
|
DOUBLE PRECISION,dimension( * ) |
RESULT, |
|
|
INTEGER |
INFO |
|
) |
| |