/* GENMSG.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>
/* Subroutine */ __SysBase_API int mgenmsg_(nomprg, nomprg_len)
char *nomprg;
ftnlen nomprg_len;
{

/* < */
/* **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 DU MESSAGE : "  --> ENTREE DANS 'NOMPRG'  " SUR MNFNIMP LORSQ
UE*/
/*   MNFNDEB EST NON NUL */

/*     MOTS CLES : */
/*     ----------- */
/*   PRODUCTION, OUTILS, DEBUG, ENTREE, NOM-ROUTINE, MESSAGE */

/*     ARGUMENTS D'ENTREE : */
/*     ------------------ */
/*        NOMPRG : Nom du programme appelant (sur 6 caracteres!) */

/*     ARGUMENTS DE SORTIE : */
/*     ------------------- */
/*        Neant */

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

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

/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */
/*        Pour le mecanisme de l'indentation automatique il est */
/*     preferable de l'utiliser conjointement avec MGSOMSG */

/* $    HISTORIQUE DES MODIFICATIONS   : */
/*     -------------------------------- */
/*      22-12-89 : DGZ ; CORRECTION DE L'EN-TETE */
/*     02-10-89 : PP ; VIRE LE COMMON EN DUR ET MIS INCLUDE GESMSG */
/*     15-04-88 : DH ; Test si MNFNDEB().NE.0 */
/*     14-10-87 : DH ; INDENTATION AUTOMATIQUE */
/*     23-04-87 : DH ; WRITE -> GFORMA */
/*     28-03-86 : DH ; CREATION VERSION ORIGINALE */
/* > */
/* ***********************************************************************
 */
/*                      DECLARATIONS */
/* ***********************************************************************
 */

/*      INTEGER       NBENTR */
/*      COMMON/GESMSG/NBENTR */

/*      INCLUDE 'GESMSG.INC' */

/*      CHARACTER*1 CHAIN1 */
/*      CHARACTER*2 CHNBEN */
/*     CHARACTER*25  CHAIN2 */
/*      CHARACTER*80 CFORMA */

/*      DATA CHAIN1 /'('/ */
/*      DATA CHAIN2 /'X,'' --> Entree dans '',A6)'/ */
/*      DATA NBEMAX /30/ */

/* ***********************************************************************
 */
/*                      TRAITEMENT */
/* ***********************************************************************
 */

/*      IF (MNFNDEB().NE.0) THEN */
/*         IF ((NBENTR.LT.0).OR.(NBENTR.GT.NBEMAX)) THEN */
/*            NBENTR=1 */
/*         ELSEIF (NBENTR.LT.NBEMAX) THEN */
/*            NBENTR=NBENTR+1 */
/*         ENDIF */
/*         WRITE(CHNBEN,'(I2.2)') NBENTR */
/*         CFORMA=CHAIN1//CHNBEN//CHAIN2 */
/*         WRITE(MNFNIMP(),CFORMA) NOMPRG */
/*      ENDIF */

    return 0;
} /* mgenmsg_ */

