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

[modules/homard.git] / src / tool / AP_Conversion / pcmano.F

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