COMPUTE VERIFYING DATE.
- Author
- IREDELL
- Date
- 1998-08-18
PROGRAM TO COMPUTE VERIFYING DATE GIVEN THE FORECAST HOUR AND THE INITIAL DATE.
PROGRAM HISTORY LOG:
- 95-02-28 IREDELL
- 97-09-22 IREDELL 4-DIGIT YEAR ALLOWED; 2-DIGIT YEAR STANDARDIZED
- 98-03-25 IREDELL 4-DIGIT YEAR FOR ALL DATES. A 2-DIGIT YEAR WILL BE INTERPRETED AS A YEAR IN THE FIRST CENTURY WHICH SHOULD BE ALL RIGHT BEFORE THE YEAR 2000. STANDARD ERROR WARNINGS WILL BE GIVEN FOR SUCH DATES UNTIL 1 SEPT 1998 AFTER WHICH NDATE ABORTS. NDATE WILL ALSO ABORT AFTER 1 SEPT 1998 IF THE NOW IRRELEVANT -Y OPTION IS INVOKED. THE NEW Y2K-COMPLIANT W3LIB PACKAGE IS USED.
- 1998-08-17 IREDELL DROP-DEAD DATE RESET TO 1 SEPT 1999
- 1999-01-26 VUONG CHANGED TO USE 4-DIGIT YEAR AS STANDARDIZED FOR ALL DATES AND CONVERTED TO IBM RS/6000 SP AND MODIFIED PROGRAM TO CALL ROUTINE GETARG INSTEAD OF USING SUBROUTINE GETARG AS A FUNCTION.
- 1999-09-02 IREDELL UNDID RESTRICTION ON FORECAST HOUR
USAGE: ndate [fhour [idate]] INPUT ARGUMENT LIST
- FHOUR - FORECAST HOUR (MAY BE NEGATIVE) FHOUR DEFAULTS TO ZERO.
- IDATE - INITIAL DATE IN YYYYMMDDHH FORMAT. IDATE DEFAULTS TO THE CURRENT UTC DATE AND HOUR. FIRST CENTURY DATES WILL CAUSE ABORT AFTER 1 SEPT 1999. OUTPUT ARGUMENT LIST:
- NDATE - VERIFYING DATE IN YYYYMMDDHH FORMAT. EXIT STATES:
- 0 - SUCCESS
- 1 - FAILURE; INVALID ARGUMENT
- 2 - FAILURE; INCORRECT NUMBER OF ARGUMENTS
SUBPROGRAMS CALLED:
- IARGC GET NUMBER OF ARGUMENTS
- GETARG GET ARGUMENT
- W3DIFDAT RETURN A TIME INTERVAL BETWEEN TWO DATES
- W3MOVDAT RETURN A DATE FROM A TIME INTERVAL AND DATE
- W3PRADAT FORMAT A DATE AND TIME INTO CHARACTERS
- W3UTCDAT RETURN THE UTC DATE AND TIME
- ERRMSG WRITE A MESSAGE TO STDERR
- EXIT EXIT PROGRAM
Definition in file ndate.f.
1.9.1