
Go to the source code of this file.
Functions | |
| doublereal | cqrt12_ (integer *m, integer *n, complex *a, integer *lda, real *s, complex *work, integer *lwork, real *rwork) |
Variables | |
| static integer | c__0 = 0 |
| static integer | c__1 = 1 |
| static integer | c__7 = 7 |
| static real | c_b33 = -1.f |
| static complex | c_b6 = {0.f,0.f} |