w3fs15.f File Reference

Updating office note 85 date/time word. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3fs15 (IDATE, JTAU, NDATE)
	Updates or backdates a fullword date/time word (o.n. More...

Detailed Description

Updating office note 85 date/time word.

Author

Ralph Jones

Date

1987-02-09

Definition in file w3fs15.f.

Function/Subroutine Documentation

w3fs15()

subroutine w3fs15	(	character*1, dimension(4)	IDATE,
			JTAU,
		character*1, dimension(4)	NDATE
	)

Updates or backdates a fullword date/time word (o.n.

84) by a specified number of hours.

Program History Log:

Date	Programmer	Comments
Unknown	Robert Allard	Initial.
1987-02-19	Ralph Jones	Clean up code
1987-02-19	Ralph Jones	Change to microsoft fortran 4.10
1989-05-12	Ralph Jones	Correct order of bytes in date word for pc
1989-08-04	Ralph Jones	Clean up code, get rid of assign, correction for memory set to indefinite.
1989-10-25	Ralph Jones	Change to cray cft77 fortran
1995-11-15	Ralph Jones	Add save statement
2002-10-15	Boi Vuong	Replaced function ichar with mova2i

Parameters

[in]	IDATE	Packed binary date/time as follows: Byte Variable Range Byte 1 is year of century 00-99 Byte 2 is month 01-12 Byte 3 is day of month 01-31 Byte 4 is hour 00-23 Subroutine takes advantage of fortran address passing, IDATE and NDATE may be a character*1 array of four, the left 32 bits of 64 bit integer word. An office note 85 label can be stored in 4 integer words. If integer the 2nd word is used. Output is stored in left 32 bits. for a office note 84 label the 7th word is in the 4th cray 64 bit integer, the left 32 bits.
[in]	JTAU	Number of hours to update (if positive) or backdate (if negative)
[out]	NDATE	New date/time word returned in the same format as 'IDATE'. 'NDATE' and 'IDATE' may be the same variable.

Note

This routine is valid only for the 20th century.

The format of the date/time word is the same as the seventh word of the packed data field label (see o.n. 84) and the third word of a binary data set label (see o.n. 85).

Exit states: An error found by out of range tests on the given date/time information will be indicated by returning a binary zero word in 'NDATE'.

Author

Ralph Jones

Date

1987-02-09

Definition at line 46 of file w3fs15.f.