From 1c9c89e4f4b119ee1d1394c15c0f7916335ea075 Mon Sep 17 00:00:00 2001 From: YOANN AUDOUIN Date: Wed, 6 Dec 2023 16:37:33 +0100 Subject: [PATCH] [tuleap28930] Issue in result when input mesh is 1D + minor corrections for debug --- src/tool/AP_Conversion/pcmano.F | 5 +++++ src/tool/ES_HOMARD/esecen.F | 2 +- src/tool/ES_MED/esemm1.F | 2 ++ src/tool/Utilitaire/utad05.F | 2 +- 4 files changed, 9 insertions(+), 2 deletions(-) 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 -- 2.39.2