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)
	Test two pds (grib product definition section) to see if all equal; otherwise .false.

Detailed Description

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

Author

Ralph Jones

Date

1988-02-22

Definition in file iw3pds.f.

Function/Subroutine Documentation

iw3pds()

logical function iw3pds	(	character*1, dimension(24)	l1,
		character*1, dimension(24)	l2,
			key
	)

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

Returns

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).

Author

Ralph Jones

Date

1988-02-22

Definition at line 42 of file iw3pds.f.