From: YOANN AUDOUIN <B61570@dsp1062659>
Date: Wed, 6 Dec 2023 15:37:33 +0000 (+0100)
Subject: [tuleap28930] Issue in result when input mesh is 1D + minor corrections for debug
X-Git-Tag: V9_13_0a1~4
X-Git-Url: http://git.salome-platform.org/gitweb/?a=commitdiff_plain;h=1c9c89e4f4b119ee1d1394c15c0f7916335ea075;p=modules%2Fhomard.git

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

diff --git a/src/tool/AP_Conversion/pcmano.F b/src/tool/AP_Conversion/pcmano.F
index 40805303..68086f26 100644
--- a/src/tool/AP_Conversion/pcmano.F
+++ b/src/tool/AP_Conversion/pcmano.F
@@ -302,6 +302,11 @@ c
           lenolo = nnosho(lenoeu)
           coonca(lenoeu,1) = coonoe(lenolo,1)
   221   continue
+        if(dimcst.eq.2) then
+          do 2223 , lenoeu = 1 , nbnoto
+            coonca(lenoeu,2) = 0.d0
+ 2223     continue
+        endif
 c
       elseif ( sdim.eq.2 ) then
 c
diff --git a/src/tool/ES_HOMARD/esecen.F b/src/tool/ES_HOMARD/esecen.F
index 430ed3f5..302093c5 100644
--- a/src/tool/ES_HOMARD/esecen.F
+++ b/src/tool/ES_HOMARD/esecen.F
@@ -130,7 +130,7 @@ c
       texte(1,5) = '(/,''... '',a)'
 c
       texte(2,4) = '(''. Writings of meshes.'')'
-      texte(2,4) = '(/,''... '',a)'
+      texte(2,5) = '(/,''... '',a)'
 c
 #include "impr03.h"
 c
diff --git a/src/tool/ES_MED/esemm1.F b/src/tool/ES_MED/esemm1.F
index 45ac3fca..288adb60 100644
--- 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,
diff --git a/src/tool/Utilitaire/utad05.F b/src/tool/Utilitaire/utad05.F
index 8eecea44..fbba3194 100644
--- a/src/tool/Utilitaire/utad05.F
+++ b/src/tool/Utilitaire/utad05.F
@@ -126,7 +126,7 @@ c
       texte(1,10) = '(''Nouveau nombre de noeuds : '',i10)'
 c
       texte(2,4) = '(''Adresses for nodes'')'
-      texte(2,6) = '(''Error codes'',20i3)'
+      texte(2,8) = '(''Error codes'',20i3)'
       texte(2,9) = '(''Old number of nodes : '',i10)'
       texte(2,10) = '(''New number of nodes : '',i10)'
 c