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