| 1 | <title>RG</title> | 
|---|
| 2 | <h2>SUBROUTINE RG(NM,N,A,WR,WI,MATZ,Z,IV1,FV1,IERR)</h2> | 
|---|
| 3 |  | 
|---|
| 4 | RG calls the recommended sequence of EISPACK subroutines to | 
|---|
| 5 | find the eigenvalues and, if desired, the eigenvectors of a | 
|---|
| 6 | real, general matrix. | 
|---|
| 7 | <p> | 
|---|
| 8 | <dl> | 
|---|
| 9 | <p><dt><b>NM</b> | 
|---|
| 10 | <dd>Input, INTEGER NM, the row dimension (first dimension) of the two | 
|---|
| 11 | dimensional arrays as declared in the calling program. | 
|---|
| 12 |  | 
|---|
| 13 | <p><dt><b>N</b> | 
|---|
| 14 | <dd>Input, INTEGER N, the order (=size=number of rows=number of columns) | 
|---|
| 15 | of the matrix whose eigenvalues are sought. | 
|---|
| 16 |  | 
|---|
| 17 | <p><dt><b>A</b> | 
|---|
| 18 | <dd>Input/output, REAL A(NM,N), on input, the matrix, which is overwritten | 
|---|
| 19 | on output. | 
|---|
| 20 |  | 
|---|
| 21 | <p><dt><b>WR</b> | 
|---|
| 22 | <dd>Output, REAL WR(N), the real parts of the eigenvalues. | 
|---|
| 23 |  | 
|---|
| 24 | <p><dt><b>WI</b> | 
|---|
| 25 | <dd>Output, REAL WI(N), the imaginary parts of the eigenvalues. | 
|---|
| 26 |  | 
|---|
| 27 | <p><dt><b>MATZ</b> | 
|---|
| 28 | <dd>Input, INTEGER MATZ, set to 0 if only eigenvalues are desired. | 
|---|
| 29 | Otherwise all eigenvectors will also be calculated. | 
|---|
| 30 |  | 
|---|
| 31 | <p><dt><b>Z</b> | 
|---|
| 32 | <dd>Output, REAL Z(NM,N), if MATZ is not zero, Z contains the | 
|---|
| 33 | eigenvectors of A.  If the J-th eigenvalue is real, the | 
|---|
| 34 | J-th column of Z is its eigenvector.  If the J-th | 
|---|
| 35 | eigenvalue is complex with positive real part (then the | 
|---|
| 36 | J+1-th eigenvalue is its complex conjugate), its eigenvector | 
|---|
| 37 | has real part in the J-th column of Z and imaginary part | 
|---|
| 38 | in the J+1-th column of Z. | 
|---|
| 39 |  | 
|---|
| 40 | <p><dt><b>IV1</b> | 
|---|
| 41 | <dd>Work vector, INTEGER IV1(N). | 
|---|
| 42 |  | 
|---|
| 43 | <p><dt><b>FV1</b> | 
|---|
| 44 | <dd>Work vector, REAL FV1(N). | 
|---|
| 45 |  | 
|---|
| 46 | <p><dt><b>IERR</b> | 
|---|
| 47 | <dd>Output, INTEGER IERR, an error flag.  0 if no errors, or | 
|---|
| 48 | J if eigenvalues 1 through J were not found. | 
|---|
| 49 | </dl> | 
|---|
| 50 | <p> | 
|---|
| 51 | <!-- STANDARD PSC FOOTER OPENING --> | 
|---|
| 52 | <hr> | 
|---|
| 53 | <a href="http://www.psc.edu/general/software/software.html"><img alt="[Software]" src="http://www.psc.edu/general/images/icons/software_button.gif"></a> | 
|---|
| 54 | <a href="http://www.psc.edu/"><img alt="[PSC Home Page]" src="http://www.psc.edu/general/images/icons/psc_home.gif"></a> | 
|---|
| 55 | <a href="http://www.psc.edu/search/search.html"><img src="http://www.psc.edu/general/images/icons/search.gif"  alt="[Search]"></a> | 
|---|
| 56 | <a href="http://www.psc.edu/general/help/assistance.html"><img src="http://www.psc.edu/general/images/icons/help.gif"  alt="[Help]"></a> | 
|---|
| 57 | <a href="http://www.psc.edu/general/feedback.html"><img src="http://www.psc.edu/general/images/icons/feedback.gif" alt="[Feedback]"></a> | 
|---|
| 58 | <hr> | 
|---|
| 59 | <font size=-1> | 
|---|
| 60 | <i><a href=/copyright.html>©</a> Pittsburgh Supercomputing Center (PSC)<br> | 
|---|
| 61 | Revised: October 1996 <br> | 
|---|
| 62 | </i></font> | 
|---|
| 63 | <font size=-2> | 
|---|
| 64 | <i>URL: http://www.psc.edu/general/software/packages/eispack/subroutines/rg.html</i> | 
|---|
| 65 | </font> | 
|---|
| 66 | <!-- STANDARD PSC FOOTER CLOSING --> | 
|---|
| 67 |  | 
|---|
| 68 |  | 
|---|