src/tool/Utilitaire/utmess.F

   1       subroutine utmess ( messag, nblxms, nblims,
   2      >                    ulsort, langue, codret )
   3 c ______________________________________________________________________
   4 c
   5 c                             H O M A R D
   6 c
   7 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
   8 c
   9 c Version originale enregistree le 18 juin 1996 sous le numero 96036
  10 c aupres des huissiers de justice Simart et Lavoir a Clamart
  11 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
  12 c aupres des huissiers de justice
  13 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
  14 c
  15 c    HOMARD est une marque deposee d'Electricite de France
  16 c
  17 c Copyright EDF 1996
  18 c Copyright EDF 1998
  19 c Copyright EDF 2002
  20 c Copyright EDF 2020
  21 c ______________________________________________________________________
  22 c    UTilitaire - MESSages
  23 c    --           ----
  24 c ______________________________________________________________________
  25 c .        .     .        .                                            .
  26 c .  nom   . e/s . taille .           description                      .
  27 c .____________________________________________________________________.
  28 c . messag .  s  . ch<200 . nom du fichier de configuration            .
  29 c . nblxms . e   .    1   . nombre de lignes maximum du message        .
  30 c . nblims .  s  .    1   . nombre de lignes du message                .
  31 c . ulsort . e   .   1    . unite logique de la sortie generale        .
  32 c . langue . e   .    1   . langue des messages                        .
  33 c .        .     .        . 1 : francais, 2 : anglais                  .
  34 c . codret .  s  .    1   . code de retour des modules                 .
  35 c .        .     .        . 0 : pas de probleme                        .
  36 c .        .     .        . 1 : probleme                               .
  37 c ______________________________________________________________________
  38 c
  39 c====
  40 c 0. declarations et dimensionnement
  41 c====
  42 c
  43 c 0.1. ==> generalites
  44 c
  45       implicit none
  46       save
  47 c
  48       character*6 nompro
  49       parameter ( nompro = 'UTMESS' )
  50 c
  51 #include "nblang.h"
  52 c
  53 c 0.2. ==> communs
  54 c
  55 #include "envex1.h"
  56 c
  57 c 0.3. ==> arguments
  58 c
  59       integer nblxms, nblims
  60 c
  61       character*40 messag(nblang,*)
  62 c
  63       integer ulsort, langue, codret
  64 c
  65 c 0.4. ==> variables locales
  66 c
  67       integer iaux
  68 c
  69       integer nbmess
  70       parameter ( nbmess = 10 )
  71       character*80 texte(nblang,nbmess)
  72 c
  73 c 0.5. ==> initialisations
  74 c ______________________________________________________________________
  75 c
  76 c====
  77 c 1. initialisations des messages
  78 c====
  79 c
  80       codret = 0
  81 c
  82 #include "impr01.h"
  83 c
  84 #ifdef NEPTUNE
  85       messag(1,1) = 'Cette version est destinee exclusivement'
  86       messag(1,2) = '     au couplage avec Code_Neptune.     '
  87       messag(2,1) = '      Use with Code_Neptune only        '
  88       messag(2,2) = '                                        '
  89       iaux = 2
  90 #else
  91 #ifdef SATURNE
  92       messag(1,1) = 'Cette version est destinee exclusivement'
  93       messag(1,2) = '     au couplage avec Code_Saturne.     '
  94       messag(2,1) = '      Use with Code_Saturne only        '
  95       messag(2,2) = '                                        '
  96       iaux = 2
  97 #else
  98 #ifdef ESTEL
  99 c                    1234567890123456789012345678901234567890
 100       messag(1,1) = 'Cette version est destinee exclusivement'
 101       messag(1,2) = '     au couplage avec ESTEL_3D.         '
 102       messag(1,3) = '  Simulation dans le systeme Telemac    '
 103       messag(2,1) = '        Use with ESTEL_3D only          '
 104       messag(2,2) = '      Simulation in Telemac system      '
 105       messag(2,3) = '                                        '
 106       iaux = 3
 107 #else
 108 #ifdef ASTER
 109       messag(1,1) = 'Cette version est destinee exclusivement'
 110       messag(1,2) = '      au couplage avec Code_Aster.      '
 111       messag(2,1) = '       Use with Code_Aster only         '
 112       messag(2,2) = '                                        '
 113       iaux = 2
 114 #else
 115 #ifdef CEA
 116       messag(1,1) = '   Cette version est destinee au CEA    '
 117       messag(1,2) = '  exclusivement pour des travaux de R&D '
 118       messag(1,3) = ' Aucune commercialisation des resultats '
 119       messag(1,4) = '  n''est possible sans autorisation EDF. '
 120       messag(2,1) = '      This release is given to CEA      '
 121       messag(2,2) = '          for R&D studies only.         '
 122       messag(2,3) = '            No trade is allowed         '
 123       messag(2,4) = '         without EDF authorization      '
 124       iaux = 4
 125 #else
 126 #ifdef SALOME
 127       messag(1,1) = '    Usage exclusivement avec SALOME     '
 128       messag(2,1) = '          Use with SALOME only          '
 129       iaux = 1
 130 #else
 131       messag(1,1) = '    Usage exclusivement avec SALOME     '
 132       messag(2,1) = '          Use with SALOME only          '
 133       iaux = 1
 134 c                    1234567890123456789012345678901234567890
 135 #endif
 136 #endif
 137 #endif
 138 #endif
 139 #endif
 140 #endif
 141 c
 142 c====
 143 c 2. controle
 144 c====
 145 c
 146       if ( iaux.le.nblxms ) then
 147         nblims = iaux
 148       else
 149         codret = 1
 150       endif
 151 c
 152 c====
 153 c 3. la fin
 154 c====
 155 c
 156       if ( codret.ne.0 ) then
 157 c
 158 #include "envex2.h"
 159 c
 160       write (ulsort,texte(langue,1)) 'Sortie', nompro
 161       write (ulsort,texte(langue,2)) codret
 162 c
 163       endif
 164 c
 165 #ifdef _DEBUG_HOMARD_
 166       write (ulsort,texte(langue,1)) 'Sortie', nompro
 167       call dmflsh (iaux)
 168 #endif
 169 c
 170       end