INTEGER FUNCTION GETDATE( DEFAULT , PROMPT ) INTEGER DEFAULT ! Default return value CHARACTER*(*) PROMPT ! Prompt for user
PROMPT
to standard output for a date
in either of two formats: YYYYDDD
or
YYYYMMDD
, and get the user's response and convert it
into the corresponding value according to EDSS/Models-3
date and time conventions. Returns
DEFAULT
if the user hits <RET>. Reprompts on
error for up to 5 attempts; exits in case of more than 5 entry
errors. Logs the value returned, for tracking and validation
purposes.
The default is displayed in square brackets at the end of the prompt [LIKE THIS].
For Fortran-90 declarations and interface checking:
USE M3UTILIO
See also GETNUM().
... INTEGER L, M INTEGER GETDATE ... L = GETDATE( 1993201, 'Enter the starting date for the run' ) ...
Up: Date and Time Manipulation Routines
To: Models-3/EDSS I/O API: The Help Pages