[tuleap28930] Issue in result when input mesh is 1D + minor corrections for debug

[modules/homard.git] / src / tool / ES_MED / esemm1.F

diff --git a/src/tool/ES_MED/esemm1.F b/src/tool/ES_MED/esemm1.F
index 45ac3fca4e889a98a998b63fd2d15723f3ef2167..288adb607e045084fce4cf4b727ff9fa6d677721 100644 (file)
--- a/src/tool/ES_MED/esemm1.F
+++ b/src/tool/ES_MED/esemm1.F
@@ -947,7 +947,9 @@ c                 12345678901234567890123456789012
       endif
 #ifdef _DEBUG_HOMARD_
       write (ulsort,texte(langue,3)) 'UTINMA', nompro
+      write (ulsort,'(A)') 'TEST2'
 #endif
+      write (ulsort,'(A)') 'TEST'
       call utinma ( iaux, saux32,
      >              sdimca, mdimca, degre,
      >              nbnoto, jaux, jaux, jaux,