/* ATRSYM.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 matrsym_(cnmsym, chaine, length, iercod, cnmsym_len, 
	chaine_len)
char *cnmsym, *chaine;
integer *length, *iercod;
ftnlen cnmsym_len;
ftnlen chaine_len;
{
    /* Builtin functions */
    integer __s__cmp();
    /* Subroutine */ int __s__copy();

    /* Local variables */
    static char chainx[255];
    extern /* Subroutine */ int magtlog_();



/* < */
/* **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 : */
/*     ---------- */
/*       RECUPERE LA VALEUR D'UN SYMBOLE DEFINI AU MOMENT DE */
/*       L'INITIALISATION D'UN UTILISATEUR */

/*     MOTS CLES : */
/*     ----------- */
/*       TRADUCTION, SYMBOLE */

/*     ARGUMENTS D'ENTREE : */
/*     -------------------- */
/*       CNMSYM : NOM DU SYMBOLE */

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

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

/*     REFERENCES APPELEES : */
/*     --------------------- */
/*       LIB$GET_SYMBOL,MACHDIM */

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

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/* SGI_H  16-04-91 : CSO ; CORRECTION CAS SYMBOLE INEXISTANT ==> IERCOD=1 
*/
/* SGI_   07-01-91 : SVN ; MODIF IERCOD NE DOIT PAS DEPASSER 2 */
/*                        CHAINEVIDE VAUT CARACTERE BLANC */
/*       22-02-88 : DGZ ; CREATION DE LA VERSION ORIGINALE */
/*       07-09-88 : SGI_H : CS; SOUS UNIX SYMBOLE=NOM LOGIQUE = VARIABLE 
*/
/*                           ==> idem MAGTLOG */
/* > */
/* ***********************************************************************
 */


/* SGI...v */

/* SGI  CALL MAGTLOG (CNMSYM,CHAINE,LENGTH,IERCOD) */
    magtlog_(cnmsym, chainx, length, iercod, cnmsym_len, 255L);
/* SO...v */
    if (*iercod == 5) {
	*iercod = 1;
    }
/* SO...^ */
    if (*iercod >= 2) {
	*iercod = 2;
    }
    if (__s__cmp(chainx, "NONE", 255L, 4L) == 0) {
	__s__copy(chainx, " ", 255L, 1L);
	*length = 0;
    }
    __s__copy(chaine, chainx, chaine_len, 255L);
/* SGI...^ */


/* ***********************************************************************
 */
/*     TRAITEMENT DES ERREURS */
/* ***********************************************************************
 */


/* L9999: */
    return 0;
} /* matrsym_ */

