Skip to content
Snippets Groups Projects
Commit 78b1fb56 authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan Committed by WAUTELET Philippe
Browse files

Juan 12/05/2014: missing reading of IMASDEV before COUPLING test

parent 4d0ed319
No related branches found
No related tags found
No related merge requests found
......@@ -159,6 +159,8 @@ END MODULE MODI_INI_SEG_n
!! 04/2010 add GUSECHAQ, GCH_PH (M. Leriche)
!! 09/2010 add GUSECHIC (M. Leriche)
!! 02/2012 add GFOREFIRE (Pialat/Tulet)
!! 05/2014 missing reading of IMASDEV before COUPLING
!! test (Escobar)
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
......@@ -341,6 +343,8 @@ IF (CPROGRAM=='MESONH') THEN
CALL FMOPEN_ll(HINIFILE,'READ',HLUOUT,0,2,NVERB,ININAR,IRESP)
END IF
CALL FMREAD(HINIFILE,'MASDEV',HLUOUT,'--',IMASDEV,IGRID,ILENCH,YCOMMENT,IRESP)
IF (CPROGRAM=='MESONH') THEN
IF (IMASDEV > 49) THEN
YRECFM='COUPLING'
......
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