src/tool/Dependance_Machine/dmprmc.c

   1 /* __________________________________________________________________________ */
   2 /*                                                                            */
   3 /*                              H O M A R D                                   */
   4 /*                                                                            */
   5 /*   Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D   */
   6 /*                                                                            */
   7 /* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès  */
   8 /* des huissiers de justice Simart et Lavoir à Clamart                        */
   9 /* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
  10 /* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart      */
  11 /*                                                                            */
  12 /*   HOMARD est une marque déposée d'Electricite de France                    */
  13 /*                                                                            */
  14 /* Copyright EDF 1997                                                         */
  15 /* Copyright EDF 1998                                                         */
  16 /* Copyright EDF 1999                                                         */
  17 /* Copyright EDF 2021                                                         */
  18 /* __________________________________________________________________________ */
  19
  20 #include "dminfc.h"
  21 #include "dmport.h"
  22 #include "FC.h"
  23
  24 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
  25 /*     Retourne la précision machine                                 */
  26 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
  27
  28 /* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
  29 #ifdef _POSIX
  30 void dmprmc_( DOUBLE *epsima, INTGR *nbchii )
  31 #else
  32 #ifdef extern_stdcall
  33 extern void __stdcall DMPRMC( DOUBLE *epsima, INTGR *nbchii )
  34 #else
  35 void FortranCInterface_GLOBAL(dmprmc, DMPRMC)(DOUBLE *epsima, INTGR *nbchii)
  36 #endif
  37 #endif
  38 /* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
  39
  40 {
  41
  42 /* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
  43 #ifdef _USE_64_BITS
  44    *epsima = 1.e-31;
  45
  46 #else
  47    *epsima = 1.e-15;
  48
  49 #endif
  50 /* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
  51
  52 /*    printf (". INTEGER_NB_CHIFFRES_SIGNIFICATIFS   : %d\n", INTEGER_NB_CHIFFRES_SIGNIFICATIFS); */
  53    *nbchii = INTEGER_NB_CHIFFRES_SIGNIFICATIFS ;
  54
  55
  56 }
  57