/* AERMSG.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 maermsg_(cnompg, icoder, cnompg_len)
char *cnompg;
integer *icoder;
ftnlen cnompg_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 SUR MNFNIMP DU NOM DE LA ROUTINE ET DU CODE ERREUR (SI >0) 
*/
/*   LORSQUE MNFNDEB EST NON NUL */

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

/*     ARGUMENTS D'ENTREE : */
/*     ------------------ */
/*        CNOMPG : Nom de la routine appelante */
/*        ICODER : Iercod de la routine appelante */

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

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

/*     REFERENCES APPELEES   : */
/*     ---------------------- */
/*      .Neant. */
/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */
/*    SI IBB DIFFERENT DE 0 ET SI CODE-ERREUR POSITIF, */
/*       ECRITURE SUR IMP DU NOM DE LA ROUTINE ET DE LA VALEUR DU CODE */

/*    IBB ET IMP SONT DISPONIBLES DANS L'INCLUDE MBLANK , QUI EXISTE */
/*   DANS T ET DANS C . */

/*        Annule et remplace GERMSG et UERMSG */

/* $    HISTORIQUE DES MODIFICATIONS   : */
/*     -------------------------------- */
/*     25-01-93 : JMB ; NETTOYAGE DE MAERMSG */
/*      22-12-89 : DGZ ; CORRECTION DE L'EN-TETE */
/*        09-03-88 : PP ; REMIS L'INCLUDE MBLANK, QUI EST CONNU DANS C */
/*        29.2.88 PP SUPP DU COMMON AU PROFIT DE MNFNDEB ET IMP . */
/*        17-02-88 : PP ; Creation version originale, d'apres DH */
/* > */
/* ***********************************************************************
 */

/*      INCLUDE 'MBLANK.INC' */

/* ----------------------------------------------------------------------*
 */


/*     IF (IBB.NE.0) THEN */
/*        IF (ICODER.GT.0) THEN */
/*         WRITE (IMP,'(1X,''***'','' Erreur de code '',I10 */
/*     1               ,'' en sortie de '',A,'' ***'')') ICODER,CNOMPG */
/*        ENDIF */
/*      ENDIF */

 return 0 ;
} /* maermsg_ */

