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
For Fortran-90 declarations and interface checking:
USE M3UTILIO
See also GETDFILE(), GETEFILE(), and GETEFILE(), and PROMPTDFILE(). PROMPTMFILE().
setenv <lname> <pathname>
for the file
before program launch.
... USE M3UTILIO ... 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