GETSTR()
Fortran version:
SUBROUTINE GETSTR( PROMPT , DEFAULT, RESPONSE )
CHARACTER*(*) PROMPT ! Prompt for user
CHARACTER*(*) DEFAULT ! Default value
CHARACTER*(*) RESPONSE ! Return value
NO C version:
Summary:
Display the PROMPT to standard output, get the
user's response and check that it fits into RESPONSE,
and return the result, issuing a warning if RESPONSE has
had to be truncated.
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 like this: [Y].
See also
GETDBLE() ,
GETMENU() ,
GETNUM() ,
GETREAL() , and
GETYN().
Preconditions:
none
Fortran Usage:
For Fortran-90 declarations and interface checking:
USE M3UTILIO
(See sample programs
LATLON or
PRESZ
for additional usage examples.)
...
CHARACTER*16 FNAME, DEFNAME
INTEGER IOS
...
DEFNAME = 'AFILE'
CALL GETSTR( 'Give me the input file name', DEFNAME, FNAME )
OPEN( FILE = FNAME, UNIT = 11, IOSTAT = IOS ) ! opens the user's file
...
C Usage:
don't
Previous: GETREAL
Next: GETYN
Up: Utility Routines
To: Models-3/EDSS I/O API: The Help Pages