SUBROUTINE GETSTR( PROMPT , DEFAULT, RESPONSE )
CHARACTER*(*) PROMPT ! Prompt for user
CHARACTER*(*) DEFAULT ! Default value
CHARACTER*(*) RESPONSE ! Return value
The default is displayed in square brackets like this: [Y].
See also GETDBLE() , GETMENU() , GETNUM() , GETREAL() , and GETYN().
...
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