Go to the source code of this file.
Functions/Subroutines | |
INTEGER | SCHKHS (NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, NOUNIT, A, LDA, H, T1, T2, U, LDU, Z, UZ, WR1, WI1, WR3, WI3, EVECTL, EVECTR, EVECTY, EVECTX, UU, TAU, WORK, NWORK, IWORK, SELECT, RESULT, INFO) |
INTEGER SCHKHS | ( | INTEGER | NSIZES, |
INTEGER,dimension( * ) | NN, | ||
INTEGER | NTYPES, | ||
LOGICAL,dimension( * ) | DOTYPE, | ||
INTEGER,dimension( 4 ) | ISEED, | ||
REAL | THRESH, | ||
INTEGER | NOUNIT, | ||
REAL,dimension( lda, * ) | A, | ||
INTEGER | LDA, | ||
REAL,dimension( lda, * ) | H, | ||
REAL,dimension( lda, * ) | T1, | ||
REAL,dimension( lda, * ) | T2, | ||
REAL,dimension( ldu, * ) | U, | ||
INTEGER | LDU, | ||
REAL,dimension( ldu, * ) | Z, | ||
REAL,dimension( ldu, * ) | UZ, | ||
REAL,dimension( * ) | WR1, | ||
REAL,dimension( * ) | WI1, | ||
REAL,dimension( * ) | WR3, | ||
REAL,dimension( * ) | WI3, | ||
REAL,dimension( ldu, * ) | EVECTL, | ||
REAL,dimension( ldu, * ) | EVECTR, | ||
REAL,dimension( ldu, * ) | EVECTY, | ||
REAL,dimension( ldu, * ) | EVECTX, | ||
REAL,dimension( ldu, * ) | UU, | ||
REAL,dimension( * ) | TAU, | ||
REAL,dimension( * ) | WORK, | ||
INTEGER | NWORK, | ||
INTEGER,dimension( * ) | IWORK, | ||
LOGICAL,dimension( * ) | SELECT, | ||
REAL,dimension( 14 ) | RESULT, | ||
INTEGER | INFO | ||
) |