1 subroutine dmzero ( vinfpo, zero )
2 c ______________________________________________________________________
6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
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
14 c HOMARD est une marque deposee d'Electricite de France
20 c ______________________________________________________________________
21 c Dependance Machine : ZEROs machine
23 c ______________________________________________________________________
25 c retourne la plus petite et la plus grande valeur possible
26 c ______________________________________________________________________
28 c . nom . e/s . taille . description .
29 c .____________________________________________________________________.
30 c . vinfpo . s . dp . plus grande valeur positive possible .
31 c . zero . s . dp . le zero de la machine .
32 c ______________________________________________________________________
35 c 0. declarations et dimensionnement
38 c 0.1. ==> generalites
47 double precision vinfpo, zero
49 c 0.4. ==> variables locales
51 integer pd10vi, pd10ze
53 c 0.5. ==> initialisations
56 c 1. appel de la fonction generique
59 call dmze10 ( vinfpo, zero, pd10vi, pd10ze )