src/tool/Dependance_Machine/dmsize.F

   1       subroutine dmsize ( tentie , treel, tchain )
   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   Dependance Machine : SIZE des variables selon leurs types
  22 c   -          -         ----
  23 c ______________________________________________________________________
  24 c
  25 c .        .     .        .                                            .
  26 c .  nom   . e/s . taille .           description                      .
  27 c .____________________________________________________________________.
  28 c . tentie .  s  .   1    . tailles des entiers en octets              .
  29 c . treel  .  s  .   1    . tailles des reels en octets                .
  30 c . tchain .  s  .   1    . tailles des chaines en octets              .
  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 #ifdef _DEBUG_HOMARD_
  43       character*6 nompro
  44       parameter ( nompro = 'DMSIZE' )
  45 #endif
  46 c
  47 c 0.2. ==> communs
  48 c
  49 c 0.3. ==> arguments
  50 c
  51       integer tentie , treel, tchain
  52 c
  53 c 0.4. ==> variables locales
  54 c 0.5. ==> initialisations
  55 c
  56 c===
  57 c 1. appel de la fonction C equivalente
  58 c===
  59 c
  60 #ifdef _DEBUG_HOMARD_
  61       write (*,*) 'Appel de DMSIZC par ', nompro
  62 #endif
  63       call dmsizc ( tentie , treel, tchain )
  64 c
  65 #ifdef _DEBUG_HOMARD_
  66       write (*,*) 'Dans ', nompro,', apres dmsizc, tailles en octets :'
  67       write (*,*) ' Entier   : ', tentie
  68       write (*,*) ' Reel     : ', treel
  69       write (*,*) ' Chaine   : ', tchain
  70 #endif
  71 c
  72       end