Return to OUTLAT.f CVS log

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

Annotation of researchv10no/cmd/pfort/OUTLAT.f, revision 1.1.1.1

1.1       root        1:       INTEGER FUNCTION OUTLAT(IH, L, ISR)
                      2:       INTEGER STACK, PLAT
                      3:       LOGICAL ERR, SYSERR, ABORT
                      4:       COMMON /DETECT/ ERR, SYSERR, ABORT
                      5:       COMMON /GRAPH/ LLAT, PLAT, LAT(6000)
                      6:       COMMON /CEXPRS/ LSTACK, STACK(620)
                      7:       INTEGER SYMLEN
                      8:       COMMON /PARAMS/ I1, I2, I3, SYMLEN, I4, I5, I6
                      9: C
                     10: C     IH POINTS TO A PARENTS OR DESCS LIST IN LAT; L IS NUM
                     11: C     OF ELEMENTS FOUND ON LIST; ISR IS ENTRY IN LAT OF
                     12: C     SUPERROOT
                     13: C
                     14: C
                     15:       OUTLAT = 0
                     16:       IF (IH) 50, 50, 10
                     17:    10 K = IH
                     18:       L = 1
                     19:    20 M = LAT(K)
                     20: C     SKIP OVER CALLS TO ASFS AND OVER SUPEROOT
                     21:       IF(MOD(IGATT2(M+SYMLEN+6,1),8).EQ.4 .OR. M.EQ.ISR) GOTO 30
                     22:       IF(L+1.GT.LSTACK) GOTO 60
                     23:       STACK(L) = M
                     24:       L = L + 1
                     25:    30 K = LAT(K+1)
                     26:       IF (K) 40, 40, 20
                     27:    40 L = L - 1
                     28:       IF (L.GT.0) OUTLAT = 1
                     29:    50 RETURN
                     30:    60 CALL ERROR1(35H IN OUTLAT, TABLE OVERFLOW OF STACK, 35)
                     31:       SYSERR = .TRUE.
                     32:       GO TO 50
                     33:       END

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