1 /* __________________________________________________________________________ */
5 /* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
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 */
12 /* HOMARD est une marque déposée d'Electricite de France */
14 /* Copyright EDF 1997 */
15 /* Copyright EDF 1998 */
16 /* Copyright EDF 1999 */
17 /* Copyright EDF 2021 */
18 /* __________________________________________________________________________ */
26 /* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
28 void dmralc_( INTGR *iad_mem, INTGR *size )
31 extern void __stdcall DMRALC( INTGR *iad_mem, INTGR *size )
33 void FortranCInterface_GLOBAL(dmralc, DMRALC)(INTGR *iad_mem, INTGR *size)
36 /* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
41 adret = realloc( (void *) *iad_mem, (size_t) *size ) ;
45 *iad_mem = (INTGR) adret ;