Return to TOKCOM.f CVS log

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

researchv10 Norman

      LOGICAL FUNCTION TOKCOM(K1, K2)
C
C     TOKCOM RETURNS TRUE IS FINDS CONST IN STMT(K1)-STMT(K2-1)
C     ( (OPTIONAL SIGN) REAL CONST, (OPTIONAL SIGN) REAL CONST )  IS
C     COMPLEX CONSTRUCT; TOKCOM RESETS K2
C
      LOGICAL TOKRL
      INTEGER STMT, PSTMT
      COMMON /INPUT/ NSTMT, PSTMT, STMT(1327)
      TOKCOM = .FALSE.
      IF (STMT(K1).NE.65) GO TO 10
      K3 = K1 + 1
      IF (STMT(K3).EQ.60 .OR. STMT(K3).EQ.61) K3 = K3 + 1
      IF (TOKRL(K3,K2,K)) IF (K-1) 10, 20, 10
   10 RETURN
   20 IF (STMT(K2).NE.68) GO TO 10
      K3 = K2 + 1
      IF (STMT(K3).EQ.60 .OR. STMT(K3).EQ.61) K3 = K3 + 1
      IF (TOKRL(K3,K2,K)) IF (K-1) 10, 30, 10
      GO TO 10
   30 IF (STMT(K2).NE.62) GO TO 10
      K2 = K2 + 1
      TOKCOM = .TRUE.
      GO TO 10
      END

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