src/tool/Gestion_MTU/gmmaxi.F

   1       subroutine gmmaxi (maxtro , mtotro , ntrou , ltrou)
   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 .  derniere modif 15/06/89 jc jyb
  22 c ......................................................................
  23 c .
  24 c .  - fonction
  25 c .       calcule a partir des communs gerant les pointeurs, la taille
  26 c .       des plus gros trous disponibles et la place potentiellement
  27 c .       utilisable si on compactait
  28 c .
  29 c .  - realisation:
  30 c .       examen du common trous
  31 c .
  32 c .  - arguments:
  33 c .       donnees              ntrou  -->  nbre de trous existants
  34 c .                            ltrou  -->  tab des longueurs de trous
  35 c .       resultats
  36 c .                            maxtro <--  taille du + gd trou existant
  37 c .                            mtotro <--  cumul de la place restante
  38 c .                                          dans le tableau
  39 c ......................................................................
  40 c
  41 c
  42 c====
  43 c 0. declarations et dimensionnement
  44 c====
  45 c
  46 c 0.1. ==> generalites
  47 c
  48       implicit none
  49       save
  50 c
  51 c 0.2. ==> communs
  52 c
  53 c 0.3. ==> arguments
  54 c
  55       integer  ntrou  , ltrou (ntrou)
  56       integer  maxtro , mtotro
  57 c
  58 c 0.4. ==> variables locales
  59 c
  60       integer  i
  61 c
  62 c 0.5. ==> initialisations
  63 c ______________________________________________________________________
  64 c
  65 c---
  66 c  2. etude du tableau
  67 c---
  68 c
  69       maxtro = 0
  70       mtotro = 0
  71 c
  72       do 20 i=1,ntrou
  73          mtotro = mtotro + ltrou(i)
  74          maxtro = max(maxtro,ltrou(i))
  75    20 continue
  76 c
  77 ctst  write ( 6, 2000 ) maxtro,mtotro
  78 c2000 format(//2x,'****  spg gmmaxi *****',/5x,
  79 ctst * ' taille du plus gd trou  disponible       :',i9,/5x,
  80 ctst * ' taille totale potentiellement disponible :',i9)
  81 c
  82       end