IW3PDS

The IW3PDS function tests for match of two PDS.

USAGE:  II = IW3PDS(L1,L2,KEY)
        II = IW3PDB(L1,L2,KEY)    ALIAS

   INPUT VARIABLES:
      L1     ARG LIST  CHARACTER ARRAY TO MATCH WITH L2,
                       L1 CAN ALSO BE A 3 WORD INTEGER ARRAY
      L2     ARG LIST  CHARACTER ARRAY TO MATCH WITH L1,
                       L2 CAN ALSO BE A 3 WORD INTEGER ARRAY
      KEY    ARG LIST  0, DO NOT INCLUDE THE DATE (BYTES 13-17) IN
                          MATCH.
                       1, MATCH 24 BYTES OF PDS
                       2, MATCH BYTES 1-3, 5-12 OF PDS
                       3, MATCH BYTES 1-3, 7-12 OF PDS

   OUTPUT VARIABLES:
     IW3PDB FUNCTION  LOGICAL .TRUE. IF L1 AND L2 MATCH ON ALL CHAR.,
                      LOGICAL .FALSE. IF NOT MATCH ON ANY CHAR.

REMARK: 
       Alias added because of name change in grib write up.
       name of pdb (product definition block) was changd to
       PDS (Product Definition Section).


 


  
W3lib.tar
  
Library contains Fortran 90 decoder/encoder
   routines for GRIB edition 1. (Fortran90) 

   Date posted: 2/22/2007