/* AMDLNG.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"

/* Common Block Declarations */

struct {
    char chlang[4], chl10n[4], chcour[4], chprec[4], chsuiv[4], chmode[4], 
	    chpres[46];
} macetat_;

#define macetat_1 macetat_

/* Subroutine */ int mamdlng_(cmdlng, cmdlng_len)
char *cmdlng;
ftnlen cmdlng_len;
{
    /* Builtin functions */
    /* Subroutine */ int __s__copy();


/* < */
/* **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 LA LANGUE COURANTE */

/*     MOTS CLES : */
/*     ----------- */
/*   GESTION, CONFIGURATION, LANGUE, LECTURE */

/*     ARGUMENTS D'ENTREE : */
/*     -------------------- */
/*       CMDLNG : LANGUE */

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

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

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

/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */
/*       DROIT D'UTILISATION : TOUTES APPLICATIONS */

/*       ATTENTION : CETTE ROUTINE DEPEND D'UNE INITIALISATION */
/*       ----------  PREALABLE FAITE AVEC AMDGEN. */
/*                   IL CONVIENT DONC DE S'ASSURER QUE CETTE INIT EST */
/*                   BIEN REALISEE DANS LE OU LES PROGRAMMES CONCERNES */

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*     25-01-93 : JMB ; NETTOYAGE DE MAMDLNG */
/*       23-03-90 : DGZ ; CORRECTION DE L'EN-TETE */
/*       22-12-89 : DGZ ; CORRECTION DE L'EN-TETE */
/*       22-02-88 : DGZ ; CREATION VERSION ORIGINALE */
/* > */
/* ***********************************************************************
 */


/*     INCLUDE MACETAT */
/* < */
/* **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 : */
/*     ---------- */
/*        CONTIENT LES INFORMATIONS RELATIVES A LA COMPOSITION DE */
/*        L'EXECUTABLE ET A SON ENVIRONNEMENT : */
/*        - LANGUES */
/*        - APPLICATIONS PRESENTES */
/*        - TYPES D'ENTITES AUORISEES (NON UTILISE) */
/*        AINSI QUE DES INFORMATIONS DECRIVANTS L'ETAT COURANT : */
/*        - APPLICATION EN COURS */
/*        - MODE D'UTILISATION (NON UTILISE) */

/*     MOTS CLES : */
/*     ----------- */
/*        APPLICATION, LANGUE */

/*     DEMSCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */

/*     A) CHLANG*4 : LISTE DES VALEURS POSSIBLES DE LA LANGUE : */
/*                   'FRA ','DEU ','ENG ' */

/*        CHL10N*4 : LISTE DES VALEURS POSSIBLES DE LA LOCALISATION : */
/*                   'FRA ','DEU ','ENG ', 'JIS ' */

/*     B) CHCOUR*4, CHPREC*4, CHSUIV*4 : APPLICATION COURANTE, PRECEDENTE 
*/
/*                   ET SUIVANTE */

/*     C) CHMODE*4 : MODE COURANT (NON UTILISE) */

/*     D) CHPRES*2 (1:NBRMOD) : LISTE DES APPLICATIONS PRISES EN COMPTE */

/*       Rang ! Code interne  !   Application */
/*       ---------------------------------------------------------- */
/*        1   !   CD          !   Modelisation 2D */
/*        2   !   CA          !   Modelisation 2D par apprentissage */
/*        3   !   CP          !   Modelisation 2D parametree */
/*        4   !   PC          !   Modelisation rheologique 2D */
/*        5   !   CU          !   Fraisage 2 Axes 1/2 */
/*        6   !   CT          !   Tournage */
/*        7   !   TS          !   Modelisation 3D surfacique */
/*        8   !   TV          !   Modelisation 3D volumique */
/*        9   !   MC          !   Maillage coque */
/*        10  !   MV          !   Maillage volumique */
/*        11  !   TU          !   Usinage 3 axes continus */
/*        12  !   T5          !   Usinage 3-5 axes */
/*        13  !   TR          !   Usinage 5 axes de surfaces reglees */
/*        14  !   IG          !   Interface IGES */
/*        15  !   ST          !   Interface SET */
/*        16  !   VD          !   Interface VDA */
/*        17  !   IM          !   Interface de modelisation */
/*        18  !   GA          !   Generateur APT/IFAPT */
/*        19  !   GC          !   Generateur COMPACT II */
/*        20  !   GP          !   Generateur PROMO */
/*        21  !   TN          !   Usinage par copiage numerique */
/*        22  !   GM          !   Gestion des modeles */
/*        23  !   GT          !   Gestion de trace */
/*       ---------------------------------------------------------- */


/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*        05-05-93 : JMB ; Livraison GI93033FGR019 */
/*        8-03-1993: STT ; AJOUT CHL10N */
/*        31-07-92 : FCR ; GI91050G0348 : Suppression de CHTYPE */
/*        18-06-90 : DGZ ; AJOUT EXTENSION PAR COPIAGE NUMERIQUE */
/*        15-03-89 : DGZ ; MODIF DES APPLICATIONS POUR STANDARDS METIERS 
*/
/*        13-09-88 : DGZ ; AJOUT DES MODULES CC (TVCC) ET CG (CA GLOBAL) 
*/
/*        13-09-88 : DGZ ; AJOUT DES MODULES SET, IGES, VDA */
/*        22-02-88 : DGZ ; CREATION VERSION ORIGINALE */
/* > */
/* ***********************************************************************
 */

/*     NOMBRE D'APPLICATIONS PRISES EN COMPTE */


/*     NOMBRES DE TYPES D'ENTITE GERES PAR STRIM 100 */




    __s__copy(cmdlng, macetat_1.chlang, cmdlng_len, 4L);

 return 0 ;
} /* mamdlng_ */

