      SUBROUTINE GETFLAGS()
C
C READ SYSTEM FLAGS INPUT FILE
C
      INCLUDE 'UNPACK.INC'
C
      READ(5,'(32L1)',ERR=100,END=200) SYS2
C
      GOTO 999
  100 WRITE(6,*) 'ERROR READING SYSTEM FLAG FILE'
      STOP
      GOTO 999
  200 WRITE(6,*) 'NO SYSTEM FLAG DATA IN FILE'
      STOP
C
  999 CONTINUE
C
      RETURN
      END
