w3ymdh4.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	w3ymdh4 (IDATE, IYEAR, MONTH, IDAY, IHOUR, NN)
	SUBPROGRAM: W3YMDH4 4-BYTE DATE WORD UNPACKER AND PACKER AUTHOR: Brill,K.F. More...

Function/Subroutine Documentation

w3ymdh4()

subroutine w3ymdh4	(	character, dimension(4)	IDATE,
			IYEAR,
			MONTH,
			IDAY,
			IHOUR,
			NN
	)

SUBPROGRAM: W3YMDH4 4-BYTE DATE WORD UNPACKER AND PACKER AUTHOR: Brill,K.F.

ORG: NP/22 DATE: 98-07-29

ABSTRACT: OBTAINS THE COMPONENTS OF THE NMC DATE WORD (NCEP Y2K COMPLIANT FORM), OR GIVEN ITS COMPONENTS, FORMS AN NMC TYPE DATE WORD. THE PACKING IS DONE USING BASE 32.

If the first byte of IDATE is less than 101, then the old Office Note 84 packing is assumed. A four-digit year is always returned. To pack the "old" way, pass in a 2-digit year.

This program will work for the years ranging from A.D. 101 through 79359.

On unpacking, years less than or equal to 100 are returned as follows:

0-50 2000–2050 51-100 1951–2000

PROGRAM HISTORY LOG: 98-07-29 K.F.BRILL 1999-03-15 Gilbert - Removed Call to W3FS11 and put its processing inline. W3FS11 was deleted from the W3LIB.

USAGE: CALL W3YMDH4 (IDATE, IYEAR, MONTH, IDAY, IHOUR, NN)

INPUT VARIABLES: NAMES INTERFACE DESCRIPTION OF VARIABLES AND TYPES

---

IDATE ARG LIST LEFT 4 BYTES OF INTEGER 64 BIT WORD, OR CAN BE CHARACTER*1 IDATE(4) OR CHARACTER*4 IDATE. IYEAR ARG LIST INTEGER YEAR (4 DIGITS or 2 DIGITS for ON84) MONTH ARG LIST INTEGER MONTH IDAY ARG LIST INTEGER DAY IHOUR ARG LIST INTEGER HOUR NN ARG LIST INTEGER CODE: .EQ. 0 PACK IYEAR, MONTH, IDAY, IHOUR INTO IDATE .NE. 0 UNPACK IDATE INTO IYEAR, MONTH, IDAY, IHOUR

OUTPUT VARIABLES: NAMES INTERFACE DESCRIPTION OF VARIABLES AND TYPES

---

IDATE ARG LIST LEFT 4 BYTES OF INTEGER 64 BIT WORD, OR CAN BE CHARACTER*1 IDATE(4) OR CHARACTER*4 IDATE. IYEAR ARG LIST INTEGER YEAR (4 DIGITS) MONTH ARG LIST INTEGER MONTH IDAY ARG LIST INTEGER DAY IHOUR ARG LIST INTEGER HOUR

SUBROGRAMS CALLED: NAMES LIBRARY

---

CHAR F90 MOVA2I W3

ATTRIBUTES: LANGUAGE: CRAY CFT90 FORTRAN MACHINE: CRAY Y-MP8/832

Definition at line 67 of file w3ymdh4.f.