PURPOSE
To print a full matrix in memory.SYNOPSIS
CALL FMSPRF (A, NROWS, NCOLS, ISTYPE, IDTYPE)
INPUT PARAMETERS
- A(NROWS*(NROWS+1)/2) = Real array (ISTYPE=1,
IDTYPE=1).
A(NROWS*(NROWS+1)/2) = Complex array (ISTYPE=1, IDTYPE=2).
A(NROWS,NCOLS) = Real array (ISTYPE=2, IDTYPE=1).
A(NROWS,NCOLS) = Complex array (ISTYPE=2, IDTYPE=2).
When ISTYPE=1, this is the lower triangular matrix stored by rows from column 1 through the diagonal.
When ISTYPE=2, this is a full matrix in normal FORTRAN storage. - NROWS = Integer.
Number of rows in the matrix. - NCOLS = Integer.
Number of columns in the matrix.
When ISTYPE=1, this must be the same value as NROWS. - ISTYPE = Integer.
Symmetry and data structure type.
= 1, Symmetric matrix stored in lower triangular format.
= 2, Full matrix stored in normal FORTRAN storage. - IDTYPE = Integer.
Data type.
= 1, Real.
= 2, Complex.
OUTPUT PARAMETERS:
None.FMS PARAMETERS:
The following FMS Parameters are especially important to this routine:| Parameter | Description |
|---|---|
| LUPR | Output unit number |
| NEQPR1 | Lower limit on equation to print |
| NEQPR2 | Upper limit on equation to print |
| NROWPG | Number of rows per page |
| NCOLPG | Number of columns per page |
| IFMAT | Format for printing integers |
| RFMAT | Format for printing real numbers |
| CFMAT | Format for printing complex numbers |
DESCRIPTION:
This subroutine prints a full matrix that is stored in memory. The matrix may be in lower triangular format (ISTYPE=1) or a full matrix (ISTYPE=2).The FMS parameters NEQPR1 and NEQPR2 may be used to set lower and upper limits on the range of equations printed. The effect of these parameters on printing the full matrix [A] is to print the following submatrix:
A(NEQPR1:NEQPR2,NEQPR1:NEQPR2)