Return to DOSTMT.f CVS log

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

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

1.1     ! root        1:       SUBROUTINE DOSTMT
        !             2:       LOGICAL TOKLAB, ERR, SYSERR, ABORT
        !             3:       INTEGER STMT, PSTMT
        !             4:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
        !             5:       COMMON /DETECT/ ERR, SYSERR, ABORT
        !             6: C
        !             7: C     ROUTINE PROCESSES A DO STMT. DOSTMT PEELS OFF THE
        !             8: C     LABEL. CALLS DOSPEC TO GET THE <DO-SPECIFICATION>
        !             9: C
        !            10:       IF (TOKLAB(1,K2,KK,.FALSE.)) GO TO 10
        !            11:       CALL ERROR1(23H MISSING LABEL AFTER DO, 23)
        !            12:       GO TO 20
        !            13:    10 IF (SYSERR) GO TO 20
        !            14:       PSTMT = K2
        !            15:       CALL DOSPEC(KK, K2, .FALSE.)
        !            16:    20 RETURN
        !            17:       END

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