Read with format A on NT

PAW version:2.11/13
Description
On NT the following macro do not work: 
MACRO rl.kumac
APPLICATION COMIS QUIT
      SUBROUTINE readhead
      CHARACTER*80 TEXT
      IFILE=15
      OPEN(IFILE,FILE='aes0212a.lsb',STATUS='OLD',ERR=820)
      READ(IFILE,789,ERR=822,END=821)TEXT
      CLOSE(IFILE)
      print*,TEXT
      STOP
789   FORMAT(80A)
820   WRITE(*,*)' # ERROR OPENING FILE'
      STOP
821   WRITE(*,*)' # END OF FILE DETECTED'
      CLOSE(IFILE)
      STOP
822   WRITE(*,*)' # ERROR READING FILE'
      CLOSE(IFILE)
      STOP
      END
QUIT

CALL readhead

RETURN
The A format is not handled correctly.
Fixed in: COMIS 1.22/00
Workaround
None

Release NotesKnown bugsFAQsContributionsTutorialReference manualDown loadMiscellaneous
Paw.Support@cern.ch