From 4d3230089f2c1d7ffb7bfacf66a639c0a69550b1 Mon Sep 17 00:00:00 2001 From: NATHALIE GORE Date: Fri, 23 Aug 2024 17:14:01 +0200 Subject: [PATCH] Patch pour compilo : if dans ifdef --- src/tool/Decision/dedco1.F | 3 ++- src/tool/ES_HOMARD/esecfs.F | 3 ++- src/tool/HOMARD_00/hoavlm.F | 2 +- src/tool/Utilitaire/utmcch.F | 38 ++++++++++++++++++++++++++++++------ src/tool/Utilitaire/utmcre.F | 34 ++++++++++++++++++++++++++++---- 5 files changed, 67 insertions(+), 13 deletions(-) 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 -- 2.39.2