Return to CHECKS.f CVS log

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

Annotation of researchv10no/cmd/pfort/CHECKS.f, revision 1.1.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.