src/tool/Dependance_Machine/dmaboc.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 #include <stdlib.h>
  24
  25 /* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
  26 #ifdef _POSIX
  27 void dmaboc_(INTGR *codret)
  28 #else
  29 #ifdef extern_stdcall
  30 extern void __stdcall DMABOC(INTGR *codret)
  31 #else
  32 void FortranCInterface_GLOBAL(dmaboc, DMABOC)(INTGR *codret)
  33 #endif
  34 #endif
  35 /* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
  36
  37 {
  38
  39 /* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
  40 #ifdef _POSIX
  41   *codret = 0 ;
  42   abort() ;
  43
  44 #else
  45   *codret = 1 ;
  46
  47 #endif
  48 /* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
  49
  50 }
  51