INTEGER ZDRVGG |
( |
INTEGER |
NSIZES, |
|
|
INTEGER,dimension( * ) |
NN, |
|
|
INTEGER |
NTYPES, |
|
|
LOGICAL,dimension( * ) |
DOTYPE, |
|
|
INTEGER,dimension( 4 ) |
ISEED, |
|
|
DOUBLE PRECISION |
THRESH, |
|
|
DOUBLE PRECISION |
THRSHN, |
|
|
INTEGER |
NOUNIT, |
|
|
COMPLEX*16,dimension( lda, * ) |
A, |
|
|
INTEGER |
LDA, |
|
|
COMPLEX*16,dimension( lda, * ) |
B, |
|
|
COMPLEX*16,dimension( lda, * ) |
S, |
|
|
COMPLEX*16,dimension( lda, * ) |
T, |
|
|
COMPLEX*16,dimension( lda, * ) |
S2, |
|
|
COMPLEX*16,dimension( lda, * ) |
T2, |
|
|
COMPLEX*16,dimension( ldq, * ) |
Q, |
|
|
INTEGER |
LDQ, |
|
|
COMPLEX*16,dimension( ldq, * ) |
Z, |
|
|
COMPLEX*16,dimension( * ) |
ALPHA1, |
|
|
COMPLEX*16,dimension( * ) |
BETA1, |
|
|
COMPLEX*16,dimension( * ) |
ALPHA2, |
|
|
COMPLEX*16,dimension( * ) |
BETA2, |
|
|
COMPLEX*16,dimension( ldq, * ) |
VL, |
|
|
COMPLEX*16,dimension( ldq, * ) |
VR, |
|
|
COMPLEX*16,dimension( * ) |
WORK, |
|
|
INTEGER |
LWORK, |
|
|
DOUBLE PRECISION,dimension( * ) |
RWORK, |
|
|
DOUBLE PRECISION,dimension( * ) |
RESULT, |
|
|
INTEGER |
INFO |
|
) |
| |