/* ACRDR8.f -- translated by f2c (version 19960827).
   You must link the resulting object file with the libraries:
	-lf2c -lm   (in that order)
*/

#include "Data_f2c.h"
#include <SysBase.h>
/* Table of constant values */

static integer c__8 = 8;

/* Subroutine */ __SysBase_API int macrdr8_(nbelem, maxelm, xtablo, iofset, iercod)
integer *nbelem, *maxelm;
doublereal *xtablo;
integer  *iercod;
long int *iofset;
{
    extern /* Subroutine */ int mcrdelt_();


/* < */
/* **NOTICE */
/*  THIS SOFTWARE IS THE PROPERTY OF CISIGRAPH. */
/*  THIS CODE MUST NOT BE DISTRIBUTED OR COPIED WITHOUT THE PRIOR */
/*  WRITTEN PERMISSION OF CISIGRAPH AND IS ONLY TO BE USED ON THE */
/*  SITE WHERE IT IS INSTALLED BY CISIGRAPH */
/* **NOTICE */

/* ***********************************************************************
 */

/*     FONCTION : */
/*     ---------- */
/*       Destruction d'une allocation dynamique de type DOUBLE PRECISION 
*/

/*     MOTS CLES : */
/*     ----------- */
/*       SYSTEME, ALLOCATION, MEMOIRE, DESTRUCTION */

/*     ARGUMENTS D'ENTREE : */
/*     -------------------- */
/*       NBELEM : Nombre d'unites demandes */
/*       MAXELM : Nombre maxi d'unites disponibles dans XTABLO */
/*       XTABLO : Adresse de reference de la zone allouee */
/*       IOFSET : Decalage */

/*     ARGUMENTS DE SORTIE : */
/*     --------------------- */
/*       IERCOD : Code d'erreur */
/*               = 0 : OK */
/*               = 1 : Pb de de-allocation d'une zone allouee sur table */
/*               = 2 : Le systeme refuse la demande de de-allocation */

/*     COMMONS UTILISES : */
/*     ------------------ */

/*     REFERENCES APPELEES : */
/*     --------------------- */
/*        MCRDELT */

/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */
/*     (Cf description dans l'entete de MCRDELT) */

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*       16-10-91 : DGZ ; Recuperation version FBI */
/* > */
/* ***********************************************************************
 */


    /* Parameter adjustments */
    --xtablo;

    /* Function Body */
    if (*iofset != 0) {
	mcrdelt_(&c__8, nbelem, &xtablo[1], iofset, iercod);
    } else {
	*iercod = 0;
    }
 return 0 ;
} /* macrdr8_ */

