Re: NEC-LIST: Compiling NEC2 with Visual Fortran

Hi,

I have not had any problems from the CVF compiler with (1) dimensions.
By default it does not check array bounds. I compile for Release, not
Debug, so that may make a difference. I always compile as Standard
Graphics Application and use the code below to open input and output
files with dialog boxes. It would be nice to have the output file
dialog box open with a default of something line "inputfile".out, but
I have not figured out how to do that. The SETMESSAGEQQ(...) seems to
be very fragile. Any change in the argument may make the message
disappear and dialog box will display no files.

There is a bug in CVF V. 6 such that the delete key does not
completely erase characters from the screen for Standard Graphics
Applications. I got a file qwgfwnd.obj from Compaq that is linked
with the code to fix that.

Jerry Burke
LLNL

----------------------------------------------------
To open files with a dialog box in CVF:

       USE MSFLIB !May not be needed, but carryover
                    !from MS Powerstation Ftn.
       USE DFLIB
C
C***** Must set "Filenames from Command Line" option in *****
C***** Project/Settings/Fortran/Compatibility *****
C
       CHARACTER INFILE*80,OUTFILE*80
       CHARACTER DRIVE*10,DIR*80,FNAME*30,EXT*30
       LOGICAL LDIR
C Open input file
1 WRITE(*,'('' Enter INPUT file name (or RETURN) >'',$)')
       READ(*,'(A)',ERR=1) INFILE
         IF(INFILE.EQ.' ')THEN
          CALL SETMESSAGEQQ("Open INPUT file , *.*",
      & QWIN$MSG_FILEOPENDLG)
         OPEN (UNIT=2,FILE="",STATUS='OLD',READONLY,ERR=1)
         ELSE
         OPEN (UNIT=2,FILE=INFILE,STATUS='OLD',READONLY,ERR=1)
         END IF
         INQUIRE(UNIT=2,NAME=INFILE)
         LENDIR=SPLITPATHQQ(INFILE,DRIVE,DIR,FNAME,EXT)
         LDIR=CHANGEDIRQQ(DIR)
C
C Open output file
2 WRITE(*,'('' Enter OUTPUT file name (or RETURN) >'',$)')
       READ(*,'(A)',ERR=4) OUTFILE
       IF(OUTFILE.EQ.' ')THEN
          CALL SETMESSAGEQQ("Open OUTPUT file, *.*",
      & QWIN$MSG_FILEOPENDLG)
          OPEN (UNIT=3,FILE=" ",STATUS='UNKNOWN',ERR=2)
         ELSE
          OPEN (UNIT=3,FILE=OUTFILE,STATUS='UNKNOWN',ERR=2)
         END IF
         INQUIRE(UNIT=3,NAME=OUTFILE)
C
       WRITE(*,'('' Input file: '',A)')INFILE
       WRITE(*,'('' Output file: '',A)')OUTFILE
----------------------------------------------------

Timing function:
       CPUSEC=TIMEF()
Received on Thu Aug 24 2000 - 16:28:43 EDT