SUBROUTINE GETSTR( PROMPT , DEFAULT, RESPONSE ) CHARACTER*(*), INTENT(IN ) :: PROMPT ! Prompt for user CHARACTER*(*), INTENT(IN ) :: DEFAULT ! Default value CHARACTER*(*), INTENT(IN ) :: RESPONSE ! Return value
The default is displayed in square brackets like this: [Y].
See also GETDBLE() , GETMENU() , GETNUM() , GETREAL() , and GETYN().
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 ...
To: Models-3/EDSS I/O API: The Help Pages