Return to LDOVAR.f CVS log

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

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

1.1     ! root        1:       SUBROUTINE LDOVAR
        !             2:       COMMON /LISTDO/ LPT, LEN, LS(64)
        !             3: C
        !             4: C     CHECKS PROPER NESTING OF DOS WITHIN LIST CONSTRUCT
        !             5: C
        !             6:       IF (LPT.GE.61) GO TO 50
        !             7:       DO 40 KQ=LPT,60,4
        !             8:         KK = KQ + 4
        !             9:         DO 30 L=1,4
        !            10:           LL = L + KQ - 1
        !            11:           IF (LS(LL)) 10, 30, 10
        !            12:    10     DO 20 K=KK,61,4
        !            13:       IF (LS(K).EQ.LS(LL)) CALL ERROR1(
        !            14:      *57H ILLEGAL TO CHANGE VALUE OF CONTROL VARIABLE OR DO LIMITS, 57)
        !            15:    20     CONTINUE
        !            16:    30   CONTINUE
        !            17:    40 CONTINUE
        !            18:    50 RETURN
        !            19:       END

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