Return to DOSTMT.f CVS log

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

researchv10 Norman

      SUBROUTINE DOSTMT
      LOGICAL TOKLAB, ERR, SYSERR, ABORT
      INTEGER STMT, PSTMT
      COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
      COMMON /DETECT/ ERR, SYSERR, ABORT
C
C     ROUTINE PROCESSES A DO STMT. DOSTMT PEELS OFF THE
C     LABEL. CALLS DOSPEC TO GET THE <DO-SPECIFICATION>
C
      IF (TOKLAB(1,K2,KK,.FALSE.)) GO TO 10
      CALL ERROR1(23H MISSING LABEL AFTER DO, 23)
      GO TO 20
   10 IF (SYSERR) GO TO 20
      PSTMT = K2
      CALL DOSPEC(KK, K2, .FALSE.)
   20 RETURN
      END

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