src/tool/Dependance_Machine/dmvaen.F

   1       subroutine dmvaen ( nomvar, lgnova, nomuti, lgnout,
   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   Dependance Machine - decodage d'une VAriable d'ENvironnement
  23 c   -          -                        --         --
  24 c ______________________________________________________________________
  25 c
  26 c
  27 c but : decode les variables d'environnement
  28 c ______________________________________________________________________
  29 c .        .     .        .                                            .
  30 c .  nom   . e/s . taille .           description                      .
  31 c .____________________________________________________________________.
  32 c . nomvar . e   . char*  . nom de la variable a decoder               .
  33 c . lgnova . e   .   i    . longueur reelle de nomvar                  .
  34 c . nomuti .  s  . char*  . nom utilisable pour cette variable         .
  35 c . lgnout .  s  .   i    . longueur reelle de nomuti                  .
  36 c . ulsort . e   .    1   . unite logique de la liste standard         .
  37 c . langue . e   .    1   . langue des messages                        .
  38 c .        .     .        . 1 : francais, 2 : anglais                  .
  39 c . codret .  s  .    1   . code de retour                             .
  40 c .        .     .        . 0 : pas de probleme                        .
  41 c .        .     .        . 1 : impossible de decoder la variable      .
  42 c ______________________________________________________________________
  43 c
  44 c====
  45 c 0. declarations et dimensionnement
  46 c====
  47 c
  48 c 0.1. ==> generalites
  49 c
  50       implicit none
  51       save
  52 c
  53       character*6 nompro
  54       parameter ( nompro = 'DMVAEN' )
  55 c
  56 #include "nblang.h"
  57 c
  58 c 0.2. ==> communs
  59 c
  60 c 0.3. ==> arguments
  61 c
  62       character*(*) nomvar, nomuti
  63 c
  64       integer lgnova, lgnout
  65       integer ulsort, langue, codret
  66 c
  67 c 0.4. ==> variables locales
  68 c
  69       integer iaux, lgmax
  70 c
  71       integer nbmess
  72       parameter ( nbmess = 10 )
  73       character*80 texte(nblang,nbmess)
  74 c
  75 c 0.5. ==> initialisations
  76 c
  77       parameter ( lgmax = 200 )
  78 c ______________________________________________________________________
  79 c
  80 c====
  81 c 1.  messages
  82 c====
  83 c
  84 #include "impr01.h"
  85 c
  86 #ifdef _DEBUG_HOMARD_
  87       write (ulsort,texte(langue,1)) 'Entree', nompro
  88       call dmflsh (iaux)
  89 #endif
  90 c
  91       texte(1,4) = '(''Variable d''''environnement :'')'
  92       texte(1,5) = '(''Impossible de la decoder.'')'
  93       texte(1,6) = '(''Valeur interpretee :'')'
  94 c
  95       texte(2,4) = '(''Environment variable :'')'
  96       texte(2,5) = '(''It cannot be uncoded.'')'
  97       texte(2,6) = '(''It is equal to :'')'
  98 c
  99 c====
 100 c 2. appel a la fonction machine
 101 c====
 102 c
 103       lgnout = 0
 104 c
 105       do 2 iaux = 1 , len(nomuti)
 106         nomuti(iaux:iaux) = ' '
 107     2 continue
 108 c
 109 c 2.1. ==> attention a la taille maximale ...
 110 c
 111       if ( lgnova.le.0 .or. lgnova.gt.len(nomvar) ) then
 112 c
 113         codret = 1
 114 c
 115       else
 116 c
 117 c 2.2. ==> appel a la fonction standard ailleurs et
 118 c          comptage du nombre de lettres effectives
 119 c
 120 c NB: sous WINDOWS + Visual Fortran 6.0, l'appel a getenv impose
 121 c     le rajout de la bibliotheque Dfport.lib
 122 c     pour que l'edition des liens se passe bien.
 123 c
 124         call getenv ( nomvar(1:lgnova) , nomuti )
 125 c
 126         do 221 , iaux = 1 , min(lgmax,len(nomuti))
 127           if ( nomuti(iaux:iaux).eq.' ' ) then
 128             codret = 0
 129             goto 222
 130           endif
 131           lgnout = lgnout + 1
 132   221   continue
 133 c
 134         codret = 1
 135 c
 136   222   continue
 137 c
 138 c nettoyage eventuel:
 139 c
 140         call dmcpch( nomuti, lgnout, nomuti, lgnout )
 141 c
 142       endif
 143 c
 144 c====
 145 c 3. la fin
 146 c====
 147 c
 148 #ifdef _DEBUG_HOMARD_
 149       iaux = -1
 150 #else
 151       iaux = 0
 152 #endif
 153 c
 154       if ( codret.ne.iaux ) then
 155         write (ulsort,texte(langue,1)) 'Sortie', nompro
 156         write (ulsort,texte(langue,2)) codret
 157         write (ulsort,texte(langue,4))
 158         if (min(lgnova,len(nomvar)).ge.1) then
 159           write (ulsort,*) nomvar( 1 : min(lgnova,len(nomvar)) )
 160         else
 161           write (ulsort,*)
 162         endif
 163         if ( codret.eq.1 ) then
 164           write (ulsort,texte(langue,5))
 165         else
 166           if ( iaux.eq.-1 ) then
 167             write (ulsort,texte(langue,6))
 168             if (lgnout.ge.1) then
 169               write (ulsort,*) nomuti(1:lgnout)
 170             else
 171               write (ulsort,*)
 172             endif
 173           endif
 174         endif
 175       endif
 176 c
 177 #ifdef _DEBUG_HOMARD_
 178       write (ulsort,texte(langue,1)) 'Sortie', nompro
 179       call dmflsh (iaux)
 180 #endif
 181 c
 182       end