INTEGER ZCHKHS |
( |
INTEGER |
NSIZES, |
|
|
INTEGER,dimension( * ) |
NN, |
|
|
INTEGER |
NTYPES, |
|
|
LOGICAL,dimension( * ) |
DOTYPE, |
|
|
INTEGER,dimension( 4 ) |
ISEED, |
|
|
DOUBLE PRECISION |
THRESH, |
|
|
INTEGER |
NOUNIT, |
|
|
COMPLEX*16,dimension( lda, * ) |
A, |
|
|
INTEGER |
LDA, |
|
|
COMPLEX*16,dimension( lda, * ) |
H, |
|
|
COMPLEX*16,dimension( lda, * ) |
T1, |
|
|
COMPLEX*16,dimension( lda, * ) |
T2, |
|
|
COMPLEX*16,dimension( ldu, * ) |
U, |
|
|
INTEGER |
LDU, |
|
|
COMPLEX*16,dimension( ldu, * ) |
Z, |
|
|
COMPLEX*16,dimension( ldu, * ) |
UZ, |
|
|
COMPLEX*16,dimension( * ) |
W1, |
|
|
COMPLEX*16,dimension( * ) |
W3, |
|
|
COMPLEX*16,dimension( ldu, * ) |
EVECTL, |
|
|
COMPLEX*16,dimension( ldu, * ) |
EVECTR, |
|
|
COMPLEX*16,dimension( ldu, * ) |
EVECTY, |
|
|
COMPLEX*16,dimension( ldu, * ) |
EVECTX, |
|
|
COMPLEX*16,dimension( ldu, * ) |
UU, |
|
|
COMPLEX*16,dimension( * ) |
TAU, |
|
|
COMPLEX*16,dimension( * ) |
WORK, |
|
|
INTEGER |
NWORK, |
|
|
DOUBLE PRECISION,dimension( * ) |
RWORK, |
|
|
INTEGER,dimension( * ) |
IWORK, |
|
|
LOGICAL,dimension( * ) |
SELECT, |
|
|
DOUBLE PRECISION,dimension( 14 ) |
RESULT, |
|
|
INTEGER |
INFO |
|
) |
| |