Return to DOVAR.f CVS log

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

Annotation of researchv10no/cmd/pfort/DOVAR.f, revision 1.1

1.1     ! root        1:       LOGICAL FUNCTION DOVAR(INDX)
        !             2:       INTEGER DOPT, DOLIST
        !             3:       COMMON /DOS/ DOPT, LDO, DOLIST(192)
        !             4: C
        !             5: C     CHECKS VAR AT DSA(INDX) NOT IN DOSTACK ALREADY
        !             6: C     AS A LIMIT OR INDEX OF PREVIOUSLY DEFINED AND CURRENTLY
        !             7: C     DEFINED DO
        !             8: C
        !             9:       DOVAR = .FALSE.
        !            10:       IF (DOPT) 40, 40, 10
        !            11:    10 DO 30 I=1,DOPT,6
        !            12:         L1 = I + 2
        !            13:         L2 = L1 + 3
        !            14:         DO 20 K=L1,L2
        !            15:           IF (DOLIST(K).EQ.INDX) GO TO 50
        !            16:    20   CONTINUE
        !            17:    30 CONTINUE
        !            18:    40 RETURN
        !            19:    50 DOVAR = .TRUE.
        !            20:       GO TO 40
        !            21:       END

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