diff --git a/Generators/CompHep_i/src/comphepinter.F b/Generators/CompHep_i/src/comphepinter.F
index bb2b33fadc7f0a68614469090857c25ced1c5413..ed21f17da7b4b2461b003c9bfbefe2514b94d163 100755
--- a/Generators/CompHep_i/src/comphepinter.F
+++ b/Generators/CompHep_i/src/comphepinter.F
@@ -573,12 +573,12 @@
 * Check End of Line
 ********************
       LOGICAL FUNCTION EOL(INPUT_LINE)
-      CHARACTER*100 INPUT_LINE
+      CHARACTER*(*) INPUT_LINE
       INTEGER K
       SAVE
 
       EOL = .FALSE.
-      DO 16 K=1,100
+      DO 16 K=1,LEN(INPUT_LINE)
         IF (INPUT_LINE(K:K).eq.';') EOL = .TRUE.
 16    CONTINUE
       RETURN