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     ! 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.