Go to the source code of this file.
Functions | |
doublereal | dqrt12_ (integer *m, integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *work, integer *lwork) |
Variables | |
static integer | c__0 = 0 |
static integer | c__1 = 1 |
static integer | c__7 = 7 |
static doublereal | c_b33 = -1. |
static doublereal | c_b6 = 0. |
doublereal dqrt12_ | ( | integer * | m, |
integer * | n, | ||
doublereal * | a, | ||
integer * | lda, | ||
doublereal * | s, | ||
doublereal * | work, | ||
integer * | lwork | ||
) |
doublereal c_b33 = -1. [static] |
doublereal c_b6 = 0. [static] |