Return to TOKLOP.f CVS log

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

Annotation of researchv10no/cmd/pfort/TOKLOP.f, revision 1.1

1.1     ! root        1:       LOGICAL FUNCTION TOKLOP(K1, K2, KCODE)
        !             2: C
        !             3: C     ROUTINE RETURNS TRUE IF FINDS LOGICAL OR RELATIONAL
        !             4: C     OPERATORS IN STMT(K1)-STMT(K2-1);  RETURNS OPERATOR CODE
        !             5: C     IN KCODE (SEE EXPR FOR CODES)
        !             6: C
        !             7:       INTEGER C(20), CC(9), CODE(9), PSTMT, STMT
        !             8:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
        !             9:       DATA C(1) /30/, C(2) /43/, C(3) /33/, C(4) /43/, C(5) /44/, C(6)
        !            10:      *    /49/, C(7) /44/, C(8) /47/, C(9) /34/, C(10) /46/, C(11)
        !            11:      *    /43/, C(12) /34/, C(13) /36/, C(14) /49/, C(15) /36/, C(16)
        !            12:      *    /34/, C(17) /41/, C(18) /49/, C(19) /41/, C(20) /34/
        !            13:       DATA CC(1), CC(2) /2*3/, CC(3), CC(4), CC(5), CC(6), CC(7),
        !            14:      *    CC(8), CC(9) /7*2/, CODE(1) /19/, CODE(2) /14/, CODE(3) /20/,
        !            15:      *    CODE(4), CODE(5), CODE(6), CODE(7), CODE(8), CODE(9) /6*21/
        !            16:       TOKLOP = .FALSE.
        !            17:       IF (STMT(K1).NE.64) RETURN
        !            18:       J = 1
        !            19:       DO 30 I=1,9
        !            20:         KK = J + CC(I) - 1
        !            21:         K2 = K1 + 1
        !            22:         DO 10 L=J,KK
        !            23:           IF (STMT(K2).NE.C(L)) GO TO 20
        !            24:           K2 = K2 + 1
        !            25:    10   CONTINUE
        !            26:         KCODE = CODE(I)
        !            27:         IF (STMT(K2).NE.64) RETURN
        !            28:         K2 = K2 + 1
        !            29:         TOKLOP = .TRUE.
        !            30:         RETURN
        !            31:    20   J = J + CC(I)
        !            32:    30 CONTINUE
        !            33:       RETURN
        !            34:       END

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