INTEGER FUNCTION PROMPTDFILE( PROMPT, RDONLY, FMTTED, RECLEN,
& DEFAULT, CALLER )
CHARACTER*(*) PROMPT ! prompt for user
LOGICAL RDONLY ! TRUE iff file is input-only
LOGICAL FMTTED ! TRUE iff file should be formatted
INTEGER RECLEN ! record length
CHARACTER*(*) DEFAULT ! default logical file name
CHARACTER*(*) CALLER ! caller-name for logging messages
If environment variable PROMPTFLAG is set to "N", returns unit number associated with logical name contained in DEFAULT without prompting the user.
Logs the value returned, for tracking and validation purposes.
Returns
See also GETDFILE(), GETEFILE(), and GETEFILE(), and PROMPTFFILE(). PROMPTMFILE().
setenv <lname> <pathname> for the file
before program launch.
...
INTEGER PROMPTDFILE
...
INTEGER FOODEV, BARDEV, QUXDEV
...
FOODEV = PROMPTDFILE( 'Enter name for foo-file',
& .TRUE., .TRUE., 529,
& 'FOO', 'MYSUB' )
IF ( FOODEV .LT. 0 ) THEN
... error opening foo-file: deal with it
END IF
...
To: Models-3/EDSS I/O API: The Help Pages