Return to TOKLOG.f CVS log

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

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

1.1       root        1:       LOGICAL FUNCTION TOKLOG(K1, K2)
                      2: C
                      3: C     ROUTINE RETURNS TRUE IF FINDS .TRUE. OR .FALSE.
                      4: C     IN STMT(K1)-STMT(K2-1)
                      5: C
                      6:       INTEGER STMT, CONS(13), PSTMT
                      7:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
                      8:       DATA CONS(1) /64/, CONS(2) /35/, CONS(3) /30/, CONS(4) /41/,
                      9:      *    CONS(5) /48/, CONS(6) /34/, CONS(7) /64/, CONS(8) /64/,
                     10:      *    CONS(9) /49/, CONS(10) /47/, CONS(11) /50/, CONS(12) /34/,
                     11:      *    CONS(13) /64/
                     12:       TOKLOG = .FALSE.
                     13:       KCNT = 1
                     14:       L1 = 1
                     15:       L2 = 7
                     16:       K2 = K1
                     17:    10 DO 20 I=L1,L2
                     18:         IF (STMT(K2).NE.CONS(I)) GO TO 30
                     19:         K2 = K2 + 1
                     20:    20 CONTINUE
                     21:       TOKLOG = .TRUE.
                     22:       RETURN
                     23:    30 KCNT = KCNT + 1
                     24:       IF (KCNT.GE.3) RETURN
                     25:       K2 = K1
                     26:       L1 = 8
                     27:       L2 = 13
                     28:       GO TO 10
                     29:       END

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