Return to OUTCOM.f CVS log

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

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

1.1       root        1:       INTEGER FUNCTION OUTCOM(IH, L)
                      2:       INTEGER STACK,PLAT
                      3:       LOGICAL ERR, SYSERR, ABORT
                      4:       COMMON /DETECT/ ERR, SYSERR, ABORT
                      5:       COMMON /CEXPRS/ LSTACK, STACK(620)
                      6:       COMMON /GRAPH/ LLAT, PLAT, LAT(6000)
                      7: C
                      8: C     READS DOWN COM LIST OF PU NODE, PUTS INDICES OF ENTRIES
                      9: C     IN STACK. IH IS HEAD OF LIST, L RETURNS NO OF ENTRIES
                     10: C
                     11:       OUTCOM = 0
                     12:       IF (IH) 40, 40, 10
                     13:    10 L = 1
                     14:       K = IH
                     15:  20   IF (L+1.GT.LSTACK) GOTO 50
                     16:       STACK(L) = LAT(K)
                     17:       IF (LAT(K+1).EQ.1) STACK(L) = -STACK(L)
                     18:       L = L + 1
                     19:       K = LAT(K+2)
                     20:       IF (K) 30, 30, 20
                     21:  30   L = L - 1
                     22:       IF(L.GT.0)  OUTCOM=1
                     23:    40 RETURN
                     24:    50 SYSERR = .TRUE.
                     25:       CALL ERROR1(35H IN OUTCOM, TABLE OVERFLOW OF STACK, 35)
                     26:       GO TO 40
                     27:       END

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