Return to OUTCOM.f CVS log

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

researchv10 Norman

      INTEGER FUNCTION OUTCOM(IH, L)
      INTEGER STACK,PLAT
      LOGICAL ERR, SYSERR, ABORT
      COMMON /DETECT/ ERR, SYSERR, ABORT
      COMMON /CEXPRS/ LSTACK, STACK(620)
      COMMON /GRAPH/ LLAT, PLAT, LAT(6000)
C
C     READS DOWN COM LIST OF PU NODE, PUTS INDICES OF ENTRIES
C     IN STACK. IH IS HEAD OF LIST, L RETURNS NO OF ENTRIES
C
      OUTCOM = 0
      IF (IH) 40, 40, 10
   10 L = 1
      K = IH
 20   IF (L+1.GT.LSTACK) GOTO 50
      STACK(L) = LAT(K)
      IF (LAT(K+1).EQ.1) STACK(L) = -STACK(L)
      L = L + 1
      K = LAT(K+2)
      IF (K) 30, 30, 20
 30   L = L - 1
      IF(L.GT.0)  OUTCOM=1
   40 RETURN
   50 SYSERR = .TRUE.
      CALL ERROR1(35H IN OUTCOM, TABLE OVERFLOW OF STACK, 35)
      GO TO 40
      END

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