FMSPRF
PURPOSE: Print a Full Matrix
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)
Copyright © Multipath
Corporation