Return to NEXTOK.f CVS log

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

Annotation of researchv10no/cmd/pfort/NEXTOK.f, revision 1.1.1.1

1.1       root        1:       SUBROUTINE NEXTOK(K1, K2, CODE)
                      2:       INTEGER STMT, CODE, PSTMT
                      3:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
                      4: C
                      5: C     NEXT TOKEN IN STMT(K1)-STMT(K2-1). CODES ARE:
                      6: C     DIGIT STRING(1)
                      7: C     HOLLERITH(2)
                      8: C     IDENTIFIER(0)
                      9: C     SPECIAL CHARACTER(3)
                     10: C
                     11:       IF (STMT(K1).LT.0) GO TO 50
                     12:       IF (STMT(K1).GT.9) GO TO 20
                     13: C
                     14: C     DIGIT STRING
                     15: C
                     16:       CODE = 1
                     17:       K2 = K1 + 1
                     18:    10 IF (K2.EQ.NSTMT) GO TO 60
                     19:       IF ((STMT(K2).GT.9) .OR. (STMT(K2).LT.0)) GO TO 60
                     20:       K2 = K2 + 1
                     21:       GO TO 10
                     22:    20 IF (STMT(K1).GT.55) GO TO 40
                     23: C
                     24: C     IDENTIFIER
                     25: C
                     26:       CODE = 0
                     27:       K4 = K1 + 1
                     28:       K2 = K4
                     29:       DO 30 I=K4,NSTMT
                     30:         IF (STMT(I).GT.55 .OR. STMT(I).LT.0) GO TO 60
                     31:         K2 = K2 + 1
                     32:    30 CONTINUE
                     33: C
                     34: C
                     35: C     SPECIAL CHARACTER
                     36: C
                     37:    40 K2 = K1 + 1
                     38:       CODE = 3
                     39:       IF (STMT(K1).NE.66) GO TO 60
                     40:       IF (STMT(K2).EQ.66) K2 = K2 + 1
                     41:       GO TO 60
                     42: C
                     43: C     HOLLERITH
                     44: C
                     45:    50 CODE = 2
                     46:       K2 = K1 + 1
                     47:    60 RETURN
                     48:       END

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