Go to the source code of this file.
Functions | |
int | sdrvgg_ (integer *nsizes, integer *nn, integer *ntypes, logical *dotype, integer *iseed, real *thresh, real *thrshn, integer *nounit, real *a, integer *lda, real *b, real *s, real *t, real *s2, real *t2, real *q, integer *ldq, real *z__, real *alphr1, real *alphi1, real *beta1, real *alphr2, real *alphi2, real *beta2, real *vl, real *vr, real *work, integer *lwork, real *result, integer *info) |
Variables | |
static integer | c__0 = 0 |
static integer | c__1 = 1 |
static integer | c__2 = 2 |
static integer | c__3 = 3 |
static integer | c__4 = 4 |
static real | c_b36 = 0.f |
static real | c_b42 = 1.f |
static logical | c_false = FALSE_ |
static integer | c_n1 = -1 |
static logical | c_true = TRUE_ |
int sdrvgg_ | ( | integer * | nsizes, |
integer * | nn, | ||
integer * | ntypes, | ||
logical * | dotype, | ||
integer * | iseed, | ||
real * | thresh, | ||
real * | thrshn, | ||
integer * | nounit, | ||
real * | a, | ||
integer * | lda, | ||
real * | b, | ||
real * | s, | ||
real * | t, | ||
real * | s2, | ||
real * | t2, | ||
real * | q, | ||
integer * | ldq, | ||
real * | z__, | ||
real * | alphr1, | ||
real * | alphi1, | ||
real * | beta1, | ||
real * | alphr2, | ||
real * | alphi2, | ||
real * | beta2, | ||
real * | vl, | ||
real * | vr, | ||
real * | work, | ||
integer * | lwork, | ||
real * | result, | ||
integer * | info | ||
) |