Go to the source code of this file.
Functions | |
int | schkgg_ (integer *nsizes, integer *nn, integer *ntypes, logical *dotype, integer *iseed, real *thresh, logical *tstdif, real *thrshn, integer *nounit, real *a, integer *lda, real *b, real *h__, real *t, real *s1, real *s2, real *p1, real *p2, real *u, integer *ldu, real *v, real *q, real *z__, real *alphr1, real *alphi1, real *beta1, real *alphr3, real *alphi3, real *beta3, real *evectl, real *evectr, real *work, integer *lwork, logical *llwork, real *result, integer *info) |
Variables | |
static integer | c__1 = 1 |
static integer | c__2 = 2 |
static integer | c__3 = 3 |
static integer | c__4 = 4 |
static real | c_b13 = 0.f |
static real | c_b19 = 1.f |
static logical | c_false = FALSE_ |
static logical | c_true = TRUE_ |
int schkgg_ | ( | integer * | nsizes, |
integer * | nn, | ||
integer * | ntypes, | ||
logical * | dotype, | ||
integer * | iseed, | ||
real * | thresh, | ||
logical * | tstdif, | ||
real * | thrshn, | ||
integer * | nounit, | ||
real * | a, | ||
integer * | lda, | ||
real * | b, | ||
real * | h__, | ||
real * | t, | ||
real * | s1, | ||
real * | s2, | ||
real * | p1, | ||
real * | p2, | ||
real * | u, | ||
integer * | ldu, | ||
real * | v, | ||
real * | q, | ||
real * | z__, | ||
real * | alphr1, | ||
real * | alphi1, | ||
real * | beta1, | ||
real * | alphr3, | ||
real * | alphi3, | ||
real * | beta3, | ||
real * | evectl, | ||
real * | evectr, | ||
real * | work, | ||
integer * | lwork, | ||
logical * | llwork, | ||
real * | result, | ||
integer * | info | ||
) |