SUBROUTINE GZOPEN (LUN, MODE, FILNAM, ISTAT) | ||
Opens a file for zipped IO | ||
argument | meaning | |
LUN | logical unit number used for this file | |
MODE | string selecting IO mode ('r' or 'w') | |
FILNAM | name of the file (including the null-terminator) | |
ISTAT | status, =zero if success, #0 otherwise | |
Remarks: | ||
LUN | in total 10 different LUN's can be defined hereby | |
FILNAM | Extension '.gz' is checked |
SUBROUTINE GZCLOSE (LUN, ISTAT) | ||
Closes a file used for zipped IO | ||
argument | meaning | |
LUN | logical unit number used for this file | |
ISTAT | status, =zero if success, #0 otherwise |
SUBROUTINE GZREAD (LUN, CHBUF, NBBUF, ISTAT) | ||
Reads a line from a zipped ASCII file | ||
argument | meaning | |
LUN | logical unit number used for this file | |
CHBUF | array for storing unzipped info | |
NBBUF | record size, number of bytes of array CHBUF | |
ISTAT | status, = number of bytes read, =zero if EOF |
SUBROUTINE GZBREAD (LUN, CHBUF, NBBUF, ISTAT) | ||
Reads a line from a zipped binary file | ||
argument | meaning | |
LUN | logical unit number used for this file | |
CHBUF | array for storing unzipped info | |
NBBUF | number of bytes (unzipped) to read | |
ISTAT | status, =NBBUF if ok., =zero if EOF |
GZWRITE (LUN, OUTLINE) | ||
Writes a line to a zipped ascii file | ||
argument | meaning | |
LUN | logical unit number for writing | |
OUTLINE | character string to write | |
Remarks: | ||
OUTLINE | written up to the last non-blank character |
GZBWRITE (LUN, BUFFER, NBYTES) | ||
Writes the binary content in array BUFFER to a zipped file | ||
argument | meaning | |
LUN | logical unit number for writing | |
BUFFER | array of binary content | |
NBYTES | Number of Bytes to write |