GETGIR
The GETGIR routine reads a grib file and returns its index contents.
USAGE: CALL GETGIR(LUGB,MSK1,MSK2,MNUM,MBUF,CBUF,NLEN,NNUM,IRET)
Input arguments:
LUGB INTEGER UNIT OF THE UNBLOCKED GRIB FILE
MSK1 INTEGER NUMBER OF BYTES TO SEARCH FOR FIRST MESSAGE
MSK2 INTEGER NUMBER OF BYTES TO SEARCH FOR OTHER MESSAGES
MNUM INTEGER NUMBER OF INDEX RECORDS TO SKIP (USUALLY 0)
MBUF INTEGER LENGTH OF CBUF IN BYTES
Output arguments:
CBUF CHARACTER*1 (MBUF) BUFFER TO RECEIVE INDEX DATA
NLEN INTEGER LENGTH OF EACH INDEX RECORD IN BYTES
NNUM INTEGER NUMBER OF INDEX RECORDS
(=0 IF NO GRIB MESSAGES ARE FOUND)
IRET INTEGER RETURN CODE
0 ALL OK
1 CBUF TOO SMALL TO HOLD INDEX DATA
REMARKS:
Subprogram can be called from a multiprocessing environment.
DO NOT engage the same logical unit from more than one processor.
W3lib.tar |
Library contains Fortran 90 decoder/encoder
routines for GRIB edition 1. (Fortran90)
Date posted: 2/22/2007 |