W3YMDH4
The W3YMDH4 routine obtains the components of the NMC date
word, 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
USAGE: CALL W3YMDH4 (IDATE, IYEAR, MONTH, IDAY, IHOUR, NN)
Input variables:
IDATE LEFT 4 BYTES OF INTEGER 64 BIT WORD, OR CAN BE
CHARACTER*1 IDATE(4) OR CHARACTER*4 IDATE.
IYEAR INTEGER YEAR (4 DIGITS or 2 DIGITS for ON84)
MONTH INTEGER MONTH
IDAY INTEGER DAY
IHOUR INTEGER HOUR
NN INTEGER CODE:
.EQ. 0 PACK IYEAR, MONTH, IDAY, IHOUR INTO IDATE
.NE. 0 UNPACK IDATE INTO IYEAR, MONTH, IDAY, IHOUR
Output variables:
IDATE LEFT 4 BYTES OF INTEGER 64 BIT WORD, OR CAN BE
CHARACTER*1 IDATE(4) OR CHARACTER*4 IDATE.
IYEAR INTEGER YEAR (4 DIGITS)
MONTH INTEGER MONTH
IDAY INTEGER DAY
IHOUR INTEGER HOUR