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

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.