INTEGER FUNCTION GETNUM( LO , HI , DEFAULT , PROMPT ) INTEGER LO ! Minimum allowed return value INTEGER HI ! Maximum allowed return value INTEGER DEFAULT ! Default return value CHARACTER*(*) PROMPT ! Prompt for user
PROMPT
to standard output for an integer
between LO
and HI
, get the user's
response and check that it is within range. Return
DEFAULT
if the user hits <RET>. Reprompts on
error for up to 5 attempts; exits in case of more than 5 entry
errors. If environment variable
PROMPTFLAG is set to "N", returns
DEFAULT
without prompting the user. 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 GETYN() , GETMENU() , GETREAL() , GETDBLE() , and GETSTR() .
... INTEGER L, M INTEGER GETNUM ... L = GETNUM( 1, 10, 7, 'Give me a number between 1 and 10' ) ...
To: Models-3/EDSS I/O API: The Help Pages