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

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.