src/tool/Dependance_Machine/dmralc.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 /* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
  27 #ifdef _POSIX
  28 void dmralc_( INTGR *iad_mem, INTGR *size )
  29 #else
  30 #ifdef extern_stdcall
  31 extern void __stdcall DMRALC( INTGR *iad_mem, INTGR *size )
  32 #else
  33 void FortranCInterface_GLOBAL(dmralc, DMRALC)(INTGR *iad_mem, INTGR *size)
  34 #endif
  35 #endif
  36 /* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
  37
  38 {
  39   void *adret ;
  40
  41   adret = realloc( (void *) *iad_mem, (size_t) *size ) ;
  42
  43   if ( adret != NULL )
  44   {
  45     *iad_mem = (INTGR) adret ;
  46   }
  47   else
  48   {
  49     *iad_mem = 0 ;
  50   }
  51
  52 }
  53