| 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 | |