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