Return to TOKCOM.f CVS log

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

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

1.1       root        1:       LOGICAL FUNCTION TOKCOM(K1, K2)
                      2: C
                      3: C     TOKCOM RETURNS TRUE IS FINDS CONST IN STMT(K1)-STMT(K2-1)
                      4: C     ( (OPTIONAL SIGN) REAL CONST, (OPTIONAL SIGN) REAL CONST )  IS
                      5: C     COMPLEX CONSTRUCT; TOKCOM RESETS K2
                      6: C
                      7:       LOGICAL TOKRL
                      8:       INTEGER STMT, PSTMT
                      9:       COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
                     10:       TOKCOM = .FALSE.
                     11:       IF (STMT(K1).NE.65) GO TO 10
                     12:       K3 = K1 + 1
                     13:       IF (STMT(K3).EQ.60 .OR. STMT(K3).EQ.61) K3 = K3 + 1
                     14:       IF (TOKRL(K3,K2,K)) IF (K-1) 10, 20, 10
                     15:    10 RETURN
                     16:    20 IF (STMT(K2).NE.68) GO TO 10
                     17:       K3 = K2 + 1
                     18:       IF (STMT(K3).EQ.60 .OR. STMT(K3).EQ.61) K3 = K3 + 1
                     19:       IF (TOKRL(K3,K2,K)) IF (K-1) 10, 30, 10
                     20:       GO TO 10
                     21:    30 IF (STMT(K2).NE.62) GO TO 10
                     22:       K2 = K2 + 1
                     23:       TOKCOM = .TRUE.
                     24:       GO TO 10
                     25:       END

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