INTEGER FUNCTION PROMPTFFILE( PROMPT, RDONLY, FMTTED, DEFAULT, CALLER )
CHARACTER*(*) PROMPT ! prompt for user
LOGICAL RDONLY ! TRUE iff file is input-only
LOGICAL FMTTED ! TRUE iff file should be formatted
CHARACTER*(*) DEFAULT ! default logical file name
CHARACTER*(*) CALLER ! caller-name for logging messages
Logs the value returned, for tracking and validation purposes.
Returns
See also GETDFILE(), GETEFILE(), and GETEFILE(), and PROMPTDFILE(). PROMPTMFILE().
setenv <lname> <pathname> for the file
before program launch.
...
INTEGER PROMPTFFILE
...
INTEGER FOODEV, BARDEV, QUXDEV
...
FOODEV = PROMPTFFILE( 'Enter name for foo-file',
& .TRUE., .TRUE.,
& 'FOO', 'MYSUB' )
IF ( FOODEV .LT. 0 ) THEN
... error opening foo-file: deal with it
END IF
BARDEV = PROMPTFFILE( 'Enter name for bar-file',
& .FALSE., .FALSE.,
& 'BAR', 'MYSUB' )
IF ( BARDEV .LT. 0 ) THEN
... error opening bar-file: deal with it
END IF
QUXDEV = PROMPTFFILE( 'Enter name for qux-file (or "NONE")',
& .FALSE., .TRUE.,
& 'QUX', 'MYSUB' )
IF ( QUXDEV .EQ. -2 ) THEN
... don't want output file QUX
ELSE IF ( QUXDEV .LT. 0 ) THEN
... error opening qux-file: deal with it
END IF
...
To: Models-3/EDSS I/O API: The Help Pages