Return to CHECKS.f CVS log

Up to [Research Unix] / researchv10dc / cmd / pfort

Annotation of researchv10dc/cmd/pfort/CHECKS.f, revision 1.1

1.1     ! root        1:       SUBROUTINE CHECKS(IROOT)
        !             2: C
        !             3: C     MAIN IS INDEX IN NODE OF SUPEROOT IN LAT
        !             4: C
        !             5:       LOGICAL ERR, SYSERR, ABORT, INSYM
        !             6:       COMMON /PARAMS/ I1, I2, I3, I4, I5, I6, I7
        !             7:       COMMON /DETECT/ ERR, SYSERR, ABORT
        !             8:       CALL COMCHK(IROOT)
        !             9:       CALL SCAN(IROOT)
        !            10:       IF (SYSERR) GO TO 20
        !            11:  10   IF(.NOT.INSYM(I6,0)) GOTO 30
        !            12:       CALL UNSAFE
        !            13:       GO TO 10
        !            14:    20 WRITE (I2,99999)
        !            15: 99999 FORMAT (31H1UNSAFE REFERENCES NOT VERIFIED)
        !            16:    30 RETURN
        !            17:       END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.