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

/* Subroutine */ int macrstw_(iadfld, iadflf, nalloc)
integer *iadfld, *iadflf, *nalloc;
{
/* < */
/* **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 : */
/*     ---------- */
/*       FONCTION UTILISEE POUR LA MISE A JOUR DES FLAGS SOUS DEBUG */

/*     MOTS CLES : */
/*     ----------- */
/*       ALLOCATION CONTROLE */

/*     ARGUMENTS D'ENTREE : */
/*     -------------------- */
/*       IADFLD : ADRESSE DU FLAG DE DEBUT */
/*       IADFLF : ADRESSE DU FLAG DE FIN */

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

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

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

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

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*       30-09-91 : DGZ ; CREATION DE LA VERSION ORIGINALE */
/* > */
/* ***********************************************************************
 */
 return 0 ;
} /* macrstw_ */

