NEC-LIST: NEC4 with MS Fortran Powerstation

FYI,

I recently had difficulty getting NEC4 to run when using MS Fortran
Powerstation.

I traced the problem to the integer value parse in subroutine PARSIT. After
making the following change to the READ statement, the program runs
the example cases correctly.

ORIGINAL:
C
C
C Parse out integer values and store into integer buffer array.
C
      DO 5090 I=1,J
         LENGTH= ENDFLD(I) - BGNFLD(I) + 1
         BUFFER= REC(BGNFLD(I):ENDFLD(I))
         IND= INDEX( BUFFER(1:LENGTH), '.' )
         IF (IND .GT. 0 .AND. IND .LT. LENGTH) GO TO 9000
         IF (IND .EQ. LENGTH) LENGTH= LENGTH - 1
         READ( BUFFER(1:LENGTH),*, ERR=9000 ) INTFLD(I)
5090 CONTINUE

MODIFIED:
C
C Parse out integer values and store into integer buffer array.
C
      DO 5090 I=1,J
         LENGTH= ENDFLD(I) - BGNFLD(I) + 1
         BUFFER= REC(BGNFLD(I):ENDFLD(I))
         IND= INDEX( BUFFER(1:LENGTH), '.' )
         IF (IND .GT. 0 .AND. IND .LT. LENGTH) GO TO 9000
         IF (IND .EQ. LENGTH) LENGTH= LENGTH - 1
         READ( BUFFER(1:LENGTH),'(i6)', ERR=9000 ) INTFLD(I)
5090 CONTINUE
Received on Wed Dec 18 1996 - 14:29:00 EST