/* ACRERR.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"

/* Table of constant values */

static integer c__1 = 1;

/* Subroutine */ int macrerr_(iad, nalloc)
integer *nalloc;
long int *iad;
{
    /* Builtin functions */
    integer s__wsfe(), do__fio(), e__wsfe();

    /* Fortran I/O blocks */
    static cilist io___1 = { 0, 6, 0, "(X,A,I9,A,I3)", 0 };


/* < */
/* **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 : */
/*     ---------- */
/*       ECRITURE D'UNE ADRESSE ECRASEE DANS LES ALLOCS . */

/*     MOTS CLES : */
/*     ----------- */
/*       ALLOC CONTROLE */

/*     ARGUMENTS D'ENTREE : */
/*     -------------------- */
/*       IAD    : ADRESSE A SIGNALER ECRASEE */
/*       NALLOC : NUMERO DE L'ALLOCATION */

/*     ARGUMENTS DE SORTIE : */
/*     --------------------- */
/*       NEANT */

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

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

/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*       30-09-91 : DGZ; AJOUT DU NUMERO DE L'ALLOCATION */
/*       04-11-89 : CR ; AJOUT DE OPTIONS /CHECK=NOBOUNDS . */
/*       17-05-89 : PP ; CREATION */
/* > */
/* ***********************************************************************
 */

    s__wsfe(&io___1);
    do__fio(&c__1, "*** ERREUR : Ecrasement de la memoire d'adresse ", 48L);
    do__fio(&c__1, (char *)&(*iad), (ftnlen)sizeof(long int));
    do__fio(&c__1, " sur l'allocation ", 18L);
    do__fio(&c__1, (char *)&(*nalloc), (ftnlen)sizeof(integer));
    e__wsfe();

 return 0 ;
} /* macrerr_ */

