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