src/tool/Dependance_Machine/dmlocr.F

   1       subroutine dmlocr (var,iad)
   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 : LOCalisation en memoire - Reel
  22 c   -          -         ---                       -
  23 c ______________________________________________________________________
  24 c
  25 c    Ce programme retourne l'adresse en machine ou est la variable var.
  26 c    Il utilise la fonction machine loc qui est une extension par
  27 c    rapport au fortran 77 ansi.
  28 c    Si cette extension n'est pas disponible, on reactivera la
  29 c    fonction C dmloca qui joue sur la facon de passer les arguments :
  30 c    par adresse / par valeur.
  31 c ______________________________________________________________________
  32 c .        .     .        .                                            .
  33 c .  nom   . e/s . taille .           description                      .
  34 c .____________________________________________________________________.
  35 c . iad    .  s  .   1    . adresse de depart de la zone allouee       .
  36 c . var    . e   .   1    .                                            .
  37 c ______________________________________________________________________
  38 c
  39 c====
  40 c 0. declarations et dimensionnement
  41 c====
  42 c
  43 c 0.1. ==> generalites
  44 c
  45       implicit none
  46       save
  47 c
  48 c 0.2. ==> communs
  49 c
  50 c 0.3. ==> arguments
  51 c
  52       double precision var
  53       integer iad
  54 c
  55 c 0.4. ==> variables locales
  56 c ______________________________________________________________________
  57 c
  58 c====
  59 c 1. appel du programme ad-hoc
  60 c====
  61 c
  62       iad = loc(var)
  63 c
  64       end