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

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.