c
c Routine directly callable from C/C++ (it could be necessary to
c append an underscore, "_", to its name depending on the C/C++
c compiler used).
c
c
function getcrorecord(fileid, intfields, realfields, altrec,
+ vrb, irc)
c
c Reading a record from a compressed data file already opened.
c
c Written by: S. J. Sciutto, La Plata 1996, 1997, 2003, 2010, 2018.
c
c
c Arguments:
c =========
c
c fileid.......... (input, integer) Compressed file number. This
c parameter identifies the file to be used for
c reading, and is set by the file opening
c routine.
c intfields....... (output, integer, array(*)) Integer fields
c of the record. This includes the non-scaled
c quantities and (at the end) the date-time
c specification(s) (if any). The calling
c program must provide enough space for this
c array (The minimum dimension is the maximum
c number of fields that can appear in a record
c plus 1). Positions beyond the last integer
c fields are used as scratch working space.
c realfields...... (output, double precision, array(0:*)) Real
c fields of the record. The calling program must
c provide enough space for this array.
c altrec.......... (output, logical) True if the record is an
c alternative record. False if a default record
c was obtained.
c vrb............. (input, integer) Verbosity control. If vrb is
c zero or negative then no error/informative
c messages are printed; error conditions are
c communicated to the calling program via the
c return code. If vrb is positive error messages
c will be printed: vrb = 1 means that messages
c will be printed even with successful operations.
c vrb = 2,3 means that only error messages will
c be printed. vrb > 3 is similar to vrb = 3, but
c with the additional action of stopping the
c program if a fatal error takes place.
c irc............. (output, integer) Return code. 0 means that a
c default record was successfully read.
c i (i > 0) means that an alternative record of
c type i was successfully read. -1 means that an
c end-of-file condition was got from the
c corresponding file. Any other value indicates
c a reading error (irc equals the system return
c code plus 10000).
c
c Return value: (logical) True if a record was successfully read.
c ============ False othwerise (EOF or I/O error).
c
c
c<--->
|
These pages are maintained by Sergio J. Sciutto |
Back to AIRES library index |
| Back to AIRES home |