1
2
3
4
5
6
7
8
9
10
11
12
|
/*: Finds eigenvalues and eigenvectors of a general matrix */
extern int v3p_netlib_rg_(
v3p_netlib_integer v3p_netlib_const *nm, /*!< (IN) leading dimension of matrices */
v3p_netlib_integer v3p_netlib_const *n, /*!< (IN) order of the square matrix a */
v3p_netlib_doublereal *a, /*!< (IN) real general matrix */
v3p_netlib_doublereal *wr, /*!< (OUT) real part of eigenvalues */
v3p_netlib_doublereal *wi, /*!< (OUT) imaginary part of eigenvalues */
v3p_netlib_integer v3p_netlib_const *matz, /*!< (IN) set nonzero if eigenvectors wanted */
v3p_netlib_doublereal *z__, /*!< (OUT) eigenvectors */
v3p_netlib_integer *iv1, v3p_netlib_doublereal *fv1, /*!< scratch */
v3p_netlib_integer *ierr /*!< (OUT) normal completion code is 0 */
);
|
