Patch pour compilo : if dans ifdef

diff --git a/src/tool/Decision/dedco1.F b/src/tool/Decision/dedco1.F
index c308a60801f9075e44ebb93b2a2253c889b8ab03..f4e1d89651c6a5a07244bfa47c064d94f967add2 100644 (file)
--- 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 e9e48e95f28a722d4d869f2211436d1233791d17..52e832809597f009538cd06e3a14b1db33c693d5 100644 (file)
--- 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 26fdbda4d60a42c709e33338f01029436cec368c..d6239713ef299a84e9d960c1c2aa8503a65196fd 100644 (file)
--- 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 d87a28dcbd759ce7b582299d6a9e32445eb3cf54..e5283ba27ca8ec9ba6343ca0f87ff4b35c72797c 100644 (file)
--- 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 8c14e3a6f661502e2393e8d5e3418129ddd84914..6fdc6d30e97bb8baaa8051543da67a6c96efef39 100644 (file)
--- 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