Return to DOVAR.f CVS log

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

researchv10 Norman

      LOGICAL FUNCTION DOVAR(INDX)
      INTEGER DOPT, DOLIST
      COMMON /DOS/ DOPT, LDO, DOLIST(192)
C
C     CHECKS VAR AT DSA(INDX) NOT IN DOSTACK ALREADY
C     AS A LIMIT OR INDEX OF PREVIOUSLY DEFINED AND CURRENTLY
C     DEFINED DO
C
      DOVAR = .FALSE.
      IF (DOPT) 40, 40, 10
   10 DO 30 I=1,DOPT,6
        L1 = I + 2
        L2 = L1 + 3
        DO 20 K=L1,L2
          IF (DOLIST(K).EQ.INDX) GO TO 50
   20   CONTINUE
   30 CONTINUE
   40 RETURN
   50 DOVAR = .TRUE.
      GO TO 40
      END

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