KPG1_LSTAR

Writes a section of a two-dimensional array to a text file

Description:

This routine takes an input two-dimensional array and lists a specified section of that image, as defined by the x-and-y lower-and-upper bounds to a Fortran file. The file must either be already opened and specified by the input file descriptor, or be created in this routine and will be associated with the supplied parameter name. The first record in the file corresponds to the lowest index row.

Invocation

CALL KPG1_LSTAR( DIM1, DIM2, ARRAY, XLOW, YLOW, XHIGH, YHIGH, OPENF, FDI, FILNAM, STATUS )

Arguments

DIM1 = INTEGER (Given)
The first dimension of the two-dimensional array.
DIM2 = INTEGER (Given)
The second dimension of the two-dimensional array.
ARRAY( DIM1, DIM2 ) = REAL (Given)
The two-dimensional array to be listed.
XLOW = INTEGER (Given)
x co-ord of lower-left corner of sub-array to be listed out.
YLOW = INTEGER (Given)
y co-ord of lower-left corner of sub-array to be listed out.
XHIGH = INTEGER (Given)
x co-ord of upper-right corner of sub-array to be listed out.
YHIGH = INTEGER (Given)
y co-ord of upper-right corner of sub-array to be listed out.
OPENF = LOGICAL (Given)
If true the Fortran file is to be associated with %FILNAM and opened. Otherwise the file is assumed to have been opened and has descriptor %FD.
FDI = INTEGER (Given)
The descriptor associated with the previously opened Fortran file.
FILNAM = CHARACTER ( ) (Given)
Parameter name of the file to be opened and to contain the listing output.
STATUS = INTEGER (Given and Returned)
Global status value