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

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.