src/tool/Dependance_Machine/dmport.h

   1 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
   2 /*  include (langage C ou C++) pour portage des routines             */
   3 /*         "dependance_machine"                                      */
   4 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
   5
   6 #ifndef dmport_h
   7 #define dmport_h
   8
   9 #if defined(__unix__)
  10 #define _POSIX
  11 #warning "-------- definition de _POSIX --------"
  12 #endif
  13
  14 #if defined __LP64__ || defined __MINGW64__
  15 #define _USE_64_BITS
  16 #warning "-------- definition de _USE_64_BITS --------"
  17 #endif
  18
  19
  20 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
  21 /* Correspondance entre les entiers fortran et les entiers C :       */
  22 /* Utile par exemple sur machine DEC, quand les pointeurs sont sur   */
  23 /* 64 bits et qu'on utilise une option du compilateur fortran qui    */
  24 /* force tous les entiers fortran a 64 bits                          */
  25 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
  26 #define DOUBLE double
  27
  28 #ifdef _USE_64_BITS
  29 #warning "-------- passage par ifdef _USE_64_BITS --------"
  30   typedef long INTGR ;
  31   #define INTEGER_NB_CHIFFRES_SIGNIFICATIFS 19
  32 #else
  33 #warning "-------- passage par else de ifdef _USE_64_BITS --------"
  34   typedef int INTGR ;
  35   #define INTEGER_NB_CHIFFRES_SIGNIFICATIFS  9
  36 #endif
  37
  38
  39 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
  40 /* Longueur des chaines de caractères fortran (telles que passées    */
  41 /* comme arguments cachés par les compilateurs fortran)              */
  42 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
  43 #ifdef _USE_64_BITS
  44     typedef long LNSTRF ;
  45 #else
  46     typedef int LNSTRF ;
  47 #endif
  48 //
  49 #endif