src/tool/Utilitaire/utcvne.F

   1       subroutine utcvne ( nretap, nrsset, textet, lgtext, codret )
   2 c ______________________________________________________________________
   3 c
   4 c                             H O M A R D
   5 c
   6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
   7 c
   8 c Version originale enregistree le 18 juin 1996 sous le numero 96036
   9 c aupres des huissiers de justice Simart et Lavoir a Clamart
  10 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
  11 c aupres des huissiers de justice
  12 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
  13 c
  14 c    HOMARD est une marque deposee d'Electricite de France
  15 c
  16 c Copyright EDF 1996
  17 c Copyright EDF 1998
  18 c Copyright EDF 2002
  19 c Copyright EDF 2020
  20 c ______________________________________________________________________
  21 c
  22 c   UTilitaire - ConVertit le Numero d'Etape
  23 c   --           -  -         -        -
  24 c ______________________________________________________________________
  25 c .        .     .        .                                            .
  26 c .  nom   . e/s . taille .           description                      .
  27 c .____________________________________________________________________.
  28 c . nretap . e   .    1   . numero d'etape en entier                   .
  29 c . nrsset . e   .    1   . numero de sous-etape en entier             .
  30 c . textet .   s .char*(*). textet : nretap.nrsset.                    .
  31 c . lgtext .   s .    1   . longueur du textet                         .
  32 c . codret .   s .    1   . 0 : pas de probleme                        .
  33 c .        .     .        . 1 : conversion impossible                  .
  34 c ______________________________________________________________________
  35 c
  36 c====
  37 c 0. declarations et dimensionnement
  38 c====
  39 c
  40 c 0.1. ==> generalites
  41 c
  42       implicit none
  43       save
  44 c
  45       character*6 nompro
  46       parameter ( nompro = 'UTCVNE' )
  47 c
  48 #include "nblang.h"
  49 c
  50 c 0.2. ==> communs
  51 c
  52 #include "envex1.h"
  53 c
  54 c 0.3. ==> arguments
  55 c
  56       integer nretap, nrsset, lgtext
  57       integer codret
  58 c
  59       character*(*) textet
  60 c
  61 c 0.4. ==> variables locales
  62 c
  63       integer iaux, lgtx00
  64       integer ulsort, langue
  65 c
  66       character*3 c3aux
  67 c
  68       integer nbmess
  69       parameter ( nbmess = 10 )
  70       character*80 texte(nblang,nbmess)
  71 c
  72 c 0.5. ==> initialisations
  73 c ______________________________________________________________________
  74 c
  75 #include "impr01.h"
  76 c
  77 c====
  78 c 1. decodage
  79 c====
  80 c
  81       call gusost ( ulsort )
  82       langue = 1
  83 c
  84 c 1.1. ==> filtrage initial
  85 c          s'il est negatif, c'est une erreur
  86 c
  87       if ( nretap.le.0 ) then
  88         codret = 1
  89       endif
  90 c
  91       lgtext = 0
  92       lgtx00 = len(textet)
  93 c
  94 c 1.2. ==> conversion en entier
  95 c
  96       if ( codret.eq.0 ) then
  97 c
  98       call utench ( nretap, 'g', iaux, c3aux,
  99      >              ulsort, langue, codret )
 100 c
 101       endif
 102 c
 103       if ( codret.eq.0 ) then
 104 c
 105         lgtext = iaux+1
 106         textet (1:lgtext) = c3aux(1:iaux)//'.'
 107 c
 108       endif
 109 c
 110 c 1.3. ==> numero de sous-etape
 111 c          s'il est negatif, on ne mentionne rien
 112 c
 113       if ( nrsset.ge.0 ) then
 114 c
 115         if ( codret.eq.0 ) then
 116 c
 117         call utench ( nrsset, 'g', iaux, c3aux,
 118      >                ulsort, langue, codret )
 119 c
 120         endif
 121 c
 122         if ( codret.eq.0 ) then
 123 c
 124           textet (lgtext+1:lgtext+iaux+1) = c3aux(1:iaux)//'.'
 125           lgtext = lgtext+iaux+1
 126 c
 127         endif
 128 c
 129       endif
 130 c
 131 c====
 132 c 2. bilan
 133 c====
 134 c
 135       if ( codret.ne.0 ) then
 136 c
 137 #include "envex2.h"
 138 c
 139         textet = ' '
 140         lgtext = 1
 141 c
 142       endif
 143 c
 144       do 21 , iaux = lgtext+1 , lgtx00
 145         textet(iaux:iaux) = ' '
 146    21 continue
 147 c
 148       end