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