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     ! 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.