src/tool/Modification/mmsn22.F

   1       subroutine mmsn22 ( lgtab, noeele, nounoe )
   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    Modification de Maillage - Suppression des Noeuds P2 - phase 2
  23 c    -               -          -               -       -         -
  24 c ______________________________________________________________________
  25 c .        .     .        .                                            .
  26 c .  nom   . e/s . taille .           description                      .
  27 c .____________________________________________________________________.
  28 c . lgtab  . e   .    1   . longueur du tableau noeele                 .
  29 c . noeele . es  .  lgtab . noeuds des elements (maille-points/aretes) .
  30 c . nounoe .   e .0:nbnoto. nouveaux numeros des noeuds conserves      .
  31 c ______________________________________________________________________
  32 c
  33 c====
  34 c 0. declarations et dimensionnement
  35 c====
  36 c
  37 c 0.1. ==> generalites
  38 c
  39       implicit none
  40       save
  41 c
  42 cc      character*6 nompro
  43 cc      parameter ( nompro = 'MMSN22' )
  44 c
  45 c 0.2. ==> communs
  46 c
  47 c 0.3. ==> arguments
  48 c
  49       integer lgtab
  50       integer noeele(lgtab), nounoe(0:*)
  51 c
  52 c 0.4. ==> variables locales
  53 c
  54       integer iaux
  55 c ______________________________________________________________________
  56 c
  57 c====
  58 c 1. on passe en revue tous les noeuds dans la connectivite a modifier
  59 c    on remplace le numero du noeud par son nouveau
  60 c====
  61 c
  62 cgn      write(6,*) 'lgtab = ',lgtab
  63       do 11 , iaux = 1 , lgtab
  64 c
  65 cgn      write(6,*) 'noeele(',iaux,') = ',noeele(iaux)
  66         noeele(iaux) = nounoe(noeele(iaux))
  67 c
  68    11 continue
  69 c
  70       end