Skip to content
Snippets Groups Projects
Commit 4fd364b7 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 19/03/2018: IO: bug correction: LFI vertically split files have now correct suffix .lfi

parent 5f0a9caf
No related branches found
No related tags found
No related merge requests found
......@@ -700,15 +700,15 @@ CONTAINS
!
! JUAN open lfi file temporary modif
!
CALL LFIOUV(IRESOU, &
TZSPLITFILE%NLFIFLU, &
GNAMFI8, &
TZSPLITFILE%CNAME, &
"UNKNOWN", &
GFATER8, &
GSTATS8, &
IMELEV, &
INPRAR, &
CALL LFIOUV(IRESOU, &
TZSPLITFILE%NLFIFLU, &
GNAMFI8, &
TRIM(TZSPLITFILE%CNAME)//'.lfi', &
"UNKNOWN", &
GFATER8, &
GSTATS8, &
IMELEV, &
INPRAR, &
ININAR8)
TZSPLITFILE%NLFININAR = ININAR8
END IF
......
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