PURPOSE
To read a block of data from a FMS Vector File.SYNOPSIS
CALL FMSGET (LUFMS, NROWS, NCOLS, IROW1, JCOL1, A(NROWS,NCOLS), LDA)
INPUT PARAMETERS
- LUFMS(25) = Integer array.
FMS Vector File Attribute List which defines the file where the data is to be read. - NROWS = Integer.
The number of rows to transfer. - NCOLS = Integer.
The number of columns to transfer. - IROW1 = Integer.
The starting global row where you want to read the block. - JCOL1 = Integer.
The starting global column where you want to read the block. - LDA = Integer.
The leading dimension of the DATA array. This must be at least as big as NROWS.
OUTPUT PARAMETERS:
- DATA(NROWS,NCOLS) = Real or Complex array.
This is the array of data you want to transfer from the file, in normal FORTRAN storage.
FMS PARAMETERS:
The following FMS Parameters are especially important to this routine:| Parameter | Description |
|---|---|
| IOKIDS | Allow children to access a file |
DESCRIPTION:
This subroutine provides read access to FMS Vector files. The array DATA(NROWS,NCOLS) is transferred directly from the file LUFMS without buffering.To use this subroutine, the file LUFMS must be opened and populated with data. Using this subroutine involves the following 3 steps:
- Initialize
CALL FMSGET (LUFMS, 0, 0, 0, 0, 0, 0)
The 0 value arguments direct FMS to initialize the files for read access. This call must precede calls to FMSGET which transfer data. - Transfer data
CALL FMSGET (LUFMS, NROWS, NCOLS, IROW1, JCOL1, A(NROWS,NCOLS), LDA)
The second step is to call FMSGET as many times as you want to read the data. - End
CALL FMSGET (LUFMS, 0, 0, NUMEQ+1, 0, 0, 0)
where the value of IROW1=NUMEQ+1 is greater than the number of equations. This call directs FMS to release any storage.