/* ATRLOG.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 matrlog_(cnmlog, chaine, length, iercod, cnmlog_len, 
	chaine_len)
char *cnmlog, *chaine;
integer *length, *iercod;
ftnlen cnmlog_len;
ftnlen chaine_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 : */
/*     ---------- */
/*        RETOURNE LA TRADUCTION D'UN NOM LOGIQUE */

/*     MOTS CLES : */
/*     ----------- */
/*        SYSTEME, VARIABLE, TRADUCTION, NOM-LOGIQUE */

/*     ARGUMENTS D'ENTREE : */
/*     ------------------ */
/*        CNMLOG : NOM LOGIQUE */

/*     ARGUMENTS DE SORTIE : */
/*     ------------------- */
/*        CHAINE : TRADUCTION DU NOM LOGIQUE */
/*        LENGTH : LONGUEUR UTILE */
/*        IERCOD : CODE D'ERREUR */
/*               = 0 : OK */
/*               = 1 : NOM LOGIQUE INEXISTANT */
/*               = 2 : AUTRE ERREUR SEVERE */

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

/*     REFERENCES APPELEES   : */
/*     ----------------------- */
/*        GETENV,MACHDIM */

/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */
/*       - EN CAS D'ERREUR (IERCOD>0), CHAINE = ' ' ET LENGTH = 0 */
/*       - SI LA VARIABLE D'ENTREE CNMLOG EST VIDE, LA ROUTINE RENVOIE */
/*         IERCOD=1 */

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

/*       INTEGER LONG */
/*       CALL GETENV(CNMLOG,CHAINE) */
/*       IF (CHAINE.EQ.' ') THEN */
    *iercod = 1;
    *length = 0;
/*       ELSE */
/*          IERCOD=0 */
/*          CALL MACHDIM(CHAINE,LENGTH) */
/*       ENDIF */
 return 0 ;
} /* matrlog_ */

