Skip to content
Snippets Groups Projects
Commit b71ad30d authored by scott snyder's avatar scott snyder
Browse files

CompHep_i: Fix fortran compilation warning.

Fortran compilation warning: string parameter length mismatch.


Former-commit-id: 65f3db68
parent 317fce80
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment