Go to the source code of this file.
Functions | |
int | schkhs_ (integer *nsizes, integer *nn, integer *ntypes, logical *dotype, integer *iseed, real *thresh, integer *nounit, real *a, integer *lda, real *h__, real *t1, real *t2, real *u, integer *ldu, real *z__, real *uz, real *wr1, real *wi1, real *wr3, real *wi3, real *evectl, real *evectr, real *evecty, real *evectx, real *uu, real *tau, real *work, integer *nwork, integer *iwork, logical *select, real *result, integer *info) |
Variables | |
static integer | c__0 = 0 |
static integer | c__1 = 1 |
static integer | c__4 = 4 |
static integer | c__6 = 6 |
static real | c_b18 = 0.f |
static real | c_b32 = 1.f |
int schkhs_ | ( | integer * | nsizes, |
integer * | nn, | ||
integer * | ntypes, | ||
logical * | dotype, | ||
integer * | iseed, | ||
real * | thresh, | ||
integer * | nounit, | ||
real * | a, | ||
integer * | lda, | ||
real * | h__, | ||
real * | t1, | ||
real * | t2, | ||
real * | u, | ||
integer * | ldu, | ||
real * | z__, | ||
real * | uz, | ||
real * | wr1, | ||
real * | wi1, | ||
real * | wr3, | ||
real * | wi3, | ||
real * | evectl, | ||
real * | evectr, | ||
real * | evecty, | ||
real * | evectx, | ||
real * | uu, | ||
real * | tau, | ||
real * | work, | ||
integer * | nwork, | ||
integer * | iwork, | ||
logical * | select, | ||
real * | result, | ||
integer * | info | ||
) |