W3FI32
The W3FI32 routine converts an array of the 27 data field identifiers
into an array of the first 8 identification words of the
format described in NMC Office Note 84 (89-06-15, PAGE-35).
USAGE: CALL W3FI32(LARRAY, KIDNT)
Input argument list:
LARRAY - INTEGER ARRAY CONTAINING 27 DATA FIELD
IDENTIFIERS (SEE O.N. 84)
Output argument list:
KIDNT - INTEGER ARRAY OF 6 WORDS, 12 OFFICE NOTE 84 32 BIT
WORDS, FIRST 4 WORDS ARE MADE BY W3FI32, IF YOU ARE
USING PACKER W3AI00, IT WILL COMPUTE WORD 5 AND 6.
(OFFICE NOTE 84 WORDS 9,10, 11 AND 12). IF J THE
WORD COUNT IN WORD 27 OF LARRAY IS GREATER THAN
32743 THEN BITS 15-0 OF THE 4TH ID WORD ARE SET TO
ZERO, J IS STORED IN BITS 31-0 OF THE 6TH ID WORD.
ID WORD 5 IS SET ZERO, BIT 63-32 OF THE 6TH ID
WORD ARE SET ZERO. NOTE: BIS ARE NUMBER LEFT TO
RIGHT ON THE CRAY AS 63-0.
Output files:
UNIT6 - STANDARD FORTRAN PRINT FILE
REMARKS:
Exit states printed messages:
If any number n in (larray(i),i=1,27) is erroneously large:
'value in larray(i)=n is too large to pack'
If any number n in (larray(i),i=1,27) is erroneously negative:
'value in larray(i)=n should not be negative'
In either of the above situations, that portion of the packed
word corresponding to larray(i) will be set to binary ones.
W3lib.tar |
Library contains Fortran 90 decoder/encoder
routines for GRIB edition 1. (Fortran90)
Date posted: 2/22/2007 |