src/tool/Dependance_Machine/dmlibc.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 #include <malloc.h>
  25
  26 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
  27 /*   Libération de la mémoire associée à malloc                      */
  28 /* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
  29
  30 /* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
  31 #ifdef _POSIX
  32 void dmlibc_( long **iad_mem )
  33 #else
  34 #ifdef extern_stdcall
  35 extern void __stdcall DMLIBC( long **iad_mem )
  36 #else
  37 void FortranCInterface_GLOBAL(dmlibc, DMLIBC)(long **iad_mem)
  38 #endif
  39 #endif
  40 /* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
  41
  42 {
  43   free( *iad_mem ) ;
  44 }
  45