iw3pds.f File Reference

Test two pds (grib product definition section) to see if all equal; otherwise .false. More...

Go to the source code of this file.

Functions/Subroutines
logical function	iw3pds (L1, L2, KEY)

Detailed Description

Test two pds (grib product definition section) to see if all equal; otherwise .false.

Author

Ralph Jones

Date

1988-02-22 FUNCTION: IW3PDS TEST FOR MATCH OF TWO PDS AUTHOR: JONES, R.E. ORG: W342 DATE: 88-02-22

Test two pds (grib product definition section) to see if all equal; otherwise .false. if key = 1, all 24 characters are tested, if key = 0 , the date (characters 13-17) are not tested. If key = 2, 11 of 1st 12 bytes are tested. Byte 4 is is not tested, so table version number can change and your program will still work. If key=3, test bytes 1-3, 7-12.

Program history log:

• Ralph Jones 1988-02-22
• Ralph Jones 1989-08-29 Add entry iw3pds, an alias name.
• Ralph Jones 1989-08-29 Change to cray cft77 fortran, make iw3pds the function name, iw3pdb the alias.
• Ralph Jones 1994-02-10 Add key=2, test only 11 of 1st 12 bytes. Byte 4 (table version no.) is not tested.
• Ralph Jones 1994-07-07 Add key=3, test bytes 1-3, 7-12.

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

Parameters

[in]	L1	character array to match with l2, l1 can also be a 3 word integer array.
[in]	L2	character array to match with l1, l2 can also be a 3 word integer array.
[in]	KEY	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
[out]	IW3PDB	logical .true. if l1 and l2 match on all char., logical .false. if not match on any char.

Note

Alias added because of name change in grib write up. Name of pdb (product definition block) was changd to pds (product definition section).

Definition in file iw3pds.f.