INTEGER DCHKGG |
( |
INTEGER |
NSIZES, |
|
|
INTEGER,dimension( * ) |
NN, |
|
|
INTEGER |
NTYPES, |
|
|
LOGICAL,dimension( * ) |
DOTYPE, |
|
|
INTEGER,dimension( 4 ) |
ISEED, |
|
|
DOUBLE PRECISION |
THRESH, |
|
|
LOGICAL |
TSTDIF, |
|
|
DOUBLE PRECISION |
THRSHN, |
|
|
INTEGER |
NOUNIT, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
A, |
|
|
INTEGER |
LDA, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
B, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
H, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
T, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
S1, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
S2, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
P1, |
|
|
DOUBLE PRECISION,dimension( lda, * ) |
P2, |
|
|
DOUBLE PRECISION,dimension( ldu, * ) |
U, |
|
|
INTEGER |
LDU, |
|
|
DOUBLE PRECISION,dimension( ldu, * ) |
V, |
|
|
DOUBLE PRECISION,dimension( ldu, * ) |
Q, |
|
|
DOUBLE PRECISION,dimension( ldu, * ) |
Z, |
|
|
DOUBLE PRECISION,dimension( * ) |
ALPHR1, |
|
|
DOUBLE PRECISION,dimension( * ) |
ALPHI1, |
|
|
DOUBLE PRECISION,dimension( * ) |
BETA1, |
|
|
DOUBLE PRECISION,dimension( * ) |
ALPHR3, |
|
|
DOUBLE PRECISION,dimension( * ) |
ALPHI3, |
|
|
DOUBLE PRECISION,dimension( * ) |
BETA3, |
|
|
DOUBLE PRECISION,dimension( ldu, * ) |
EVECTL, |
|
|
DOUBLE PRECISION,dimension( ldu, * ) |
EVECTR, |
|
|
DOUBLE PRECISION,dimension( * ) |
WORK, |
|
|
INTEGER |
LWORK, |
|
|
LOGICAL,dimension( * ) |
LLWORK, |
|
|
DOUBLE PRECISION,dimension( 15 ) |
RESULT, |
|
|
INTEGER |
INFO |
|
) |
| |