From: NATHALIE GORE <ng13417n@dsp1077169.postes.calibre.edf.fr>
Date: Fri, 23 Aug 2024 15:14:01 +0000 (+0200)
Subject: Patch pour compilo : if dans ifdef
X-Git-Url: http://git.salome-platform.org/gitweb/?a=commitdiff_plain;h=4d3230089f2c1d7ffb7bfacf66a639c0a69550b1;p=modules%2Fhomard.git

Patch pour compilo : if dans ifdef
---

diff --git a/src/tool/Decision/dedco1.F b/src/tool/Decision/dedco1.F
index c308a608..f4e1d896 100644
--- a/src/tool/Decision/dedco1.F
+++ b/src/tool/Decision/dedco1.F
@@ -159,7 +159,8 @@ c
       jaux=0
       do 1105 , iaux = 1 , nbquto
       if ( nivqua(iaux).eq.3 .and. decfac(-iaux).lt.0) then
-        write (ulsort,90015) 'quadrangle', iaux, ' decision,niveau,etat',
+        write (ulsort,90015) 'quadrangle', iaux, ' decision,niveau,
+     >  etat', decfac(-iaux), nivqua(iaux), hetqua(iaux)
      >  decfac(-iaux), nivqua(iaux), hetqua(iaux)
         write (ulsort,90002) 'aretes',
      >  arequa(iaux,1), arequa(iaux,2), arequa(iaux,3), arequa(iaux,4)
diff --git a/src/tool/ES_HOMARD/esecfs.F b/src/tool/ES_HOMARD/esecfs.F
index e9e48e95..52e83280 100644
--- a/src/tool/ES_HOMARD/esecfs.F
+++ b/src/tool/ES_HOMARD/esecfs.F
@@ -256,7 +256,8 @@ c
           write (ulsort,*) 'Famille ', saux64
           write (ulsort,90002) 'ngro', ngro
           do 224 , jaux = 1 , ngro
-            write (ulsort,1002) (tbsaux(kaux),kaux=10*(jaux-1)+1,10*jaux)
+            write (ulsort,1002) (tbsaux(kaux),
+     >             kaux=10*(jaux-1)+1, 10*jaux)
   224     continue
 #endif
 #ifdef _DEBUG_HOMARD_
diff --git a/src/tool/HOMARD_00/hoavlm.F b/src/tool/HOMARD_00/hoavlm.F
index 26fdbda4..d6239713 100644
--- a/src/tool/HOMARD_00/hoavlm.F
+++ b/src/tool/HOMARD_00/hoavlm.F
@@ -194,7 +194,7 @@ c 3. lecture du maillage au format HOMARD
 c====
 c
 #ifdef _DEBUG_HOMARD_
-      write (ulsort,90002) '3. lecture au format HOMARD ; codret', codret
+      write (ulsort,90002) '3. lecture format HOMARD ; codret', codret
 #endif
 c
 c
diff --git a/src/tool/Utilitaire/utmcch.F b/src/tool/Utilitaire/utmcch.F
index d87a28dc..e5283ba2 100644
--- a/src/tool/Utilitaire/utmcch.F
+++ b/src/tool/Utilitaire/utmcch.F
@@ -144,18 +144,21 @@ c====
 c
 #ifdef _DEBUG_HOMARD_
       if ( codret.ne.0 ) then
+c
+      include "envex2.h"
+      call write_utmcre( motcle, ulsort, langue,
+     >                   texte, nompro, codret)
+c
+      endif
 #else
       if ( codret.eq.2 ) then
-#endif
 c
       include "envex2.h"
-c
-      write (ulsort,texte(langue,1)) 'Sortie', nompro
-      write (ulsort,texte(langue,2)) codret
-      write (ulsort,texte(langue,10)) motcle
-      write (ulsort,texte(langue,10+codret))
+      call write_utmcre( motcle, ulsort, langue,
+     >                   texte, nompro, codret)
 c
       endif
+#endif
 c
 #ifdef _DEBUG_HOMARD_
       write (ulsort,texte(langue,1)) 'Sortie', nompro
@@ -163,3 +166,26 @@ c
 #endif
 c
       end
+
+      subroutine write_utmcch ( motcle, ulsort, langue,
+     >                          texte, nompro, codret)
+      implicit none
+      save
+c
+      include "nblang.h"
+c
+      character*6 nompro
+      character*8 motcle
+c
+      integer ulsort, langue, codret
+c
+      integer nbmess
+      parameter ( nbmess = 20 )
+      character*80 texte(nblang,nbmess)
+c
+      write (ulsort,texte(langue,1)) 'Sortie', nompro
+      write (ulsort,texte(langue,2)) codret
+      write (ulsort,texte(langue,10)) motcle
+      write (ulsort,texte(langue,10+codret))
+c      
+      end
\ No newline at end of file
diff --git a/src/tool/Utilitaire/utmcre.F b/src/tool/Utilitaire/utmcre.F
index 8c14e3a6..6fdc6d30 100644
--- a/src/tool/Utilitaire/utmcre.F
+++ b/src/tool/Utilitaire/utmcre.F
@@ -157,15 +157,41 @@ c====
 c
 #ifdef _DEBUG_HOMARD_
       if ( codret.ne.0 ) then
+c
+      call write_utmcre( motcle, ulsort, langue,
+     >                   texte, nompro, codret)
+c
+      endif
 #else
       if ( codret.eq.2 ) then
+c
+      call write_utmcre( motcle, ulsort, langue,
+     >                   texte, nompro, codret)
+c
+      endif
 #endif
+c
+      end
+
+      subroutine write_utmcre ( motcle, ulsort, langue,
+     >                          texte, nompro, codret)
+      implicit none
+      save
+c
+      include "nblang.h"
+c
+      integer nbmess
+      parameter ( nbmess = 20 )
+      character*80 texte(nblang,nbmess)
+c
+      character*6 nompro
+      character*8 motcle
+c
+      integer ulsort, langue, codret
 c
       write (ulsort,texte(langue,1)) 'Sortie', nompro
       write (ulsort,texte(langue,2)) codret
       write (ulsort,texte(langue,10)) motcle
       write (ulsort,texte(langue,10+codret))
-c
-      endif
-c
-      end
+      
+      end
\ No newline at end of file