[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 4080530353a1da759ea67ff1e757c1a319af03e2..68086f261058d7f00218c122ed315a0138bae898 100644 (file)
--- 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 430ed3f5bafd8ea8468358f5ddb9209bbda40925..302093c52769194c40e1d1729d3d38d5bd167d17 100644 (file)
--- 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 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,

diff --git a/src/tool/Utilitaire/utad05.F b/src/tool/Utilitaire/utad05.F
index 8eecea448e3496cdff37b99aff6a79e2d3b71082..fbba31947ddf011dfa3776cd961eca9f9e3f06d8 100644 (file)
--- 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