Skip to content
Snippets Groups Projects
Commit 7ce62ea4 authored by WAUTELET Philippe's avatar WAUTELET Philippe Committed by WAUTELET Philippe
Browse files

Philippe 29/01/2016: added default value for YLUOUT filename (minor bug seen by valgrind)

parent b1630a5c
No related branches found
No related tags found
No related merge requests found
......@@ -90,6 +90,8 @@ SELECT CASE(CPROGRAM)
CASE('MESONH','SPAWN ')
CALL GET_MODEL_NUMBER_ll (IMI)
WRITE(YLUOUT,FMT='(A14,I1,A1)') 'OUTPUT_LISTING',IMI,' '
CASE DEFAUT
YLUOUT = ''
END SELECT
!
!-------------------------------------------------------------------------------
......
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