
/* NACDBG.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>
__SysBase_API integer mnacdbg_()
{
    /* System generated locals */
    integer ret_val;

    /* Local variables */
    extern integer mnfndeb_();


/* < */
/* **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 : */
/*     ---------- */
/*       RENVOIE LE NIVEAU DE DEBUGGAGE FORCE A 1 EN PHASE PRODUCTION */

/*     MOTS CLES : */
/*     ----------- */
/*       PRODUCTION, OUTILS, DEBUG, NIVEAU */

/*     ARGUMENTS D'ENTREE : */
/*     -------------------- */
/*       NEANT */

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

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

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

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

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*       16-12-91 : DGZ ; CREATION DE LA VERSION ORIGINALE */
/* > */
/* ***********************************************************************
 */


/*      CALL MAIDVER(IPHAS) */

/*      IF (IPHAS.EQ.1) THEN */
/* ---  PHASE DE PRODUCTION */
/*        MNACDBG=1 */
/*      ELSE */
/* ---  PHASE DE VERSION CLIENT */
    ret_val = mnfndeb_();
/*      ENDIF */

    return ret_val;
} /* mnacdbg_ */

