V10/cmd/pfort/CHECKS.f

      SUBROUTINE CHECKS(IROOT)
C
C     MAIN IS INDEX IN NODE OF SUPEROOT IN LAT
C
      LOGICAL ERR, SYSERR, ABORT, INSYM
      COMMON /PARAMS/ I1, I2, I3, I4, I5, I6, I7
      COMMON /DETECT/ ERR, SYSERR, ABORT
      CALL COMCHK(IROOT)
      CALL SCAN(IROOT)
      IF (SYSERR) GO TO 20
 10   IF(.NOT.INSYM(I6,0)) GOTO 30
      CALL UNSAFE
      GO TO 10
   20 WRITE (I2,99999)
99999 FORMAT (31H1UNSAFE REFERENCES NOT VERIFIED)
   30 RETURN
      END