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