mg_export.cpp

Aller à la documentation de ce fichier.

//####//------------------------------------------------------------
//####//------------------------------------------------------------
//####//  MAGiC
//####//  Jean Christophe Cuilliere et Vincent FRANCOIS
//####//  Departement de Genie Mecanique - UQTR
//####//------------------------------------------------------------
//####//  MAGIC est un projet de recherche de l equipe ERICCA
//####//  du departement de genie mecanique de l Universite du Quebec a Trois Rivieres
//####//  http://www.uqtr.ca/ericca
//####//  http://www.uqtr.ca/
//####//------------------------------------------------------------
//####//------------------------------------------------------------
//####//
//####//       mg_export.cpp
//####//
//####//------------------------------------------------------------
//####//------------------------------------------------------------
//####//    COPYRIGHT 2000-2024
//####//  jeu 13 jun 2024 11:58:53 EDT
//####//------------------------------------------------------------
//####//------------------------------------------------------------
 
#include "gestionversion.h"
#include "mc_gestionnaire.h"
#include "mc_propriete.h"
#include "mc_materiau.h"
#include "mg_export.h"
#include "mg_maillage.h"
#include "mg_coque_element.h"
#include "mg_poutre_element.h"
#include "mg_volume_element.h"
#include "mg_gestionnaire.h"
#include "mg_sommet_noeud.h"
#include "mg_arete_element.h"
#include "mg_face_element.h"
#include "mg_poutre.h"
#include "mg_element_topologique.h"
#include "ot_boite_3d.h"
#include "ot_quadrature_gauss.h"
#include "constantegeo.h"
#include "fct_taille_fem_solution.h"
#include <fct_generateur_calibrage.h>
#include <fstream>
#include <map>
#include <stdio.h>
#include <string.h>
#include <math.h>
#include <ot_chaine.h>
#include <unistd.h>
#ifdef __WIN32__
#include <dir.h>
#endif
 
MG_EXPORT::MG_EXPORT()
{
param_aster.ajouter("Version",MAGIC_ASTER_VERSION_DEFAUT,OT_PARAMETRES::STRING,"Proprietes aster : Version de Code Aster a utiliser pour le calcul");
param_aster.ajouter("Memoire",128.,OT_PARAMETRES::DOUBLE,"Proprietes aster : Memoire maximale disponible pour le calcul en MWord. Word : taille d'un entier 4 octets en 32 bits et 8 octets en 64 bits");
param_aster.ajouter("Temps_max",7200.,OT_PARAMETRES::DOUBLE,"Proprietes aster : Temps maximal en s avant que le calcul ne se killed");
param_aster.ajouter("Max_base",48.,OT_PARAMETRES::DOUBLE,"Proprietes aster : taille du fichier temporaire pour la base de donnée ASTER en Gb");
param_aster.ajouter("Nb_CPU",1.,OT_PARAMETRES::DOUBLE,"Proprietes aster : Nombre de cpu que le processus peut utiliser");
param_aster.ajouter("Noeud_ele",0,OT_PARAMETRES::DOUBLE,"Proprietes elasticite : 0 Calcul des tenseurs aux noeud 1 calcul des tenseurs aux noeuds par element 2. calcul des tenseurs aux point de gauss");
param_aster.ajouter("Tref",273,OT_PARAMETRES::DOUBLE,"Proprietes thermique : température de reference");
param_aster.ajouter("Ti",0,OT_PARAMETRES::DOUBLE,"Proprietes thermique et statique non lineaire : temps initial");
param_aster.ajouter("Tf",100,OT_PARAMETRES::DOUBLE,"Proprietes thermique et statique non lineaire : temps final");
param_aster.ajouter("DIV",2,OT_PARAMETRES::DOUBLE,"Proprietes thermique à coefficients variables:  Réduction du nombre de pas de resultats a imprimer");
param_aster.ajouter("Pas",1,OT_PARAMETRES::DOUBLE,"Proprietes thermique et statique non lineaire : Nombre de pas de temps");
param_aster.ajouter("Pasvariable",1,OT_PARAMETRES::DOUBLE,"Proprietes thermique et statique non lineaire : Nombre de pas variable");
param_aster.ajouter("division_pas",1,OT_PARAMETRES::DOUBLE,"Proprietes thermique et statique non lineaire : Nombre de pas entre les pas numeriques variables");
param_aster.ajouter("Euler",1,OT_PARAMETRES::DOUBLE,"Proprietes thermique : parametres d'Euler");
param_aster.ajouter("Eps",1e-6,OT_PARAMETRES::DOUBLE,"Proprietes thermique : parametre de precision");
param_aster.ajouter("Incr_mat_tan_pred",1,OT_PARAMETRES::DOUBLE,"Proprietes statique non lineaire : La matrice tangente de prediction est reevaluee a tous les «Incr_mat_tan_pred» increment d'instant");
param_aster.ajouter("It_mat_tan_coh",0,OT_PARAMETRES::DOUBLE,"Proprietes statique non lineaire : La matrice tangente coherente est reevaluee a tous les «It_mat_tan_coh» iterarions de newton");
param_aster.ajouter("It_resultat",0,OT_PARAMETRES::DOUBLE,"Proprietes statique non lineaire : Enregistre un nombre donné d'instant de calcul, excluant le dernier instant qui est enregistre par defaut");
param_aster.ajouter("n1",1.0,OT_PARAMETRES::DOUBLE,"Proprietes thermique non lineaire : methode de NEWTON");
param_aster.ajouter("n2",1e-3,OT_PARAMETRES::DOUBLE,"Proprietes thermique non lineaire : methode de NEWTON");
param_aster.ajouter("n3",1.0,OT_PARAMETRES::DOUBLE,"Proprietes thermique non lineaire : methode de NEWTON");
param_aster.ajouter("conv1",1e-3,OT_PARAMETRES::DOUBLE,"Proprietes thermique non lineaire : convergence de la methode de NEWTON");
param_aster.ajouter("conv2",100.0,OT_PARAMETRES::DOUBLE,"Proprietes thermique non lineaire : convergence de la methode de NEWTON");
param_aster.ajouter("nonlineaire",0,OT_PARAMETRES::DOUBLE,"Proprietes thermique : type de l'etude (lineaire ou non lineaire)");
param_aster.ajouter("Pas_decharge",0,OT_PARAMETRES::DOUBLE,"Proprietes statique non lineaire : Nombre de pas pour le calcul de la decharge 0 pas de decharge");
param_aster.ajouter("Pas_palier",0,OT_PARAMETRES::DOUBLE,"Proprietes statique non lineaire : Nombre de pas pour le palier dans le calcul de la decharge");
param_aster.ajouter("Niv_subd",0,OT_PARAMETRES::DOUBLE,"Proprietes statique non lineaire : Nombre de niveau de subdivision maximale pour adapter le newton");
param_aster.ajouter("Pas_subd",0,OT_PARAMETRES::DOUBLE,"Proprietes statique non lineaire : Nombre de subdivision pour adapter le newton");
param_aster.ajouter("Infini",1e+15,OT_PARAMETRES::DOUBLE,"Proprietes calcul mixte volume poutre : Valeur par défaut pour la rigidite des mini-poutre");
param_aster.ajouter("Base_num_mail",10,OT_PARAMETRES::DOUBLE,"Choix de la base pour décrire les numero dans le fichier mail de code aster (entre 10 et 36)");
param_aster.ajouter("Solveur_Methode",1,OT_PARAMETRES::DOUBLE,"Choix du solveur : 1. MULT_FRONT 2. LDLT 3. MUMPS 4. GCPC");
param_aster.ajouter("Solveur_Renum_MULT_FRONT",1,OT_PARAMETRES::DOUBLE,"Choix du renumeroteur pour MULT_FRONT : 1. METIS 2. MD 3. MDA");
param_aster.ajouter("Solveur_Renum_LDLT",1,OT_PARAMETRES::DOUBLE,"Choix du renumeroteur pour LDLT : 1. RCMK 2. SANS");
param_aster.ajouter("Solveur_Renum_MUMPS",1,OT_PARAMETRES::DOUBLE,"Choix du renumeroteur pour MUMPS : 1. AUTO 2. AMD 3. AMF 4. QAMD 5. PORD 6. METIS 7. SCOTCH");
param_aster.ajouter("Solveur_Gestion_memoire_MUMPS",1,OT_PARAMETRES::DOUBLE,"Choix de la gestion memeoire pour MUMPS : 1. AUTO 2. IN_CORE 3. OUT_CORE 4. EVAL");
param_aster.ajouter("Solveur_Pre_Cond_GCPC",1,OT_PARAMETRES::DOUBLE,"Choix du preconditionneur pour GCPC : 1. LDLT_INC sans RENUM 2. LDLT_INC avec RENUM RCMK 3. LDLT_SP");
param_aster.ajouter("nbrniveau",10.,OT_PARAMETRES::DOUBLE,"Nombre de matériaux utilisés");
}
 
 
MG_EXPORT::~MG_EXPORT()
{
}
 
void MG_EXPORT::lire_params_aster(char *fichier)
{
param_aster.lire(fichier);
}
 
void MG_EXPORT::change_param_aster(char *nomparam,double val)
{
param_aster.change_valeur(nomparam, val);  
}
 
void MG_EXPORT::change_param_aster(char *nomparam,char* val)
{
param_aster.change_valeur(nomparam, val);  
}
 
void MG_EXPORT::ecrire_params_aster(char *fichier)
{
param_aster.enregistrer(fichier);
}
 
 
int MG_EXPORT::get_base_aster(void)
    {
    int base=(int)param_aster.get_valeur("Base_num_mail");
    return base;
      
    }
    
OT_PARAMETRES* MG_EXPORT::get_param_aster(void)
{
  return &param_aster;
}
 
 
 
int MG_EXPORT::couleur(MG_ELEMENT_TOPOLOGIQUE* ele)
{
    static std::map<long,int,std::less<long > > tab;
    static int num=1;
    if (ele==NULL) return 0;
 
    int nbccf=ele->get_nb_ccf();
    for (int k=0;k<nbccf;k++)
    {
        char typeccf[10];
        ele->get_type_ccf(k,typeccf);
        if (typeccf[0]=='C')
            if (typeccf[1]=='c')
            {
                long couleur=0;
                double val=ele->get_valeur_ccf(k);
                unsigned char *p=(unsigned char*)&val;
                couleur=couleur+(*p);
                p++;
                couleur=couleur+((*p)<<8);
                p++;
                couleur=couleur+((*p)<<16);
                std::map<long,int,std::less<long > >::iterator it=tab.find(couleur);
                if (it==tab.end())
                {
                    std::pair<long,int> tmp(couleur,num);
                    tab.insert(tmp);
                    num++;
                    return num;
                }
                int valeur=(*it).second+1+((*it).second+1)/20;
                return valeur;
            }
    }
    return 0;
}
 
void MG_EXPORT::gmsh41partition(std::ofstream &f,MG_MAILLAGE *mai,TPL_MAP_ENTITE<MG_NOEUD*> &lstnoeud,TPL_MAP_ENTITE<MG_SEGMENT*> &lstsegment,   TPL_MAP_ENTITE<MG_TRIANGLE*> &lsttriangle,TPL_MAP_ENTITE<MG_QUADRANGLE*> &lstquadrangle,TPL_MAP_ENTITE<MG_TETRA*> &lsttetra,  TPL_MAP_ENTITE<MG_HEXA*> &lsthexa,TPL_MAP_ENTITE<MG_PENTA*> &lstpenta,TPL_MAP_ENTITE<MG_PYRAMIDE*> &lstpyramide)
{
    f << "$ElementData" << std::endl;
    f <<"1"<<std::endl;
        f<<"\"Partition\""<<std::endl;
        f<<"1"<<std::endl;
        f<<"0.0"<<std::endl;
        f<<"3"<<std::endl;
        f<<"0"<<std::endl;
        f<< "1" <<std::endl;
    int nbele=lstsegment.get_nb()+lsttriangle.get_nb()+lstquadrangle.get_nb()+lsttetra.get_nb()+lsthexa.get_nb()+lstpenta.get_nb()+lstpyramide.get_nb();
    f << nbele << std::endl;
    TPL_MAP_ENTITE<MG_SEGMENT *>::ITERATEUR itsegment;
    for (MG_SEGMENT* segment=lstsegment.get_premier(itsegment);segment;segment=lstsegment.get_suivant(itsegment))
        {
        f << segment->get_nouveau_numero()<< " ";
        unsigned long numpart=(unsigned long)(0.1*(segment->get_origine()-1000)+1);
        f << numpart << std::endl;
        }
    TPL_MAP_ENTITE<MG_TRIANGLE *>::ITERATEUR ittri;
    for (MG_TRIANGLE* tri=lsttriangle.get_premier(ittri);tri;tri=lsttriangle.get_suivant(ittri))
    {
        f << tri->get_nouveau_numero()<< " ";
        unsigned long numpart=(unsigned long)(0.1*(tri->get_origine()-1000)+1);
        f << numpart << std::endl;
    }
    TPL_MAP_ENTITE<MG_QUADRANGLE *>::ITERATEUR itquad;
    for (MG_QUADRANGLE* quad=lstquadrangle.get_premier(itquad);quad;quad=lstquadrangle.get_suivant(itquad))
    {
        f << quad->get_nouveau_numero()<< " ";
        unsigned long numpart=(unsigned long)(0.1*(quad->get_origine()-1000)+1);
        f << numpart << std::endl;
    }
    TPL_MAP_ENTITE<MG_TETRA *>::ITERATEUR ittet;
    for (MG_TETRA* tet=lsttetra.get_premier(ittet);tet;tet=lsttetra.get_suivant(ittet))
    {
        f << tet->get_nouveau_numero()<< " ";
        unsigned long numpart=(unsigned long)(0.1*(tet->get_origine()-1000)+1);
        f << numpart << std::endl;
    }
    TPL_MAP_ENTITE<MG_HEXA *>::ITERATEUR ithex;
    for (MG_HEXA* hex=lsthexa.get_premier(ithex);hex;hex=lsthexa.get_suivant(ithex))
    {
        f << hex->get_nouveau_numero()<< " ";
        unsigned long numpart=(unsigned long)(0.1*(hex->get_origine()-1000)+1);
        f << numpart << std::endl;
    }
    TPL_MAP_ENTITE<MG_PENTA *>::ITERATEUR itpen;
    for (MG_PENTA* pen=lstpenta.get_premier(itpen);pen;pen=lstpenta.get_suivant(itpen))
    {
        f << pen->get_nouveau_numero() << " ";
        unsigned long numpart=(unsigned long)(0.1*(pen->get_origine()-1000)+1);
        f << numpart << std::endl;
    }
    TPL_MAP_ENTITE<MG_PYRAMIDE *>::ITERATEUR itpyr;
    for (MG_PYRAMIDE* pyr=lstpyramide.get_premier(itpyr);pyr;pyr=lstpyramide.get_suivant(itpyr))
    {
        f << pyr->get_nouveau_numero() << " ";
        unsigned long numpart=(unsigned long)(0.1*(pyr->get_origine()-1000)+1);
        f << numpart << std::endl;
    }
    f << "$EndElementData" << std::endl;
    
}
 
void MG_EXPORT::gmsh41entities(std::ofstream &f,MG_GEOMETRIE *geo)
{
f << "$Entities"<< std::endl;
    f << geo->get_nb_mg_sommet() << " "<< geo->get_nb_mg_arete() << " " << geo->get_nb_mg_face() << " " << geo->get_nb_mg_volume() << " " <<std::endl;
    LISTE_MG_SOMMET::iterator its;
    for (MG_SOMMET* som=geo->get_premier_sommet(its);som!=NULL;som=geo->get_suivant_sommet(its))
        {   
        double xyz[3];
        if (!som->est_une_topo_element())
            som->get_point()->evaluer(xyz);
        else 
            {
            MG_SOMMET_NOEUD* somno=(MG_SOMMET_NOEUD*)som;
            xyz[0]=somno->get_mg_noeud()->get_x();
            xyz[1]=somno->get_mg_noeud()->get_y();
            xyz[2]=somno->get_mg_noeud()->get_z();
            }
        f<< som->get_id() << " " << xyz[0] << " " << xyz[1] << " " << xyz[2] << " 0" << std::endl;
        }
    LISTE_MG_ARETE::iterator ita;
    for (MG_ARETE* are=geo->get_premier_arete(ita);are!=NULL;are=geo->get_suivant_arete(ita))
        {   
        BOITE_3D b;
        if (!are->est_une_topo_element())
        {
        double xyz1[3],xyz2[3];
        are->get_cosommet1()->get_sommet()->get_point()->evaluer(xyz1);
        are->get_cosommet2()->get_sommet()->get_point()->evaluer(xyz2);
        BOITE_3D b1(xyz1[0],xyz1[1],xyz1[2],xyz1[0],xyz1[1],xyz1[2]);
        BOITE_3D b2(xyz2[0],xyz2[1],xyz2[2],xyz2[0],xyz2[1],xyz2[2]);
        b=b1+b2;
        }
        else 
        {
        MG_ARETE_ELEMENT* areele=(MG_ARETE_ELEMENT*) are;
        for (int i=0;i<areele->get_nb_element();i++)
            {
            MG_NOEUD* no=((MG_SEGMENT*)(areele->get_element(i)))->get_noeud1();
            double *xyz=no->get_coord();
            BOITE_3D b1(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
            if (i==0) b=b1; else b=b+b1;
            no=((MG_SEGMENT*)(areele->get_element(i)))->get_noeud2();
            xyz=no->get_coord();
            b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
            b=b+b1;
            }
        }
        f<< are->get_id() << " " << b.get_xmin() << " " << b.get_ymin() << " " << b.get_zmin() << " " << b.get_xmax() << " " << b.get_ymax() << " " << b.get_zmax() << " 0" << std::endl;
        }
    LISTE_MG_FACE::iterator itf;
    for (MG_FACE* fac=geo->get_premier_face(itf);fac!=NULL;fac=geo->get_suivant_face(itf))
        {   
        BOITE_3D b;
        if (!fac->est_une_topo_element())
        {
            TPL_MAP_ENTITE<MG_ELEMENT_TOPOLOGIQUE*> lst;
        fac->get_topologie_sousjacente(&lst);
        TPL_MAP_ENTITE<MG_ELEMENT_TOPOLOGIQUE*>::ITERATEUR it;
        bool ini=false;
        for (MG_ELEMENT_TOPOLOGIQUE* ele=lst.get_premier(it);ele!=NULL;ele=lst.get_suivant(it))
            if (ele->get_type()==MG_ELEMENT_TOPOLOGIQUE::TYPE_ELEMENT_TOPOLOGIQUE::SOMMET)    
                {
                MG_SOMMET* som=(MG_SOMMET*)ele;
                double xyz[3];
                som->get_point()->evaluer(xyz);
                BOITE_3D b1(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                if (ini==false) {ini=true;b=b1;} else b=b+b1;
                }
        }
        else
        {
        MG_FACE_ELEMENT* faceele=(MG_FACE_ELEMENT*) fac;
        for (int i=0;i<faceele->get_nb_element();i++)
            {
            MG_ELEMENT_MAILLAGE* ele=faceele->get_element(i);
            if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_TRIANGLE)
                {
                MG_TRIANGLE* tri=(MG_TRIANGLE*)ele;
                MG_NOEUD* no=tri->get_noeud1();
                double *xyz=no->get_coord();
                BOITE_3D b1(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                if (i==0) b=b1; else b=b+b1;
                no=tri->get_noeud2();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=tri->get_noeud3();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                }
            if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_QUADRANGLE)
                {
                MG_QUADRANGLE* quad=(MG_QUADRANGLE*)ele;
                MG_NOEUD* no=quad->get_noeud1();
                double *xyz=no->get_coord();
                BOITE_3D b1(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                if (i==0) b=b1; else b=b+b1;
                no=quad->get_noeud2();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=quad->get_noeud3();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=quad->get_noeud4();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                }
            }   
        }
        f<< fac->get_id() << " " << b.get_xmin() << " " << b.get_ymin() << " " << b.get_zmin() << " " << b.get_xmax() << " " << b.get_ymax() << " " << b.get_zmax() << " 0" << std::endl;
        }
    LISTE_MG_VOLUME::iterator itv;
    for (MG_VOLUME* vol=geo->get_premier_volume(itv);vol!=NULL;vol=geo->get_suivant_volume(itv))
        {   
        BOITE_3D b;
        if (!vol->est_une_topo_element())
        {
            TPL_MAP_ENTITE<MG_ELEMENT_TOPOLOGIQUE*> lst;
        vol->get_topologie_sousjacente(&lst);
        TPL_MAP_ENTITE<MG_ELEMENT_TOPOLOGIQUE*>::ITERATEUR it;
        bool ini=false;
        for (MG_ELEMENT_TOPOLOGIQUE* ele=lst.get_premier(it);ele!=NULL;ele=lst.get_suivant(it))
            if (ele->get_type()==MG_ELEMENT_TOPOLOGIQUE::TYPE_ELEMENT_TOPOLOGIQUE::SOMMET)    
                {
                MG_SOMMET* som=(MG_SOMMET*)ele;
                double xyz[3];
                som->get_point()->evaluer(xyz);
                BOITE_3D b1(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                if (ini==false) {ini=true;b=b1;} else b=b+b1;
                }
        }
        else
        {
        MG_VOLUME_ELEMENT* volele=(MG_VOLUME_ELEMENT*)vol;
        for (int i=0;i<volele->get_nb_element();i++)
            {
            MG_ELEMENT_MAILLAGE* ele=volele->get_element(i);
            if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_TETRA)
                {
                MG_TETRA* tet=(MG_TETRA*)ele;
                MG_NOEUD* no=tet->get_noeud1();
                double *xyz=no->get_coord();
                BOITE_3D b1(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                if (i==0) b=b1; else b=b+b1;
                no=tet->get_noeud2();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=tet->get_noeud3();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=tet->get_noeud4();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                }
            if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_HEXA)
                {
                MG_HEXA* hex=(MG_HEXA*)ele;
                MG_NOEUD* no=hex->get_noeud1();
                double *xyz=no->get_coord();
                BOITE_3D b1(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                if (i==0) b=b1; else b=b+b1;
                no=hex->get_noeud2();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=hex->get_noeud3();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=hex->get_noeud4();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=hex->get_noeud5();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=hex->get_noeud6();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=hex->get_noeud7();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=hex->get_noeud8();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                }
            if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_PENTA)
                {
                MG_PENTA* pen=(MG_PENTA*)ele;
                MG_NOEUD* no=pen->get_noeud1();
                double *xyz=no->get_coord();
                BOITE_3D b1(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                if (i==0) b=b1; else b=b+b1;
                no=pen->get_noeud2();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=pen->get_noeud3();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=pen->get_noeud4();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=pen->get_noeud5();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                no=pen->get_noeud6();
                xyz=no->get_coord();
                b1.reinit(xyz[0],xyz[1],xyz[2],xyz[0],xyz[1],xyz[2]);
                b+b1;
                }
            }
            
        }
    
        f<< vol->get_id() << " " << b.get_xmin() << " " << b.get_ymin() << " " << b.get_zmin() << " " << b.get_xmax() << " " << b.get_ymax() << " " << b.get_zmax() << " 0" << std::endl;
        }
    
    f << "$EndEntities"<< std::endl;
        
}
 
void MG_EXPORT::gmsh41(std::ofstream &f,MG_MAILLAGE *mai,TPL_MAP_ENTITE<MG_NOEUD*> &lstnoeud,TPL_MAP_ENTITE<MG_SEGMENT*> &lstsegment,   TPL_MAP_ENTITE<MG_TRIANGLE*> &lsttriangle,TPL_MAP_ENTITE<MG_QUADRANGLE*> &lstquadrangle,TPL_MAP_ENTITE<MG_TETRA*> &lsttetra,  TPL_MAP_ENTITE<MG_HEXA*> &lsthexa,TPL_MAP_ENTITE<MG_PENTA*> &lstpenta,TPL_MAP_ENTITE<class MG_PYRAMIDE*> &lstpyramide)
{
    f << "$MeshFormat"<< std::endl;
    f << "4.1 0 " << sizeof(double) << std::endl;
    f << "$EndMeshFormat"<< std::endl;
    std::map<unsigned long,std::vector<MG_ELEMENT_MAILLAGE*> > entiteno,entiteel,partition;
    std::map<unsigned long,std::vector<std::pair<int,MG_ELEMENT_MAILLAGE*> > > entiteelno;
    LISTE_MG_NOEUD::iterator  it;
    int i=0;
    for (MG_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
    {
        noeud->change_nouveau_numero(i+1);
        i++;
        long id=0;
        if (noeud->get_lien_topologie()!=NULL) id=noeud->get_lien_topologie()->get_id();
        //unsigned long numpart=(unsigned long)(0.1*(noeud->get_origine()-1000)+1);
        entiteno[id].push_back(noeud);
        //partition[numpart].push_back(noeud);
    }
    TPL_MAP_ENTITE<MG_NOEUD*>::ITERATEUR itnoeud;
    i=0;
    for (MG_NOEUD* no=lstnoeud.get_premier(itnoeud);no;no=lstnoeud.get_suivant(itnoeud))
    {
        i++;
        long id=0;
        if (no->get_lien_topologie()!=NULL) id=no->get_lien_topologie()->get_id();
        std::pair<int,MG_ELEMENT_MAILLAGE*> tmp(i,no);
        entiteelno[id].push_back(tmp);
        unsigned long numpart=(unsigned long)(0.1*(no->get_origine()-1000)+1);
        partition[numpart].push_back(no);
    }
    TPL_MAP_ENTITE<MG_SEGMENT *>::ITERATEUR itsegment;
    for (MG_SEGMENT* segment=lstsegment.get_premier(itsegment);segment;segment=lstsegment.get_suivant(itsegment))
        {
        i++;
        long id=0;
        if (segment->get_lien_topologie()!=NULL) id=segment->get_lien_topologie()->get_id();
        entiteel[id].push_back(segment);
        segment->change_nouveau_numero(i);
        unsigned long numpart=(unsigned long)(0.1*(segment->get_origine()-1000)+1);
        partition[numpart].push_back(segment);
    }
    TPL_MAP_ENTITE<MG_TRIANGLE *>::ITERATEUR ittri;
    for (MG_TRIANGLE* tri=lsttriangle.get_premier(ittri);tri;tri=lsttriangle.get_suivant(ittri))
    {
        i++;
        long id=0;
        tri->change_nouveau_numero(i);
        if (tri->get_lien_topologie()!=NULL) id=tri->get_lien_topologie()->get_id();
         entiteel[id].push_back(tri);
        unsigned long numpart=(unsigned long)(0.1*(tri->get_origine()-1000)+1);
        partition[numpart].push_back(tri);
    }
    TPL_MAP_ENTITE<MG_QUADRANGLE *>::ITERATEUR itquad;
    for (MG_QUADRANGLE* quad=lstquadrangle.get_premier(itquad);quad;quad=lstquadrangle.get_suivant(itquad))
    {
        i++;
        long id=0;
        if (quad->get_lien_topologie()!=NULL) id=quad->get_lien_topologie()->get_id();
        quad->change_nouveau_numero(i);
        entiteel[id].push_back(quad);
        unsigned long numpart=(unsigned long)(0.1*(quad->get_origine()-1000)+1);
        partition[numpart].push_back(quad);
    }
    TPL_MAP_ENTITE<MG_TETRA *>::ITERATEUR ittet;
    for (MG_TETRA* tet=lsttetra.get_premier(ittet);tet;tet=lsttetra.get_suivant(ittet))
    {
        i++;
        long id=0;
        if (tet->get_lien_topologie()!=NULL) id=tet->get_lien_topologie()->get_id();
        tet->change_nouveau_numero(i);
        entiteel[id].push_back(tet);
        unsigned long numpart=(unsigned long)(0.1*(tet->get_origine()-1000)+1);
        partition[numpart].push_back(tet);
    }
    TPL_MAP_ENTITE<MG_HEXA *>::ITERATEUR ithex;
    for (MG_HEXA* hex=lsthexa.get_premier(ithex);hex;hex=lsthexa.get_suivant(ithex))
    {
        i++;
        long id=0;
        if (hex->get_lien_topologie()!=NULL) id=hex->get_lien_topologie()->get_id();
        hex->change_nouveau_numero(i);
        entiteel[id].push_back(hex);
        unsigned long numpart=(unsigned long)(0.1*(hex->get_origine()-1000)+1);
        partition[numpart].push_back(hex);
    }
    TPL_MAP_ENTITE<MG_PENTA *>::ITERATEUR itpen;
    for (MG_PENTA* pen=lstpenta.get_premier(itpen);pen;pen=lstpenta.get_suivant(itpen))
    {
        i++;
        long id=0;
        if (pen->get_lien_topologie()!=NULL) id=pen->get_lien_topologie()->get_id();
        pen->change_nouveau_numero(i);
        entiteel[id].push_back(pen);
        unsigned long numpart=(unsigned long)(0.1*(pen->get_origine()-1000)+1);
        partition[numpart].push_back(pen);
    }
    TPL_MAP_ENTITE<MG_PYRAMIDE *>::ITERATEUR itpyr;
    for (MG_PYRAMIDE* pyr=lstpyramide.get_premier(itpyr);pyr;pyr=lstpyramide.get_suivant(itpyr))
    {
        i++;
        long id=0;
        if (pyr->get_lien_topologie()!=NULL) id=pyr->get_lien_topologie()->get_id();
        pyr->change_nouveau_numero(i);
        entiteel[id].push_back(pyr);
        unsigned long numpart=(unsigned long)(0.1*(pyr->get_origine()-1000)+1);
        partition[numpart].push_back(pyr);
    }
    MG_GEOMETRIE* geo=mai->get_mg_geometrie();
    if (geo!=NULL) gmsh41entities(f,geo);
    else
        {
        if (lsthexa.get_nb()+lstpenta.get_nb()+lsttetra.get_nb()+lstpyramide.get_nb()!=0) MG_MAILLAGE::DIMENSIONMAILLAGESANSTOPO=3;
        else if (lstquadrangle.get_nb()+lsttriangle.get_nb()!=0) MG_MAILLAGE::DIMENSIONMAILLAGESANSTOPO=2;
        else if (lstsegment.get_nb()!=0) MG_MAILLAGE::DIMENSIONMAILLAGESANSTOPO=1;
        else MG_MAILLAGE::DIMENSIONMAILLAGESANSTOPO=0;
        }
    f << "$Nodes"<< std::endl;
    int nbnoeud=mai->get_nb_mg_noeud();
    f << entiteno.size() << " " << nbnoeud<< " 1 "<< nbnoeud << std::endl;
    for (std::map<unsigned long,std::vector<MG_ELEMENT_MAILLAGE*> >::iterator itn=entiteno.begin();itn!=entiteno.end();itn++)
        {
        MG_ELEMENT_TOPOLOGIQUE*  topo=itn->second[0]->get_lien_topologie();
        if (topo!=NULL) f << topo->get_dimension() << " " << itn->first << " 0 " << itn->second.size() << std::endl; 
        else  if (geo==NULL)  f << MG_MAILLAGE::DIMENSIONMAILLAGESANSTOPO << " 1 0 " << itn->second.size() << std::endl; 
        for (int i=0;i<itn->second.size();i++)
            f << itn->second[i]->get_nouveau_numero() << std::endl;
        for (int i=0;i<itn->second.size();i++)
            {
            MG_NOEUD* no=(MG_NOEUD*)itn->second[i];
            f << no->get_x() << " " << no->get_y() << " " << no->get_z() << std::endl;
            }
        }
    f<<"$EndNodes"<< std::endl;
    f<<"$Elements"<< std::endl;
    int nbele=lstnoeud.get_nb()+lstsegment.get_nb()+lsttriangle.get_nb()+lstquadrangle.get_nb()+lsttetra.get_nb()+lsthexa.get_nb()+lstpenta.get_nb()+lstpyramide.get_nb();
    f<<entiteelno.size()+entiteel.size()<< " " << nbele << " 1 " << nbele << std::endl;
    for (std::map<unsigned long,std::vector<std::pair<int,MG_ELEMENT_MAILLAGE*> > >::iterator itn=entiteelno.begin();itn!=entiteelno.end();itn++)
        {
        int dim=0;
        if (itn->second[0].second->get_lien_topologie()!=NULL) dim=itn->second[0].second->get_lien_topologie()->get_dimension();
        f<< dim << " " << itn->first << " 15 " << itn->second.size() << std::endl;
        for (int i=0;i<itn->second.size();i++)
            f<< itn->second[i].first << " " << itn->second[i].second->get_nouveau_numero() << std::endl;
        }
    for (std::map<unsigned long,std::vector<MG_ELEMENT_MAILLAGE*>  >::iterator itn=entiteel.begin();itn!=entiteel.end();itn++)
        {
        int dim=0;
        if (itn->second[0]->get_lien_topologie()!=NULL) dim=itn->second[0]->get_lien_topologie()->get_dimension();
        if (geo==NULL) dim=MG_MAILLAGE::DIMENSIONMAILLAGESANSTOPO;
        int typegmsh;
        MG_ELEMENT_MAILLAGE* ele=itn->second[0];
        if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_SEGMENT) typegmsh=1;
        if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_TRIANGLE) typegmsh=2;
        if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_QUADRANGLE) typegmsh=3;
        if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_TETRA) typegmsh=4;
        if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_HEXA) typegmsh=5;
        if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_PENTA) typegmsh=6;
        if (ele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_PYRAMIDE) typegmsh=7;
        int identite=itn->first;
        if (geo==NULL) identite=1;
        f<< dim << " " <<  identite  << " " << typegmsh << " " << itn->second.size() << std::endl;
        for (int i=0;i<itn->second.size();i++)
            {
            MG_ELEMENT_MAILLAGE* ele=itn->second[i];
            f<< itn->second[i]->get_nouveau_numero() << " " ;
            std::vector<int> tabnoeud;
            if (typegmsh==1)
                {
                MG_SEGMENT* seg=(MG_SEGMENT*)ele;
                tabnoeud.push_back(seg->get_noeud1()->get_nouveau_numero());    
                tabnoeud.push_back(seg->get_noeud2()->get_nouveau_numero());    
                }
            if (typegmsh==2)
                {
                MG_TRIANGLE* tri=(MG_TRIANGLE*)ele;
                tabnoeud.push_back(tri->get_noeud1()->get_nouveau_numero());    
                tabnoeud.push_back(tri->get_noeud2()->get_nouveau_numero());    
                tabnoeud.push_back(tri->get_noeud3()->get_nouveau_numero());    
                }
            if (typegmsh==3)
                {
                MG_QUADRANGLE* qua=(MG_QUADRANGLE*)ele;
                tabnoeud.push_back(qua->get_noeud1()->get_nouveau_numero());    
                tabnoeud.push_back(qua->get_noeud2()->get_nouveau_numero());    
                tabnoeud.push_back(qua->get_noeud3()->get_nouveau_numero());    
                tabnoeud.push_back(qua->get_noeud4()->get_nouveau_numero());    
                }
            if (typegmsh==4)
                {
                MG_TETRA* tet=(MG_TETRA*)ele;
                tabnoeud.push_back(tet->get_noeud1()->get_nouveau_numero());    
                tabnoeud.push_back(tet->get_noeud2()->get_nouveau_numero());    
                tabnoeud.push_back(tet->get_noeud3()->get_nouveau_numero());    
                tabnoeud.push_back(tet->get_noeud4()->get_nouveau_numero());    
                }
            if (typegmsh==5)
                {
                MG_HEXA* hex=(MG_HEXA*)ele;
                tabnoeud.push_back(hex->get_noeud1()->get_nouveau_numero());    
                tabnoeud.push_back(hex->get_noeud2()->get_nouveau_numero());    
                tabnoeud.push_back(hex->get_noeud3()->get_nouveau_numero());    
                tabnoeud.push_back(hex->get_noeud4()->get_nouveau_numero());    
                tabnoeud.push_back(hex->get_noeud5()->get_nouveau_numero());    
                tabnoeud.push_back(hex->get_noeud6()->get_nouveau_numero());    
                tabnoeud.push_back(hex->get_noeud7()->get_nouveau_numero());    
                tabnoeud.push_back(hex->get_noeud8()->get_nouveau_numero());    
                }
            if (typegmsh==6)
                {
                MG_PENTA* pen=(MG_PENTA*)ele;
                tabnoeud.push_back(pen->get_noeud1()->get_nouveau_numero());    
                tabnoeud.push_back(pen->get_noeud2()->get_nouveau_numero());    
                tabnoeud.push_back(pen->get_noeud3()->get_nouveau_numero());    
                tabnoeud.push_back(pen->get_noeud4()->get_nouveau_numero());    
                tabnoeud.push_back(pen->get_noeud5()->get_nouveau_numero());    
                tabnoeud.push_back(pen->get_noeud6()->get_nouveau_numero());    
                }
            if (typegmsh==7)
                {
                MG_PYRAMIDE* pyr=(MG_PYRAMIDE*)ele;
                tabnoeud.push_back(pyr->get_noeud1()->get_nouveau_numero());    
                tabnoeud.push_back(pyr->get_noeud2()->get_nouveau_numero());    
                tabnoeud.push_back(pyr->get_noeud3()->get_nouveau_numero());    
                tabnoeud.push_back(pyr->get_noeud4()->get_nouveau_numero());    
                tabnoeud.push_back(pyr->get_noeud5()->get_nouveau_numero());    
                }
            for (int j=0;j<tabnoeud.size();j++)
                f << tabnoeud[j] << " ";
            f << std::endl;
            }
        }
    
    f<<"$EndElements"<< std::endl;
    if (partition.size()>1) gmsh41partition(f,mai,lstnoeud,lstsegment,lsttriangle,lstquadrangle,lsttetra,lsthexa,lstpenta,lstpyramide);
}
 
void MG_EXPORT::gmsh2(std::ofstream &f,MG_MAILLAGE *mai,TPL_MAP_ENTITE<MG_NOEUD*> &lstnoeud,TPL_MAP_ENTITE<MG_SEGMENT*> &lstsegment,   TPL_MAP_ENTITE<MG_TRIANGLE*> &lsttriangle,TPL_MAP_ENTITE<MG_QUADRANGLE*> &lstquadrangle,TPL_MAP_ENTITE<MG_TETRA*> &lsttetra,  TPL_MAP_ENTITE<MG_HEXA*> &lsthexa,TPL_MAP_ENTITE<MG_PENTA*> &lstpenta,TPL_MAP_ENTITE<MG_PYRAMIDE*> &lstpyramide)
{
 
    f << "$MeshFormat"<< std::endl;
    f << "2 0 " << sizeof(double) << std::endl;
    f << "$EndMeshFormat"<< std::endl;
    f << "$Nodes"<< std::endl;
    int nbnoeud=mai->get_nb_mg_noeud();
 
    LISTE_MG_NOEUD::iterator  it;
    f << nbnoeud<< std::endl;
    int i=0;
    //double facteur_unite=mai->get_mg_geometrie()->get_valeur_unite();
    double facteur_unite=1.;
    for (MG_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
    {
        noeud->change_nouveau_numero(i+1);
        double *coord=noeud->get_coord();
        f << i+1 <<  " " << coord[0]*facteur_unite <<  " " << coord[1]*facteur_unite <<  " " << coord[2]*facteur_unite << std::endl;
        i++;
    }
    f<<"$EndNodes"<< std::endl;
    f<<"$Elements"<< std::endl;
    int nbelement=lstnoeud.get_nb()+lstsegment.get_nb()+lsttriangle.get_nb()+lsttetra.get_nb()+lstquadrangle.get_nb()+lsthexa.get_nb()+lstpenta.get_nb()+lstpyramide.get_nb();
    f << nbelement << std::endl;
    i=0;
    TPL_MAP_ENTITE<MG_NOEUD*>::ITERATEUR itnoeud;
    for (MG_NOEUD* no=lstnoeud.get_premier(itnoeud);no;no=lstnoeud.get_suivant(itnoeud))
    {
        long id=0;
        if (no->get_lien_topologie()!=NULL) id=no->get_lien_topologie()->get_id();
        f << ++i << " 15 3 " << couleur(no->get_lien_topologie()) << " " << id << " " << (int)(0.1*(no->get_origine()-1000)+1) << " " <<  no->get_nouveau_numero() << std::endl;
        //no->change_nouveau_numero(i);
    }
    TPL_MAP_ENTITE<MG_SEGMENT *>::ITERATEUR itsegment;
    for (MG_SEGMENT* segment=lstsegment.get_premier(itsegment);segment;segment=lstsegment.get_suivant(itsegment))
    {
        long id=0;
        if (segment->get_lien_topologie()!=NULL) id=segment->get_lien_topologie()->get_id();
        f << ++i << " 1 3 " << couleur(segment->get_lien_topologie()) << " " << id << " " << (int)(0.1*(segment->get_origine()-1000)+1) << " " << segment->get_noeud1()->get_nouveau_numero() << " " << segment->get_noeud2()->get_nouveau_numero() << std::endl;
        segment->change_nouveau_numero(i);
    }
    TPL_MAP_ENTITE<MG_TRIANGLE *>::ITERATEUR ittri;
    for (MG_TRIANGLE* tri=lsttriangle.get_premier(ittri);tri;tri=lsttriangle.get_suivant(ittri))
    {
        long id=0;
        if (tri->get_lien_topologie()!=NULL) id=tri->get_lien_topologie()->get_id();
        f << ++i << " 2 3 " << couleur(tri->get_lien_topologie()) << " " << id << " " << (int)(0.1*(tri->get_origine()-1000)+1) << " "  << tri->get_noeud1()->get_nouveau_numero() << " " << tri->get_noeud2()->get_nouveau_numero() << " " << tri->get_noeud3()->get_nouveau_numero() << std::endl;
        tri->change_nouveau_numero(i);
    }
    TPL_MAP_ENTITE<MG_QUADRANGLE *>::ITERATEUR itquad;
    for (MG_QUADRANGLE* quad=lstquadrangle.get_premier(itquad);quad;quad=lstquadrangle.get_suivant(itquad))
    {
        long id=0;
        if (quad->get_lien_topologie()!=NULL) id=quad->get_lien_topologie()->get_id();
        f << ++i << " 3 3 " << couleur(quad->get_lien_topologie()) << " " << id << " " << (int)(0.1*(quad->get_origine()-1000)+1) << " "  << quad->get_noeud1()->get_nouveau_numero() << " " << quad->get_noeud2()->get_nouveau_numero() << " " << quad->get_noeud3()->get_nouveau_numero() << " " << quad->get_noeud4()->get_nouveau_numero() << std::endl;
        quad->change_nouveau_numero(i);
    }
    TPL_MAP_ENTITE<MG_TETRA *>::ITERATEUR ittet;
    for (MG_TETRA* tet=lsttetra.get_premier(ittet);tet;tet=lsttetra.get_suivant(ittet))
    {
        long id=0;
        if (tet->get_lien_topologie()!=NULL) id=tet->get_lien_topologie()->get_id();
        f << ++i << " 4 3 " << couleur(tet->get_lien_topologie()) << " "<< id << " " << (int)(0.1*(tet->get_origine()-1000)+1) << " " << tet->get_noeud1()->get_nouveau_numero() << " " << tet->get_noeud2()->get_nouveau_numero() << " " << tet->get_noeud3()->get_nouveau_numero() << " " << tet->get_noeud4()->get_nouveau_numero()<< std::endl;
        tet->change_nouveau_numero(i);
    }
    TPL_MAP_ENTITE<MG_HEXA *>::ITERATEUR ithex;
    for (MG_HEXA* hex=lsthexa.get_premier(ithex);hex;hex=lsthexa.get_suivant(ithex))
    {
        long id=0;
        if (hex->get_lien_topologie()!=NULL) id=hex->get_lien_topologie()->get_id();
        f << ++i << " 5 3 " << couleur(hex->get_lien_topologie()) << " "<< id << " " << (int)(0.1*(hex->get_origine()-1000)+1) << " " << hex->get_noeud1()->get_nouveau_numero() << " " << hex->get_noeud2()->get_nouveau_numero() << " " << hex->get_noeud3()->get_nouveau_numero() << " " << hex->get_noeud4()->get_nouveau_numero()<< " " << hex->get_noeud5()->get_nouveau_numero() << " " << hex->get_noeud6()->get_nouveau_numero() << " " << hex->get_noeud7()->get_nouveau_numero() << " " << hex->get_noeud8()->get_nouveau_numero() << std::endl;
        hex->change_nouveau_numero(i);
    }
    TPL_MAP_ENTITE<MG_PENTA *>::ITERATEUR itpen;
    for (MG_PENTA* pen=lstpenta.get_premier(itpen);pen;pen=lstpenta.get_suivant(itpen))
    {
        long id=0;
        if (pen->get_lien_topologie()!=NULL) id=pen->get_lien_topologie()->get_id();
        f << ++i << " 6 3 " << couleur(pen->get_lien_topologie()) << " "<< id << " " << (int)(0.1*(pen->get_origine()-1000)+1) << " " << pen->get_noeud1()->get_nouveau_numero() << " " << pen->get_noeud2()->get_nouveau_numero() << " " << pen->get_noeud3()->get_nouveau_numero() << " " << pen->get_noeud4()->get_nouveau_numero()<< " " << pen->get_noeud5()->get_nouveau_numero() << " " << pen->get_noeud6()->get_nouveau_numero()  << std::endl;
        pen->change_nouveau_numero(i);
    }
    TPL_MAP_ENTITE<MG_PYRAMIDE*>::ITERATEUR itpyr;
    for (MG_PYRAMIDE* pyr=lstpyramide.get_premier(itpyr);pyr;pyr=lstpyramide.get_suivant(itpyr))
    {
        long id=0;
        if (pyr->get_lien_topologie()!=NULL) id=pyr->get_lien_topologie()->get_id();
        f << ++i << " 7 3 " << couleur(pyr->get_lien_topologie()) << " "<< id << " " << (int)(0.1*(pyr->get_origine()-1000)+1) << " " << pyr->get_noeud1()->get_nouveau_numero() << " " << pyr->get_noeud2()->get_nouveau_numero() << " " << pyr->get_noeud3()->get_nouveau_numero() << " " << pyr->get_noeud4()->get_nouveau_numero()<< " " << pyr->get_noeud5()->get_nouveau_numero() <<  std::endl;
        pyr->change_nouveau_numero(i);
    }
    f<<"$EndElements"<< std::endl;
}
 
void MG_EXPORT::gmsh(MG_MAILLAGE* mai,std::string nomfichier)
{
    TPL_MAP_ENTITE<MG_NOEUD*> lstnoeud;
    TPL_MAP_ENTITE<MG_SEGMENT*> lstsegment;
    TPL_MAP_ENTITE<MG_TRIANGLE*> lsttriangle;
    TPL_MAP_ENTITE<MG_TETRA*> lsttetra;
    TPL_MAP_ENTITE<MG_QUADRANGLE*> lstquadrangle;
    TPL_MAP_ENTITE<MG_HEXA*> lsthexa;
    TPL_MAP_ENTITE<MG_PENTA*> lstpenta;
    TPL_MAP_ENTITE<MG_PYRAMIDE*> lstpyramide;
    decompose_maillage(mai,lstnoeud,lstsegment,lsttriangle,lstquadrangle,lsttetra,lsthexa,lstpenta,lstpyramide);
    std::ofstream f;
    std::string file=nomfichier+".msh";
    f.open(file.c_str(),std::ios::out);
    f.precision(16);
    f.setf(std::ios::showpoint);
    
    double versiongmsh=paramversiongmsh();
    if (versiongmsh<4.) gmsh2(f,mai,lstnoeud,lstsegment,lsttriangle,lstquadrangle,lsttetra,lsthexa,lstpenta,lstpyramide);
    else gmsh41(f,mai,lstnoeud,lstsegment,lsttriangle,lstquadrangle,lsttetra,lsthexa,lstpenta,lstpyramide);
    
    
    
    MG_GESTIONNAIRE* gest=mai->get_gestionnaire();
    int nbsol=gest->get_nb_mg_solution();
    int ok=0;
    if (nbsol!=0)
          {
          for (int i=0;i<nbsol;i++)
              {
              MG_SOLUTION* sol=gest->get_mg_solution(i);
              if (sol->get_maillage()==mai) ok=1;
              }
          }
    if (ok==1)
          {
          for (int i=0;i<nbsol;i++)
            {
            MG_SOLUTION* sol=gest->get_mg_solution(i);
            if (sol->get_maillage()!=mai) continue;
            int nb_champs=sol->get_nb_champ();
            for (int j=0;j<nb_champs;j++)
                {
                int typesol=sol->get_entite_solution();
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_NOEUD) f <<"$NodeData"<< std::endl;  
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1) f <<"$ElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2) f <<"$ElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3) f <<"$ElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1_NOEUD) f <<"$ElementNodeData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2_NOEUD) f <<"$ElementNodeData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3_NOEUD) f <<"$ElementNodeData"<< std::endl;
                f<<"1"<<std::endl;
                std::string nom=sol->get_nom()+ "_" + sol->get_legende(j);
                for (int k=0;k<nom.length();k++) if (nom[k]==' ') nom[k]='_';
                f<<"\""+nom+"\""<<std::endl;
                f<<"1"<<std::endl;
                f<<"0.0"<<std::endl;
                f<<"3"<<std::endl;
                f<<"0"<<std::endl;
                f<<sol->get_dim_solution()<<std::endl;
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_NOEUD) 
                      {
                      int k=0;
                      f<<mai->get_nb_mg_noeud()<<std::endl;
              TPL_MAP_ENTITE<MG_NOEUD*>::ITERATEUR it;
                      for (MG_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
                             {
                             f<< noeud->get_nouveau_numero() << " " ;
                             for (int coord=0;coord<sol->get_dim_solution();coord++)
                              f << " " << sol->lire(k,j,coord);
                             f<<std::endl;
                             k++;
                            }
                              
                      }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3) 
                            {
                            int k=0;
                            int nb1=lsttetra.get_nb()+lsthexa.get_nb();
                            f<<nb1<<std::endl;
                            TPL_MAP_ENTITE<MG_TETRA *>::ITERATEUR ittet;
                            for (MG_TETRA* tet=lsttetra.get_premier(ittet);tet;tet=lsttetra.get_suivant(ittet))
                                {
                                  f<< tet->get_nouveau_numero() << " " ;
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << " " << sol->lire(k,j,coord);
                                f<<std::endl;
                                k++;
                                }
                            TPL_MAP_ENTITE<MG_HEXA *>::ITERATEUR ithex;
                            for (MG_HEXA* hex=lsthexa.get_premier(ithex);hex;hex=lsthexa.get_suivant(ithex))
                              {
                              f<< hex->get_nouveau_numero() << " " ;
                              for (int coord=0;coord<sol->get_dim_solution();coord++)
                                  f << " " << sol->lire(k,j,coord);
                              f<<std::endl;
                              k++;
                              }
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2) 
                            {
                            int k=0;
                            int nb2=lsttriangle.get_nb()+lstquadrangle.get_nb();
                            f<<nb2<<std::endl;
                            TPL_MAP_ENTITE<MG_TRIANGLE *>::ITERATEUR ittri;
                            for (MG_TRIANGLE* tri=lsttriangle.get_premier(ittri);tri;tri=lsttriangle.get_suivant(ittri))
                                {
                                  f<< tri->get_nouveau_numero() << " ";
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << " " << sol->lire(k,j,coord);
                                  f<<std::endl;
                                  k++;
                                }
                            TPL_MAP_ENTITE<MG_QUADRANGLE *>::ITERATEUR itquad;
                            for (MG_QUADRANGLE* quad=lstquadrangle.get_premier(itquad);quad;quad=lstquadrangle.get_suivant(itquad))
                              {
                              f<< quad->get_nouveau_numero() << " ";
                              for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << " " << sol->lire(k,j,coord);
                              f<<std::endl;
                              k++;
                              }
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1) 
                            {
                            int k=0;
                            int nb3=lstsegment.get_nb();
                            f<<nb3<<std::endl;
                            TPL_MAP_ENTITE<MG_SEGMENT *>::ITERATEUR itsegment;
                            for (MG_SEGMENT* segment=lstsegment.get_premier(itsegment);segment;segment=lstsegment.get_suivant(itsegment))
                                {
                                  f<< segment->get_nouveau_numero() << " ";
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << " " << sol->lire(k,j,coord);
                                  f<<std::endl;
                                  k++;
                                }
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1_NOEUD) 
                            {
                            int nb1=mai->get_nb_mg_segment();
                            f<<nb1<<std::endl;
                            LISTE_MG_SEGMENT::iterator it;
                            int k=0;
                            for (MG_SEGMENT* ele=mai->get_premier_segment(it);ele;ele=mai->get_suivant_segment(it))
                              {
                              int num=2;
                              f<<ele->get_nouveau_numero()<< " " << num <<" ";
                              for (int l=0;l<num;l++)
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << sol->lire(k,j,coord,l)  << " ";
                              f << std::endl;
                              k++;
                              }
                            }    
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2_NOEUD) 
                            {
                            int nb1=mai->get_nb_mg_triangle()+mai->get_nb_mg_quadrangle();
                            f<<nb1<<std::endl;
                            int k=0;
                            LISTE_MG_TRIANGLE::iterator it;
                            for (MG_TRIANGLE* ele=mai->get_premier_triangle(it);ele;ele=mai->get_suivant_triangle(it))
                              {
                              int num=3;
                              f<<ele->get_nouveau_numero()<< " " << num <<" ";
                              for (int l=0;l<num;l++)
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << sol->lire(k,j,coord,l)  << " ";
                              f << std::endl;
                              k++;
                              }
                            LISTE_MG_QUADRANGLE::iterator itq;
                            for (MG_QUADRANGLE* ele=mai->get_premier_quadrangle(itq);ele;ele=mai->get_suivant_quadrangle(itq))
                              {
                              int num=4;
                              f<<ele->get_nouveau_numero()<< " " << num <<" ";
                              for (int l=0;l<num;l++)
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << sol->lire(k,j,coord,l)  << " ";
                              f << std::endl;
                              k++;
                              }
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3_NOEUD) 
                            {
                            int nb1=mai->get_nb_mg_tetra()+mai->get_nb_mg_hexa();
                            f<<nb1<<std::endl;
                            int k=0;
                            LISTE_MG_TETRA::iterator it;
                            for (MG_TETRA* ele=mai->get_premier_tetra(it);ele;ele=mai->get_suivant_tetra(it))
                              {
                              int num=4;
                              f<<ele->get_nouveau_numero()<< " " << num <<" ";
                              for (int l=0;l<num;l++)
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << sol->lire(k,j,coord,l)  << " ";
                              f << std::endl;
                              k++;
                              }
                            LISTE_MG_HEXA::iterator ith;
                            for (MG_HEXA* ele=mai->get_premier_hexa(ith);ele;ele=mai->get_suivant_hexa(ith))
                              {
                              int num=8;
                              f<<ele->get_nouveau_numero()<< " " << num <<" ";
                              for (int l=0;l<num;l++)
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << sol->lire(k,j,coord,l)  << " ";
                              f << std::endl;
                              k++;
                              }
                            }  
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_NOEUD) f <<"$EndNodeData"<< std::endl;  
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1) f <<"$EndElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2) f <<"$EndElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3) f <<"$EndElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1_NOEUD) f <<"$ElementEndNodeData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2_NOEUD) f <<"$ElementEndNodeData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3_NOEUD) f <<"$ElementEndNodeData"<< std::endl;
                }
           
            }
          }
    
    f.close();
    
   
}
 
void MG_EXPORT::gmsh_avec_correspondance(class FEM_MAILLAGE* mai,std::string fichier)
{
gmsh(mai,fichier);
std::ofstream f;
std::string file=fichier+".cormsh";
f.open(file.c_str(),std::ios::out);
f.precision(16);
f.setf(std::ios::showpoint);
 
bool numopt=false;
LISTE_FEM_NOEUD::iterator  it;
for (FEM_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
{
  if (noeud->get_numero_opt()!=-1)
    numopt=true;
  if (numopt)
    f << "NO-" << noeud->get_numero() << "::" << noeud->get_id() << "::" << noeud->get_numero_opt() << std::endl;
  else if(!numopt)
    f << "NO-" << noeud->get_numero() << "::" << noeud->get_id() << std::endl;
}
         
LISTE_FEM_ELEMENT0::iterator itelementnoeud;
for (FEM_ELEMENT0* noeud=mai->get_premier_element0(itelementnoeud);noeud;noeud=mai->get_suivant_element0(itelementnoeud))  
        f << "NL-" << noeud->get_numero() << "::" << noeud->get_id() << std::endl;; 
LISTE_FEM_ELEMENT1::iterator itsegment;
for (FEM_ELEMENT1* segment=mai->get_premier_element1(itsegment);segment;segment=mai->get_suivant_element1(itsegment))
        f << "E1-" << segment->get_numero() << "::" << segment->get_id() << std::endl;; 
LISTE_FEM_ELEMENT2::iterator ittriangle;
for (FEM_ELEMENT2* triangle=mai->get_premier_element2(ittriangle);triangle;triangle=mai->get_suivant_element2(ittriangle))
        f << "E2-" << triangle->get_numero() << "::" << triangle->get_id() << std::endl;; 
LISTE_FEM_ELEMENT3::iterator ittetra;
for (FEM_ELEMENT3* tetra=mai->get_premier_element3(ittetra);tetra;tetra=mai->get_suivant_element3(ittetra))
        f << "E3-" << tetra->get_numero() << "::" << tetra->get_id() << std::endl;; 
LISTE_XFEM_ELEMENT0::iterator itxelementnoeud;
for (XFEM_ELEMENT0* noeud=mai->get_premier_xelement0(itxelementnoeud);noeud;noeud=mai->get_suivant_xelement0(itxelementnoeud))      
        f << "X0-" << noeud->get_numero() << "::" << noeud->get_id() << std::endl;; 
LISTE_XFEM_ELEMENT1::iterator itxsegment;
for (XFEM_ELEMENT1* segment=mai->get_premier_xelement1(itxsegment);segment;segment=mai->get_suivant_xelement1(itxsegment))      
        f << "X1-" << segment->get_numero() << "::" << segment->get_id() << std::endl;; 
LISTE_XFEM_ELEMENT2::iterator itxtriangle;
for (XFEM_ELEMENT2* triangle=mai->get_premier_xelement2(itxtriangle);triangle;triangle=mai->get_suivant_xelement2(itxtriangle))
        f << "X2-" << triangle->get_numero() << "::" << triangle->get_id() << std::endl;; 
LISTE_XFEM_ELEMENT3::iterator itxtetra;
for (XFEM_ELEMENT3* xtetra=mai->get_premier_xelement3(itxtetra);xtetra;xtetra=mai->get_suivant_xelement3(itxtetra))
        f << "X3-" << xtetra->get_numero() << "::" << xtetra->get_id() << std::endl; 
   
  
}  
 
void MG_EXPORT::gmsh_avec_correspondance(class MG_MAILLAGE* mai,std::string fichier)
{
gmsh(mai,fichier);
std::ofstream f;
std::string file=fichier+".cormsh";
f.open(file.c_str(),std::ios::out);
f.precision(16);
f.setf(std::ios::showpoint);
LISTE_MG_NOEUD::iterator  it;
for (MG_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
        f << "NO-" << noeud->get_nouveau_numero() << "::" << noeud->get_id() << std::endl;; 
LISTE_MG_SEGMENT::iterator  its;
for (MG_SEGMENT* seg=mai->get_premier_segment(its);seg;seg=mai->get_suivant_segment(its))
        f << "SG-" << seg->get_nouveau_numero() << "::" << seg->get_id() << std::endl;; 
LISTE_MG_TRIANGLE::iterator  itt;
for (MG_TRIANGLE* tri=mai->get_premier_triangle(itt);tri;tri=mai->get_suivant_triangle(itt))
        f << "TR-" << tri->get_nouveau_numero() << "::" << tri->get_id() << std::endl;; 
LISTE_MG_QUADRANGLE::iterator  itq;
for (MG_QUADRANGLE* quad=mai->get_premier_quadrangle(itq);quad;quad=mai->get_suivant_quadrangle(itq))
        f << "QR-" << quad->get_nouveau_numero() << "::" << quad->get_id() << std::endl;; 
LISTE_MG_TETRA::iterator  itte;
for (MG_TETRA* tet=mai->get_premier_tetra(itte);tet;tet=mai->get_suivant_tetra(itte))
        f << "TE-" << tet->get_nouveau_numero() << "::" << tet->get_id() << std::endl;; 
LISTE_MG_HEXA::iterator  ith;
for (MG_HEXA* hex=mai->get_premier_hexa(ith);hex;hex=mai->get_suivant_hexa(ith))
        f << "HX-" << hex->get_nouveau_numero() << "::" << hex->get_id() << std::endl;; 
 
  
 
 
}  
void MG_EXPORT::gmsh2(std::ofstream &f,FCT_TAILLE_FEM_SOLUTION* carte)
{
FEM_MAILLAGE* mai=carte->get_maillage();
f << "$MeshFormat"<< std::endl;
    f << "2 0 " << sizeof(double) << std::endl;
    f << "$EndMeshFormat"<< std::endl;
    f << "$Nodes"<< std::endl;
    int nbnoeud=mai->get_nb_fem_noeud();
    LISTE_FEM_NOEUD::iterator  it;
    f << nbnoeud<< std::endl;
    int i=0;
    for (FEM_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
    {
        noeud->change_numero(i+1);
        double *coord=noeud->get_coord();
        f << i+1 <<  " " << coord[0] <<  " " << coord[1] <<  " " << coord[2] << std::endl;
        i++;
    }
    f<<"$EndNodes"<< std::endl;
    f<<"$Elements"<< std::endl;
    int nbelement=mai->get_nb_fem_element0()+mai->get_nb_fem_element1()+mai->get_nb_fem_element2()+mai->get_nb_fem_element3()+mai->get_nb_xfem_element0()+mai->get_nb_xfem_element1()+mai->get_nb_xfem_element2()+mai->get_nb_xfem_element3();
    f << nbelement << std::endl;
    i=0;
    LISTE_FEM_ELEMENT0::iterator itelementnoeud;
    for (FEM_ELEMENT0* noeud=mai->get_premier_element0(itelementnoeud);noeud;noeud=mai->get_suivant_element0(itelementnoeud))
      {
      unsigned long idref=0;
      if (noeud->get_lien_topologie()!=NULL) idref=noeud->get_lien_topologie()->get_id();
      f << ++i << " 15 2 1 " << idref << " " << noeud->get_fem_noeud(0)->get_numero() << std::endl;
      }
    LISTE_FEM_ELEMENT1::iterator itsegment;
    for (FEM_ELEMENT1* segment=mai->get_premier_element1(itsegment);segment;segment=mai->get_suivant_element1(itsegment))
    {
        unsigned long idref=0;
        if (segment->get_lien_topologie()!=NULL) idref=segment->get_lien_topologie()->get_id();
        if (mai->get_degre()==1) f << ++i << " 1 2 1 " << idref << " " << segment->get_fem_noeud(0)->get_numero() << " " << segment->get_fem_noeud(1)->get_numero() << std::endl;
        if (mai->get_degre()==2) f << ++i << " 8 2 1 " << idref << " " << segment->get_fem_noeud(0)->get_numero() << " " << segment->get_fem_noeud(2)->get_numero() << " " << segment->get_fem_noeud(1)->get_numero() << std::endl;
        segment->change_numero(i);
    }
    LISTE_FEM_ELEMENT2::iterator ittriangle;
    for (FEM_ELEMENT2* triangle=mai->get_premier_element2(ittriangle);triangle;triangle=mai->get_suivant_element2(ittriangle))
    {
        unsigned long idref=0;
        if (triangle->get_lien_topologie()!=NULL) idref=triangle->get_lien_topologie()->get_id();
        int nb=triangle->get_nb_fem_noeud();
        if (nb==3) f << ++i << " 2 2 1 " << idref << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << std::endl;
        if (nb==6) f << ++i << " 9 2 1 " << idref << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << " " << triangle->get_fem_noeud(4)->get_numero() <<  " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(3)->get_numero() << " " << triangle->get_fem_noeud(5)->get_numero() << std::endl;
        if (nb==4) f << ++i << " 3 2 1 " << idref << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << " " << triangle->get_fem_noeud(3)->get_numero() << std::endl;
        if (nb==8) f << ++i << " 16 2 1 " << idref << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << " " << triangle->get_fem_noeud(4)->get_numero() <<  " " << triangle->get_fem_noeud(6)->get_numero() << " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(3)->get_numero()<< " " << triangle->get_fem_noeud(5)->get_numero()<< " " << triangle->get_fem_noeud(7)->get_numero() << std::endl;
        triangle->change_numero(i);
    }
    LISTE_FEM_ELEMENT3::iterator ittetra;
    for (FEM_ELEMENT3* tetra=mai->get_premier_element3(ittetra);tetra;tetra=mai->get_suivant_element3(ittetra))
    {
        unsigned long idref=0;
        if (tetra->get_lien_topologie()!=NULL) idref=tetra->get_lien_topologie()->get_id();
        int nb=tetra->get_nb_fem_noeud();
        if (nb==4) f << ++i << " 4 3 1 " << idref << " " << tetra->get_etat(0) <<" " << tetra->get_fem_noeud(0)->get_numero() << " " << tetra->get_fem_noeud(1)->get_numero() << " " << tetra->get_fem_noeud(2)->get_numero() << " " << tetra->get_fem_noeud(3)->get_numero() << std::endl;
        if (nb==10) f << ++i << " 11 3 1 " << idref << " " << tetra->get_etat(0) <<" "  << tetra->get_fem_noeud(0)->get_numero() << " " << tetra->get_fem_noeud(2)->get_numero() << " " << tetra->get_fem_noeud(4)->get_numero() << " " << tetra->get_fem_noeud(9)->get_numero() << " " << tetra->get_fem_noeud(1)->get_numero() << " " << tetra->get_fem_noeud(3)->get_numero() << " " << tetra->get_fem_noeud(5)->get_numero() << " " << tetra->get_fem_noeud(6)->get_numero() << " " << tetra->get_fem_noeud(8)->get_numero() << " " << tetra->get_fem_noeud(7)->get_numero() << std::endl;
        if (nb==8) f << ++i << " 5 3 1 " << idref << " " << tetra->get_etat(0) <<" "  << tetra->get_fem_noeud(0)->get_numero() << " " << tetra->get_fem_noeud(1)->get_numero() << " " << tetra->get_fem_noeud(2)->get_numero() << " " << tetra->get_fem_noeud(3)->get_numero()<< " " << tetra->get_fem_noeud(4)->get_numero()<< " " << tetra->get_fem_noeud(5)->get_numero()<< " " << tetra->get_fem_noeud(6)->get_numero()<< " " << tetra->get_fem_noeud(7)->get_numero()<< std::endl;
        if (nb==20) f << ++i << " 17 3 1 " << idref << " " << tetra->get_etat(0) <<" "  << tetra->get_fem_noeud(0)->get_numero() << " " << tetra->get_fem_noeud(2)->get_numero() << " " << tetra->get_fem_noeud(4)->get_numero() << " " << tetra->get_fem_noeud(6)->get_numero() << " " << tetra->get_fem_noeud(12)->get_numero() << " " << tetra->get_fem_noeud(14)->get_numero() << " " << tetra->get_fem_noeud(16)->get_numero() << " " << tetra->get_fem_noeud(18)->get_numero() << " " << tetra->get_fem_noeud(1)->get_numero() << " " << tetra->get_fem_noeud(7)->get_numero()<< " " << tetra->get_fem_noeud(8)->get_numero()<< " " << tetra->get_fem_noeud(3)->get_numero()<< " " << tetra->get_fem_noeud(9)->get_numero()<< " " << tetra->get_fem_noeud(5)->get_numero()<< " " << tetra->get_fem_noeud(10)->get_numero()<< " " << tetra->get_fem_noeud(11)->get_numero()<< " " << tetra->get_fem_noeud(13)->get_numero()<< " " << tetra->get_fem_noeud(19)->get_numero()<< " " << tetra->get_fem_noeud(15)->get_numero()<< " " << tetra->get_fem_noeud(
17)->get_numero() << std::endl;
        tetra->change_numero(i);
    }   
 f<<"$EndElements"<< std::endl;    
}
 
void MG_EXPORT::gmsh41(std::ofstream &f,FEM_MAILLAGE* mai)
{
f << "$MeshFormat"<< std::endl;
    f << "4.1 0 " << sizeof(double) << std::endl;
    f << "$EndMeshFormat"<< std::endl;
    std::map<unsigned long,std::map<unsigned long,std::vector<FEM_ELEMENT_MAILLAGE*> > > entiteno;
    LISTE_FEM_NOEUD::iterator  it;
    int i=0;
    for (FEM_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
    {
    unsigned long id=0;
    int dim=3;
    
    if (mai->get_nb_fem_element3()==0) dim=2;
    else if (mai->get_nb_fem_element2()==0) dim=1;
    else if (mai->get_nb_fem_element1()==0) dim=0;
    
    if (noeud->get_lien_topologie()!=NULL) 
        {
        id=noeud->get_lien_topologie()->get_id();
        dim=noeud->get_lien_topologie()->get_dimension();
        }
    entiteno[dim][id].push_back(noeud);
    noeud->change_numero(i+1);
    i++;
    }
    int nbblocnoeud=0;
    for (std::map<unsigned long,std::map<unsigned long,std::vector<FEM_ELEMENT_MAILLAGE*> > >::iterator it=entiteno.begin();it!=entiteno.end();it++)
        nbblocnoeud=nbblocnoeud+it->second.size();
    int nbnoeud=mai->get_nb_fem_noeud();
    MG_GEOMETRIE* geo=mai->get_mg_maillage()->get_mg_geometrie();
    if (geo!=NULL) gmsh41entities(f,geo);
    f << "$Nodes"<< std::endl;
    f << nbblocnoeud << " " <<  nbnoeud << " 1 " << nbnoeud << std::endl;
    for (std::map<unsigned long,std::map<unsigned long,std::vector<FEM_ELEMENT_MAILLAGE*> > >::iterator it=entiteno.begin();it!=entiteno.end();it++)
    for (std::map<unsigned long,std::vector<FEM_ELEMENT_MAILLAGE*> > ::iterator it2=it->second.begin();it2!=it->second.end();it2++)
    {
        f << it->first << " " << it2->first << " 0 " << it2->second.size() << std::endl;
        for (int i=0;i<it2->second.size();i++)
            f << it2->second[i]->get_numero() << std::endl;
        for (int i=0;i<it2->second.size();i++)
            {
            FEM_NOEUD* no=(FEM_NOEUD*)it2->second[i];
            f << no->get_x()<< " "  << no->get_y()<< " "  << no->get_z() << std::endl;
            }
    
    }
    f<<"$EndNodes"<< std::endl;
    std::map<unsigned long,std::map<unsigned long,std::vector<FEM_ELEMENT_MAILLAGE*> > > entiteel;
    i=0;
    LISTE_FEM_ELEMENT0::iterator itelementnoeud;
    for (FEM_ELEMENT0* noeud=mai->get_premier_element0(itelementnoeud);noeud;noeud=mai->get_suivant_element0(itelementnoeud))
        {
        unsigned long id=0;
        if (noeud->get_lien_topologie()!=NULL) id=noeud->get_lien_topologie()->get_id();
        entiteel[15][id].push_back(noeud);
        i++;
        noeud->change_numero(i);    
        }
    LISTE_FEM_ELEMENT1::iterator itsegment;
    for (FEM_ELEMENT1* segment=mai->get_premier_element1(itsegment);segment;segment=mai->get_suivant_element1(itsegment))
        {
        unsigned long id=0;
        if (segment->get_lien_topologie()!=NULL) id=segment->get_lien_topologie()->get_id();
        int nb=segment->get_nb_fem_noeud();
        if (nb==2) entiteel[1][id].push_back(segment);
        if (nb==3) entiteel[8][id].push_back(segment);
        i++;
        segment->change_numero(i);    
        }
    LISTE_FEM_ELEMENT2::iterator ittriangle;
    for (FEM_ELEMENT2* triangle=mai->get_premier_element2(ittriangle);triangle;triangle=mai->get_suivant_element2(ittriangle))
        {
        unsigned long id=0;
        if (triangle->get_lien_topologie()!=NULL) id=triangle->get_lien_topologie()->get_id();
        int nb=triangle->get_nb_fem_noeud();
        if (nb==3) entiteel[2][id].push_back(triangle);
        if (nb==4) entiteel[3][id].push_back(triangle);
        if (nb==6) entiteel[9][id].push_back(triangle);
        if (nb==8) entiteel[16][id].push_back(triangle);
        i++;
        triangle->change_numero(i);    
        }
    LISTE_FEM_ELEMENT3::iterator ittetra;
    for (FEM_ELEMENT3* tetra=mai->get_premier_element3(ittetra);tetra;tetra=mai->get_suivant_element3(ittetra))
        {
        unsigned long id=0;
        if (tetra->get_lien_topologie()!=NULL) id=tetra->get_lien_topologie()->get_id();
        int nb=tetra->get_nb_fem_noeud();
        if (nb==4) entiteel[4][id].push_back(tetra);
        if (nb==8) entiteel[5][id].push_back(tetra);
        if (nb==6) entiteel[6][id].push_back(tetra);
        if (nb==10) entiteel[11][id].push_back(tetra);
        if (nb==20) entiteel[17][id].push_back(tetra);
        if (nb==15) entiteel[18][id].push_back(tetra);
        i++;
        tetra->change_numero(i);    
        }
    f<<"$Elements"<< std::endl;
    int nbbloc=0;
    for (std::map<unsigned long,std::map<unsigned long,std::vector<FEM_ELEMENT_MAILLAGE*> > >:: iterator itmap1=entiteel.begin();itmap1!=entiteel.end();itmap1++)
        nbbloc=nbbloc+itmap1->second.size();
    f << nbbloc << " " << i << " 1 " << i << std::endl;
    for (std::map<unsigned long,std::map<unsigned long,std::vector<FEM_ELEMENT_MAILLAGE*> > >:: iterator itmap1=entiteel.begin();itmap1!=entiteel.end();itmap1++)
        for (std::map<unsigned long,std::vector<FEM_ELEMENT_MAILLAGE*> > :: iterator itmap2=itmap1->second.begin();itmap2!=itmap1->second.end();itmap2++)
        {
        int dim;
        if (itmap1->first==15) dim=0;
        if (itmap1->first==1) dim=1;
        if (itmap1->first==8) dim=1;
        if (itmap1->first==2) dim=2;
        if (itmap1->first==3) dim=2;
        if (itmap1->first==9) dim=2;
        if (itmap1->first==16) dim=2;
        if (itmap1->first==4) dim=3;
        if (itmap1->first==5) dim=3;
        if (itmap1->first==6) dim=3;
        if (itmap1->first==11) dim=3;
        if (itmap1->first==17) dim=3;
        if (itmap1->first==18) dim=3;
        f << dim << " "<< itmap2->first << " " << itmap1->first << " " << itmap2->second.size() << std::endl;   
        for (int i=0;i<itmap2->second.size();i++)
            {
             f << itmap2->second[i]->get_numero() << " " ;
             if (itmap1->first==15) 
                {
                FEM_ELEMENT0* ele=(FEM_ELEMENT0*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero();
                }
             if (itmap1->first==1) 
                {
                FEM_ELEMENT1* ele=(FEM_ELEMENT1*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(1)->get_numero();
                }
             if (itmap1->first==8) 
                {
                FEM_ELEMENT1* ele=(FEM_ELEMENT1*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(2)->get_numero() << " "; 
                f << ele->get_fem_noeud(1)->get_numero();
                }
             if (itmap1->first==2) 
                {
                FEM_ELEMENT2* ele=(FEM_ELEMENT2*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(1)->get_numero() << " "; 
                f << ele->get_fem_noeud(2)->get_numero();
                }
             if (itmap1->first==3) 
                {
                FEM_ELEMENT2* ele=(FEM_ELEMENT2*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(1)->get_numero() << " "; 
                f << ele->get_fem_noeud(2)->get_numero()<< " "; 
                f << ele->get_fem_noeud(3)->get_numero();
                }
             if (itmap1->first==9) 
                {
                FEM_ELEMENT2* ele=(FEM_ELEMENT2*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(2)->get_numero() << " "; 
                f << ele->get_fem_noeud(4)->get_numero() << " "; 
                f << ele->get_fem_noeud(1)->get_numero() << " "; 
                f << ele->get_fem_noeud(3)->get_numero() << " "; 
                f << ele->get_fem_noeud(5)->get_numero();
                }
             if (itmap1->first==16) 
                {
                FEM_ELEMENT2* ele=(FEM_ELEMENT2*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(2)->get_numero() << " "; 
                f << ele->get_fem_noeud(4)->get_numero()<< " "; 
                f << ele->get_fem_noeud(6)->get_numero() << " ";
                f << ele->get_fem_noeud(1)->get_numero() << " "; 
                f << ele->get_fem_noeud(3)->get_numero() << " "; 
                f << ele->get_fem_noeud(5)->get_numero()<< " "; 
                f << ele->get_fem_noeud(7)->get_numero();
                }
            if (itmap1->first==4)
                {
                FEM_ELEMENT3* ele=(FEM_ELEMENT3*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(1)->get_numero() << " "; 
                f << ele->get_fem_noeud(2)->get_numero()<< " "; 
                f << ele->get_fem_noeud(3)->get_numero();
                }
            if (itmap1->first==5) 
                {
                FEM_ELEMENT3* ele=(FEM_ELEMENT3*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(1)->get_numero() << " "; 
                f << ele->get_fem_noeud(2)->get_numero()<< " "; 
                f << ele->get_fem_noeud(3)->get_numero()<< " "; 
                f << ele->get_fem_noeud(4)->get_numero()<< " "; 
                f << ele->get_fem_noeud(5)->get_numero()<< " "; 
                f << ele->get_fem_noeud(6)->get_numero()<< " "; 
                f << ele->get_fem_noeud(7)->get_numero();
                }
            if (itmap1->first==6)
                {
                FEM_ELEMENT3* ele=(FEM_ELEMENT3*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(1)->get_numero() << " "; 
                f << ele->get_fem_noeud(2)->get_numero()<< " "; 
                f << ele->get_fem_noeud(3)->get_numero()<< " "; 
                f << ele->get_fem_noeud(4)->get_numero()<< " "; 
                f << ele->get_fem_noeud(5)->get_numero(); 
                }
            if (itmap1->first==11) 
                {
                FEM_ELEMENT3* ele=(FEM_ELEMENT3*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(2)->get_numero() << " "; 
                f << ele->get_fem_noeud(4)->get_numero()<< " "; 
                f << ele->get_fem_noeud(9)->get_numero()<< " "; 
                f << ele->get_fem_noeud(1)->get_numero()<< " "; 
                f << ele->get_fem_noeud(3)->get_numero()<< " "; 
                f << ele->get_fem_noeud(5)->get_numero()<< " "; 
                f << ele->get_fem_noeud(6)->get_numero()<< " "; 
                f << ele->get_fem_noeud(8)->get_numero()<< " "; 
                f << ele->get_fem_noeud(7)->get_numero();
                }
            if (itmap1->first==17) 
                {
                FEM_ELEMENT3* ele=(FEM_ELEMENT3*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(2)->get_numero() << " "; 
                f << ele->get_fem_noeud(4)->get_numero()<< " "; 
                f << ele->get_fem_noeud(6)->get_numero()<< " "; 
                f << ele->get_fem_noeud(12)->get_numero()<< " "; 
                f << ele->get_fem_noeud(14)->get_numero()<< " "; 
                f << ele->get_fem_noeud(16)->get_numero()<< " "; 
                f << ele->get_fem_noeud(18)->get_numero()<< " "; 
                f << ele->get_fem_noeud(1)->get_numero()<< " "; 
                f << ele->get_fem_noeud(7)->get_numero()<< " ";
                f << ele->get_fem_noeud(8)->get_numero()<< " "; 
                f << ele->get_fem_noeud(3)->get_numero()<< " ";
                f << ele->get_fem_noeud(9)->get_numero()<< " "; 
                f << ele->get_fem_noeud(5)->get_numero()<< " ";
                f << ele->get_fem_noeud(10)->get_numero()<< " "; 
                f << ele->get_fem_noeud(11)->get_numero()<< " ";
                f << ele->get_fem_noeud(13)->get_numero()<< " "; 
                f << ele->get_fem_noeud(19)->get_numero()<< " ";
                f << ele->get_fem_noeud(15)->get_numero()<< " "; 
                f << ele->get_fem_noeud(17)->get_numero();
                }
                                
 
            if (itmap1->first==18) 
                {
                FEM_ELEMENT3* ele=(FEM_ELEMENT3*)itmap2->second[i];
                f << ele->get_fem_noeud(0)->get_numero() << " "; 
                f << ele->get_fem_noeud(2)->get_numero() << " "; 
                f << ele->get_fem_noeud(4)->get_numero()<< " "; 
                f << ele->get_fem_noeud(9)->get_numero()<< " "; 
                f << ele->get_fem_noeud(11)->get_numero()<< " "; 
                f << ele->get_fem_noeud(13)->get_numero()<< " "; 
                f << ele->get_fem_noeud(1)->get_numero()<< " "; 
                f << ele->get_fem_noeud(5)->get_numero()<< " "; 
                f << ele->get_fem_noeud(6)->get_numero()<< " "; 
                f << ele->get_fem_noeud(3)->get_numero()<< " ";
                f << ele->get_fem_noeud(7)->get_numero()<< " "; 
                f << ele->get_fem_noeud(8)->get_numero()<< " ";
                f << ele->get_fem_noeud(10)->get_numero()<< " "; 
                f << ele->get_fem_noeud(14)->get_numero()<< " ";
                f << ele->get_fem_noeud(12)->get_numero(); 
                }
                 f << std::endl;
            }
        }
 
 f<<"$EndElements"<< std::endl;   
}
 
double MG_EXPORT::paramversiongmsh(void)
{
char fichierparam[300];
FILE *f=popen("gmsh -version 2>&1 | cut -b 1","r");
double versioninstalle;
fscanf(f,"%lf",&versioninstalle);
sprintf(fichierparam,"%s/.magic",getenv("HOME"));
OT_PARAMETRES param;
param.ajouter("Version_gmsh",versioninstalle,OT_PARAMETRES::DOUBLE,"Version de gmsh utilisée");
param.lire(fichierparam);
param.enregistrer(fichierparam);
double versiongmsh=param.get_valeur((char*)"Version_gmsh");
return versiongmsh;   
}
 
 
 
void MG_EXPORT::gmsh(FCT_TAILLE_FEM_SOLUTION* carte,std::string fichier)
{
FEM_MAILLAGE* mai=carte->get_maillage();
std::ofstream f;
std::string file=fichier+".msh";
    f.open(file.c_str(),std::ios::out);
    f.precision(16);
    f.setf(std::ios::showpoint);
    double versiongmsh=paramversiongmsh();
    if (versiongmsh<4.) gmsh2(f,carte);
    else gmsh41(f,carte->get_maillage());
   
    
FEM_SOLUTION* sol=carte->get_solution();
f <<"$NodeData"<< std::endl;  
f<<"1"<<std::endl;
std::string nom=sol->get_nom()+ "_" + sol->get_legende(0);
for (int k=0;k<nom.length();k++) if (nom[k]==' ') nom[k]='_';
f<<"\""+nom+"\""<<std::endl;
f<<"1"<<std::endl;
f<<"0.0"<<std::endl;
f<<"3"<<std::endl;
f<<"0"<<std::endl;
f<<sol->get_dim_solution()<<std::endl;
f<<mai->get_nb_fem_noeud()<<std::endl;
int k=0;
LISTE_FEM_NOEUD::iterator itn;
for (FEM_NOEUD* noeud=mai->get_premier_noeud(itn);noeud;noeud=mai->get_suivant_noeud(itn))
    {
    f<< noeud->get_numero();
    for (int coord=0;coord<sol->get_dim_solution();coord++)
          f << " " << sol->lire(k,0,coord);
    f << std::endl; 
    k++;
    }
f <<"$EndNodeData"<< std::endl; 
if (carte->get_isotrope())
  {
  f <<"$NodeData"<< std::endl;  
  f<<"1"<<std::endl;
  std::string nom=sol->get_nom()+ "_ecart nodal";
  for (int k=0;k<nom.length();k++) if (nom[k]==' ') nom[k]='_';
  f<<"\""+nom+"\""<<std::endl;
  f<<"1"<<std::endl;
  f<<"0.0"<<std::endl;
  f<<"3"<<std::endl;
  f<<"0"<<std::endl;
  f<<"1"<<std::endl;
  f<<mai->get_nb_fem_noeud()<<std::endl;
  int k=0;
  LISTE_FEM_NOEUD::iterator itn;
  for (FEM_NOEUD* noeud=mai->get_premier_noeud(itn);noeud;noeud=mai->get_suivant_noeud(itn))
    {
    f<< noeud->get_numero();
    double val=sol->lire(k,0,0);
    f << " " << 1./sqrt(val);
    f << std::endl; 
    k++;
    }
  f <<"$EndNodeData"<< std::endl; 
  }
else
  {
  for (int i=0;i<3;i++)
    {
    f <<"$NodeData"<< std::endl;  
    f<<"1"<<std::endl;
    std::string nom;
    if (i==0) nom=sol->get_nom()+ "_ecart nodal_x";
    if (i==1) nom=sol->get_nom()+ "_ecart nodal_y";
    if (i==2) nom=sol->get_nom()+ "_ecart nodal_z";
    for (int k=0;k<nom.length();k++) if (nom[k]==' ') nom[k]='_';
      f<<"\""+nom+"\""<<std::endl;
    f<<"1"<<std::endl;
    f<<"0.0"<<std::endl;
    f<<"3"<<std::endl;
    f<<"0"<<std::endl;
    f<<"1"<<std::endl;
    f<<mai->get_nb_fem_noeud()<<std::endl;
    int k=0;
    LISTE_FEM_NOEUD::iterator itn;
    for (FEM_NOEUD* no=mai->get_premier_noeud(itn);no;no=mai->get_suivant_noeud(itn))
      {
      f<< no->get_numero();
      double metrique[9];
      metrique[0]=no->get_solution(0);
      metrique[1]=no->get_solution(1);
      metrique[2]=no->get_solution(2);
      metrique[3]=no->get_solution(3);
      metrique[4]=no->get_solution(4);
      metrique[5]=no->get_solution(5);
      metrique[6]=no->get_solution(6);
      metrique[7]=no->get_solution(7);
      metrique[8]=no->get_solution(8);
      double valeur_propre[3],vecteur_propre[9];
      carte->evaluer_decompose(metrique,valeur_propre,vecteur_propre);
      f << " " << 1./sqrt(valeur_propre[i]);
      f << std::endl; 
      k++;
      }
    f <<"$EndNodeData"<< std::endl; 
      
    }
  }
f.close();
}
    
void MG_EXPORT::gmsh2(std::ofstream& f, FEM_MAILLAGE* mai)
{
f << "$MeshFormat"<< std::endl;
    f << "2 0 " << sizeof(double) << std::endl;
    f << "$EndMeshFormat"<< std::endl;
    f << "$Nodes"<< std::endl;
    int nbnoeud=mai->get_nb_fem_noeud();
    LISTE_FEM_NOEUD::iterator  it;
    f << nbnoeud<< std::endl;
    int i=0;
    for (FEM_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
    {
        noeud->change_numero(i+1);
        double *coord=noeud->get_coord();
        f << noeud->get_numero() <<  " " << coord[0] <<  " " << coord[1] <<  " " << coord[2] << std::endl;
        i++;
    }
    f<<"$EndNodes"<< std::endl;
    f<<"$Elements"<< std::endl;
    int nbelement=mai->get_nb_fem_element0()+mai->get_nb_fem_element1()+mai->get_nb_fem_element2()+mai->get_nb_fem_element3()+mai->get_nb_xfem_element0()+mai->get_nb_xfem_element1()+mai->get_nb_xfem_element2()+mai->get_nb_xfem_element3();
    f << nbelement << std::endl;
    i=0;
    LISTE_FEM_ELEMENT0::iterator itelementnoeud;
    for (FEM_ELEMENT0* noeud=mai->get_premier_element0(itelementnoeud);noeud;noeud=mai->get_suivant_element0(itelementnoeud))
      {
      unsigned long idref=0;
      if (noeud->get_lien_topologie()!=NULL) idref=noeud->get_lien_topologie()->get_id();
      f << ++i << " 15 2 1 " << idref << " " << noeud->get_fem_noeud(0)->get_numero() << std::endl;
      }
    LISTE_FEM_ELEMENT1::iterator itsegment;
    for (FEM_ELEMENT1* segment=mai->get_premier_element1(itsegment);segment;segment=mai->get_suivant_element1(itsegment))
    {
        unsigned long idref=0;
        if (segment->get_lien_topologie()!=NULL) idref=segment->get_lien_topologie()->get_id();
        if (mai->get_degre()==1) f << ++i << " 1 2 1 " << idref << " " << segment->get_fem_noeud(0)->get_numero() << " " << segment->get_fem_noeud(1)->get_numero() << std::endl;
        if (mai->get_degre()==2) f << ++i << " 8 2 1 " << idref << " " << segment->get_fem_noeud(0)->get_numero() << " " << segment->get_fem_noeud(2)->get_numero() << " " << segment->get_fem_noeud(1)->get_numero() << std::endl;
        segment->change_numero(i);
    }
    LISTE_FEM_ELEMENT2::iterator ittriangle;
    for (FEM_ELEMENT2* triangle=mai->get_premier_element2(ittriangle);triangle;triangle=mai->get_suivant_element2(ittriangle))
    {
        unsigned long idref=0;
        if (triangle->get_lien_topologie()!=NULL) idref=triangle->get_lien_topologie()->get_id();
        int nb=triangle->get_nb_fem_noeud();
        if (nb==3) f << ++i << " 2 2 1 " << idref << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << std::endl;
        if (nb==6) f << ++i << " 9 2 1 " << idref << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << " " << triangle->get_fem_noeud(4)->get_numero() <<  " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(3)->get_numero() << " " << triangle->get_fem_noeud(5)->get_numero() << std::endl;
        if (nb==4) f << ++i << " 3 2 1 " << idref << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << " " << triangle->get_fem_noeud(3)->get_numero() << std::endl;
        if (nb==8) f << ++i << " 16 2 1 " << idref << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << " " << triangle->get_fem_noeud(4)->get_numero() <<  " " << triangle->get_fem_noeud(6)->get_numero() << " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(3)->get_numero()<< " " << triangle->get_fem_noeud(5)->get_numero()<< " " << triangle->get_fem_noeud(7)->get_numero() << std::endl;
        triangle->change_numero(i);
    }
    LISTE_FEM_ELEMENT3::iterator ittetra;
    for (FEM_ELEMENT3* tetra=mai->get_premier_element3(ittetra);tetra;tetra=mai->get_suivant_element3(ittetra))
    {
        unsigned long idref=0;
        if (tetra->get_lien_topologie()!=NULL) idref=tetra->get_lien_topologie()->get_id();
        int nb=tetra->get_nb_fem_noeud();
        if (nb==4) f << ++i << " 4 3 1 " << idref << " " << tetra->get_etat(0) <<" " << tetra->get_fem_noeud(0)->get_numero() << " " << tetra->get_fem_noeud(1)->get_numero() << " " << tetra->get_fem_noeud(2)->get_numero() << " " << tetra->get_fem_noeud(3)->get_numero() << std::endl;
        if (nb==10) f << ++i << " 11 3 1 " << idref << " " << tetra->get_etat(0) <<" "  << tetra->get_fem_noeud(0)->get_numero() << " " << tetra->get_fem_noeud(2)->get_numero() << " " << tetra->get_fem_noeud(4)->get_numero() << " " << tetra->get_fem_noeud(9)->get_numero() << " " << tetra->get_fem_noeud(1)->get_numero() << " " << tetra->get_fem_noeud(3)->get_numero() << " " << tetra->get_fem_noeud(5)->get_numero() << " " << tetra->get_fem_noeud(6)->get_numero() << " " << tetra->get_fem_noeud(8)->get_numero() << " " << tetra->get_fem_noeud(7)->get_numero() << std::endl;
        if (nb==8) f << ++i << " 5 3 1 " << idref << " " << tetra->get_etat(0) <<" "  << tetra->get_fem_noeud(0)->get_numero() << " " << tetra->get_fem_noeud(1)->get_numero() << " " << tetra->get_fem_noeud(2)->get_numero() << " " << tetra->get_fem_noeud(3)->get_numero()<< " " << tetra->get_fem_noeud(4)->get_numero()<< " " << tetra->get_fem_noeud(5)->get_numero()<< " " << tetra->get_fem_noeud(6)->get_numero()<< " " << tetra->get_fem_noeud(7)->get_numero()<< std::endl;
        if (nb==20) f << ++i << " 17 3 1 " << idref << " " << tetra->get_etat(0) <<" "  << tetra->get_fem_noeud(0)->get_numero() << " " << tetra->get_fem_noeud(2)->get_numero() << " " << tetra->get_fem_noeud(4)->get_numero() << " " << tetra->get_fem_noeud(6)->get_numero() << " " << tetra->get_fem_noeud(12)->get_numero() << " " << tetra->get_fem_noeud(14)->get_numero() << " " << tetra->get_fem_noeud(16)->get_numero() << " " << tetra->get_fem_noeud(18)->get_numero() << " " << tetra->get_fem_noeud(1)->get_numero() << " " << tetra->get_fem_noeud(7)->get_numero()<< " " << tetra->get_fem_noeud(8)->get_numero()<< " " << tetra->get_fem_noeud(3)->get_numero()<< " " << tetra->get_fem_noeud(9)->get_numero()<< " " << tetra->get_fem_noeud(5)->get_numero()<< " " << tetra->get_fem_noeud(10)->get_numero()<< " " << tetra->get_fem_noeud(11)->get_numero()<< " " << tetra->get_fem_noeud(13)->get_numero()<< " " << tetra->get_fem_noeud(19)->get_numero()<< " " << tetra->get_fem_noeud(15)->get_numero()<< " " << tetra->get_fem_noeud(
17)->get_numero() << std::endl;
        if (nb==6) f << ++i << " 6 3 1 " << idref << " " << tetra->get_etat(0) <<" "  << tetra->get_fem_noeud(0)->get_numero() << " " << tetra->get_fem_noeud(1)->get_numero() << " " << tetra->get_fem_noeud(2)->get_numero() << " " << tetra->get_fem_noeud(3)->get_numero()<< " " << tetra->get_fem_noeud(4)->get_numero()<< " " << tetra->get_fem_noeud(5)->get_numero()<< std::endl;
        if (nb==15) f << ++i << " 18 3 1 " << idref << " " << tetra->get_etat(0) <<" "  << tetra->get_fem_noeud(0)->get_numero() << " " << tetra->get_fem_noeud(2)->get_numero() << " " << tetra->get_fem_noeud(4)->get_numero() << " " << tetra->get_fem_noeud(9)->get_numero() << " " << tetra->get_fem_noeud(11)->get_numero() << " " << tetra->get_fem_noeud(13)->get_numero() << " " << tetra->get_fem_noeud(1)->get_numero() << " " << tetra->get_fem_noeud(5)->get_numero() << " " << tetra->get_fem_noeud(6)->get_numero() << " " << tetra->get_fem_noeud(3)->get_numero()<< " " << tetra->get_fem_noeud(7)->get_numero()<< " " << tetra->get_fem_noeud(8)->get_numero()<< " " << tetra->get_fem_noeud(10)->get_numero()<< " " << tetra->get_fem_noeud(14)->get_numero()<< " " << tetra->get_fem_noeud(12)->get_numero()<<  std::endl;
        
        tetra->change_numero(i);
    }
    LISTE_XFEM_ELEMENT0::iterator itxelementnoeud;
    for (XFEM_ELEMENT0* noeud=mai->get_premier_xelement0(itxelementnoeud);noeud;noeud=mai->get_suivant_xelement0(itxelementnoeud))
      {
      unsigned long idref=0;
      if (noeud->get_lien_topologie()!=NULL) idref=noeud->get_lien_topologie()->get_id();
      f << ++i << " 15 3 1 " << idref << " " << noeud->get_etat() << " " << noeud->get_fem_noeud(0)->get_numero() << std::endl;
      }
    LISTE_XFEM_ELEMENT1::iterator itxsegment;
    for (XFEM_ELEMENT1* segment=mai->get_premier_xelement1(itxsegment);segment;segment=mai->get_suivant_xelement1(itxsegment))
    {
        unsigned long idref=0;
        if (segment->get_lien_topologie()!=NULL) idref=segment->get_lien_topologie()->get_id();
        if (mai->get_degre()==1) f << ++i << " 1 3 1 " << idref << " " << segment->get_etat() << " " << segment->get_fem_noeud(0)->get_numero() << " " << segment->get_fem_noeud(1)->get_numero() << std::endl;
        if (mai->get_degre()==2) f << ++i << " 8 3 1 " << idref << " " << segment->get_etat() << " " << segment->get_fem_noeud(0)->get_numero() << " " << segment->get_fem_noeud(2)->get_numero() << " " << segment->get_fem_noeud(1)->get_numero() << std::endl;
        segment->change_numero(i);
    }
      
    LISTE_XFEM_ELEMENT2::iterator itxtriangle;
    for (XFEM_ELEMENT2* triangle=mai->get_premier_xelement2(itxtriangle);triangle;triangle=mai->get_suivant_xelement2(itxtriangle))
    {
        unsigned long idref=0;
        if (triangle->get_lien_topologie()!=NULL) idref=triangle->get_lien_topologie()->get_id();
        int nb=triangle->get_nb_fem_noeud();
        if (nb==3) f << ++i << " 2 3 1 " << idref << " " << triangle->get_etat() << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << std::endl;
        if (nb==6) f << ++i << " 9 3 1 " << idref << " " << triangle->get_etat() << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << " " << triangle->get_fem_noeud(4)->get_numero() <<  " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(3)->get_numero() << " " << triangle->get_fem_noeud(5)->get_numero() << std::endl;
        if (nb==4) f << ++i << " 3 3 1 " << idref << " " << triangle->get_etat() << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << " " << triangle->get_fem_noeud(3)->get_numero() << std::endl;
        if (nb==8) f << ++i << " 16 3 1 " << idref << " " << triangle->get_etat() << " " << triangle->get_fem_noeud(0)->get_numero() << " " << triangle->get_fem_noeud(2)->get_numero() << " " << triangle->get_fem_noeud(4)->get_numero() <<  " " << triangle->get_fem_noeud(6)->get_numero() << " " << triangle->get_fem_noeud(1)->get_numero() << " " << triangle->get_fem_noeud(3)->get_numero()<< " " << triangle->get_fem_noeud(5)->get_numero()<< " " << triangle->get_fem_noeud(7)->get_numero() << std::endl;
        triangle->change_numero(i);
    }  
    LISTE_XFEM_ELEMENT3::iterator itxtetra;
    for (XFEM_ELEMENT3* xtetra=mai->get_premier_xelement3(itxtetra);xtetra;xtetra=mai->get_suivant_xelement3(itxtetra))
    {
        unsigned long idref=0;
        if (xtetra->get_lien_topologie()!=NULL) idref=xtetra->get_lien_topologie()->get_id();
        int nb=xtetra->get_nb_fem_noeud();
        if (nb==4) f << ++i << " 4 3 1 " << idref << " " << xtetra->get_etat() << " " << xtetra->get_fem_noeud(0)->get_numero() << " " << xtetra->get_fem_noeud(1)->get_numero() << " " << xtetra->get_fem_noeud(2)->get_numero() << " " << xtetra->get_fem_noeud(3)->get_numero() << std::endl;
        if (nb==10) f << ++i << " 11 3 1 " << idref << " " << xtetra->get_etat() << xtetra->get_fem_noeud(0)->get_numero() << " " << xtetra->get_fem_noeud(2)->get_numero() << " " << xtetra->get_fem_noeud(4)->get_numero() << " " << xtetra->get_fem_noeud(9)->get_numero() << " " << xtetra->get_fem_noeud(1)->get_numero() << " " << xtetra->get_fem_noeud(3)->get_numero() << " " << xtetra->get_fem_noeud(5)->get_numero() << " " << xtetra->get_fem_noeud(6)->get_numero() << " " << xtetra->get_fem_noeud(8)->get_numero() << " " << xtetra->get_fem_noeud(7)->get_numero() << std::endl;
        if (nb==8) f << ++i << " 5 3 1 " << idref << " " << xtetra->get_etat() <<  xtetra->get_fem_noeud(0)->get_numero() << " " << xtetra->get_fem_noeud(1)->get_numero() << " " << xtetra->get_fem_noeud(2)->get_numero() << " " << xtetra->get_fem_noeud(3)->get_numero()<< " " << xtetra->get_fem_noeud(4)->get_numero()<< " " << xtetra->get_fem_noeud(5)->get_numero()<< " " << xtetra->get_fem_noeud(6)->get_numero()<< " " << xtetra->get_fem_noeud(7)->get_numero()<< std::endl;
        if (nb==20) f << ++i << " 17 3 1 " << idref << " " << xtetra->get_etat() << xtetra->get_fem_noeud(0)->get_numero() << " " << xtetra->get_fem_noeud(2)->get_numero() << " " << xtetra->get_fem_noeud(4)->get_numero() << " " << xtetra->get_fem_noeud(6)->get_numero() << " " << xtetra->get_fem_noeud(12)->get_numero() << " " << xtetra->get_fem_noeud(14)->get_numero() << " " << xtetra->get_fem_noeud(16)->get_numero() << " " << xtetra->get_fem_noeud(18)->get_numero() << " " << xtetra->get_fem_noeud(1)->get_numero() << " " << xtetra->get_fem_noeud(7)->get_numero()<< " " << xtetra->get_fem_noeud(8)->get_numero()<< " " << xtetra->get_fem_noeud(3)->get_numero()<< " " << xtetra->get_fem_noeud(9)->get_numero()<< " " << xtetra->get_fem_noeud(5)->get_numero()<< " " << xtetra->get_fem_noeud(10)->get_numero()<< " " << xtetra->get_fem_noeud(11)->get_numero()<< " " << xtetra->get_fem_noeud(13)->get_numero()<< " " << xtetra->get_fem_noeud(19)->get_numero()<< " " << xtetra->get_fem_noeud(15)->get_numero()<< " " 
          << xtetra->get_fem_noeud(17)->get_numero() << std::endl;
        xtetra->change_numero(i);
    }
    
    
    f<<"$EndElements"<< std::endl;
    
}
 
 
void MG_EXPORT::gmsh(class FEM_MAILLAGE* mai,std::string fichier)
{
    std::ofstream f;
    std::string file=fichier+".msh";
    f.open(file.c_str(),std::ios::out);
    f.precision(16);
    f.setf(std::ios::showpoint);
    
    double versiongmsh=paramversiongmsh();
    if (versiongmsh<4.) gmsh2(f,mai);
    else gmsh41(f,mai);
    MG_GESTIONNAIRE* gest=mai->get_mg_maillage()->get_gestionnaire();
    int nbsol=gest->get_nb_fem_solution();
    int ok=0;
    if (nbsol!=0)
          {
          for (int i=0;i<nbsol;i++)
              {
              FEM_SOLUTION* sol=gest->get_fem_solution(i);
              if (sol->get_maillage()==mai) ok=1;
              }
          }
    if (ok==1)
          {
          for (int i=0;i<nbsol;i++)
            {
            FEM_SOLUTION* sol=gest->get_fem_solution(i);
            if (sol->get_maillage()!=mai) continue;
            int nb_champs=sol->get_nb_champ();
            for (int j=0;j<nb_champs;j++)
                {
                int typesol=sol->get_entite_solution();
                //if ((typesol==MAGIC::ENTITE_SOLUTION::ENTITE_NOEUD)||(typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1)||(typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2)||(typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3)) sol->active_solution(j);
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_NOEUD) f <<"$NodeData"<< std::endl;  
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1) f <<"$ElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2) f <<"$ElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3) f <<"$ElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENTND) f <<"$ElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3_GAUSS) f <<"$ElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2_GAUSS) f <<"$ElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1_GAUSS) f <<"$ElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1_NOEUD) f <<"$ElementNodeData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2_NOEUD) f <<"$ElementNodeData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3_NOEUD) f <<"$ElementNodeData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENTND_NOEUD) f <<"$ElementNodeData"<< std::endl;
                f<<"1"<<std::endl;
                std::string nom=sol->get_nom()+ "_" + sol->get_legende(j);
                int timestep=0;
                bool avectimestep=false;
                for (int k=0;k<nom.length();k++) 
                    {
                    if (nom[k]==' ') nom[k]='_';
                    if (nom[k]=='%') {nom[k]=' ';avectimestep=true;}
                    }
                if (avectimestep)
                  {
                  char message[500];
                  sscanf(nom.c_str(),"%s %d",message,&timestep);
                  nom=message;
                  nom=nom+ "_" + sol->get_legende(j);
                  }
                f<<"\""+nom+"\""<<std::endl;
                f<<"1"<<std::endl;
                f<<"0.0"<<std::endl;
                f<<"3"<<std::endl;
                f<<timestep<<std::endl;
                f<<sol->get_dim_solution()<<std::endl;
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_NOEUD) 
                      {
                      f<<mai->get_nb_fem_noeud()<<std::endl;
                      int k=0;
                      LISTE_FEM_NOEUD::iterator itn;
                      for (FEM_NOEUD* noeud=mai->get_premier_noeud(itn);noeud;noeud=mai->get_suivant_noeud(itn))
                        {
                            f<< noeud->get_numero();
                            for (int coord=0;coord<sol->get_dim_solution();coord++)
                              f << " " << sol->lire(k,j,coord);
                            f << std::endl; 
                            k++;
                        }
                      }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3) 
                            {
                            int nb1=mai->get_nb_fem_element3();
                            f<<nb1<<std::endl;
                            int k=0;
                            LISTE_FEM_ELEMENT3::iterator ite;
                            for (FEM_ELEMENT3* ele=mai->get_premier_element3(ite);ele;ele=mai->get_suivant_element3(ite))
                              {
                              f<<ele->get_numero();
                              for (int coord=0;coord<sol->get_dim_solution();coord++)
                                f<< " " << sol->lire(k,j,coord);
                              f<< std::endl;
                              k++;
                              }
                                
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3_GAUSS) 
                            {
                            int nb1=mai->get_nb_fem_element3();
                            f<<nb1<<std::endl;
                            int k=0;
                            LISTE_FEM_ELEMENT3::iterator ite;
                            for (FEM_ELEMENT3* ele=mai->get_premier_element3(ite);ele;ele=mai->get_suivant_element3(ite))
                              {
                              f<<ele->get_numero();
                              int nbgauss=sol->get_nb_gauss(k);
                              for (int coord=0;coord<sol->get_dim_solution();coord++)
                              {
                                double val=sol->get_moyenne_volumique_elementaire_champs(j,ele,k,coord);
                                f<< " " << val;
                              }
                              f<< std::endl;
                              k++;
                              }
                                
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2_GAUSS) 
                            {
                            int nb1=mai->get_nb_fem_element2();
                            f<<nb1<<std::endl;
                            int k=0;
                            LISTE_FEM_ELEMENT2::iterator ite;
                            for (FEM_ELEMENT2* ele=mai->get_premier_element2(ite);ele;ele=mai->get_suivant_element2(ite))
                              {
                              f<<ele->get_numero();
                              int nbgauss=sol->get_nb_gauss(k);
                              for (int coord=0;coord<sol->get_dim_solution();coord++)
                              {
                                double val=sol->get_moyenne_surfacique_elementaire_champs(j,ele,k,coord);
                                f<< " " << val;
                              }
                              f<< std::endl;
                              k++;
                              }
                                
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1_GAUSS) 
                            {
                            int nb1=mai->get_nb_fem_element1();
                            f<<nb1<<std::endl;
                            int k=0;
                            LISTE_FEM_ELEMENT1::iterator ite;
                            for (FEM_ELEMENT1* ele=mai->get_premier_element1(ite);ele;ele=mai->get_suivant_element1(ite))
                              {
                              f<<ele->get_numero();
                              int nbgauss=sol->get_nb_gauss(k);
                            if (nbgauss!=5) std::cout <<j <<" " << k  << " " << nbgauss<<std::endl;
                              for (int coord=0;coord<sol->get_dim_solution();coord++)
                              {
                                double val=sol->get_moyenne_lineique_elementaire_champs(j,ele,k,coord);
                                f<< " " << val;
                              }
                              f<< std::endl;
                              k++;
                              }
                                
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2) 
                            {
                            int nb2=mai->get_nb_fem_element2();
                            f<<nb2<<std::endl;
                            int k=0;
                            LISTE_FEM_ELEMENT2::iterator ite;
                            for (FEM_ELEMENT2* ele=mai->get_premier_element2(ite);ele;ele=mai->get_suivant_element2(ite))
                              {
                              f<<ele->get_numero();
                              for (int coord=0;coord<sol->get_dim_solution();coord++)
                                f<< " " << sol->lire(k,j,coord);
                              f<< std::endl;
                              k++;
                              }
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1) 
                            {
                            int nb3=mai->get_nb_fem_element1();
                            f<<nb3<<std::endl;
                            int k=0;
                            LISTE_FEM_ELEMENT1::iterator ite;
                            for (FEM_ELEMENT1* ele=mai->get_premier_element1(ite);ele;ele=mai->get_suivant_element1(ite))
                              {
                              f<<ele->get_numero();
                              for (int coord=0;coord<sol->get_dim_solution();coord++)
                                f<< " " << sol->lire(k,j,coord);
                              f<< std::endl;
                              k++;
                              }
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENTND) 
                            {
                            int nb3=mai->get_nb_fem_element1()+mai->get_nb_fem_element2()+mai->get_nb_fem_element3();
                            f<<nb3<<std::endl;
                            int k=0;
                            LISTE_FEM_ELEMENT1::iterator ite;
                            for (FEM_ELEMENT1* ele=mai->get_premier_element1(ite);ele;ele=mai->get_suivant_element1(ite))
                              {
                              f<<ele->get_numero();
                              for (int coord=0;coord<sol->get_dim_solution();coord++)
                                f<< " " << sol->lire(k,j,coord);
                              f<< std::endl;
                              k++;
                              }
                            LISTE_FEM_ELEMENT2::iterator ite2;
                            for (FEM_ELEMENT2* ele=mai->get_premier_element2(ite2);ele;ele=mai->get_suivant_element2(ite2))
                              {
                              f<<ele->get_numero();
                              for (int coord=0;coord<sol->get_dim_solution();coord++)
                                f<< " " << sol->lire(k,j,coord);
                              f<< std::endl;
                              k++;
                              }
                            LISTE_FEM_ELEMENT3::iterator ite3;
                            for (FEM_ELEMENT3* ele=mai->get_premier_element3(ite3);ele;ele=mai->get_suivant_element3(ite3))
                              {
                              f<<ele->get_numero();
                              for (int coord=0;coord<sol->get_dim_solution();coord++)
                                f<< " " << sol->lire(k,j,coord);
                              f<< std::endl;
                              k++;
                              }
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3_NOEUD) 
                            {
                            int nb1=mai->get_nb_fem_element3();
                            f<<nb1<<std::endl;
                            LISTE_FEM_ELEMENT3::iterator ite;
                            int k=0;
                            for (FEM_ELEMENT3* ele=mai->get_premier_element3(ite);ele;ele=mai->get_suivant_element3(ite))
                              {
                              int num=ele->get_nb_fem_noeud();
                              f<<ele->get_numero()<< " " << num <<" ";
                              for (int l=0;l<num;l++)
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << sol->lire(k,j,coord,l)  << " ";
                              f << std::endl;
                              k++;
                              }
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2_NOEUD) 
                            {
                            int nb1=mai->get_nb_fem_element2();
                            f<<nb1<<std::endl;
                            LISTE_FEM_ELEMENT2::iterator ite;
                            int k=0;
                            for (FEM_ELEMENT2* ele=mai->get_premier_element2(ite);ele;ele=mai->get_suivant_element2(ite))
                              {
                              int num=ele->get_nb_fem_noeud();
                              f<<ele->get_numero()<< " " << num <<" ";
                              for (int l=0;l<num;l++)
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << sol->lire(k,j,coord,l)  << " ";
                              f << std::endl;
                              k++;
                              }
                            }
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1_NOEUD) 
                            {
                            int nb1=mai->get_nb_fem_element1();
                            f<<nb1<<std::endl;
                            LISTE_FEM_ELEMENT1::iterator ite;
                            int k=0;
                            for (FEM_ELEMENT1* ele=mai->get_premier_element1(ite);ele;ele=mai->get_suivant_element1(ite))
                              {
                              int num=ele->get_nb_fem_noeud();
                              f<<ele->get_numero()<< " " << num <<" ";
                              for (int l=0;l<num;l++)
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << sol->lire(k,j,coord,l)  << " ";
                              f << std::endl;
                              k++;
                              }
                            }
                 if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENTND_NOEUD) 
                            {
                            int nb1=mai->get_nb_fem_element1()+mai->get_nb_fem_element2()+mai->get_nb_fem_element3();
                            f<<nb1<<std::endl;
                            int k=0;
                            LISTE_FEM_ELEMENT1::iterator ite;
                            for (FEM_ELEMENT1* ele=mai->get_premier_element1(ite);ele;ele=mai->get_suivant_element1(ite))
                              {
                              int num=ele->get_nb_fem_noeud();
                              f<<ele->get_numero()<< " " << num <<" ";
                              for (int l=0;l<num;l++)
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << sol->lire(k,j,coord,l)  << " ";
                              f << std::endl;
                              k++;
                              }
                            LISTE_FEM_ELEMENT2::iterator ite2;
                            for (FEM_ELEMENT2* ele=mai->get_premier_element2(ite2);ele;ele=mai->get_suivant_element2(ite2))
                              {
                              int num=ele->get_nb_fem_noeud();
                              f<<ele->get_numero()<< " " << num <<" ";
                              for (int l=0;l<num;l++)
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << sol->lire(k,j,coord,l)  << " ";
                              f << std::endl;
                              k++;
                              }
                            LISTE_FEM_ELEMENT3::iterator ite3;
                            for (FEM_ELEMENT3* ele=mai->get_premier_element3(ite3);ele;ele=mai->get_suivant_element3(ite3))
                              {
                              int num=ele->get_nb_fem_noeud();
                              f<<ele->get_numero()<< " " << num <<" ";
                              for (int l=0;l<num;l++)
                                  for (int coord=0;coord<sol->get_dim_solution();coord++)
                                    f << sol->lire(k,j,coord,l)  << " ";
                              f << std::endl;
                              k++;
                              }
                            }   
                
                if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_NOEUD) f <<"$EndNodeData"<< std::endl;  
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1) f <<"$EndElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2) f <<"$EndElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3) f <<"$EndElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENTND) f <<"$EndElementData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT1_NOEUD) f <<"$ElementEndNodeData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT2_NOEUD) f <<"$ElementEndNodeData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENT3_NOEUD) f <<"$ElementEndNodeData"<< std::endl;
                else if (typesol==MAGIC::ENTITE_SOLUTION::ENTITE_ELEMENTND_NOEUD) f <<"$ElementEndNodeData"<< std::endl;
                
                }
           
            }
          }
      LISTE_FEM_NOEUD::iterator it;
    if (mai->existe_deforme())
    {
      f<<"$NodeData"<< std::endl;
      f<<"1"<<std::endl;
      f<<"\"displacement (*"<< 1./mai->get_mg_maillage()->get_mg_geometrie()->get_valeur_unite() << ")\""<<std::endl;
      f<<"1"<<std::endl;
      f<<"0.0"<<std::endl;
      f<<"3"<<std::endl;
      f<<"0"<<std::endl;
      f<<"3"<<std::endl;
      f<<mai->get_nb_fem_noeud()<<std::endl;
      for (FEM_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
        f<< noeud->get_numero() << " " <<  noeud->get_dx() <<" " <<  noeud->get_dy() << " " <<    noeud->get_dz()   << std::endl; 
      f <<"$EndNodeData"<< std::endl;
    }
  if (mai->existe_reaction())
    {
      f<<"$NodeData"<< std::endl;
    f<<"1"<<std::endl;
    f<<"\"reaction\""<<std::endl;
    f<<"1"<<std::endl;
    f<<"0.0"<<std::endl;
    f<<"3"<<std::endl;
    f<<"0"<<std::endl;
    f<<"3"<<std::endl;
    f<<mai->get_nb_fem_noeud()<<std::endl;
    for (FEM_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
        f<< noeud->get_numero() << " " <<  noeud->get_rx() <<" " <<  noeud->get_ry() << " " <<    noeud->get_rz()   << std::endl; 
    f <<"$EndNodeData"<< std::endl;
    }
   f.close();  
}
 
 
 
 
 
 
void MG_EXPORT::aster_ecrire_export(std::string fichier,int typeetude)
{
    std::string fichierexport=fichier+".export";
    FILE *in=fopen(fichierexport.c_str(),"wt");
    char path[255];
    char *chaine = getcwd(path,255);
    
    char tpmax[500];
    char memjeveux[500];
    char version[500];
    double  mem=param_aster.get_valeur((char*)"Memoire");
    sprintf(memjeveux,"%.1lf",mem);
    int  tps=(int)param_aster.get_valeur((char*)"Temps_max");
    int  maxbase=(int)param_aster.get_valeur((char*)"Max_base");
    int  nbcpu=(int)param_aster.get_valeur((char*)"Nb_CPU");
    sprintf(tpmax,"%d",tps);
    sprintf(version,"%s",param_aster.get_nom("Version").c_str());
    fprintf(in,"P version %s\n",version);
    fprintf(in,"P mode interactif\n");
    fprintf(in,"A memjeveux %s\n",memjeveux);
    fprintf(in,"A tpmax %s\n",tpmax);
    fprintf(in,"P ncpus %d\n",nbcpu);
    fprintf(in,"A args -max_base %d\n",maxbase*1024);
    fprintf(in,"P actions make_etude\n");
    fprintf(in,"F comm %s/%s.comm D 1\n",chaine,fichier.c_str());
    fprintf(in,"F mail %s/%s.mail D 20\n",chaine,fichier.c_str());
    fprintf(in,"F mess %s/%s.mess R 6\n",chaine,fichier.c_str());
    if ((typeetude==MAGIC::CALCUL_ASTER::RIGIDITE) || (typeetude==MAGIC::CALCUL_ASTER::RIGIDITE_CONTRAINTE_PLANE)||(typeetude==MAGIC::CALCUL_ASTER::RIGIDITE_DEFORMATION_PLANE))
          fprintf(in,"F m %s/%s.m R 29\n",chaine,fichier.c_str());
    else fprintf(in,"F resu %s/%s.resu R 8\n",chaine,fichier.c_str());
    fclose(in);
 }
 
 
 
    
 
void MG_EXPORT::aster_ecrire_mail(TPL_MAP_ENTITE<FEM_ELEMENT1*> &minipresent,int dim,TPL_LISTE_ENTITE<MG_COFACE*> *lstcoface,class FEM_MAILLAGE* mai,std::string fichier,int typeetude,int niveaumax,std::vector<FEM_ELEMENT3*> *lst,std::map<std::string,std::string> &listegroupedemaillexy,std::map<unsigned long,unsigned long> &gnexistant)
{
    int base=(int)param_aster.get_valeur("Base_num_mail");
    MG_GEOMETRIE* geo=mai->get_mg_geometrie();
    int nbvol=geo->get_nb_mg_volume();
    int nbcoq=geo->get_nb_mg_coque();
    int nbpou=geo->get_nb_mg_poutre();
    
    //if (nbvol>0)
      //if ((nbcoq>0) || (nbpou>0))
          //recherche_connexion(mai,geo);
    
    
    OT_CHAINE ot;
    ot.ini_mg_fprintf(80,' ');
    std::string fichiermaillage=fichier+".mail";
    FILE* file_in=fopen(fichiermaillage.c_str(),"wt");
    char in[5000];
    sprintf(in, "TITRE\n"          );ot.mg_fprintf(file_in,in);
    sprintf(in, "  AUTEUR=MAGiC\n" );ot.mg_fprintf(file_in,in);
    sprintf(in, "FINSF\n"          );ot.mg_fprintf(file_in,in);
    sprintf(in, "%%\n"                                          );ot.mg_fprintf(file_in,in);
    if (dim==3) {sprintf(in, "COOR_3D         NBOBJ=%d\n", mai->get_nb_fem_noeud());ot.mg_fprintf(file_in,in);}
    if (dim==2) {sprintf(in, "COOR_2D         NBOBJ=%d\n", mai->get_nb_fem_noeud());ot.mg_fprintf(file_in,in);}
    if (dim==3) {sprintf(in, "%%FORMAT=(1*NOM_DE_NOEUD,3*COORD)\n"           );ot.mg_fprintf(file_in,in);}
    if (dim==2) {sprintf(in, "%%FORMAT=(1*NOM_DE_NOEUD,2*COORD)\n"           );ot.mg_fprintf(file_in,in);}
    double facteur_unite = mai->get_mg_geometrie()->get_valeur_unite();
    LISTE_FEM_NOEUD::iterator  it;
    int i=0;
    
    bool numopt=false;
    FEM_NOEUD* noeud=mai->get_premier_noeud(it);
    if (noeud->get_numero_opt()!=-1) numopt=true;
    
    std::map<unsigned long,FEM_NOEUD*> listenoeud;
    for (FEM_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
            {
            unsigned long num=noeud->get_id();
            if (numopt) num=noeud->get_numero_opt();
            std::pair<unsigned long,FEM_NOEUD*> tmp(num,noeud);
            listenoeud.insert(tmp);
            i++;
            noeud->change_numero(i);
            }
    
    for (std::map<unsigned long,FEM_NOEUD*>::iterator it=listenoeud.begin();it!=listenoeud.end();it++)
    {
        FEM_NOEUD* noeud=(*it).second;
        double *coord=noeud->get_coord();
        if (dim==3) {sprintf(in, "  N%s   %18.11E  %18.11E  %18.11E\n",ot.get_base(noeud->get_numero(),base).c_str(),coord[0]*facteur_unite,coord[1]*facteur_unite,coord[2]*facteur_unite);ot.mg_fprintf(file_in,in);}
        if (dim==2) {sprintf(in, "  N%s   %18.11E  %18.11E\n",ot.get_base(noeud->get_numero(),base).c_str(),coord[0]*facteur_unite,coord[1]*facteur_unite);ot.mg_fprintf(file_in,in);}
        //fprintf(in, "  N%-9d% .14E% .14E% .14E\n",noeud->get_numero(),coord[0],coord[1],coord[2]);
    }
    {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
    {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
    int nbsegment=0;
    int nbtriangle=0;
    int nbquad=0;
    LISTE_FEM_ELEMENT1::iterator itsegment;
    for (FEM_ELEMENT1* segment=mai->get_premier_element1(itsegment);segment;segment=mai->get_suivant_element1(itsegment))
                  nbsegment++;
    LISTE_FEM_ELEMENT2::iterator ittriangle;
      for (FEM_ELEMENT2* triangle=mai->get_premier_element2(ittriangle);triangle;triangle=mai->get_suivant_element2(ittriangle))
        if ((triangle->get_nb_fem_noeud()==3) || (triangle->get_nb_fem_noeud()==6)) nbtriangle++;
    LISTE_FEM_ELEMENT2::iterator itquad;
      for (FEM_ELEMENT2* quad=mai->get_premier_element2(itquad);quad;quad=mai->get_suivant_element2(itquad))
        if ((quad->get_nb_fem_noeud()==4) || (quad->get_nb_fem_noeud()==8)) nbquad++;
    i=1;
    if (nbsegment>0)
        {
        if (mai->get_degre()==1)  {sprintf(in, "SEG2    NOM=INDEFINI  NBOBJ=%d\n",nbsegment);ot.mg_fprintf(file_in,in);}
        if (mai->get_degre()==2)  {sprintf(in, "SEG3    NOM=INDEFINI  NBOBJ=%d\n",nbsegment);ot.mg_fprintf(file_in,in);}
        LISTE_FEM_ELEMENT1::iterator itsegment;
        for (FEM_ELEMENT1* segment=mai->get_premier_element1(itsegment);segment;segment=mai->get_suivant_element1(itsegment))
          {
          segment->change_numero(i);
          if (segment->est_un_mini_element1()==true) minipresent.ajouter(segment);
          if (mai->get_degre()==1) {sprintf(in, "  M%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(segment->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(segment->get_fem_noeud(1)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
          if (mai->get_degre()==2) {sprintf(in, "  M%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(segment->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(segment->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(segment->get_fem_noeud(1)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
          i++;
          }
      {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
      {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
      }
    if (nbtriangle>0)
      {
      if (mai->get_degre()==1)  {sprintf(in, "TRIA3    NOM=INDEFINI  NBOBJ=%d\n",nbtriangle);ot.mg_fprintf(file_in,in);}
      if (mai->get_degre()==2)  {sprintf(in, "TRIA6    NOM=INDEFINI  NBOBJ=%d\n",nbtriangle);ot.mg_fprintf(file_in,in);}
      LISTE_FEM_ELEMENT2::iterator ittriangle;
      for (FEM_ELEMENT2* triangle=mai->get_premier_element2(ittriangle);triangle;triangle=mai->get_suivant_element2(ittriangle))
        {
        if ((triangle->get_nb_fem_noeud()!=3) && (triangle->get_nb_fem_noeud()!=6)) continue;
        triangle->change_numero(i);
        int nbcoface=((MG_FACE*)(triangle->get_lien_topologie()))->get_nb_mg_coface();
        MG_COFACE *cof=NULL;
        int icof=0;
        bool multicoface=false;
        while (icof<nbcoface)
          {
          MG_COFACE* coftmp=((MG_FACE*)(triangle->get_lien_topologie()))->get_mg_coface(icof);
          if (lstcoface->est_dans_la_liste(coftmp)) 
            if (cof==NULL) cof=coftmp; else multicoface=true;
          icof++;
          }
        int signe=-1;
        if (cof!=NULL) signe=cof->get_orientation();
        if (multicoface) signe=1;
        if (signe==1)   
          {
          if (mai->get_degre()==1) {sprintf(in, "  M%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(triangle->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(1)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
          if (mai->get_degre()==2) {sprintf(in, "  M%s N%s N%s N%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(triangle->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(4)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(5)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(3)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(1)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
          i++;
          }
        else    
          {
          if (mai->get_degre()==1) {sprintf(in, "  M%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(triangle->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(1)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(2)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
          if (mai->get_degre()==2) {sprintf(in, "  M%s N%s N%s N%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(triangle->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(4)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(1)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(3)->get_numero(),base).c_str(),ot.get_base(triangle->get_fem_noeud(5)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
          i++;
          }
          
        }
        {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
        {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
      }
    if (nbquad>0)
      {
      if (mai->get_degre()==1)  {sprintf(in, "QUAD4    NOM=INDEFINI  NBOBJ=%d\n",nbquad);ot.mg_fprintf(file_in,in);}
      if (mai->get_degre()==2)  {sprintf(in, "QUAD8    NOM=INDEFINI  NBOBJ=%d\n",nbquad);ot.mg_fprintf(file_in,in);}
      LISTE_FEM_ELEMENT2::iterator itquad;
      for (FEM_ELEMENT2* quad=mai->get_premier_element2(itquad);quad;quad=mai->get_suivant_element2(itquad))
        {
        if ((quad->get_nb_fem_noeud()!=4) && (quad->get_nb_fem_noeud()!=8)) continue;
        quad->change_numero(i);
        int nbcoface=((MG_FACE*)(quad->get_lien_topologie()))->get_nb_mg_coface();
        MG_COFACE *cof=NULL;
        int icof=0;
        bool multicoface;
        while (icof<nbcoface) 
          {
          MG_COFACE* coftmp=((MG_FACE*)(quad->get_lien_topologie()))->get_mg_coface(icof);
          if (lstcoface->est_dans_la_liste(coftmp))
            if (cof==NULL) cof=coftmp; else multicoface=true;
          icof++;
          }
        int signe=-1;
        if (cof!=NULL) signe=cof->get_orientation();
        if (signe==1)   
          {
          if (mai->get_degre()==1) {sprintf(in, "  M%s N%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(quad->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(3)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(1)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
          if (mai->get_degre()==2) {sprintf(in, "  M%s N%s N%s N%s N%s N%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(quad->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(6)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(4)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(7)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(5)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(3)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(1)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
          i++;
          }
        else    
          {
          if (mai->get_degre()==1) {sprintf(in, "  M%s N%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(quad->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(1)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(3)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
          if (mai->get_degre()==2) {sprintf(in, "  M%s N%s N%s N%s N%s N%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(quad->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(4)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(6)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(1)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(3)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(5)->get_numero(),base).c_str(),ot.get_base(quad->get_fem_noeud(7)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
          i++;
          }
          
        }
        {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
        {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
      }
    if (nbvol!=0)                               // Éléments volumiques
    {
        if (mai->get_mg_maillage()->get_nb_mg_tetra()>0)
          {
          if (mai->get_degre()==1)  {sprintf(in, "TETRA4    NOM=INDEFINI  NBOBJ=%d\n",mai->get_mg_maillage()->get_nb_mg_tetra());ot.mg_fprintf(file_in,in);}
          if (mai->get_degre()==2)  {sprintf(in, "TETRA10    NOM=INDEFINI  NBOBJ=%d\n",mai->get_mg_maillage()->get_nb_mg_tetra());ot.mg_fprintf(file_in,in);}
          LISTE_FEM_ELEMENT3::iterator ittetra;
          for (FEM_ELEMENT3* tet=mai->get_premier_element3(ittetra);tet;tet=mai->get_suivant_element3(ittetra))
            if ((tet->get_nb_fem_noeud()==4) || ((tet->get_nb_fem_noeud()==10)))
            {
            tet->change_numero(i);
            if (mai->get_degre()==1) {sprintf(in, "  M%s N%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(tet->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(1)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(3)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
            if (mai->get_degre()==2) {sprintf(in, "  M%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(tet->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(4)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(9)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(1)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(3)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(5)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(6)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(7)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(8)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
            i++;
            }
          {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
          {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
          }
    if (mai->get_mg_maillage()->get_nb_mg_hexa()>0)
          {
          if (mai->get_degre()==1)  {sprintf(in, "HEXA8    NOM=INDEFINI  NBOBJ=%d\n",mai->get_mg_maillage()->get_nb_mg_hexa());ot.mg_fprintf(file_in,in);}
          if (mai->get_degre()==2)  {sprintf(in, "HEXA20    NOM=INDEFINI  NBOBJ=%d\n",mai->get_mg_maillage()->get_nb_mg_hexa());ot.mg_fprintf(file_in,in);}
          LISTE_FEM_ELEMENT3::iterator ittetra;
          for (FEM_ELEMENT3* tet=mai->get_premier_element3(ittetra);tet;tet=mai->get_suivant_element3(ittetra))
          if ((tet->get_nb_fem_noeud()==8) || ((tet->get_nb_fem_noeud()==20)))
            {
            tet->change_numero(i);
            if (mai->get_degre()==1) {sprintf(in, "  M%s N%s N%s N%s N%s N%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(tet->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(1)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(3)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(4)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(5)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(6)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(7)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
            if (mai->get_degre()==2) {sprintf(in, "  M%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(tet->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(4)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(6)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(12)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(14)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(16)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(18)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(1)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(3)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(5)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(7)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(8)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(9)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(10)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(11)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(13)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(15)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(17)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(19)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
            i++;
            }
          {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
          {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
          }
    if (mai->get_mg_maillage()->get_nb_mg_penta()>0)
          {
          if (mai->get_degre()==1)  {sprintf(in, "PENTA6    NOM=INDEFINI  NBOBJ=%d\n",mai->get_mg_maillage()->get_nb_mg_penta());ot.mg_fprintf(file_in,in);}
          if (mai->get_degre()==2)  {sprintf(in, "PENTA15    NOM=INDEFINI  NBOBJ=%d\n",mai->get_mg_maillage()->get_nb_mg_penta());ot.mg_fprintf(file_in,in);}
          LISTE_FEM_ELEMENT3::iterator ittetra;
          for (FEM_ELEMENT3* tet=mai->get_premier_element3(ittetra);tet;tet=mai->get_suivant_element3(ittetra))
          if ((tet->get_nb_fem_noeud()==6) || ((tet->get_nb_fem_noeud()==15)))
            {
            tet->change_numero(i);
            if (mai->get_degre()==1) {sprintf(in, "  M%s N%s N%s N%s N%s N%s N%s \n" ,ot.get_base(i,base).c_str(),ot.get_base(tet->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(1)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(3)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(4)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(5)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
            if (mai->get_degre()==2) {sprintf(in, "  M%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s N%s\n" ,ot.get_base(i,base).c_str(),ot.get_base(tet->get_fem_noeud(0)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(2)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(4)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(9)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(11)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(13)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(1)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(3)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(5)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(6)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(7)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(8)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(10)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(12)->get_numero(),base).c_str(),ot.get_base(tet->get_fem_noeud(14)->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
            i++;
            }
          {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
          {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
          }
    }
    
    // Groupes de noeuds 
    LISTE_MG_SOMMET::iterator itsom;
    for (MG_SOMMET* som=geo->get_premier_sommet(itsom);som;som=geo->get_suivant_sommet(itsom))
    {
        if ((som->est_une_topo_element()) && (!geo->est_virtuelle()))
            {
            MG_SOMMET_NOEUD* somno=(MG_SOMMET_NOEUD*)som;
            MG_NOEUD* no=somno->get_mg_noeud();
            if (no->get_lien_topologie()==somno) continue;
            {sprintf(in, "GROUP_NO    NOM=GNN%d \n ",somno->get_num_interne());ot.mg_fprintf(file_in,in);}
            FEM_NOEUD *femno;
            LISTE_FEM_NOEUD::iterator it;
            for (FEM_NOEUD *notmp=mai->get_premier_noeud(it);notmp!=NULL;notmp=mai->get_suivant_noeud(it))
              if (notmp->get_mg_element_maillage()==no) {femno=notmp;break;}
            {sprintf(in," N%s\n",ot.get_base(femno->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
            {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
            {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
            }
        
    }
    std::multimap<unsigned long,FEM_NOEUD*,std::less<unsigned long> > noeudclasse;
    LISTE_FEM_NOEUD::iterator itn;
    for (FEM_NOEUD *no=mai->get_premier_noeud(itn);no!=NULL;no=mai->get_suivant_noeud(itn))
      {
      if (no->get_lien_topologie()==NULL) continue;
      std::pair<unsigned long,FEM_NOEUD*> tmp(no->get_lien_topologie()->get_id(),no);
      noeudclasse.insert(tmp);
      }
    unsigned long old_id=0;
    int nbelementreel=0;
    int first=0;
    for (std::multimap<unsigned long,FEM_NOEUD*,std::less<unsigned long> >::iterator noeudclasseit=noeudclasse.begin();noeudclasseit!=noeudclasse.end();noeudclasseit++)
    {
      unsigned long id=(*noeudclasseit).first;
      FEM_NOEUD* no=(*noeudclasseit).second;
      if ((no->get_lien_topologie()->get_dimension()!=0) && (geo->est_virtuelle())) continue; 
      if (id!=old_id)
      {
        if (first)
        {
          if ((nbelementreel%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
          {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
          {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
        }
        char c;
        if (no->get_lien_topologie()->get_dimension()==0) c='S';
        if (no->get_lien_topologie()->get_dimension()==1) c='A';
        if (no->get_lien_topologie()->get_dimension()==2) c='F';
        if (no->get_lien_topologie()->get_dimension()==3) c='V';
        {sprintf(in, "GROUP_NO    NOM=GN%c%lu \n ",c,id);ot.mg_fprintf(file_in,in);}
        std::pair<unsigned long,unsigned long> tmp(id,id);
        gnexistant.insert(tmp);
        nbelementreel=0;
        first=1;
        old_id=id;
      }
      nbelementreel++;
      {sprintf(in," N%s",ot.get_base(no->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
      if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
    }
    if ((nbelementreel%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
    {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
    {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
    
    
    
    
    if (geo->est_virtuelle())
      {
      LISTE_MG_ARETE::iterator itare;
      for (MG_ARETE* are=geo->get_premier_arete(itare);are;are=geo->get_suivant_arete(itare))
        {
        TPL_MAP_ENTITE<MG_NOEUD*> lstnoeud;
        if (are->est_une_topo_element())
            {
            MG_ARETE_ELEMENT* areele=(MG_ARETE_ELEMENT*)are;
            int nbele=areele->get_nb_element();
            for (int i=0;i<nbele;i++)
              {
              MG_SEGMENT* seg=(MG_SEGMENT*)areele->get_lien_maillage()->get(i);
              if ((seg->get_noeud1()->get_lien_topologie()==NULL) || (seg->get_noeud1()->get_lien_topologie()==seg->get_lien_topologie())) lstnoeud.ajouter(seg->get_noeud1());
              if ((seg->get_noeud2()->get_lien_topologie()==NULL) || (seg->get_noeud2()->get_lien_topologie()==seg->get_lien_topologie())) lstnoeud.ajouter(seg->get_noeud2());
              }
              
            }
          
        if (lstnoeud.get_nb()>0)
          {
            int nbelementreel=0;
            {sprintf(in, "GROUP_NO    NOM=GNA%lu \n ",are->get_id());ot.mg_fprintf(file_in,in);}
            std::pair<unsigned long,unsigned long> tmp(are->get_id(),are->get_id());
            gnexistant.insert(tmp);FEM_NOEUD *femno;
            LISTE_FEM_NOEUD::iterator it;
            for (FEM_NOEUD *notmp=mai->get_premier_noeud(it);notmp!=NULL;notmp=mai->get_suivant_noeud(it))
        {
            //---------------------------------------------------------
            if ((MG_NOEUD*)notmp->get_mg_element_maillage()!=0)
            {    
            if (lstnoeud.existe((MG_NOEUD*)notmp->get_mg_element_maillage())) 
                {
                    nbelementreel++;
                    {sprintf(in," N%s",ot.get_base(notmp->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                    if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
                }
            }
            else if(notmp->get_lien_topologie()==are)
            {
               nbelementreel++;
                    {sprintf(in," N%s",ot.get_base(notmp->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                    if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
            }
        }
        
            if ((nbelementreel%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
            {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
            {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);} 
          }
        }
      LISTE_MG_FACE::iterator itfac;
      for (MG_FACE* fac=geo->get_premier_face(itfac);fac;fac=geo->get_suivant_face(itfac))
        {
        TPL_MAP_ENTITE<MG_NOEUD*> lstnoeud;
        if (fac->est_une_topo_element())
            {
            MG_FACE_ELEMENT* facele=(MG_FACE_ELEMENT*)fac;
            int nbele=facele->get_nb_element();
            for (int i=0;i<nbele;i++)
              {
              MG_ELEMENT_MAILLAGE* maiele=facele->get_lien_maillage()->get(i);
              if (maiele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_TRIANGLE)
                  {
                  MG_TRIANGLE* tri=(MG_TRIANGLE*)maiele;  
                  if ((tri->get_noeud1()->get_lien_topologie()==NULL) || (tri->get_noeud1()->get_lien_topologie()==tri->get_lien_topologie())) lstnoeud.ajouter(tri->get_noeud1());
                  if ((tri->get_noeud2()->get_lien_topologie()==NULL) || (tri->get_noeud2()->get_lien_topologie()==tri->get_lien_topologie()))lstnoeud.ajouter(tri->get_noeud2());
                  if ((tri->get_noeud3()->get_lien_topologie()==NULL) || (tri->get_noeud3()->get_lien_topologie()==tri->get_lien_topologie()))lstnoeud.ajouter(tri->get_noeud3());
                  }
              if (maiele->get_type_entite()==MAGIC::TYPE_ENTITE::IDMG_QUADRANGLE)
                  {
                  MG_QUADRANGLE* qua=(MG_QUADRANGLE*)maiele;  
                  if ((qua->get_noeud1()->get_lien_topologie()==NULL) || (qua->get_noeud1()->get_lien_topologie()==qua->get_lien_topologie()))lstnoeud.ajouter(qua->get_noeud1());
                  if ((qua->get_noeud2()->get_lien_topologie()==NULL) || (qua->get_noeud2()->get_lien_topologie()==qua->get_lien_topologie()))lstnoeud.ajouter(qua->get_noeud2());
                  if ((qua->get_noeud3()->get_lien_topologie()==NULL) || (qua->get_noeud3()->get_lien_topologie()==qua->get_lien_topologie()))lstnoeud.ajouter(qua->get_noeud3());
                  if ((qua->get_noeud4()->get_lien_topologie()==NULL) || (qua->get_noeud4()->get_lien_topologie()==qua->get_lien_topologie()))lstnoeud.ajouter(qua->get_noeud4());
                  }
              }
              
            }
          
        if (lstnoeud.get_nb()>0)
          {
            int nbelementreel=0;
            {sprintf(in, "GROUP_NO    NOM=GNF%lu \n ",fac->get_id());ot.mg_fprintf(file_in,in);}
            std::pair<unsigned long,unsigned long> tmp(fac->get_id(),fac->get_id());
            gnexistant.insert(tmp);
            FEM_NOEUD *femno;
            LISTE_FEM_NOEUD::iterator it;
            for (FEM_NOEUD *notmp=mai->get_premier_noeud(it);notmp!=NULL;notmp=mai->get_suivant_noeud(it))
        {
            if ((MG_NOEUD*)notmp->get_mg_element_maillage()!=0)
            {
            if (lstnoeud.existe((MG_NOEUD*)notmp->get_mg_element_maillage())) 
                {
                    nbelementreel++;
                    {sprintf(in," N%s",ot.get_base(notmp->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                    if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
                }
            }
                else if(notmp->get_lien_topologie()==fac)
                {
                    nbelementreel++;
                    {sprintf(in," N%s",ot.get_base(notmp->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                    if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
                }
      }
            if ((nbelementreel%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
            {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
            {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);} 
          }
        }
      }
    // Mini poutre
    if (minipresent.get_nb()>0)
        {
        int nbelementreel=0;
        sprintf(in, "GROUP_MA    NOM=GMMINI\n ");ot.mg_fprintf(file_in,in);
        TPL_MAP_ENTITE<FEM_ELEMENT1*>::ITERATEUR it;
        for (FEM_ELEMENT1* seg=minipresent.get_premier(it);seg!=NULL;seg=minipresent.get_suivant(it))
        {
            nbelementreel++;
            {sprintf(in," M%s",ot.get_base(seg->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
            if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
        }
        if ((nbelementreel%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
        {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
        {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}  
        }
    // Groupes de mailles
    int nbarete=geo->get_nb_mg_arete();         // Groupes d'arêtes
    for (int j=0;j<nbarete;j++)
    {
        MG_ARETE* arete=geo->get_mg_arete(j);
        int nbelement=arete->get_lien_fem_maillage()->get_nb();
        int nbelementreel=0;
        {sprintf(in, "GROUP_MA    NOM=GMA%lu \n ",arete->get_id());ot.mg_fprintf(file_in,in);}
        for (int k=0;k<nbelement;k++)
        {
            FEM_ELEMENT1* seg=(FEM_ELEMENT1*)arete->get_lien_fem_maillage()->get(k);
            if (mai->get_fem_element1id(seg->get_id())==NULL) continue;
            nbelementreel++;
            {sprintf(in," M%s",ot.get_base(seg->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
            if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
        }
        if ((nbelementreel%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
        {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
        {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
    }
    int nbpoutre=geo->get_nb_mg_poutre();               // Groupes de coques
    int nbcoque=geo->get_nb_mg_coque();         // Groupes de coques
    
    int nbface=geo->get_nb_mg_face();           // Groupes de faces
    for (int j=0;j<nbface;j++)
    {
        MG_FACE* face=geo->get_mg_face(j);
        int nbelement=face->get_lien_fem_maillage()->get_nb();
        int nbelementreel=0;
        {sprintf(in, "GROUP_MA    NOM=GMF%lu \n ",face->get_id());ot.mg_fprintf(file_in,in);}
        TPL_MAP_ENTITE<FEM_ELEMENT2*> listex;
        TPL_MAP_ENTITE<FEM_ELEMENT2*> listey;
        OT_VECTEUR_3D dirx(1.,0.,0.);
        OT_VECTEUR_3D diry(0.,1.,0.);
        for (int k=0;k<nbelement;k++)
        {
            FEM_ELEMENT2* tri=(FEM_ELEMENT2*)face->get_lien_fem_maillage()->get(k);
            if (mai->get_fem_element2id(tri->get_id())==NULL) continue;
             if (mai->get_degre()==1)       
             {
            FEM_NOEUD* no1=tri->get_fem_noeud(0);
            FEM_NOEUD* no2=tri->get_fem_noeud(1);
            FEM_NOEUD* no3=tri->get_fem_noeud(2);
            
            double *xyz1=no1->get_coord();
            double *xyz2=no2->get_coord();
            double *xyz3=no3->get_coord();
            OT_VECTEUR_3D vec1(xyz1,xyz2);
            OT_VECTEUR_3D vec2(xyz1,xyz3);
            OT_VECTEUR_3D normale=vec1&vec2;    // Normale au triangle
            normale.norme();
            
            if (fabs(fabs(normale*dirx)-1.)<0.0000000001)       // Si l'axe X est // à la normale (produit scalaire=1 ou -1)
                listey.ajouter(tri);
            else                                        // Sinon l'axe Y est // à la normale
                listex.ajouter(tri);
              }
               if (mai->get_degre()==2)     
             {
            FEM_NOEUD* no1=tri->get_fem_noeud(0);
            FEM_NOEUD* no2=tri->get_fem_noeud(2);
            FEM_NOEUD* no3=tri->get_fem_noeud(4);  
                    
            double *xyz1=no1->get_coord();
            double *xyz2=no2->get_coord();
            double *xyz3=no3->get_coord();
             
            OT_VECTEUR_3D vec1(xyz1,xyz2);
            OT_VECTEUR_3D vec2(xyz1,xyz3);
            OT_VECTEUR_3D normale=vec1&vec2;    // Normale au triangle
            normale.norme();
            
            if (fabs(fabs(normale*dirx)-1.)<0.0000000001)       // Si l'axe X est // à la normale (produit scalaire=1 ou -1)
                listey.ajouter(tri);
            else                                        // Sinon l'axe Y est // à la normale
                listex.ajouter(tri);
            } 
            if (mai->get_fem_element2id(tri->get_id())==NULL) continue;
            nbelementreel++;
            {sprintf(in," M%s",ot.get_base(tri->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
            if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
        }
        if ((nbelementreel%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
        {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
        {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
        
        nbelementreel=0;
        int nbx=listex.get_nb();
        if ( (nbx!=0) && (nbcoque!=0))                  // Si le groupe de mailles X n'est pas vide
        {
            char nomgroupex[500];
            sprintf(nomgroupex,"GMF%luX",face->get_id());
            std::pair<std::string,std::string> tmp(nomgroupex,nomgroupex);
            listegroupedemaillexy.insert(tmp);
            {sprintf(in, "GROUP_MA    NOM=GMF%luX \n ",face->get_id());ot.mg_fprintf(file_in,in);}
            
            TPL_MAP_ENTITE<FEM_ELEMENT2*>::ITERATEUR it;
            for (FEM_ELEMENT2* tri=listex.get_premier(it);tri!=NULL;tri=listex.get_suivant(it))
            {
                nbelementreel++;
                {sprintf(in," M%s",ot.get_base(tri->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
            }
            if ((nbelementreel%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
            {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
            {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
        }
        
        nbelementreel=0;
        int nby=listey.get_nb();
        if ((nby!=0) && (nbcoque!=0))                           // Si le groupe de mailles Y n'est pas vide
        {
            char nomgroupey[500];
            sprintf(nomgroupey,"GMF%luY",face->get_id());
            std::pair<std::string,std::string> tmp(nomgroupey,nomgroupey);
            listegroupedemaillexy.insert(tmp);
            {sprintf(in, "GROUP_MA    NOM=GMF%luY \n ",face->get_id());ot.mg_fprintf(file_in,in);}
        
            TPL_MAP_ENTITE<FEM_ELEMENT2*>::ITERATEUR it;
            for (FEM_ELEMENT2* tri=listey.get_premier(it);tri!=NULL;tri=listey.get_suivant(it))
             {
                  nbelementreel++;
                  {sprintf(in," M%s",ot.get_base(tri->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                  if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
              }
              if ((nbelementreel%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
              {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
              {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
        }
    }
    for (int j=0;j<nbpoutre;j++)
    {
        MG_POUTRE* poutre=geo->get_mg_poutre(j);
        {sprintf(in, "GROUP_MA    NOM=GMP%lu \n ",poutre->get_id());ot.mg_fprintf(file_in,in);}
        int nbelementreel=0;
        if (poutre->est_une_topo_element())
            {
            int nbelement=((MG_POUTRE_ELEMENT*)poutre)->get_nb_element();
            for (int m=0;m<nbelement;m++)
                {
                MG_ELEMENT_MAILLAGE* mgele=((MG_POUTRE_ELEMENT*)poutre)->get_element(m);
                LISTE_FEM_ELEMENT1::iterator it;
                FEM_ELEMENT1* ele;
                for (FEM_ELEMENT1* eletmp=mai->get_premier_element1(it);eletmp;eletmp=mai->get_suivant_element1(it))    // pas terrible en efficacite VF juillet 2015
                  if (eletmp->get_mg_element_maillage()==mgele) ele=eletmp;
                nbelementreel++;                
                {sprintf(in," M%s",ot.get_base(ele->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
                }
            }
        else
            {
            int  nbboucle=poutre->get_nb_mg_boucle();
            for (int k=0;k<nbboucle;k++)
              {
              MG_BOUCLE* bou=poutre->get_mg_boucle(k);
              int nbarete=bou->get_nb_mg_coarete();
              for (int l=0;l<nbarete;l++)
               {
                MG_ARETE* are=bou->get_mg_coarete(l)->get_arete();
                int nbelement=are->get_lien_fem_maillage()->get_nb();
                for (int m=0;m<nbelement;m++)
                {
                FEM_ELEMENT1* seg=(FEM_ELEMENT1*)are->get_lien_fem_maillage()->get(m);  
                if (mai->get_fem_element1id(are->get_id())==NULL) continue;
                nbelementreel++;                
                {sprintf(in," M%s",ot.get_base(seg->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
                }
              }
            }
              
            }
        
        if (((nbelementreel)%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
        {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
        {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
    }
    for (int j=0;j<nbcoque;j++)
    {
        MG_COQUE* coque=geo->get_mg_coque(j);
        {sprintf(in, "GROUP_MA    NOM=GMC%lu \n ",coque->get_id());ot.mg_fprintf(file_in,in);}
        int nbelementreel=0;
        if (coque->est_une_topo_element())
            {
            int nbelement=((MG_COQUE_ELEMENT*)coque)->get_nb_element();
            for (int m=0;m<nbelement;m++)
                {
                MG_ELEMENT_MAILLAGE* mgele=((MG_COQUE_ELEMENT*)coque)->get_element(m);
                LISTE_FEM_ELEMENT2::iterator it;
                FEM_ELEMENT2* ele;
                for (FEM_ELEMENT2* eletmp=mai->get_premier_element2(it);eletmp;eletmp=mai->get_suivant_element2(it))    // pas terrible en efficacite VF juillet 2015
                  if (eletmp->get_mg_element_maillage()==mgele) ele=eletmp;
                nbelementreel++;                
                {sprintf(in," M%s",ot.get_base(ele->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
                }
            }
        else
            {
            int  nbcoquille=coque->get_nb_mg_coquille();
            for (int k=0;k<nbcoquille;k++)
              {
              MG_COQUILLE* coq=coque->get_mg_coquille(k);
              int nbface=coq->get_nb_mg_coface();
              for (int l=0;l<nbface;l++)
               {
                MG_FACE* face=coq->get_mg_coface(l)->get_face();
                int nbelement=face->get_lien_fem_maillage()->get_nb();
                for (int m=0;m<nbelement;m++)
                {
                FEM_ELEMENT2* tri=(FEM_ELEMENT2*)face->get_lien_fem_maillage()->get(m); 
                if (mai->get_fem_element2id(tri->get_id())==NULL) continue;
                nbelementreel++;                
                {sprintf(in," M%s",ot.get_base(tri->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
                }
              }
            }
              
            }
        
        if (((nbelementreel)%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
        {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
        {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
    }
    //int nbvol=geo->get_nb_mg_volume();                // Groupes de tétraèdres
    for (int j=0;j<nbvol;j++)
    {
        MG_VOLUME* vol=geo->get_mg_volume(j);
        {sprintf(in, "GROUP_MA    NOM=GMV%lu \n ",vol->get_id());ot.mg_fprintf(file_in,in);}
        int nbelement=vol->get_lien_fem_maillage()->get_nb();
        int nbelementreel=0;
        for (int k=0;k<nbelement;k++)
        {
            FEM_ELEMENT3* tet=(FEM_ELEMENT3*)vol->get_lien_fem_maillage()->get(k);
            if (mai->get_fem_element3id(tet->get_id())==NULL) continue;
            {
                nbelementreel++;
                {sprintf(in," M%s",ot.get_base(tet->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                if ((nbelementreel%8)==0) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
            }
        }
        if (((nbelementreel)%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
        {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
        {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
        
        if ((typeetude==MAGIC::CALCUL_ASTER::OPTIMISATIONTOPOLOGIQUE)||(typeetude==MAGIC::CALCUL_ASTER::ELASTIQUE_NON_LINEAIRE_3D_FATIGUE))
        {
            for (int i=1;i<=niveaumax;i++)
            {
                int nbelement=lst[i].size();
                if (nbelement==0) continue;
                {sprintf(in, "GROUP_MA    NOM=GM_%d \n ",i);ot.mg_fprintf(file_in,in);}
                for (int k=0;k<nbelement;k++)
                {
                    FEM_ELEMENT3* tet=lst[i].at(k);
                    {sprintf(in," M%s",ot.get_base(tet->get_numero(),base).c_str());ot.mg_fprintf(file_in,in);}
                    if ((k%8)==7) {sprintf(in,"\n ");ot.mg_fprintf(file_in,in);}
                }
                if (((nbelement)%8)!=0) {sprintf(in,"\n");ot.mg_fprintf(file_in,in);}
                {sprintf(in,"FINSF\n" );ot.mg_fprintf(file_in,in);}
                {sprintf(in, "%%\n"    );ot.mg_fprintf(file_in,in);}
            }
        }
    }
    {sprintf(in, "%%\nFIN\n"    );ot.mg_fprintf(file_in,in);}
    fclose(file_in);  
}
 
double MG_EXPORT::aster(class MG_GEOMETRIE *geo,class FEM_MAILLAGE* mai,std::string fichier,int typeetude,char *coderesu,double penal,int niveaumax,std::vector<FEM_ELEMENT3*> *lst)
{
TPL_LISTE_ENTITE<MG_COFACE*> lstcoface;
LISTE_MG_VOLUME::iterator itvol;
LISTE_MG_COQUE::iterator itcoq;
 
for (MG_VOLUME* vol=geo->get_premier_volume(itvol);vol!=NULL;vol=geo->get_suivant_volume(itvol))
  for (int i=0;i<vol->get_nb_mg_coquille();i++)
    for (int j=0;j<vol->get_mg_coquille(i)->get_nb_mg_coface();j++)
      lstcoface.ajouter(vol->get_mg_coquille(i)->get_mg_coface(j));
for (MG_COQUE* coq=geo->get_premier_coque(itcoq);coq!=NULL;coq=geo->get_suivant_coque(itcoq))
for (int i=0;i<coq->get_nb_mg_coquille();i++)
  for (int j=0;j<coq->get_mg_coquille(i)->get_nb_mg_coface();j++)
    lstcoface.ajouter(coq->get_mg_coquille(i)->get_mg_coface(j));
aster(&lstcoface,mai,fichier,typeetude,coderesu,penal,niveaumax,lst);
return get_version_aster();
}
 
 
 
void MG_EXPORT::aster(TPL_LISTE_ENTITE<MG_COFACE*> *lstcoface,class FEM_MAILLAGE* mai,std::string fichier,int typeetude,char *coderesu,double penal,int niveaumax,std::vector<FEM_ELEMENT3*> *lst)
{
    std::map<std::string,std::string> listegroupedemaillexy; 
    std::map<unsigned long,unsigned long> gnexistant;
    TPL_MAP_ENTITE<FEM_ELEMENT1*> minipresent;
    aster_ecrire_export(fichier,typeetude);
    if ((typeetude==MAGIC::CALCUL_ASTER::DEFORMATION_PLANE)||(typeetude==MAGIC::CALCUL_ASTER::CONTRAINTE_PLANE)) 
      aster_ecrire_mail(minipresent,2,lstcoface,mai,fichier,typeetude,niveaumax,lst,listegroupedemaillexy,gnexistant);
    else 
      aster_ecrire_mail(minipresent,3,lstcoface,mai,fichier,typeetude,niveaumax,lst,listegroupedemaillexy,gnexistant);
    MG_GEOMETRIE* geo=mai->get_mg_geometrie();
    int nbvol=geo->get_nb_mg_volume();
    int nbcoque=geo->get_nb_mg_coque();
    int nbpoutre=geo->get_nb_mg_poutre();
    int deg= mai->get_degre();
    if (typeetude==MAGIC::CALCUL_ASTER::ELASTIQUE)
      {
      if ((nbvol>0) && (nbpoutre>0))  typeetude=MAGIC::CALCUL_ASTER::ELASTIQUE_MIXTE_1D3D;
      else if (nbvol>0) typeetude=MAGIC::CALCUL_ASTER::ELASTIQUE_3D;
      else if (nbcoque>0)
          {
          if (deg==1) typeetude=MAGIC::CALCUL_ASTER::ELASTIQUE_PLAQUE;
          else if (deg==2) typeetude=MAGIC::CALCUL_ASTER::ELASTIQUE_COQUE;
          }
      }
    if (typeetude==MAGIC::CALCUL_ASTER::RIGIDITE)
      {
      if ((nbvol>0) && (nbpoutre>0))  typeetude=MAGIC::CALCUL_ASTER::RIGIDITE_MIXTE_1D3D;
      else if (nbvol>0) typeetude=MAGIC::CALCUL_ASTER::RIGIDITE_3D;
      else if (nbcoque>0)
          {
          if (deg==1) typeetude=MAGIC::CALCUL_ASTER::RIGIDITE_PLAQUE;
          else if (deg==2) typeetude=MAGIC::CALCUL_ASTER::RIGIDITE_COQUE;
          }
      }
    if (typeetude==MAGIC::CALCUL_ASTER::ELASTIQUE_GROT_GDEF)
      {
      if (nbvol>0) typeetude=MAGIC::CALCUL_ASTER::ELASTIQUE_GROT_GDEF_3D;
      else if (nbcoque>0)
          {
          if (deg==1) typeetude=MAGIC::CALCUL_ASTER::ELASTIQUE_GROT_GDEF_PLAQUE;
          else if (deg==2) typeetude=MAGIC::CALCUL_ASTER::ELASTIQUE_GROT_GDEF_PLAQUE;
          }
      }
    if (typeetude==MAGIC::CALCUL_ASTER::ELASTIQUE_NON_LINEAIRE_3D)
      if (nbvol>0) typeetude=MAGIC::CALCUL_ASTER::ELASTIQUE_NON_LINEAIRE_3D;
      
         if (typeetude==MAGIC::CALCUL_ASTER::ELASTIQUE_NON_LINEAIRE_3D_FATIGUE)
      if (nbvol>0) typeetude=MAGIC::CALCUL_ASTER::ELASTIQUE_NON_LINEAIRE_3D_FATIGUE;
      
    if (typeetude==MAGIC::CALCUL_ASTER::THERMIQUE)
      if (nbvol>0) typeetude=MAGIC::CALCUL_ASTER::THERMIQUE_3D;
    if (typeetude==MAGIC::CALCUL_ASTER::PLASTIQUE)
    {
       //if ((nbvol>0) && (nbpoutre>0)) typeetude=MAGIC::CALCUL_ASTER::PLASTIQUE_MIXTE_1D3D;
      //else if (nbvol>0) 
      if (nbvol>0) 
      {
        typeetude=MAGIC::CALCUL_ASTER::PLASTIQUE_BILINEAIRE;
        for(long k=0;k<geo->get_nb_mg_volume();k++)
        {
         double val_CM=-1;
         geo->get_mg_volume(k)->get_valeur_ccf((char*)"CM",val_CM);
         if(val_CM>0) typeetude=MAGIC::CALCUL_ASTER::PLASTIQUE_COURBE;
         else 
            {
              geo->get_mg_volume(k)->get_valeur_ccf((char*)"cm",val_CM);
              if(val_CM>0) typeetude=MAGIC::CALCUL_ASTER::PLASTIQUE_COURBE;
            }
        }
      }
      else if (nbcoque>0)
          {
          if (deg==1) typeetude=MAGIC::CALCUL_ASTER::PLASTIQUE_BILINEAIRE_PLAQUE;
          else if (deg==2) typeetude=MAGIC::CALCUL_ASTER::PLASTIQUE_BILINEAIRE_COQUE;
          }
    }
    
    bool desactiveerreur=false;
    if ((typeetude==MAGIC::CALCUL_ASTER::ELASTIQUE_3D)&&(deg==2)) desactiveerreur=true;
    if ((typeetude==MAGIC::CALCUL_ASTER::OPTIMISATIONTOPOLOGIQUE)&&(deg==2)) desactiveerreur=true;
    if (typeetude==MAGIC::CALCUL_ASTER::ELASTIQUE_MIXTE_1D3D) desactiveerreur=true;
    double version;
    FILE *in;  
    std::vector<std::string> chargepresente;
    char *type_ccf;
    char form;
    int NONLINEAIRE=param_aster.get_valeur("nonlineaire"); 
   // MG_ELEMENT_TOPOLOGIQUE *ele;
    switch (typeetude)
    {
      case MAGIC::CALCUL_ASTER::ELASTIQUE_MIXTE_1D3D:// attention poutre droite
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef_mixte(in,geo);
              aster_ecrire_comm_caracteristiques_poutre(in,nbpoutre,minipresent,geo);
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,false,true,false,true,chargepresente,gnexistant);
              aster_ecrire_comm_meca_statique(in,geo,true,false,true,desactiveerreur,false,chargepresente,coderesu);
              aster_ecrire_comm_imprime_resultat_statique(in,coderesu,true,true,desactiveerreur);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::RIGIDITE_MIXTE_1D3D:// attention poutre droite
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef_mixte(in,geo);
              aster_ecrire_comm_caracteristiques_poutre(in,nbpoutre,minipresent,geo);
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_rigidite(in,false);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::ELASTIQUE_3D:
              {
              bool estortho=false;
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","3D");
              aster_ecrire_comm_caracteristiques_volume(in,nbvol,geo,estortho);
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,estortho,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,false,true,false,true,chargepresente,gnexistant);
              aster_ecrire_comm_meca_statique(in,geo,true,false,false,desactiveerreur,estortho,chargepresente,coderesu);
              aster_ecrire_comm_imprime_resultat_statique(in,coderesu,true,false,desactiveerreur);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::RIGIDITE_3D:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","3D");
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_rigidite(in,false);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::ELASTIQUE_PLAQUE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","DKT");
              aster_ecrire_comm_caracteristiques_coque(in,nbcoque,geo,listegroupedemaillexy);
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,false,false,true,true,chargepresente,gnexistant);
              aster_ecrire_comm_meca_statique(in,geo,false,true,false,false,false,chargepresente,coderesu);
              aster_ecrire_comm_imprime_resultat_statique_plaque(in,coderesu);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::RIGIDITE_PLAQUE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","DKT");
              aster_ecrire_comm_caracteristiques_coque(in,nbcoque,geo,listegroupedemaillexy);
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_rigidite(in,true);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::ELASTIQUE_COQUE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef_coque(in);
              aster_ecrire_comm_caracteristiques_coque(in,nbcoque,geo,listegroupedemaillexy);
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL2",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,false,false,true,true,chargepresente,gnexistant);
              aster_ecrire_comm_meca_statique(in,geo,false,true,false,false,false,chargepresente,coderesu);
              aster_ecrire_comm_imprime_resultat_statique_coque(in,coderesu);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::RIGIDITE_COQUE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef_coque(in);
              aster_ecrire_comm_caracteristiques_coque(in,nbcoque,geo,listegroupedemaillexy);
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL2",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_rigidite(in,true);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::OPTIMISATIONTOPOLOGIQUE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","3D");
              aster_ecrire_comm_defi_materiau_elastique_volume_optimisation(in,nbvol,geo,niveaumax,penal);
              aster_ecrire_comm_affe_materiau_optimisation_topo(in,niveaumax,lst);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,false,true,false,true,chargepresente,gnexistant);
              aster_ecrire_comm_meca_statique(in,geo,true,false,false,false,desactiveerreur,chargepresente,coderesu);
              aster_ecrire_comm_imprime_resultat_statique(in,coderesu,true,false,desactiveerreur);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::CONTRAINTE_PLANE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","C_PLAN");
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,false,false,false,false,chargepresente,gnexistant);
              aster_ecrire_comm_meca_statique(in,geo,true,false,false,false,false,chargepresente,coderesu);
              aster_ecrire_comm_imprime_resultat_statique(in,coderesu,false,false,false);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::RIGIDITE_CONTRAINTE_PLANE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","C_PLAN");
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_rigidite(in,false);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::DEFORMATION_PLANE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","D_PLAN");
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,false,false,false,false,chargepresente,gnexistant);
              aster_ecrire_comm_meca_statique(in,geo,true,false,false,false,false,chargepresente,coderesu);
              aster_ecrire_comm_imprime_resultat_statique(in,coderesu,false,false,false);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::RIGIDITE_DEFORMATION_PLANE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","D_PLAN");
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_rigidite(in,false);
              aster_ecrire_comm_fin(in);
              break;
              }
      case MAGIC::CALCUL_ASTER::THERMIQUE_3D:
              {
           
              //aster_ecrire_comm_thermique(mai,fichier,noeudclasse);
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"THERMIQUE","3D");
              aster_ecrire_comm_condition_limite(in,geo,false,false,true,false,true,false,true,chargepresente,gnexistant);   
              aster_ecrire_comm_defi_materiau_thermique(in,nbvol,geo,form);
              if(form=='N')
              {
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_ther_lineaire(in,geo,chargepresente);
              aster_ecrire_comm_imprime_resultat_thermique(in);
              aster_ecrire_comm_fin(in);
              }
              if(form=='I')
              {
    
              if (NONLINEAIRE==1)
              {
              aster_ecrire_comm_ther_non_lineaire_iteratif(in,geo,nbvol,nbcoque,nbpoutre,chargepresente,gnexistant);
              }
              else
              {
              aster_ecrire_comm_ther_lineaire_iteratif(in,geo,nbvol,nbcoque,nbpoutre,chargepresente,gnexistant);
              }
              aster_ecrire_comm_fin(in);
              }
              
             
          
              break;
              }
     case MAGIC::CALCUL_ASTER::ELASTIQUE_GROT_GDEF_3D:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","3D");
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,true,true,false,true,chargepresente,gnexistant);
              aster_ecrire_comm_statique_non_lineaire(version,in,geo,true,false,false,false,chargepresente,coderesu,"ELAS","GROT_GDEP");
              aster_ecrire_comm_imprime_resultat_statique_non_lineaire(in,coderesu,true);
              aster_ecrire_comm_fin(in);
              break;
              }         
     case MAGIC::CALCUL_ASTER::ELASTIQUE_NON_LINEAIRE_3D:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","3D");
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,true,true,false,true,chargepresente,gnexistant);
              aster_ecrire_comm_defi_materiau_plastique_courbe(in,nbvol,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_statique_non_lineaire(version,in,geo,true,false,false,false,chargepresente,coderesu,"ELAS_VMIS_TRAC","GROT_GDEP");
              aster_ecrire_comm_imprime_resultat_statique_non_lineaire(in,coderesu,true);
              aster_ecrire_comm_fin(in);
              break;
              } 
              
          case MAGIC::CALCUL_ASTER::ELASTIQUE_NON_LINEAIRE_3D_FATIGUE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","3D");
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,true,true,false,true,chargepresente,gnexistant);
              aster_ecrire_comm_defi_materiau_elastique_volume_fatigue(in,nbvol,geo,niveaumax,penal);
              aster_ecrire_comm_affe_materiau_optimisation_topo(in,niveaumax,lst);  
              aster_ecrire_comm_statique_non_lineaire(version,in,geo,true,false,false,false,chargepresente,coderesu,"ELAS_VMIS_TRAC","GROT_GDEP");
              aster_ecrire_comm_imprime_resultat_statique_non_lineaire(in,coderesu,true);
              aster_ecrire_comm_fin(in);
              break;
              
              }     
     case MAGIC::CALCUL_ASTER::ELASTIQUE_GROT_GDEF_PLAQUE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","DKT");
              aster_ecrire_comm_caracteristiques_coque(in,nbcoque,geo,listegroupedemaillexy);
              aster_ecrire_comm_defi_materiau_elastique(in,nbvol,nbcoque,nbpoutre,false,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,true,false,true,true,chargepresente,gnexistant);
              aster_ecrire_comm_statique_non_lineaire(version,in,geo,false,true,false,false,chargepresente,coderesu,"ELAS","GROT_GDEP");
              aster_ecrire_comm_imprime_resultat_nonli_plaque(in,coderesu);
              aster_ecrire_comm_fin(in);
              break;
              }
    case MAGIC::CALCUL_ASTER::PLASTIQUE_BILINEAIRE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","3D");
              aster_ecrire_comm_defi_materiau_plastique_bilineaire(in,nbvol,nbcoque,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,true,true,false,true,chargepresente,gnexistant);
              aster_ecrire_comm_statique_non_lineaire(version,in,geo,true,false,false,false,chargepresente,coderesu,"VMIS_ISOT_LINE","SIMO_MIEHE");
              aster_ecrire_comm_imprime_resultat_statique_non_lineaire(in,coderesu,true);
              aster_ecrire_comm_fin(in);
              break;
              }
    case MAGIC::CALCUL_ASTER::PLASTIQUE_BILINEAIRE_PLAQUE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","DKT");
              aster_ecrire_comm_caracteristiques_coque(in,nbcoque,geo,listegroupedemaillexy);
              aster_ecrire_comm_defi_materiau_plastique_bilineaire(in,nbvol,nbcoque,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,true,false,true,true,chargepresente,gnexistant);
              aster_ecrire_comm_statique_non_lineaire(version,in,geo,false,true,false,false,chargepresente,coderesu,"VMIS_ISOT_LINE","PETIT");//only: GDEF_LOG PETIT_REAC PETIT not:GDEF_HYPO_ELAS SIMO_MIEHE GROT_GDEP     
              aster_ecrire_comm_imprime_resultat_nonli_plaque(in,coderesu);
              aster_ecrire_comm_fin(in);
              break;
              }       
              
              
              
    case MAGIC::CALCUL_ASTER::PLASTIQUE_COURBE:
              {
              version=aster_ecrire_comm_debut(fichier,&in);
              aster_ecrire_comm_lire_maillage(in);
              aster_ecrire_comm_definiton_ef(in,"MECANIQUE","3D");
              aster_ecrire_comm_defi_materiau_plastique_courbe(in,nbvol,geo);
              aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo);
              aster_ecrire_comm_condition_limite(in,geo,true,true,false,true,true,false,true,chargepresente,gnexistant);
              aster_ecrire_comm_statique_non_lineaire(version,in,geo,true,false,false,false,chargepresente,coderesu,"VMIS_ISOT_TRAC","SIMO_MIEHE");
              aster_ecrire_comm_imprime_resultat_statique_non_lineaire(in,coderesu,true);
              aster_ecrire_comm_fin(in);
              break;
              }
 
    }
        
}
 
double MG_EXPORT::aster_ecrire_comm_debut(std::string fichier,FILE **in)
{
    double version=get_version_aster();
    std::string fichiercomm=fichier+".comm";
    *in=fopen(fichiercomm.c_str(),"wt");
    fprintf(*in,"################################################################################\n");
    fprintf(*in,"# Transfert MAGiC %s vers code ASTER %.1lf\n",MAGIC_VERSION,version);
    fprintf(*in,"################################################################################\n\n");
    fprintf(*in,"DEBUT();\n\n");
    return version;
}
 
void MG_EXPORT::aster_ecrire_comm_fin(FILE *in)
{
    fprintf(in,"\n\nFIN();\n\n");
    fprintf(in,"################################################################################\n\n");
    fclose(in);
}
 
void MG_EXPORT::aster_ecrire_comm_lire_maillage(FILE *in)
{
    fprintf(in,"# LECTURE DU MAILLAGE-----------------------------------------------------------\n");
    fprintf(in,"MAIL=LIRE_MAILLAGE(FORMAT='ASTER');\n\n");
 
}
 
void MG_EXPORT::aster_ecrire_comm_definiton_ef(FILE *in,std::string phenomene,std::string modelisation)
{
    fprintf(in,"# DEFINITION DES ELEMENTS FINIS UTILISES----------------------------------------\n");
    fprintf(in,"MODCAL=AFFE_MODELE(MAILLAGE  = MAIL, AFFE  =_F(TOUT = 'OUI', PHENOMENE = '%s', MODELISATION = '%s' ,),);\n\n",phenomene.c_str(),modelisation.c_str());
 
}
 
 
void MG_EXPORT::aster_ecrire_comm_definiton_ef_mixte(FILE *in,MG_GEOMETRIE* geo)
    {
    fprintf(in,"# DEFINITION DES ELEMENTS FINIS UTILISES----------------------------------------\n");
    fprintf(in,"MODCAL=AFFE_MODELE(MAILLAGE  = MAIL, AFFE  =(\n");
    if (geo->get_nb_mg_volume()>0)
      {
      fprintf(in,"_F(GROUP_MA=(");
      LISTE_MG_VOLUME::iterator itv;
      LISTE_MG_FACE::iterator itf;
      LISTE_MG_ARETE::iterator ita;
      for (MG_VOLUME *vol=geo->get_premier_volume(itv);vol!=NULL;vol=geo->get_suivant_volume(itv))
        fprintf(in,"'GMV%lu',",vol->get_id());
      for (MG_FACE *face=geo->get_premier_face(itf);face!=NULL;face=geo->get_suivant_face(itf))
        fprintf(in,"'GMF%lu',",face->get_id());
      for (MG_ARETE *are=geo->get_premier_arete(ita);are!=NULL;are=geo->get_suivant_arete(ita))
        fprintf(in,"'GMA%lu',",are->get_id());
      fprintf(in,"), PHENOMENE = 'MECANIQUE', MODELISATION = '3D' ,),\n");
      }
    if (geo->get_nb_mg_poutre()>0)
      {
      fprintf(in,"_F(GROUP_MA=(");
      LISTE_MG_POUTRE::iterator itp;
      for (MG_POUTRE *pou=geo->get_premier_poutre(itp);pou!=NULL;pou=geo->get_suivant_poutre(itp))
        fprintf(in,"'GMP%lu',",pou->get_id());
      fprintf(in,"'GMMINI',), PHENOMENE = 'MECANIQUE', MODELISATION = 'POU_D_E' ,),\n");
      }
    fprintf(in,"),);\n\n");
 
}
 
void MG_EXPORT::aster_ecrire_comm_definiton_ef_coque(FILE *in)
{
    fprintf(in,"MAIL2=CREA_MAILLAGE(MAILLAGE=MAIL,MODI_MAILLE=(_F(TOUT='OUI',OPTION='TRIA6_7',),),);\n\n");
    fprintf(in,"MODCAL=AFFE_MODELE(MAILLAGE = MAIL2, AFFE =_F(TOUT = 'OUI', PHENOMENE = 'MECANIQUE', MODELISATION = 'COQUE_3D',),);\n\n");
    fprintf(in,"MODORI=AFFE_MODELE(MAILLAGE  = MAIL, AFFE  =_F(TOUT = 'OUI', PHENOMENE = 'MECANIQUE', MODELISATION = '3D' ,),);\n\n");   
}
 
void MG_EXPORT::aster_ecrire_comm_rigidite(FILE *in,bool coque)
{
fprintf(in,"# CALCUL DE LA MATRICE DE RIGIDITE------------------\n");
if (!coque) fprintf(in,"mel = CALC_MATR_ELEM(OPTION = 'RIGI_MECA', MODELE = MODCAL,CHAM_MATER=CHMAT );\n");
else fprintf(in,"mel = CALC_MATR_ELEM(OPTION = 'RIGI_MECA', MODELE = MODCAL,CHAM_MATER=CHMAT , CARA_ELEM=CARA_COQ, );\n");
fprintf(in,"nu = NUME_DDL(MATR_RIGI = mel);\n");
fprintf(in,"matas = ASSE_MATRICE (NUME_DDL = nu, MATR_ELEM = mel,);\n");
}
 
 
void MG_EXPORT::aster_ecrire_comm_caracteristiques_poutre(FILE *in,int nbpoutre,TPL_MAP_ENTITE<class FEM_ELEMENT1*> &minipresent,MG_GEOMETRIE* geo)
{
fprintf(in,"# DEFINITION DES CARACTERISTIQUES DES ELEMENTS DE POUTRES\n");
fprintf(in,"CARA_POU=AFFE_CARA_ELEM(MODELE=MODCAL,POUTRE=(\n");
double dimcar=0.;
for (int i=0;i<nbpoutre;i++)    // Épaisseur des faces
            {
            MG_POUTRE* pou=geo->get_mg_poutre(i);
            double rr;
            bool resrr=pou->get_valeur_ccf((char*)"Rr",rr);
            if (resrr) {fprintf(in,"_F(GROUP_MA='GMP%lu',SECTION='CERCLE',CARA='R',VALE=%lf,),\n",pou->get_id(),rr);dimcar=dimcar+rr;continue;}  
            double hx,hy;
            bool reshx=pou->get_valeur_ccf((char*)"Hx",hx);
            bool reshy=pou->get_valeur_ccf((char*)"Hy",hy);
            if ((reshx) && (reshy)) {fprintf(in,"_F(GROUP_MA='GMP%lu',SECTION='RECTANGLE',CARA=('Hx','Hy'),VALE=(%lf,%lf),),\n",pou->get_id(),hx,hy);dimcar=dimcar+0.5*hx+0.5*hy;continue;}  
            }
dimcar=dimcar/nbpoutre;
TPL_MAP_ENTITE<FEM_ELEMENT1*>::ITERATEUR it;
for (FEM_ELEMENT1* ele=minipresent.get_premier(it);ele!=NULL;ele=minipresent.get_suivant(it))
            {
            int num=ele->get_numero();
            fprintf(in,"_F(MAILLE='M%d',SECTION='CERCLE',CARA='R',VALE=%lf,),\n",num,dimcar);  
            }
          
fprintf(in,"),\nORIENTATION=(\n");
for (int i=0;i<nbpoutre;i++)    // Épaisseur des faces
            {
            MG_POUTRE* pou=geo->get_mg_poutre(i);
            double cx,cy,cz;
            pou->get_valeur_ccf((char*)"Cx",cx);
            pou->get_valeur_ccf((char*)"Cy",cy);
            pou->get_valeur_ccf((char*)"Cz",cz);
            int num=pou->get_lien_fem_maillage()->get(0)->get_numero();
            FEM_NOEUD* no1=((FEM_ELEMENT1*)pou->get_lien_fem_maillage()->get(0))->get_fem_noeud(0);
            FEM_NOEUD* no2=((FEM_ELEMENT1*)pou->get_lien_fem_maillage()->get(0))->get_fem_noeud(1);
            OT_VECTEUR_3D vecx(no1->get_coord(),no2->get_coord());
            OT_VECTEUR_3D vecy(cx-no1->get_x(),cy-no1->get_y(),cz-no1->get_z());
            OT_VECTEUR_3D vecz=vecx&vecy;
            OT_VECTEUR_3D vecyy=vecz&vecx;
            vecyy.norme();
            fprintf(in,"_F(GROUP_MA='GMP%lu',CARA='VECT_Y', VALE=(%lf,%lf,%lf),),\n",pou->get_id(),vecyy.get_x(),vecyy.get_y(),vecyy.get_z());  
            }
for (FEM_ELEMENT1* ele=minipresent.get_premier(it);ele!=NULL;ele=minipresent.get_suivant(it))
            {
            int num=ele->get_numero();
            FEM_NOEUD* no1=ele->get_fem_noeud(0);
            FEM_NOEUD* no2=ele->get_fem_noeud(1);
            OT_VECTEUR_3D vecx(no1->get_coord(),no2->get_coord());
            OT_VECTEUR_3D vecy(1.,0.,0.);
            OT_VECTEUR_3D vecz=vecx&vecy;
            if (vecz.get_longueur()<1e-10) 
                {
                OT_VECTEUR_3D vecy(0.,1.,0.);
                vecz=vecx&vecy;
                }
            OT_VECTEUR_3D vecyy=vecz&vecx;
            vecyy.norme();
            fprintf(in,"_F(MAILLE='M%d',CARA='VECT_Y', VALE=(%lf,%lf,%lf),),\n",num,vecyy.get_x(),vecyy.get_y(),vecyy.get_z());  
            }
 
fprintf(in,"),);\n\n");
    
}
 
void MG_EXPORT::aster_ecrire_comm_caracteristiques_coque(FILE *in,int nbcoque,MG_GEOMETRIE *geo,std::map<std::string,std::string> &listegroupedemaillexy)
{
fprintf(in,"# DEFINITION DES CARACTERISTIQUES DES ELEMENTS DE COQUES (EPAISSEUR, REPERE LOCAL (POST-TRAIT) ET NB DE COUCHES (1 EN ELASTICITE LINEAIRE))\n");
          fprintf(in,"CARA_COQ=AFFE_CARA_ELEM(MODELE=MODCAL,COQUE=(\n");
        
          for (int i=0;i<nbcoque;i++)   // Épaisseur des faces
            {
            MG_COQUE* coque=geo->get_mg_coque(i);
            if (coque->est_une_topo_element())
              {
                int nbelement=((MG_COQUE_ELEMENT*)coque)->get_nb_element();
                std::map<unsigned long,unsigned long> facetraitee;
                for (int l=0;l<nbelement;l++)                                   // pas terrible en efficacite VF juillet 2015
                {
                    MG_ELEMENT_MAILLAGE* mgele=((MG_COQUE_ELEMENT*)coque)->get_element(l);
                    MG_FACE* face=(MG_FACE*)mgele->get_lien_topologie();
                    long unsigned id=face->get_id();
                    if (facetraitee.find(id)!=facetraitee.end()) continue;
                    facetraitee[id]=id;
                    double epais=0.001;         // Épaisseur par défaut
                    face->get_valeur_ccf((char*)"ep",epais);
                          char nomgroupex[500];
                          char nomgroupey[500];
                          sprintf(nomgroupex,"GMF%luX",id);
                          sprintf(nomgroupey,"GMF%luY",id);
                          std::map<std::string,std::string>::iterator it=listegroupedemaillexy.find(nomgroupex);
                          // Si "nomgroupex" est écrit dans la liste, l'itérateur sera à la fin de la liste
                          if (it!=listegroupedemaillexy.end())
                          {
                              fprintf(in,"_F(GROUP_MA='GMF%luX',EPAIS=%lf,VECTEUR=(1,0,0),),\n",id,epais);  
                          }
                          it=listegroupedemaillexy.find(nomgroupey);
                          if (it!=listegroupedemaillexy.end())
                          {
                              fprintf(in,"_F(GROUP_MA='GMF%luY',EPAIS=%lf,VECTEUR=(0,1,0),),\n",id,epais);
                          }
                }
              }
            else
            {
            int nbcoquille=coque->get_nb_mg_coquille();
            for (int k=0;k<nbcoquille;k++)
              {
                MG_COQUILLE* coquille=coque->get_mg_coquille(k);
                int nbface=coquille->get_nb_mg_coface();
                for (int l=0;l<nbface;l++)
                {
                    MG_FACE* face=coquille->get_mg_coface(l)->get_face();
                    long unsigned id=face->get_id();
                    double epais=0.001;         // Épaisseur par défaut
                    face->get_valeur_ccf((char*)"ep",epais);
                   
                          char nomgroupex[500];
                          char nomgroupey[500];
                          sprintf(nomgroupex,"GMF%luX",id);
                          sprintf(nomgroupey,"GMF%luY",id);
                          std::map<std::string,std::string>::iterator it=listegroupedemaillexy.find(nomgroupex);
                          // Si "nomgroupex" est écrit dans la liste, l'itérateur sera à la fin de la liste
                          if (it!=listegroupedemaillexy.end())
                          {
                              fprintf(in,"_F(GROUP_MA='GMF%luX',EPAIS=%lf,VECTEUR=(1,0,0),),\n",id,epais);  
                          }
                          it=listegroupedemaillexy.find(nomgroupey);
                          if (it!=listegroupedemaillexy.end())
                          {
                              fprintf(in,"_F(GROUP_MA='GMF%luY',EPAIS=%lf,VECTEUR=(0,1,0),),\n",id,epais);
                          }
                }
              }
                  
            }
           
        }
fprintf(in,"),);\n\n");
  
}
 
void MG_EXPORT::aster_ecrire_comm_caracteristiques_volume(FILE *in,int nbvolume,MG_GEOMETRIE *geo,bool &volortho)
{
  volortho=false;
  std::string aafficher="# DEFINITION DES CARACTERISTIQUES DES ELEMENTS DE VOLUMES\n";
  aafficher=aafficher  + "CARA_VOL=AFFE_CARA_ELEM(MODELE=MODCAL,MASSIF=(\n";
  for (int i=0;i<nbvolume;i++)  
            {
            MG_VOLUME* vol=geo->get_mg_volume(i);
            if (vol->est_orthotrope_mecanique()) volortho=true;
            double a1=0.;
            double a2=0.;
            double a3=0.;
            vol->get_valeur_ccf((char*)"a1",a1);
            vol->get_valeur_ccf((char*)"a2",a2);
            vol->get_valeur_ccf((char*)"a3",a3);
            char message[500];
            sprintf(message,"_F(GROUP_MA='GMV%lu',ANGL_EULER=(%lf,%lf,%lf),),\n",vol->get_id(),a1,a2,a3);
            aafficher=aafficher+message;
            }
aafficher=aafficher+"),);\n\n";
if (volortho==true)
  fprintf(in,"%s",aafficher.c_str());
}
 
void MG_EXPORT::aster_ecrire_comm_defi_materiau_elastique(FILE *in,int nbvol,int nbcoque,int nbpoutre,bool estortho,MG_GEOMETRIE *geo)
{
  int base=(int)param_aster.get_valeur("Base_num_mail");
  OT_CHAINE ot;
    fprintf(in,"# DEFINITION DU MATERIAU UTILISE------------------------------------------------\n");
    
        for (int j=0;j<nbvol;j++)       // Éléments volumiques
        {
            MG_VOLUME* vol=geo->get_mg_volume(j);
            if (estortho==false)
            {
              double E=210e9;
              double nu=0.3;
              double rho=1.;
              vol->get_valeur_ccf((char*)"Em",E);
              vol->get_valeur_ccf((char*)"nu",nu);
              vol->get_valeur_ccf((char*)"Ro",rho);
              fprintf(in,"P%s=DEFI_MATERIAU(ELAS=_F(E = %le, NU = %lf, RHO= %lf,),);\n",ot.get_base(vol->get_id(),base).c_str(),E,nu,rho);
            }
            else
            {
              double E1,E2,E3,G1,G2,G3,n1,n2,n3;
              vol->get_valeur_ccf((char*)"E1",E1);
              vol->get_valeur_ccf((char*)"n1",n1);
              vol->get_valeur_ccf((char*)"G1",G1);
              vol->get_valeur_ccf((char*)"E2",E2);
              vol->get_valeur_ccf((char*)"n2",n2);
              vol->get_valeur_ccf((char*)"G2",G2);
              vol->get_valeur_ccf((char*)"E3",E3);
              vol->get_valeur_ccf((char*)"n3",n3);
              vol->get_valeur_ccf((char*)"G3",G3);
              fprintf(in,"P%s=DEFI_MATERIAU(ELAS_ORTH=_F(E_L=%lf,E_T=%lf,E_N=%lf,G_LT=%lf,G_TN=%lf,G_LN=%lf,NU_LT=%lf,NU_TN=%lf,NU_LN=%lf,),);\n",ot.get_base(vol->get_id(),base).c_str(),E1,E2,E3,G1,G2,G3,n1,n2,n3);
            
            }
        }
       for (int j=0;j<nbcoque;j++)      // Éléments de coques
        {
            MG_COQUE* coq=geo->get_mg_coque(j);
            double E=210e9;
            double nu=0.3;
            double rho=1.;
            coq->get_valeur_ccf((char*)"Em",E);
            coq->get_valeur_ccf((char*)"nu",nu);
            coq->get_valeur_ccf((char*)"Ro",rho);
            fprintf(in,"P%s=DEFI_MATERIAU(ELAS=_F(E = %le, NU = %lf, RHO= %lf,),);\n",ot.get_base(coq->get_id(),base).c_str(),E,nu,rho);            
        }
        for (int j=0;j<nbpoutre;j++)    // Éléments de coques
        {
            MG_POUTRE* pou=geo->get_mg_poutre(j);
            double E=210e9;
            double nu=0.3;
            double rho=1.;
            pou->get_valeur_ccf((char*)"Em",E);
            pou->get_valeur_ccf((char*)"nu",nu);
            pou->get_valeur_ccf((char*)"Ro",rho);
            fprintf(in,"P%s=DEFI_MATERIAU(ELAS=_F(E = %le, NU = %lf, RHO= %lf,),);\n",ot.get_base(pou->get_id(),base).c_str(),E,nu,rho);            
        } 
        if ((nbvol>0) && (nbpoutre>0))
            {
            double valinifini=param_aster.get_valeur("Infini");
            fprintf(in,"MA_MINI=DEFI_MATERIAU(ELAS=_F(E = %le, NU = 0.3,  RHO= 1000,),);\n",valinifini);
              
            }
        fprintf(in,"\n");
}
 
void MG_EXPORT::aster_ecrire_comm_defi_materiau_elastique_volume_optimisation(FILE *in,int nbvol,MG_GEOMETRIE *geo,int niveaumax,int penal)
{
  int base=(int)param_aster.get_valeur("Base_num_mail");
  OT_CHAINE ot;
    fprintf(in,"# DEFINITION DU MATERIAU UTILISE------------------------------------------------\n");
    
        for (int j=0;j<nbvol;j++)       // Éléments volumiques
        {
            MG_VOLUME* vol=geo->get_mg_volume(j);
            double E=210e9;
            double nu=0.3;
            double rho=1.;
            vol->get_valeur_ccf((char*)"Em",E);
            vol->get_valeur_ccf((char*)"nu",nu);
            vol->get_valeur_ccf((char*)"Ro",rho);
            for (int i=1;i<=niveaumax;i++)
                    fprintf(in,"P%s=DEFI_MATERIAU(ELAS=_F(E = %le, NU = %lf, RHO= %le,),);\n",ot.get_base(i,base).c_str(),E*pow(i*1./niveaumax,penal),nu,rho*i*1.0/niveaumax);
        }  
}
 
void MG_EXPORT::aster_ecrire_comm_defi_materiau_thermique(FILE *in,int nbvol,MG_GEOMETRIE *geo,char &form)
{
int base=(int)param_aster.get_valeur("Base_num_mail");
OT_CHAINE ot;
fprintf(in,"# DEFINITION DU MATERIAU UTILISE------------------------------------------------\n");
char formulation;
        int NONLINEAIRE=param_aster.get_valeur("nonlineaire");
        for (int j=0;j<nbvol;j++)       // Éléments volumiques
        {
            MG_VOLUME* vol=geo->get_mg_volume(j);
            double LAMBDA=0.3;
            double CP=2300;
            double RHO=0.92;
            int corr=1;
            vol->get_valeur_ccf((char*)"Kx",LAMBDA);
            vol->get_valeur_ccf((char*)"Cp",CP);
            vol->get_valeur_ccf((char*)"Ro",RHO);
            vol->get_formulation_ccf((char*)"Kx",formulation);
            form=formulation;
            if(formulation=='N')
            fprintf(in,"P%s=DEFI_MATERIAU(THER=_F(LAMBDA = %le, RHO_CP= %lf,),);\n\n",ot.get_base(vol->get_id(),base).c_str(),corr*LAMBDA,corr*RHO*CP);
            if(formulation=='I')
            {   
            aster_ecrire_comm_fonction_courbe_diffusion(in,geo);
            double val_Cond=0;
            geo->get_mg_volume(j)->get_valeur_ccf((char*)"Kx",val_Cond);
            char chr_nom_fonction[8];
            sprintf(chr_nom_fonction,"%d",(int)val_Cond);
            std::string str_nom_fonction = chr_nom_fonction;
            MG_VOLUME* vol=geo->get_mg_volume(j);
            fprintf(in,"CONST=DEFI_CONSTANTE(VALE=%lf);\n\n",corr*RHO*CP);  
            if (NONLINEAIRE==1)
            fprintf(in,"P%s=DEFI_MATERIAU(THER_NL=_F(LAMBDA = F%s, RHO_CP= CONST,),);\n\n",ot.get_base(vol->get_id(),base).c_str(),str_nom_fonction.c_str());    
            else
            fprintf(in,"P%s=DEFI_MATERIAU(THER_FO=_F(LAMBDA = F%s, RHO_CP= CONST,),);\n\n",ot.get_base(vol->get_id(),base).c_str(),str_nom_fonction.c_str());     
            }
 
        }  
}
 
void MG_EXPORT::aster_ecrire_comm_defi_materiau_elastique_volume_fatigue(FILE *in,int nbvol,MG_GEOMETRIE *geo,int niveaumax,int penal)
{
    fprintf(in,"# DEFINITION DU MATERIAU UTILISE------------------------------------------------\n");
    
        for (int j=0;j<nbvol;j++)       // Éléments volumiques
        {
            MG_GEOM_FONCTION *fonction;
            double val_CM;
            for (int i=1;i<=niveaumax;i++)
            {
            val_CM=geo->get_mg_geom_fonction((int)i-1)->get_id();
            char chr_nom_fonction[8];
            sprintf(chr_nom_fonction,"%d",(int)val_CM);
            std::string str_nom_fonction = chr_nom_fonction;
            str_nom_fonction = "cm" + str_nom_fonction;    
            fonction = geo->get_mg_geom_fonctionid((int)val_CM);
            fprintf(in,"\%s = DEFI_FONCTION(NOM_PARA = 'EPSI',\n\
                          NOM_RESU = 'SIGM',\n\
                          INTERPOL = 'LIN',\n\
                          PROL_DROITE = 'LINEAIRE',\n\
                          PROL_GAUCHE = 'CONSTANT',\n\
                          VALE = (",str_nom_fonction.c_str());
            double coo[2];
            fonction->get_point(0,coo);
            fprintf(in,"%lf,%lf,\n",coo[0],coo[1]);
            for(long k=1;k<fonction->get_nb_point();k++)
               {
                fonction->get_point(k,coo);
                fprintf(in,"                                  %lf,%lf,\n",coo[0],coo[1]);
               }
            fprintf(in,"                                  ),);\n\n");  
            MG_VOLUME* vol=geo->get_mg_volume(j);
            double E=210e9;
            double nu=0.3;
            double rho=1.;
            vol->get_valeur_ccf((char*)"Em",E);
            vol->get_valeur_ccf((char*)"nu",nu);
            vol->get_valeur_ccf((char*)"Ro",rho);
            fprintf(in,"MA_%d=DEFI_MATERIAU(ELAS=_F(E = %le, NU = %lf, RHO= %lf,),\n\
                           TRACTION = _F(SIGM = %s,),);\n\n",i,E,nu,rho,str_nom_fonction.c_str());
          
                    
            }
                           
        }  
}
 
 
void MG_EXPORT::aster_ecrire_comm_defi_materiau_plastique_bilineaire(FILE* in, int nbvol,int nbcoque, MG_GEOMETRIE* geo)
{
int base=(int)param_aster.get_valeur("Base_num_mail");
OT_CHAINE ot;
  fprintf(in,"# DEFINITION DU MATERIAU UTILISE------------------------------------------------\n");  
  for (int j=0;j<nbvol;j++)     // Éléments volumiques
  {
      MG_VOLUME* vol=geo->get_mg_volume(j);
      double E=210e9;
      double nu=0.3;
      double rho=1.;
      double Et = 100e9;
      double Re = 100e6;
      vol->get_valeur_ccf((char*)"Em",E);
      vol->get_valeur_ccf((char*)"nu",nu);
      vol->get_valeur_ccf((char*)"Ro",rho);
      vol->get_valeur_ccf((char*)"Et",Et);
      vol->get_valeur_ccf((char*)"Re",Re);
      fprintf(in,"P%s=\
      DEFI_MATERIAU(ELAS=_F(E = %le, NU = %lf, RHO= %lf,),\n\
                    ECRO_LINE = _F(D_SIGM_EPSI = %lf,SY = %lf,),);\n\n",ot.get_base(vol->get_id(),base).c_str(),E,nu,rho,Et,Re);
      
  }
  for (int j=0;j<nbcoque;j++)   // Éléments de coques
  {
    MG_COQUE* coq=geo->get_mg_coque(j);
      double E=210e9;
      double nu=0.3;
      double rho=1.;
      double Et = 100e9;
      double Re = 100e6;
      coq->get_valeur_ccf((char*)"Em",E);
      coq->get_valeur_ccf((char*)"nu",nu);
      coq->get_valeur_ccf((char*)"Ro",rho);
      coq->get_valeur_ccf((char*)"Et",Et);
      coq->get_valeur_ccf((char*)"Re",Re);
      fprintf(in,"P%s=\
      DEFI_MATERIAU(ELAS=_F(E = %le, NU = %lf, RHO= %lf,),\n\
                    ECRO_LINE = _F(D_SIGM_EPSI = %lf,SY = %lf,),);\n\n",ot.get_base(coq->get_id(),base).c_str(),E,nu,rho,Et,Re);
  }
 
}
 
void MG_EXPORT::aster_ecrire_comm_defi_materiau_plastique_courbe(FILE* in, int nbvol, MG_GEOMETRIE* geo)
{
int base=(int)param_aster.get_valeur("Base_num_mail");
OT_CHAINE ot;
  fprintf(in,"# DEFINITION DU MATERIAU UTILISE------------------------------------------------\n");
  
  aster_ecrire_comm_fonction_courbe_traction(in,geo);
  for (int j=0;j<nbvol;j++)     // Éléments volumiques
  {
    double val_CM=-1;
    geo->get_mg_volume(j)->get_valeur_ccf((char*)"CM",val_CM);
    if (!(val_CM>0)) 
      {
      geo->get_mg_volume(j)->get_valeur_ccf((char*)"cm",val_CM);
      val_CM=geo->get_mg_geom_fonction((int)val_CM-1)->get_id();
      }
    char chr_nom_fonction[8];
    sprintf(chr_nom_fonction,"%d",(int)val_CM);
    std::string str_nom_fonction = chr_nom_fonction;
    str_nom_fonction = "cm" + str_nom_fonction;    
    MG_VOLUME* vol=geo->get_mg_volume(j);
    double E=210e9;
    double nu=0.3;
    double rho=1.;
    vol->get_valeur_ccf((char*)"Em",E);
    vol->get_valeur_ccf((char*)"nu",nu);
    vol->get_valeur_ccf((char*)"Ro",rho);
    fprintf(in,"P%s=\
DEFI_MATERIAU(ELAS=_F(E = %le, NU = %lf, RHO= %lf,),\n\
        TRACTION = _F(SIGM = %s,),);\n\n",ot.get_base(vol->get_id(),base).c_str(),E,nu,rho,str_nom_fonction.c_str());     
  }
}
 
 
void MG_EXPORT::aster_ecrire_comm_affe_materiau(FILE *in,std::string maillage,int nbvol,int nbcoque,int nbpoutre,MG_GEOMETRIE *geo,std::string carac)
{
int base=(int)param_aster.get_valeur("Base_num_mail");
OT_CHAINE ot;
fprintf(in,"# AFFECTATION DU MATERIAU AU MAILLAGE-------------------------------------------\n");
fprintf(in,"CHMAT=AFFE_MATERIAU(MAILLAGE=%s, AFFE = (\n",maillage.c_str());
          for (int j=0;j<nbvol;j++)     // Éléments volumiques
            {
                MG_VOLUME* vol=geo->get_mg_volume(j);
                fprintf(in,"_F(GROUP_MA='GMV%lu',MATER= %s%s ),\n",vol->get_id(),carac.c_str(),ot.get_base(vol->get_id(),base).c_str());
            }
            for (int j=0;j<nbcoque;j++) // Éléments de coques
            {
                MG_COQUE* coq=geo->get_mg_coque(j);
                fprintf(in,"_F(GROUP_MA='GMC%lu',MATER= %s%s ),\n",coq->get_id(),carac.c_str(),ot.get_base(coq->get_id(),base).c_str());
            }
            for (int j=0;j<nbpoutre;j++)        // Éléments de coques
            {
                MG_POUTRE* pou=geo->get_mg_poutre(j);
                fprintf(in,"_F(GROUP_MA='GMP%lu',MATER= %s%s ),\n",pou->get_id(),carac.c_str(),ot.get_base(pou->get_id(),base).c_str());
            }
            if ((nbvol>0) && (nbpoutre>0))
                fprintf(in,"_F(GROUP_MA='GMMINI',MATER= MA_MINI ),\n");
            
fprintf(in,"),);\n\n");
}   
 
void MG_EXPORT::aster_ecrire_comm_affe_materiau_iteratif(FILE *in,std::string maillage,int nbvol,int nbcoque,MG_GEOMETRIE *geo)
{
int base=(int)param_aster.get_valeur("Base_num_mail");
OT_CHAINE ot;  
double VALE;  
VALE=param_aster.get_valeur("Tref");
fprintf(in,"# AFFECTATION DU MATERIAU AU MAILLAGE-------------------------------------------\n");
fprintf(in,"     CHMAT=AFFE_MATERIAU(MAILLAGE=%s, AFFE = (\n",maillage.c_str());
          for (int j=0;j<nbvol;j++)     // Éléments volumiques
            {
                double val_Cond=0;
                MG_VOLUME* vol=geo->get_mg_volume(j);
                geo->get_mg_volume(j)->get_valeur_ccf((char*)"Kx",val_Cond);
                char chr_nom_fonction[8];
                sprintf(chr_nom_fonction,"%d",(int)val_Cond);
                std::string str_nom_fonction = chr_nom_fonction;
                fprintf(in,"     _F(GROUP_MA='GMV%lu',MATER= P%s ),),AFFE_VARC=(_F(TOUT='OUI',EVOL=temp1,NOM_VARC='TEMP',VALE_REF=%lf,),)\n",vol->get_id(),ot.get_base(vol->get_id(),base).c_str(),VALE);
            }
            
fprintf(in,"     );\n\n");
}   
 
void MG_EXPORT::aster_ecrire_comm_affe_materiau_optimisation_topo(FILE *in,int niveaumax,std::vector<FEM_ELEMENT3*> *lst)
{
int base=(int)param_aster.get_valeur("Base_num_mail");
OT_CHAINE ot;    
fprintf(in,"# AFFECTATION DU MATERIAU AU MAILLAGE-------------------------------------------\n");
fprintf(in,"CHMAT=AFFE_MATERIAU(MAILLAGE=MAIL, AFFE = (\n");
for (int i=1;i<=niveaumax;i++)
  {
  int nbelement=lst[i].size();
  if (nbelement==0) continue;
  fprintf(in,"_F(GROUP_MA='GM_%d',MATER= P%s ),\n",i,ot.get_base(i,base).c_str());
  }
fprintf(in,"),);\n\n");
}  
 
 
 
 
void MG_EXPORT::aster_ecrire_comm_condition_limite(FILE *in,MG_GEOMETRIE* geo,bool effort,bool blocage, bool thermique,bool stat_non_line,bool volume,bool coque,bool avec3d,std::vector<std::string> &chargepresente,std::map<unsigned long,unsigned long> &gnexistant)
{
fprintf(in,"#  DEFINITION DES CONDITIONS AUX LIMITES----------------------------------------\n\n");
if (effort)
  {     
  fprintf(in,"# ----- EFFORTS -------------------------\n");  
  aster_ecrire_comm_condition_limite_force_pontuelle(in,geo,avec3d,stat_non_line,chargepresente);
  aster_ecrire_comm_condition_limite_force_lineique(in,geo,avec3d,stat_non_line,chargepresente);  
  if ((avec3d) && (volume)) aster_ecrire_comm_condition_limite_force_surface_volume(in,geo,stat_non_line,chargepresente);  
  if ((avec3d) && (coque)) aster_ecrire_comm_condition_limite_force_surface_coque(in,geo,stat_non_line,chargepresente);  
  if (avec3d) aster_ecrire_comm_condition_limite_force_normale_3d(in,geo,coque,stat_non_line,chargepresente);  
  if (!avec3d) aster_ecrire_comm_condition_limite_force_normale_2d(in,geo,stat_non_line,chargepresente);  
  }
if (blocage)
  {
  fprintf(in,"\n# ----- DEPLACEMENTS IMPOSES ----------\n");
  aster_ecrire_comm_condition_limite_blocage(in,geo,coque,avec3d,stat_non_line,chargepresente,gnexistant);  
  }
if (thermique)
 {
 aster_ecrire_comm_condition_limite_temperature(in,geo,chargepresente,gnexistant); 
 aster_ecrire_comm_condition_limite_flux_thermique(in,geo,chargepresente); 
 }
}
 
 
void MG_EXPORT::aster_ecrire_comm_condition_limite_force_pontuelle(FILE *in,MG_GEOMETRIE* geo,bool avec3d,bool stat_non_line,std::vector<std::string> &chargepresente)
{
  std::vector<std::string> listccf_group_noeud;
  std::vector<std::string> listccf_f_group_noeud;
  std::vector<std::string> list_fonction;
  double precision = geo->get_valeur_precision();
  LISTE_MG_SOMMET::iterator it_som;
  fprintf(in,"# ----- FORCE PONCTUELLE-------------------\n"); 
  for (MG_SOMMET* som=geo->get_premier_sommet(it_som);som;som=geo->get_suivant_sommet(it_som))
  {
    std::string strlistccf;
    std::string strlistccf_f;
    std::string strfonction;    
    double valx,valy,valz;
    bool resx=som->get_valeur_ccf((char*)"Fx",valx);
    bool resy=som->get_valeur_ccf((char*)"Fy",valy);
    bool resz=som->get_valeur_ccf((char*)"Fz",valz);
    if (resx)
        {
          aster_ecrire_comm_condition_limite_blocage_force_temperature(som,(char*)"Fx",(char*)"FX",precision,stat_non_line,strlistccf,strlistccf_f,strfonction); 
        }
    if (resy)
        {
          aster_ecrire_comm_condition_limite_blocage_force_temperature(som,(char*)"Fy",(char*)"FY",precision,stat_non_line,strlistccf,strlistccf_f,strfonction); 
        }
    if ((resz) && (avec3d))
        {            
          aster_ecrire_comm_condition_limite_blocage_force_temperature(som,(char*)"Fz",(char*)"FZ",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
        }
    bool somnoeud=false;
    if (som->est_une_topo_element())
            {
            somnoeud=true;
            MG_SOMMET_NOEUD* somno=(MG_SOMMET_NOEUD*)som;
            MG_NOEUD* no=somno->get_mg_noeud();
            if (no->get_lien_topologie()==somno) somnoeud=false;;
            }
    if ((!somnoeud) || (geo->est_virtuelle()))
    {
      char chr_id[10];
      sprintf(chr_id,"%ld",som->get_id());
      std::string str_id = chr_id;
      if(strlistccf.size()!=0)
      {
        strlistccf = "_F(GROUP_NO='GNS" + str_id + "'," + strlistccf +"),";
        listccf_group_noeud.insert(listccf_group_noeud.end(),strlistccf);
      }
      if(strfonction.size()!=0)
      {
        strlistccf_f = "_F(GROUP_NO='GNS" + str_id + "'," + strlistccf_f +"),";
        listccf_f_group_noeud.insert(listccf_f_group_noeud.end(),strlistccf_f);
        list_fonction.insert(list_fonction.end(),strfonction);
      }
    }
    else
    {
      char chr_id[10];
      sprintf(chr_id,"%d",((MG_SOMMET_NOEUD*)som)->get_num_interne());
      std::string str_id = chr_id;
      if(strlistccf.size()!=0)
      {
        strlistccf = "_F(GROUP_NO='GNN" + str_id + "'," + strlistccf +"),";
        listccf_group_noeud.insert(listccf_group_noeud.end(),strlistccf);      
      }
      if(strfonction.size()!=0)
      {
        strlistccf_f = "_F(GROUP_NO='GNN" + str_id + "'," + strlistccf_f +"),";
        listccf_f_group_noeud.insert(listccf_f_group_noeud.end(),strlistccf_f);
        list_fonction.insert(list_fonction.end(),strfonction);
      }
    }
  }
  if(list_fonction.size()!=0)
  {
    for(int k=0;k<list_fonction.size();k++) fprintf(in,"%s\n",list_fonction[k].c_str());
    fprintf(in,"\n\n");
  }
  if(listccf_f_group_noeud.size()!=0)
  {
    chargepresente.push_back("FORCE_PF");
    fprintf(in,"FORCE_PF = AFFE_CHAR_MECA_F (MODELE = MODCAL, FORCE_NODALE = (\n");
    for(int k=0;k<listccf_f_group_noeud.size();k++) fprintf(in,"%s\n",listccf_f_group_noeud[k].c_str());
    fprintf(in,"),);\n\n");
  } 
  if(listccf_group_noeud.size()!=0)
  {
    chargepresente.push_back("FORCE_P");
    fprintf(in,"FORCE_P = AFFE_CHAR_MECA (MODELE = MODCAL, FORCE_NODALE = (\n");
    for(int k=0;k<listccf_group_noeud.size();k++) fprintf(in,"%s\n",listccf_group_noeud[k].c_str());
    fprintf(in,"),);\n\n");
  }  
}
 
void MG_EXPORT::aster_ecrire_comm_condition_limite_force_lineique(FILE *in,MG_GEOMETRIE* geo,bool avec3d,bool stat_non_line,std::vector<std::string> &chargepresente)
{
  fprintf(in,"# ----- FORCE LINEIQUE-------------------\n"); 
  std::vector<std::string> listccf_group_noeud;
  std::vector<std::string> listccf_f_group_noeud;
  std::vector<std::string> list_fonction;
  double precision = geo->get_valeur_precision();
  LISTE_MG_ARETE::iterator it_arete;
  for (MG_ARETE* arete=geo->get_premier_arete(it_arete);arete!=NULL;arete=geo->get_suivant_arete(it_arete))
  {
    std::string strlistccf;
    std::string strlistccf_f;
    std::string strfonction;   
    double valx,valy,valz;
    bool resx=arete->get_valeur_ccf((char*)"Px",valx);
    bool resy=arete->get_valeur_ccf((char*)"Py",valy);
    bool resz=arete->get_valeur_ccf((char*)"Pz",valz);
    if (resx)
        {
          aster_ecrire_comm_condition_limite_blocage_force_temperature(arete,(char*)"Px",(char*)"FX",precision,stat_non_line,strlistccf,strlistccf_f,strfonction); 
        }
    if (resy)
        {
          aster_ecrire_comm_condition_limite_blocage_force_temperature(arete,(char*)"Py",(char*)"FY",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
        }
    if ((resz) && (avec3d))
        {
          aster_ecrire_comm_condition_limite_blocage_force_temperature(arete,(char*)"Pz",(char*)"FZ",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
        }       
    char chr_id[10];
    sprintf(chr_id,"%ld",arete->get_id());
    std::string str_id = chr_id;
    if(strlistccf.size()!=0)
    {
      strlistccf = "_F(GROUP_MA='GMA" + str_id + "'," + strlistccf +"),";
      listccf_group_noeud.insert(listccf_group_noeud.end(),strlistccf);
    }
    if(strfonction.size()!=0)
    {
      strlistccf_f = "_F(GROUP_MA='GMA" + str_id + "'," + strlistccf_f +"),";
      listccf_f_group_noeud.insert(listccf_f_group_noeud.end(),strlistccf_f);
      list_fonction.insert(list_fonction.end(),strfonction);
    }
  }
  if(list_fonction.size()!=0)
  {
    for(int k=0;k<list_fonction.size();k++) fprintf(in,"%s\n",list_fonction[k].c_str());
    fprintf(in,"\n\n");
  }
  if(listccf_f_group_noeud.size()!=0)
  {
    if (avec3d)
    {
    chargepresente.push_back("FORCE_LF");
    fprintf(in,"FORCE_LF = AFFE_CHAR_MECA_F (MODELE = MODCAL, FORCE_ARETE = (\n");
    for(int k=0;k<listccf_f_group_noeud.size();k++) fprintf(in,"%s\n",listccf_f_group_noeud[k].c_str());
    fprintf(in,"),);\n\n");
    }
    else
    {
    chargepresente.push_back("FORCE_CF");
    fprintf(in,"FORCE_CF = AFFE_CHAR_MECA_F (MODELE = MODCAL, FORCE_CONTOUR = (\n");
    for(int k=0;k<listccf_f_group_noeud.size();k++) fprintf(in,"%s\n",listccf_f_group_noeud[k].c_str());
    fprintf(in,"),);\n\n");
    }
  }  
  if(listccf_group_noeud.size()!=0)
  {
    if (avec3d)
    {
    chargepresente.push_back("FORCE_L");
    fprintf(in,"FORCE_L = AFFE_CHAR_MECA (MODELE = MODCAL, FORCE_ARETE = (\n");
    for(int k=0;k<listccf_group_noeud.size();k++) fprintf(in,"%s\n",listccf_group_noeud[k].c_str());
    fprintf(in,"),);\n\n");
    }
    else
    {
    chargepresente.push_back("FORCE_C");
    fprintf(in,"FORCE_C = AFFE_CHAR_MECA (MODELE = MODCAL, FORCE_CONTOUR = (\n");
    for(int k=0;k<listccf_group_noeud.size();k++) fprintf(in,"%s\n",listccf_group_noeud[k].c_str());
    fprintf(in,"),);\n\n");
    }
  }
}
 
 
 
 
void MG_EXPORT::aster_ecrire_comm_condition_limite_force_surface_volume(FILE *in,MG_GEOMETRIE* geo,bool stat_non_line,std::vector<std::string> &chargepresente)
{
  fprintf(in,"# ----- FORCE SURFACIQUE-------------------\n"); 
  std::vector<std::string> listccf_group_noeud;
  std::vector<std::string> listccf_f_group_noeud;
  std::vector<std::string> list_fonction;
  double precision = geo->get_valeur_precision();
  LISTE_MG_FACE::iterator it_face;
  for(MG_FACE* face=geo->get_premier_face(it_face);face!=NULL;face=geo->get_suivant_face(it_face))
  {
    std::string strlistccf;
    std::string strlistccf_f;
    std::string strfonction;   
    double valx,valy,valz;
    bool resx=face->get_valeur_ccf((char*)"Px",valx);
    bool resy=face->get_valeur_ccf((char*)"Py",valy);
    bool resz=face->get_valeur_ccf((char*)"Pz",valz);
    if (resx)
        {
          aster_ecrire_comm_condition_limite_blocage_force_temperature(face,(char*)"Px",(char*)"FX",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
        }
    if (resy)
        {
          aster_ecrire_comm_condition_limite_blocage_force_temperature(face,(char*)"Py",(char*)"FY",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
        }
    if (resz)
        {
          aster_ecrire_comm_condition_limite_blocage_force_temperature(face,(char*)"Pz",(char*)"FZ",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
        }       
    char chr_id[10];
    sprintf(chr_id,"%ld",face->get_id());
    std::string str_id = chr_id;
    if(strlistccf.size()!=0)
    {
      strlistccf = "_F(GROUP_MA='GMF" + str_id + "'," + strlistccf +"),";
      listccf_group_noeud.insert(listccf_group_noeud.end(),strlistccf);
    }
    if(strfonction.size()!=0)
    {
      strlistccf_f = "_F(GROUP_MA='GMF" + str_id + "'," + strlistccf_f +"),";
      listccf_f_group_noeud.insert(listccf_f_group_noeud.end(),strlistccf_f);
      list_fonction.insert(list_fonction.end(),strfonction);
    }
  }
  if(list_fonction.size()!=0)
  {
    for(int k=0;k<list_fonction.size();k++) fprintf(in,"%s\n",list_fonction[k].c_str());
    fprintf(in,"\n\n");
  }
  if(listccf_f_group_noeud.size()!=0)
  {
    chargepresente.push_back("FORCE_FF");
    fprintf(in,"FORCE_FF = AFFE_CHAR_MECA_F (MODELE = MODCAL, FORCE_FACE = (\n");
    for(int k=0;k<listccf_f_group_noeud.size();k++) fprintf(in,"%s\n",listccf_f_group_noeud[k].c_str());
    fprintf(in,"),);\n\n");      
  }  
  if(listccf_group_noeud.size()!=0)
  {
    chargepresente.push_back("FORCE_F");
    fprintf(in,"FORCE_F = AFFE_CHAR_MECA (MODELE = MODCAL, FORCE_FACE = (\n");
    for(int k=0;k<listccf_group_noeud.size();k++) fprintf(in,"%s\n",listccf_group_noeud[k].c_str());
    fprintf(in,"),);\n\n");    
  }
}
 
void MG_EXPORT::aster_ecrire_comm_condition_limite_force_surface_coque(FILE *in,MG_GEOMETRIE* geo,bool stat_non_line,std::vector<std::string> &chargepresente)
{
fprintf(in,"# ----- FORCE SURFACIQUE-------------------\n");
std::vector<std::string> listccf_group_noeud;
std::vector<std::string> listccf_f_group_noeud;
std::vector<std::string> list_fonction;
double precision = geo->get_valeur_precision();
LISTE_MG_FACE::iterator it;
for (MG_FACE* face=geo->get_premier_face(it);face!=NULL;face=geo->get_suivant_face(it))
    {
      std::vector<std::string> listccf;
      double valx,valy,valz;
      bool resx=face->get_valeur_ccf((char*)"Px",valx);
      bool resy=face->get_valeur_ccf((char*)"Py",valy);
      bool resz=face->get_valeur_ccf((char*)"Pz",valz);
      std::string strlistccf;
      std::string strlistccf_f;
      std::string strfonction;
      if (resx)
          {
            aster_ecrire_comm_condition_limite_blocage_force_temperature(face,(char*)"Px",(char*)"FX",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
          }
      if (resy)
          {
            aster_ecrire_comm_condition_limite_blocage_force_temperature(face,(char*)"Py",(char*)"FY",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
          }
      if (resz) 
          {
            aster_ecrire_comm_condition_limite_blocage_force_temperature(face,(char*)"Pz",(char*)"FZ",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
          }
    char chr_id[10];
    sprintf(chr_id,"%ld",face->get_id());
    std::string str_id = chr_id;
    if(strlistccf.size()!=0)
    {
      strlistccf = "_F(GROUP_MA='GMF" + str_id + "'," + strlistccf +"),";
      listccf_group_noeud.insert(listccf_group_noeud.end(),strlistccf);
    }
    if(strfonction.size()!=0)
    {
      strlistccf_f = "_F(GROUP_MA='GMF" + str_id + "'," + strlistccf_f +"),";
      listccf_f_group_noeud.insert(listccf_f_group_noeud.end(),strlistccf_f);
      list_fonction.insert(list_fonction.end(),strfonction);
    }
  }
  
if(list_fonction.size()!=0)
{
  for(int k=0;k<list_fonction.size();k++) fprintf(in,"%s\n",list_fonction[k].c_str());
  fprintf(in,"\n\n");
}
if(listccf_f_group_noeud.size()!=0)
{
  chargepresente.push_back("F_COF");
  fprintf(in,"F_COF = AFFE_CHAR_MECA_F (MODELE = MODCAL, FORCE_COQUE = (\n");
  for(int k=0;k<listccf_f_group_noeud.size();k++) fprintf(in,"%s\n",listccf_f_group_noeud[k].c_str());
  fprintf(in,"),);\n\n");      
}  
if(listccf_group_noeud.size()!=0)
{
  chargepresente.push_back("FORCE_CO");
  fprintf(in,"FORCE_CO = AFFE_CHAR_MECA (MODELE = MODCAL, FORCE_COQUE = (\n");
  for(int k=0;k<listccf_group_noeud.size();k++) fprintf(in,"%s\n",listccf_group_noeud[k].c_str());
  fprintf(in,"),);\n\n");    
}
}
 
void MG_EXPORT::aster_ecrire_comm_condition_limite_force_normale_3d(FILE *in,MG_GEOMETRIE* geo,bool coque,bool stat_non_line,std::vector<std::string> &chargepresente)
{
  fprintf(in,"# ----- FORCE NORMALE-------------------\n"); 
  std::vector<std::string> listccf_group_noeud;
  std::vector<std::string> listccf_f_group_noeud;
  std::vector<std::string> list_fonction;
  double precision = geo->get_valeur_precision();
  LISTE_MG_FACE::iterator it;
  for (MG_FACE* face=geo->get_premier_face(it);face!=NULL;face=geo->get_suivant_face(it))
  {
    std::string strlistccf;
    std::string strlistccf_f;
    std::string strfonction; 
    double val;
    bool res=face->get_valeur_ccf((char*)"Pn",val);
    if (res)
    {
      aster_ecrire_comm_condition_limite_blocage_force_temperature(face,(char*)"Pn",(char*)"PRES",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
    }
    char chr_id[10];
    sprintf(chr_id,"%ld",face->get_id());
    std::string str_id = chr_id;
    if(strlistccf.size()!=0)
    {
      strlistccf = "_F(GROUP_MA='GMF" + str_id + "'," + strlistccf +"),";
      listccf_group_noeud.insert(listccf_group_noeud.end(),strlistccf);
    }
    if(strfonction.size()!=0)
    {
      strlistccf_f = "_F(GROUP_MA='GMF" + str_id + "'," + strlistccf_f +"),";
      listccf_f_group_noeud.insert(listccf_f_group_noeud.end(),strlistccf_f);
      list_fonction.insert(list_fonction.end(),strfonction);
    }
  }    
 
  if(list_fonction.size()!=0)
  {
    for(int k=0;k<list_fonction.size();k++) fprintf(in,"%s\n",list_fonction[k].c_str());
    fprintf(in,"\n\n");
  }
  if(listccf_f_group_noeud.size()!=0)
  {
    chargepresente.push_back("PRES_F");
    if (coque) fprintf(in,"PRES_F = AFFE_CHAR_MECA_F (MODELE = MODCAL, FORCE_COQUE = (\n");
    else fprintf(in,"PRES_F = AFFE_CHAR_MECA_F (MODELE = MODCAL, PRES_REP = (\n");
    for(int k=0;k<listccf_f_group_noeud.size();k++) fprintf(in,"%s\n",listccf_f_group_noeud[k].c_str());
    fprintf(in,"),);\n\n");      
  }   
  if(listccf_group_noeud.size()!=0)
  {
    chargepresente.push_back("PRES");
    if (coque) fprintf(in,"PRES = AFFE_CHAR_MECA (MODELE = MODCAL, FORCE_COQUE = (\n");
    else fprintf(in,"PRES = AFFE_CHAR_MECA (MODELE = MODCAL, PRES_REP = (\n");
    for(int k=0;k<listccf_group_noeud.size();k++) fprintf(in,"%s\n",listccf_group_noeud[k].c_str());
    fprintf(in,"),);\n\n");    
  }
}
   
   
   
   
   
   
   
void MG_EXPORT::aster_ecrire_comm_condition_limite_force_normale_2d(FILE *in,MG_GEOMETRIE* geo,bool stat_non_line,std::vector<std::string> &chargepresente)   
{
bool existe=false;
LISTE_MG_ARETE::iterator it;
fprintf(in,"# ----- FORCE NORMALE-------------------\n");
std::vector<std::string> listccf_group_noeud;
std::vector<std::string> listccf_f_group_noeud;
std::vector<std::string> list_fonction;
double precision = geo->get_valeur_precision();
for (MG_ARETE* are=geo->get_premier_arete(it);are!=NULL;are=geo->get_suivant_arete(it))
    {
      std::string strlistccf;
      std::string strlistccf_f;
      std::string strfonction; 
        std::vector<std::string> listccf;
            double val;
            bool res=are->get_valeur_ccf((char*)"Pn",val);
            if (res)
            {
              aster_ecrire_comm_condition_limite_blocage_force_temperature(are,(char*)"Pn",(char*)"PRES",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
            }
            char chr_id[10];
            sprintf(chr_id,"%ld",are->get_id());
            std::string str_id = chr_id;
            if(strlistccf.size()!=0)
            {
              strlistccf = "_F(GROUP_MA='GMA" + str_id + "'," + strlistccf +"),";
              listccf_group_noeud.insert(listccf_group_noeud.end(),strlistccf);
            }
            if(strfonction.size()!=0)
            {
              strlistccf_f = "_F(GROUP_MA='GMA" + str_id + "'," + strlistccf_f +"),";
              listccf_f_group_noeud.insert(listccf_f_group_noeud.end(),strlistccf_f);
              list_fonction.insert(list_fonction.end(),strfonction);
            }
       }
if(list_fonction.size()!=0)
{
  for(int k=0;k<list_fonction.size();k++) fprintf(in,"%s\n",list_fonction[k].c_str());
  fprintf(in,"\n\n");
}
if(listccf_f_group_noeud.size()!=0)
{
  chargepresente.push_back("PRES_F");
  fprintf(in,"PRES_F = AFFE_CHAR_MECA_F (MODELE = MODCAL, PRES_REP = (\n");
  for(int k=0;k<listccf_group_noeud.size();k++) fprintf(in,"%s\n",listccf_group_noeud[k].c_str());
  fprintf(in,"),);\n\n");      
}   
if(listccf_group_noeud.size()!=0)
{
  chargepresente.push_back("PRES");
  fprintf(in,"PRES = AFFE_CHAR_MECA (MODELE = MODCAL, PRES_REP = (\n");
  for(int k=0;k<listccf_group_noeud.size();k++) fprintf(in,"%s\n",listccf_group_noeud[k].c_str());
  fprintf(in,"),);\n\n");    
}      
 
}
 
 
 
 
void MG_EXPORT::aster_ecrire_comm_condition_limite_blocage_ini(MG_ELEMENT_TOPOLOGIQUE* ele,
                                                               std::string &strlistccf,
                                                               std::string &strlistccf_f,
                                                               std::string &strfonction,
                                                               double precision,
                                                               bool coque,
                                                               bool avec3d,
                                                               bool stat_non_line)
{
        double valdx,valdy,valdz,valrx,valry,valrz,valda,valdt,valrt,valdr,valdax;
        bool resdx=ele->get_valeur_ccf((char*)"Dx",valdx);
        bool resdy=ele->get_valeur_ccf((char*)"Dy",valdy);
        bool resdz=ele->get_valeur_ccf((char*)"Dz",valdz);
        bool resrx=ele->get_valeur_ccf((char*)"Rx",valrx);
        bool resry=ele->get_valeur_ccf((char*)"Ry",valry);
        bool resrz=ele->get_valeur_ccf((char*)"Rz",valrz);
        bool resda=ele->get_valeur_ccf((char*)"Da",valda);
        bool resdt=ele->get_valeur_ccf((char*)"Dt",valdt);
        bool resrt=ele->get_valeur_ccf((char*)"Rt",valrt);
        bool resdr=ele->get_valeur_ccf((char*)"DR",valdr);
        bool resdax=ele->get_valeur_ccf((char*)"DA",valdax);
 
        if (resda)
              {
                resdx=true;resdy=true;resdz=true;resrx=true;resry=true;resrz=true;
                valdx=0.;valdy=0.;valdz=0.;valrx=0;valry=0.;valrz=0.;
              }
        if (resdt)
              {
                resdx=true;resdy=true;resdz=true;
                valdx=0.;valdy=0.;valdz=0.;
              }
        if (resrt)
              {
                resrx=true;resry=true;resrz=true;
                valrx=0;valry=0.;valrz=0.;
              }
        if (resdx)
            {         
              if(resda==true)
              { 
                aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Da",(char*)"DX",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
              }
              else if(resdt==true)
              {
                aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Dt",(char*)"DX",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
              }
              else 
              {
                aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Dx",(char*)"DX",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
              } 
            }
       if (resdy)
            {
              if(resda==true)
              { 
                aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Da",(char*)"DY",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
              }
              else if(resdt==true)
              {
                aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Dt",(char*)"DY",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
              }
              else 
              {
                aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Dy",(char*)"DY",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
              } 
            }
       if ((resdz) && (avec3d))
            {
              if(resda==true)
              { 
                aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Da",(char*)"DZ",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
              }
              else if(resdt==true)
              {
                aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Dt",(char*)"DZ",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
              }
              else 
              {
                aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Dz",(char*)"DZ",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
              }
            }
       if ((coque) && (resrx))
                {
                  if(resda==true)
                  { 
                    aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Da",(char*)"DRX",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
                  }
                  else if(resdt==true)
                  {
                    aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Rt",(char*)"DRX",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
                  }
                  else 
                  {
                    aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Rx",(char*)"DRX",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
                  }
                }
       if ((coque) && (resry))
                {
                  if(resda==true)
                  { 
                    aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Da",(char*)"DRY",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
                  }
                  else if(resdt==true)
                  {
                    aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Rt",(char*)"DRY",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
                  }
                  else 
                  {
                    aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Ry",(char*)"DRY",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
                  }
                }
       if ((coque) && (resrz))
                {
                  if(resda==true)
                  { 
                    aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Da",(char*)"DRZ",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
                  }
                  else if(resdt==true)
                  {
                    aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Rt",(char*)"DRZ",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
                  }
                  else 
                  {
                    aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"Rz",(char*)"DRZ",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
                  }
                }
        if (resdr)
            {
              aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"DR",(char*)"DNOR",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
            }
        if (resdax)
            {
              aster_ecrire_comm_condition_limite_blocage_force_temperature(ele,(char*)"DA",(char*)"DX",precision,stat_non_line,strlistccf,strlistccf_f,strfonction);
            }
}
 
 
void MG_EXPORT::aster_ecrire_comm_condition_limite_blocage(FILE *in,MG_GEOMETRIE* geo,bool coque,bool avec3d,bool stat_non_line,std::vector<std::string> &chargepresente,std::map<unsigned long,unsigned long> &gnexistant) 
{
int base=(int)param_aster.get_valeur("Base_num_mail");  
std::vector<std::string> listccf_group_noeud;
std::vector<std::string> listccf_f_group_noeud;
std::vector<std::string> list_fonction;
std::vector<std::string> list_face_impo;
std::vector<std::string> list_face_impo_f;
std::vector<std::string> list_liaison_oblique;
std::vector<std::string> list_liaison_oblique_f;
  
LISTE_MG_SOMMET::iterator it_som;
LISTE_MG_ARETE::iterator it_arete;
LISTE_MG_FACE::iterator it_face;
 
double val;
double precision=geo->get_valeur_precision();
 
for(MG_SOMMET* som=geo->get_premier_sommet(it_som);som;som=geo->get_suivant_sommet(it_som))
{
  std::string strlistccf;
  std::string strlistccf_f;
  std::string strfonction;
  aster_ecrire_comm_condition_limite_blocage_ini(som,strlistccf,strlistccf_f,strfonction,precision,coque,avec3d,stat_non_line);
  bool somnoeud=false;
  if (som->est_une_topo_element())
            {
            somnoeud=true;
            MG_SOMMET_NOEUD* somno=(MG_SOMMET_NOEUD*)som;
            MG_NOEUD* no=somno->get_mg_noeud();
            if (no->get_lien_topologie()==somno) somnoeud=false;;
            }
    if ((!somnoeud) || (geo->est_virtuelle()))
  {
    char chr_id[10];
    sprintf(chr_id,"%ld",som->get_id());
    std::string str_id = chr_id;
    if((strlistccf.size()!=0)&&!(som->get_valeur_ccf((char*)"DA",val))&&!(som->get_valeur_ccf((char*)"DR",val)))
    {
      strlistccf = "_F(GROUP_NO = 'GNS" + str_id + "'," + strlistccf +"),";
      listccf_group_noeud.insert(listccf_group_noeud.end(),strlistccf);
    }
    if((strfonction.size()!=0)&&!(som->get_valeur_ccf((char*)"DA",val))&&!(som->get_valeur_ccf((char*)"DR",val)))
    {
      strlistccf_f = "_F(GROUP_NO = 'GNS" + str_id + "'," + strlistccf_f +"),";
      listccf_f_group_noeud.insert(listccf_f_group_noeud.end(),strlistccf_f);
      list_fonction.insert(list_fonction.end(),strfonction);
    }
  }
  else
  {
    char chr_id[10];
    sprintf(chr_id,"%d",((MG_SOMMET_NOEUD*)som)->get_num_interne());
    std::string str_id = chr_id;
    if(strlistccf.size()!=0)
    {
      strlistccf = "_F(GROUP_NO = 'GNN" + str_id + "'," + strlistccf +"),";
      listccf_group_noeud.insert(listccf_group_noeud.end(),strlistccf);      
    }
    if(strfonction.size()!=0)
    {
      strlistccf_f = "_F(GROUP_NO = 'GNN" + str_id + "'," + strlistccf_f +"),";
      listccf_f_group_noeud.insert(listccf_f_group_noeud.end(),strlistccf_f);
      list_fonction.insert(list_fonction.end(),strfonction);
    }
  }
}
 
for(MG_ARETE* arete=geo->get_premier_arete(it_arete);arete;arete=geo->get_suivant_arete(it_arete))
{
  std::string strlistccf;
  std::string strlistccf_f;
  std::string strfonction;
  aster_ecrire_comm_condition_limite_blocage_ini(arete,strlistccf,strlistccf_f,strfonction,precision,coque,avec3d,stat_non_line);
  char chr_id[10];
  sprintf(chr_id,"%ld",arete->get_id());
  if (gnexistant.find(arete->get_id())==gnexistant.end()) continue;
  std::string str_id = chr_id;
  if((strlistccf.size()!=0)&&!(arete->get_valeur_ccf((char*)"DA",val))&&!(arete->get_valeur_ccf((char*)"DR",val)))
  {
    strlistccf = "_F(GROUP_NO = 'GNA" + str_id + "'," + strlistccf +"),";
    listccf_group_noeud.insert(listccf_group_noeud.end(),strlistccf);
  }
  if((strfonction.size()!=0)&&!(arete->get_valeur_ccf((char*)"DA",val))&&!(arete->get_valeur_ccf((char*)"DR",val)))
  {
    strlistccf_f = "_F(GROUP_NO = 'GNA" + str_id + "'," + strlistccf_f +"),";
    listccf_f_group_noeud.insert(listccf_f_group_noeud.end(),strlistccf_f);
    list_fonction.insert(list_fonction.end(),strfonction);
  }
}
 
for(MG_FACE* face=geo->get_premier_face(it_face);face;face=geo->get_suivant_face(it_face))
{
  std::string strlistccf;
  std::string strlistccf_f;
  std::string strfonction;
  TPL_LISTE_ENTITE<double> param;
  
  aster_ecrire_comm_condition_limite_blocage_ini(face,strlistccf,strlistccf_f,strfonction,precision,coque,avec3d,stat_non_line);
  char chr_id[10];
  sprintf(chr_id,"%ld",face->get_id());
  if (gnexistant.find(face->get_id())==gnexistant.end()) continue;
  std::string str_id = chr_id;
  if(strlistccf.size()!=0)
  {
    if((strlistccf.find("DNOR")!=-1)&&((face->get_surface()->get_type_geometrique(param)==GEOMETRIE::CONST::Co_CYLINDRE)||(face->get_surface()->get_type_geometrique(param)==GEOMETRIE::CONST::Co_SPHERE)))
    {
      std::string strccf = "'GMF" + str_id + "',";
      face->get_valeur_ccf((char*)"DR",val);
      regroupement_faces(face,val,param,strccf,geo);
      strccf = "_F(GROUP_MA = (" + strccf + ")," + get_string_condition_limite("DNOR",val) + "),";
      if(list_face_impo.size()!=0)
      {
        bool exist=false;
        for(int k=0;k<list_face_impo.size();k++)
          if(list_face_impo[k].find(std::to_string(face->get_id()))!=-1) exist=true;
        if(!exist) list_face_impo.insert(list_face_impo.end(),strccf);
      }
      else
        list_face_impo.insert(list_face_impo.end(),strccf);
    }
    if((face->get_valeur_ccf((char*)"DA",val))&&((strlistccf.find("DX")!=-1))&&(face->get_surface()->get_type_geometrique(param)==GEOMETRIE::CONST::Co_CYLINDRE))
    {
      std::string strccf = "_F(GROUP_MA = 'GMF" + str_id + "'," + get_string_condition_limite("DX",val) + get_string_angles_nautiques(param,precision) + ",),";
      list_liaison_oblique.insert(list_liaison_oblique.end(),strccf);
    }
    if(!(face->get_valeur_ccf((char*)"DR",val))&&!(face->get_valeur_ccf((char*)"DA",val)))
    {
      strlistccf = "_F(GROUP_NO = 'GNF" + str_id + "'," + strlistccf +"),";
      listccf_group_noeud.insert(listccf_group_noeud.end(),strlistccf);
    }
  }
  if(strlistccf_f.size()!=0)
  {
    if((strlistccf_f.find("DNOR")!=-1)&&((face->get_surface()->get_type_geometrique(param)==GEOMETRIE::CONST::Co_CYLINDRE)||(face->get_surface()->get_type_geometrique(param)==GEOMETRIE::CONST::Co_SPHERE)))
    {
      std::string strccf_f = "'GMF" + str_id + "',";
      face->get_valeur_ccf((char*)"DR",val);
      regroupement_faces(face,val,param,strccf_f,geo);
      strfonction = get_string_nom_fonction("DR",face->get_id(),base);
      strccf_f = "_F(GROUP_MA = (" + strccf_f + "),DNOR = " + strfonction + "),";
      if(list_face_impo_f.size()!=0)
      {
        strfonction = get_string_formule_stat_non_line(param_aster.get_valeur("Ti"),0.0,param_aster.get_valeur("Tf"),val,strfonction);
        bool exist=false;
        for(int k=0;k<list_face_impo_f.size();k++)
          if(list_face_impo_f[k].find(std::to_string(face->get_id()))!=-1) exist=true;
        if(!exist)
        {
          list_face_impo_f.insert(list_face_impo_f.end(),strccf_f);
          list_fonction.insert(list_fonction.end(),strfonction);
        }
      }
      else
      {
        list_face_impo_f.insert(list_face_impo_f.end(),strccf_f);
        strfonction = get_string_formule_stat_non_line(param_aster.get_valeur("Ti"),0.0,param_aster.get_valeur("Tf"),val,strfonction);
        list_fonction.insert(list_fonction.end(),strfonction);
      }
    }
    if((face->get_valeur_ccf((char*)"DA",val))&&((strlistccf_f.find("DX")!=-1))&&(face->get_surface()->get_type_geometrique(param)==GEOMETRIE::CONST::Co_CYLINDRE))
    {
      strfonction = get_string_nom_fonction("DA",face->get_id(),base);
      std::string strccf_f = "_F(GROUP_MA = 'GMF" + str_id + "',DX = " + strfonction + "," + get_string_angles_nautiques(param,precision) + ",),";
      list_liaison_oblique_f.insert(list_liaison_oblique_f.end(),strccf_f);
      strfonction = get_string_formule_stat_non_line(param_aster.get_valeur("Ti"),0.0,param_aster.get_valeur("Tf"),val,strfonction);
      list_fonction.insert(list_fonction.end(),strfonction);
    }
    if(!(face->get_valeur_ccf((char*)"DR",val))&&!(face->get_valeur_ccf((char*)"DA",val)))
    {
      strlistccf_f = "_F(GROUP_NO = 'GNF" + str_id + "'," + strlistccf_f +"),";
      listccf_f_group_noeud.insert(listccf_f_group_noeud.end(),strlistccf_f);
      list_fonction.insert(list_fonction.end(),strfonction);
    }
  }
}
 
if(list_fonction.size()!=0)
{
  for(int k=0;k<list_fonction.size();k++) fprintf(in,"%s",list_fonction[k].c_str());
  fprintf(in,"\n\n");
}
if((listccf_f_group_noeud.size()!=0)||(list_face_impo_f.size()!=0)||(list_liaison_oblique_f.size()!=0))
{
  chargepresente.push_back("BLOCAGEF");
  fprintf(in,"BLOCAGEF = AFFE_CHAR_MECA_F (MODELE = MODCAL,\n");
  if(listccf_f_group_noeud.size()!=0)
  {
    fprintf(in,"DDL_IMPO = (\n");
    for(int k=0;k<listccf_f_group_noeud.size();k++) fprintf(in,"%s\n",listccf_f_group_noeud[k].c_str());
    fprintf(in,"),\n");
  }
  if(list_face_impo_f.size()!=0)
  {
    fprintf(in,"FACE_IMPO = (\n");
    for(int k=0;k<list_face_impo_f.size();k++) fprintf(in,"%s\n",list_face_impo_f[k].c_str());
    fprintf(in,"),\n");
  }
  if(list_liaison_oblique_f.size()!=0)
  {
    fprintf(in,"LIAISON_OBLIQUE = (\n");
    for(int k=0;k<list_liaison_oblique_f.size();k++) fprintf(in,"%s\n",list_liaison_oblique_f[k].c_str());
    fprintf(in,"),\n");
  }
  fprintf(in,");\n\n");
}
if((listccf_group_noeud.size()!=0)||(list_face_impo.size()!=0)||(list_liaison_oblique.size()!=0))
{
  chargepresente.push_back("BLOCAGE");
  fprintf(in,"BLOCAGE = AFFE_CHAR_MECA (MODELE = MODCAL,\n");
  if(listccf_group_noeud.size()!=0)
  {
    fprintf(in,"DDL_IMPO = (\n");
    for(int k=0;k<listccf_group_noeud.size();k++) fprintf(in,"%s\n",listccf_group_noeud[k].c_str());
    fprintf(in,"),\n");
  }
  if(list_face_impo.size()!=0)
  {
    fprintf(in,"FACE_IMPO = (\n");
    for(int k=0;k<list_face_impo.size();k++) fprintf(in,"%s\n",list_face_impo[k].c_str());
    fprintf(in,"),\n");
  }
  if(list_liaison_oblique.size()!=0)
  {
    fprintf(in,"LIAISON_OBLIQUE = (\n");
    for(int k=0;k<list_liaison_oblique.size();k++) fprintf(in,"%s\n",list_liaison_oblique[k].c_str());
    fprintf(in,"),\n");
  }
  fprintf(in,");\n\n");
}
}
 
void MG_EXPORT::aster_ecrire_comm_condition_limite_temperature(FILE *in,MG_GEOMETRIE* geo,std::vector<std::string> &chargepresente,std::map<unsigned long,unsigned long> &gnexistant) 
{
fprintf(in,"# ----- temperature imposée -------------------------\n");  
bool existe=false;
LISTE_MG_SOMMET::iterator it;
for (MG_SOMMET* som=geo->get_premier_sommet(it);som;som=geo->get_suivant_sommet(it))
    {
        std::vector<std::string> listccf;
        double val;
        bool res=som->get_valeur_ccf((char*)"Tn",val);
        if (res)
            {
            char valchar[100];
            sprintf(valchar,"%le",val);
            std::string valstr=valchar;
            std::string chaine="TEMP="+valstr;
            listccf.insert(listccf.end(),chaine);
            }
         if (listccf.size()!=0)
          {
            if (!existe)                
            {
                fprintf(in,"TEMPE = AFFE_CHAR_THER (MODELE = MODCAL, TEMP_IMPO = (\n");
                chargepresente.push_back("TEMPE");
                existe=true;
            }
            if ((!som->est_une_topo_element()) || (geo->est_virtuelle()))
                fprintf(in,"_F(GROUP_NO='GNS%lu',",som->get_id());
            else
                {
                MG_SOMMET_NOEUD *somnoeud=(MG_SOMMET_NOEUD*)som;
                fprintf(in,"_F(GROUP_NO='GNN%d',",somnoeud->get_num_interne());
                }
            for (int k=0;k<listccf.size();k++)
                fprintf(in,"%s,",listccf[k].c_str());
            fprintf(in,"),\n");
        }
    }
LISTE_MG_ARETE::iterator it2;
for (MG_ARETE* arete=geo->get_premier_arete(it2);arete;arete=geo->get_suivant_arete(it2))
    {
        std::vector<std::string> listccf;
        double val;
        bool res=arete->get_valeur_ccf((char*)"Tn",val);
        if (gnexistant.find(arete->get_id())==gnexistant.end()) continue;
        if (res)
            {
            char valchar[100];
            sprintf(valchar,"%le",val);
            std::string valstr=valchar;
            std::string chaine="TEMP="+valstr;
            listccf.insert(listccf.end(),chaine);
            }
         
        if (listccf.size()!=0)
        {
            if (!existe)                
            {
                fprintf(in,"TEMPE = AFFE_CHAR_THER (MODELE = MODCAL, TEMP_IMPO = (\n");
                chargepresente.push_back("TEMPE");
                existe=true;
            }
            fprintf(in,"_F(GROUP_NO='GNA%lu',",arete->get_id());
            for (int k=0;k<listccf.size();k++)
                fprintf(in,"%s,",listccf[k].c_str());
            fprintf(in,"),\n");
        }
        
    }
 
LISTE_MG_FACE::iterator it3;
for (MG_FACE* face=geo->get_premier_face(it3);face;face=geo->get_suivant_face(it3))
    {
        std::vector<std::string> listccf;
        double val;
        if (gnexistant.find(face->get_id())==gnexistant.end()) continue;
        bool res=face->get_valeur_ccf((char*)"Tn",val);
        if (res)
            {
            char valchar[100];
            sprintf(valchar,"%le",val);
            std::string valstr=valchar;
            std::string chaine="TEMP="+valstr;
            listccf.insert(listccf.end(),chaine);
            }
        if (listccf.size()!=0)
        {
            if (!existe)                
            {
                fprintf(in,"TEMPE = AFFE_CHAR_THER (MODELE = MODCAL, TEMP_IMPO = (\n");
                chargepresente.push_back("TEMPE");
                existe=true;
            }
            fprintf(in,"_F(GROUP_NO='GNF%lu',",face->get_id());
            for (int k=0;k<listccf.size();k++)
                fprintf(in,"%s,",listccf[k].c_str());
            fprintf(in,"),\n");
        }
    }
if (existe) fprintf(in,"),);\n\n");
}
void MG_EXPORT::aster_ecrire_comm_condition_limite_flux_thermique(FILE *in,MG_GEOMETRIE* geo,std::vector<std::string> &chargepresente) 
{
fprintf(in,"# ----- flux imposé -------------------------\n");  
 bool existe=false;
LISTE_MG_FACE::iterator it3;
for (MG_FACE* face=geo->get_premier_face(it3);face;face=geo->get_suivant_face(it3))
    {
        std::vector<std::string> listccf;
        double val;
        bool res=face->get_valeur_ccf((char*)"fn",val);
        if (res)
            {
            char valchar[100];
            sprintf(valchar,"%le",val);
            std::string valstr=valchar;
            std::string chaine="FLUN="+valstr;
            listccf.insert(listccf.end(),chaine);
            }
        if (listccf.size()!=0)
        {
            if (!existe)                
            {
                fprintf(in,"FLUX = AFFE_CHAR_THER (MODELE = MODCAL, FLUX_REP = (\n");
                chargepresente.push_back("FLUX");
                existe=true;
            }
            fprintf(in,"_F(GROUP_MA='GMF%lu',",face->get_id());
            for (int k=0;k<listccf.size();k++)
                fprintf(in,"%s,",listccf[k].c_str());
            fprintf(in,"),\n");
        }
    }
if (existe) fprintf(in,"),);\n\n");
}
    
 
 
 
void MG_EXPORT::aster_ecrire_comm_meca_statique(FILE *in,MG_GEOMETRIE* geo,bool vol,bool coque,bool poutre,bool desactiveerreur,bool estortho,std::vector<std::string> &chargepresente,char* coderesu)     
{
fprintf(in,"# CALCUL MECANIQUE--------------------------------------------------------------\n\n");
if (coque) fprintf(in,"RESU=MECA_STATIQUE(MODELE=MODCAL, CHAM_MATER=CHMAT, CARA_ELEM=CARA_COQ,\n%s,\n EXCIT=(\n",aster_ecrire_comm_solveur().c_str());
if (poutre) fprintf(in,"RESU=MECA_STATIQUE(MODELE=MODCAL, CHAM_MATER=CHMAT, CARA_ELEM=CARA_POU,\n%s,\n EXCIT=(\n",aster_ecrire_comm_solveur().c_str());
if ((vol)&&(estortho)) fprintf(in,"RESU=MECA_STATIQUE(MODELE=MODCAL, CHAM_MATER=CHMAT, CARA_ELEM=CARA_VOL,\n%s,\n EXCIT=(\n",aster_ecrire_comm_solveur().c_str());
if ((vol)&&(!poutre)&&(!estortho)) fprintf(in,"RESU=MECA_STATIQUE(MODELE=MODCAL, CHAM_MATER=CHMAT,\n%s,\n EXCIT=(\n",aster_ecrire_comm_solveur().c_str());
for (int i=0;i<chargepresente.size();i++)    
            fprintf(in,"_F(CHARGE=%s,),\n",chargepresente[i].c_str());
        fprintf(in,"),);\n\n");
 
fprintf(in,"# REACTION NODALE\n");
if (coque) fprintf(in,"RESU=CALC_CHAMP(reuse=RESU,RESULTAT=RESU,TOUT_ORDRE='OUI', CARA_ELEM=CARA_COQ,FORCE='REAC_NODA',);\n");
if (poutre) fprintf(in,"RESU=CALC_CHAMP(reuse=RESU,RESULTAT=RESU,TOUT_ORDRE='OUI', CARA_ELEM=CARA_POU,FORCE='REAC_NODA',);\n");
else fprintf(in,"RESU=CALC_CHAMP(reuse=RESU,RESULTAT=RESU,TOUT_ORDRE='OUI', FORCE='REAC_NODA',);\n");
 
std::string  lieu ="NOEU";
int val=(int)param_aster.get_valeur((char*)"Noeud_ele");
if (val==1) lieu="ELNO";
if (val==2) lieu="ELGA";
if (coque) lieu="ELNO";
char* plieu=(char*)lieu.c_str();
 
 
std::string tout1d="TOUT='OUI'";
std::string tout3d="TOUT='OUI'";
if (poutre)
    {
    tout1d="GROUP_MA=(";  
    tout3d="GROUP_MA=(";  
    LISTE_MG_POUTRE::iterator itp;
    for (MG_POUTRE* pou=geo->get_premier_poutre(itp);pou!=NULL;pou=geo->get_suivant_poutre(itp))
      {
      char mess[500];
      sprintf(mess,"'GMP%lu',",pou->get_id());
      tout1d=tout1d+mess;
      }
    tout1d=tout1d+")";
    LISTE_MG_COQUE::iterator itc;
    for (MG_COQUE* coq=geo->get_premier_coque(itc);coq!=NULL;coq=geo->get_suivant_coque(itc))
      {
      char mess[500];
      sprintf(mess,"'GMC%lu',",coq->get_id());
      tout3d=tout3d+mess;
      }
    LISTE_MG_VOLUME::iterator itv;
    for (MG_VOLUME* vol=geo->get_premier_volume(itv);vol!=NULL;vol=geo->get_suivant_volume(itv))
      {
      char mess[500];
      sprintf(mess,"'GMV%lu',",vol->get_id());
      tout3d=tout3d+mess;
      }
    tout3d=tout3d+")";
    }
 
if ((coderesu)[5]=='1') // Déformations (à partir des déplacements)
        {
        fprintf(in,"\n# DEFORMATIONS AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
        fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, %s, DEFORMATION='EPSI_%s',);\n",tout3d.c_str(),plieu);
        }
if (((coderesu[4]=='1') || (coderesu[6]=='1')) && (val!=2))     // Contraintes aux noeuds (à partir des contraintes aux points de Gauss calculées par défaut)
        {  
        fprintf(in,"\n# CONTRAINTES AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
        fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, %s, CONTRAINTE='SIEF_%s',);\n",tout3d.c_str(),plieu);
        if (poutre) fprintf(in,"\n# EFFORTS AUX NOEUDS PAR ELEMENT A PARTIR DES DEPLACEMENTS\n");
        if (poutre) fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, %s, CONTRAINTE='EFGE_ELNO',);\n",tout1d.c_str());
        if (poutre) fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, %s, CONTRAINTE='SIPM_ELNO',);\n",tout1d.c_str());
        if (poutre) fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, %s, CONTRAINTE='SIPO_ELNO',);\n",tout1d.c_str());
        }   
if (coderesu[6]=='1')   // Contraintes de Von Mises et autres critères (à partir des contraintes aux noeuds)
        {
        fprintf(in,"\n# CONTRAINTES DE VON MISES AUX NOEUDS A PARTIR DES CONTRAINTES AUX NOEUDS\n");
        fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, %s, CRITERES='SIEQ_%s',);\n",tout3d.c_str(),plieu);
        }
if (coderesu[7]=='1')   // Énergie de déformation (à partir des déplacements)
        {  
        fprintf(in,"\n# ENERGIE DE DEFORMATION PAR ELEMENT A DES PARTIR DES DEPLACEMENTS\n");
        fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, TOUT='OUI', ENERGIE='EPOT_ELEM',);\n");
        if (!coque)
          if (!desactiveerreur)
            if (!estortho)
            fprintf(in, "RESU=CALC_ERREUR(reuse=RESU, RESULTAT=RESU, TOUT='OUI',  OPTION='ERZ1_ELEM',); \n");
        }
}    
    
void MG_EXPORT::aster_ecrire_comm_ther_lineaire(FILE* in,MG_GEOMETRIE *geo,std::vector<std::string> &chargepresente)
{
  int PAS;
  double DEBUT,JUSQU_A;
  double VALE,PRECISION,INST_INIT,PARM_THETA;
  DEBUT=param_aster.get_valeur("Ti");
  PAS=(int)param_aster.get_valeur("Pas");
  JUSQU_A=param_aster.get_valeur("Tf");
  PARM_THETA=param_aster.get_valeur("Euler");
  VALE=param_aster.get_valeur("Tref");
  PRECISION=param_aster.get_valeur("Eps");
  INST_INIT=DEBUT;
  if(PAS!=0)
  {
    fprintf(in,"\n# Transitoire : liste de temps------------------------------------------------\n");
    fprintf(in,"list1=DEFI_LIST_REEL(DEBUT=%lf,INTERVALLE=(_F(JUSQU_A=%lf,NOMBRE=%d,),),);\n\n",DEBUT,JUSQU_A,PAS);
  }       
  std::string str_archive;
  std::string str_inst_calc_champ;
  int NB_PAS_ARCHIVE = (int)param_aster.get_valeur("It_resultat");
  if(NB_PAS_ARCHIVE!=0)
  {
    
    fprintf(in,"\n# Liste d'instants d'archivage------------------------------------------------\n");
    fprintf(in,"lst_arch=DEFI_LIST_REEL(DEBUT=%lf,INTERVALLE=(_F(JUSQU_A=%lf,NOMBRE=%d,),),);\n\n",DEBUT,JUSQU_A,NB_PAS_ARCHIVE);
  }
  fprintf(in,"# CALCUL THERMIQUE--------------------------------------------------------------\n\n");
  if(PAS!=0)
  {
    fprintf(in,"TEMP=THER_LINEAIRE(MODELE=MODCAL,\n%s,\n CHAM_MATER=CHMAT, ETAT_INIT=_F(VALE=%lf,PRECISION=%le,),EXCIT=(\n",aster_ecrire_comm_solveur().c_str(),VALE,PRECISION);
  }
  else
  {
    fprintf(in,"TEMP=THER_LINEAIRE(MODELE=MODCAL,\n%s,\n CHAM_MATER=CHMAT,EXCIT=(\n",aster_ecrire_comm_solveur().c_str());
  }
  for (int i=0;i<chargepresente.size();i++)    
  fprintf(in,"_F(CHARGE=%s,),\n",chargepresente[i].c_str());
  if(PAS!=0)  fprintf(in,"),INCREMENT=_F(LIST_INST=list1,INST_INIT=%lf,),PARM_THETA=%lf,);\n\n",INST_INIT,PARM_THETA);
  else fprintf(in,"),);\n");
  fprintf(in,"FLUX_C=CALC_CHAMP(RESULTAT=TEMP,TOUT_ORDRE='OUI', THERMIQUE='FLUX_ELGA',);\n");
}
  
void MG_EXPORT::aster_ecrire_comm_ther_lineaire_iteratif(FILE* in,MG_GEOMETRIE *geo,int nbvol,int nbcoque,int nbpoutre,std::vector<std::string> &chargepresente,std::map<unsigned long,unsigned long> &gnexistant)
 
{
int PAS,division,taille,PASVAR,PASVAR1,corr;  
double VALE,PRECISION,JUSQU_A,DEBUT,TEMP_INIT,FLUX_INIT,coef,Rho_cp,PARM_THETA;
corr=100;
Rho_cp=100.000000;
std::string maillage;
VALE=param_aster.get_valeur("Tref");
PRECISION=param_aster.get_valeur("Eps");  
DEBUT=param_aster.get_valeur("Ti");
JUSQU_A=param_aster.get_valeur("Tf");
PAS=(int)param_aster.get_valeur("Pas");
PASVAR=(int)param_aster.get_valeur("Pasvariable");
PASVAR1=(int)param_aster.get_valeur("division_pas");
PARM_THETA=param_aster.get_valeur("Euler");
division=param_aster.get_valeur("DIV");
LISTE_MG_ARETE::iterator it;
LISTE_MG_FACE::iterator it1;
for (int j=0;j<nbvol;j++) // Éléments volumiques
    {
     MG_VOLUME* vol=geo->get_mg_volume(j);
     MG_GEOM_FONCTION *fonc_cond;
     int val_Cond1;
     int val_Cond2 = geo->get_nb_mg_arete();
     int val_Cond3 = geo->get_nb_mg_sommet();
     int val_Cond4 = geo->get_nb_mg_face();
     val_Cond1=3+val_Cond2+val_Cond3+val_Cond4; 
     fonc_cond = geo->get_mg_geom_fonctionid((int)val_Cond1);
     double vec[2];
     fonc_cond->get_point(0,vec);
     coef=corr*vec[1];
     fprintf(in,"# CALCUL THERMIQUE stationnaire--------------------------------------------------------------\n\n");
     fprintf(in,"sol=[0]*%d;\n",PAS+1);
     fprintf(in,"TEMP_ST = AFFE_CHAR_THER (MODELE = MODCAL, TEMP_IMPO = (\n");
    /* for (MG_ARETE* arete=geo->get_premier_arete(it);arete;arete=geo->get_suivant_arete(it))
    {
        if (gnexistant.find(arete->get_id())==gnexistant.end()) continue;
        fprintf(in,"_F(GROUP_NO='GNA%lu',TEMP=0.000000,),",arete->get_id());
    }*/
    for (MG_FACE* face=geo->get_premier_face(it1);face;face=geo->get_suivant_face(it1))
    {
      if (gnexistant.find(face->get_id())==gnexistant.end()) continue;
      fprintf(in,"_F(GROUP_NO='GNF%lu',TEMP=0.000000,),",face->get_id());
    }
     fprintf(in,"),);\n\n");
 
     fprintf(in,"MA_%lu=DEFI_MATERIAU(THER=_F(LAMBDA=%le,RHO_CP=%lf,),);\n\n",vol->get_id(),coef,Rho_cp); 
     aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo,"MA_");
     fprintf(in,"sol[0]=THER_LINEAIRE(MODELE=MODCAL,\n%s,\n CHAM_MATER=CHMAT, ETAT_INIT=_F(STATIONNAIRE='OUI',),EXCIT=(\n",aster_ecrire_comm_solveur().c_str());    
           fprintf(in,"_F(CHARGE=TEMP_ST,),\n");
           fprintf(in,"),PARM_THETA=%lf,);\n\n",PARM_THETA);
     
     
     fprintf(in,"temp=CREA_CHAMP(OPERATION='EXTR',RESULTAT=sol[0],NUME_ORDRE=0,NOM_CHAM='TEMP',TYPE_CHAM='NOEU_TEMP_R');\n\n"); 
     fprintf(in,"temp1=CREA_RESU(TYPE_RESU='EVOL_VARC',NOM_CHAM='TEMP',OPERATION='AFFE',AFFE=(_F(CHAM_GD=temp,INST=%lf,),),);\n\n",DEBUT);        
     fprintf(in,"IMPR_RESU(MODELE=MODCAL,FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=sol[0], NOM_CHAM='TEMP', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE TEMPERATURE',),);\n");
     fprintf(in,"DETRUIRE(CONCEPT=(_F(NOM=CHMAT,),),);\n");
     //Boucle itérative dans le fichier de commande CODE_ASTER
     fprintf(in,"# CALCUL THERMIQUE itératif--------------------------------------------------------------\n\n");
 
     if (PASVAR==1)
     { 
        val_Cond1=4+val_Cond2+val_Cond3+val_Cond4; 
        fonc_cond = geo->get_mg_geom_fonctionid((int)val_Cond1);
        double col[2];
        fprintf(in,"list1=DEFI_LIST_REEL(DEBUT=%lf,\n\n",DEBUT);
        fprintf(in,"INTERVALLE=(\n\n");
        for(long k=1;k<fonc_cond->get_nb_point()-1;k++)
        {
        fonc_cond->get_point(k,col);
        fprintf(in,"_F(JUSQU_A=%lf,NOMBRE=%d,),\n\n",col[1],PASVAR1);
        }
        fonc_cond->get_point(fonc_cond->get_nb_point()-1,col);
        fprintf(in,"_F(JUSQU_A=%lf,NOMBRE=%d,),\n\n",col[1],PASVAR1);
        fprintf(in,"),);\n\n");
       
     }
     else 
     {
     fprintf(in,"list1=DEFI_LIST_REEL(DEBUT=%lf,INTERVALLE=(_F(JUSQU_A=%lf,NOMBRE=%d,),),);\n\n",DEBUT,JUSQU_A,PAS);
     }
     fprintf(in,"for n in range (1,(%d+1)):\n\n",PAS);
     aster_ecrire_comm_affe_materiau_iteratif(in,"MAIL",nbvol,nbcoque,geo);
     fprintf(in,"     sol[n]=THER_LINEAIRE(MODELE=MODCAL,\n     %s,\n      CHAM_MATER=CHMAT, ETAT_INIT=_F(EVOL_THER=sol[n-1],),EXCIT=(\n",aster_ecrire_comm_solveur().c_str()); 
     for (int i=0;i<chargepresente.size();i++)    
     {
          fprintf(in,"     _F(CHARGE=%s,),\n",chargepresente[i].c_str());
     }  
          fprintf(in,"     ),INCREMENT=_F(LIST_INST=list1,NUME_INST_INIT=(n-1),NUME_INST_FIN=n,),PARM_THETA=%lf,);\n\n",PARM_THETA);
     
     fprintf(in,"     if n%% %d==0:\n\n",division);
     fprintf(in,"      IMPR_RESU(MODELE=MODCAL,FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=sol[n],NUME_ORDRE=1, NOM_CHAM='TEMP',\n");
     fprintf(in,"      SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE TEMPERATURE',),);\n");
     fprintf(in,"      DETRUIRE(CONCEPT=(_F(NOM=temp,),),);\n");
     fprintf(in,"      temp=CREA_CHAMP(OPERATION='EXTR',RESULTAT=sol[n],NUME_ORDRE=1,NOM_CHAM='TEMP',TYPE_CHAM='NOEU_TEMP_R');\n\n"); 
     fprintf(in,"      DETRUIRE(CONCEPT=(_F(NOM=temp1,),),);\n");
     fprintf(in,"      temp1=CREA_RESU(TYPE_RESU='EVOL_VARC',NOM_CHAM='TEMP',OPERATION='AFFE',AFFE=(_F(CHAM_GD=temp,INST=n,),),);\n\n");
     fprintf(in,"     DETRUIRE(CONCEPT=(_F(NOM=CHMAT,),),);\n");
     fprintf(in,"     print ('ITERATION: ',n)   \n");
    
 
  }
}
 
 
 
 
 
 
 
 
 
void MG_EXPORT::aster_ecrire_comm_ther_non_lineaire_iteratif(FILE* in,MG_GEOMETRIE *geo,int nbvol,int nbcoque,int nbpoutre,std::vector<std::string> &chargepresente,std::map<unsigned long,unsigned long> &gnexistant)
 
{
int PAS,division,taille,PASVAR,PASVAR1,corr;  
double VALE,PRECISION,JUSQU_A,DEBUT,TEMP_INIT,FLUX_INIT,coef,Rho_cp,PARM_THETA,N1,N2,N3,CONV1,CONV2,CONV3;
corr=100;
Rho_cp=100.000000;
std::string maillage;
VALE=param_aster.get_valeur("Tref");
PRECISION=param_aster.get_valeur("Eps");  
DEBUT=param_aster.get_valeur("Ti");
JUSQU_A=param_aster.get_valeur("Tf");
PAS=(int)param_aster.get_valeur("Pas");
PASVAR=(int)param_aster.get_valeur("Pasvariable");
PASVAR1=(int)param_aster.get_valeur("division_pas");
N1=param_aster.get_valeur("n1"); 
N2=param_aster.get_valeur("n2");
N3=param_aster.get_valeur("n3"); 
CONV1=param_aster.get_valeur("conv1"); 
CONV2=param_aster.get_valeur("conv2"); 
CONV3=param_aster.get_valeur("conv3");
PARM_THETA=param_aster.get_valeur("Euler");
division=param_aster.get_valeur("DIV");
LISTE_MG_ARETE::iterator it;
LISTE_MG_FACE::iterator it1;
for (int j=0;j<nbvol;j++) // Éléments volumiques
    {
     MG_VOLUME* vol=geo->get_mg_volume(j);
     MG_GEOM_FONCTION *fonc_cond;
     int val_Cond1;
     int val_Cond2 = geo->get_nb_mg_arete();
     int val_Cond3 = geo->get_nb_mg_sommet();
     int val_Cond4 = geo->get_nb_mg_face();
     val_Cond1=3+val_Cond2+val_Cond3+val_Cond4; 
     fonc_cond = geo->get_mg_geom_fonctionid((int)val_Cond1);
     double vec[2];
     fonc_cond->get_point(0,vec);
     coef=corr*vec[1];
     fprintf(in,"# CALCUL THERMIQUE stationnaire--------------------------------------------------------------\n\n");
     fprintf(in,"sol=[0]*%d;\n",PAS+1);
     fprintf(in,"TEMP_ST = AFFE_CHAR_THER (MODELE = MODCAL, TEMP_IMPO = (\n");
   /*  for (MG_ARETE* arete=geo->get_premier_arete(it);arete;arete=geo->get_suivant_arete(it))
    {
        if (gnexistant.find(arete->get_id())==gnexistant.end()) continue;
        fprintf(in,"_F(GROUP_NO='GNA%lu',TEMP=0.000000,),",arete->get_id());
    }*/
    for (MG_FACE* face=geo->get_premier_face(it1);face;face=geo->get_suivant_face(it1))
    {
      if (gnexistant.find(face->get_id())==gnexistant.end()) continue;
      fprintf(in,"_F(GROUP_NO='GNF%lu',TEMP=0.000000,),",face->get_id());
    }
     fprintf(in,"),);\n\n");
     fprintf(in,"MA_%lu=DEFI_MATERIAU(THER=_F(LAMBDA=%le,RHO_CP=%lf,),);\n\n",vol->get_id(),coef,Rho_cp); 
     aster_ecrire_comm_affe_materiau(in,"MAIL",nbvol,nbcoque,nbpoutre,geo,"MA_");
     fprintf(in,"sol[0]=THER_LINEAIRE(MODELE=MODCAL,\n%s,\n CHAM_MATER=CHMAT, ETAT_INIT=_F(STATIONNAIRE='OUI',),EXCIT=(\n",aster_ecrire_comm_solveur().c_str());    
           fprintf(in,"_F(CHARGE=TEMP_ST,),\n");
           fprintf(in,"),PARM_THETA=%lf,);\n\n",PARM_THETA);
     
     
     fprintf(in,"temp=CREA_CHAMP(OPERATION='EXTR',RESULTAT=sol[0],NUME_ORDRE=0,NOM_CHAM='TEMP',TYPE_CHAM='NOEU_TEMP_R');\n\n"); 
     fprintf(in,"temp1=CREA_RESU(TYPE_RESU='EVOL_VARC',NOM_CHAM='TEMP',OPERATION='AFFE',AFFE=(_F(CHAM_GD=temp,INST=%lf,),),);\n\n",DEBUT);        
     fprintf(in,"IMPR_RESU(MODELE=MODCAL,FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=sol[0], NOM_CHAM='TEMP', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE TEMPERATURE',),);\n");
     fprintf(in,"DETRUIRE(CONCEPT=(_F(NOM=CHMAT,),),);\n");
     //Boucle itérative dans le fichier de commande CODE_ASTER
     fprintf(in,"# CALCUL THERMIQUE itératif--------------------------------------------------------------\n\n");
 
     if (PASVAR==1)
     { 
        val_Cond1=4+val_Cond2+val_Cond3+val_Cond4; 
        fonc_cond = geo->get_mg_geom_fonctionid((int)val_Cond1);
        double col[2];
        fprintf(in,"list1=DEFI_LIST_REEL(DEBUT=%lf,\n\n",DEBUT);
        fprintf(in,"INTERVALLE=(\n\n");
        for(long k=1;k<fonc_cond->get_nb_point()-1;k++)
        {
        fonc_cond->get_point(k,col);
        fprintf(in,"_F(JUSQU_A=%lf,NOMBRE=%d,),\n\n",col[1],PASVAR1);
        }
        fonc_cond->get_point(fonc_cond->get_nb_point()-1,col);
        fprintf(in,"_F(JUSQU_A=%lf,NOMBRE=%d,),\n\n",col[1],PASVAR1);
        fprintf(in,"),);\n\n");
    
     }
     else 
     {
     fprintf(in,"list1=DEFI_LIST_REEL(DEBUT=%lf,INTERVALLE=(_F(JUSQU_A=%lf,NOMBRE=%d,),),);\n\n",DEBUT,JUSQU_A,PAS);
     }
     fprintf(in,"for n in range (1,(%d+1)):\n\n",PAS);
     aster_ecrire_comm_affe_materiau_iteratif(in,"MAIL",nbvol,nbcoque,geo);
     fprintf(in,"     sol[n]=THER_NON_LINE(MODELE=MODCAL,\n     %s,\n      CHAM_MATER=CHMAT, ETAT_INIT=_F(EVOL_THER=sol[n-1],),EXCIT=(\n",aster_ecrire_comm_solveur().c_str()); 
     for (int i=0;i<chargepresente.size();i++)    
     {
          fprintf(in,"     _F(CHARGE=%s,),\n",chargepresente[i].c_str());
     }  
          fprintf(in,"     ),NEWTON=_F(REAC_ITER=%lf,RESI_LINE_RELA=%lf,ITER_LINE_MAXI=%lf,),\n\n",N1,N2,N3);
          fprintf(in,"     CONVERGENCE=_F(RESI_GLOB_RELA=%lf,RESI_GLOB_MAXI=%lf,ITER_GLOB_MAXI=%lf,\n\n",CONV1,CONV2,CONV3);
          fprintf(in,"     ),INCREMENT=_F(LIST_INST=list1,NUME_INST_INIT=(n-1),NUME_INST_FIN=n,),PARM_THETA=%lf,);\n\n",PARM_THETA);
     
     fprintf(in,"     if n%% %d==0:\n\n",division);
     fprintf(in,"      IMPR_RESU(MODELE=MODCAL,FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=sol[n],NUME_ORDRE=1, NOM_CHAM='TEMP',\n");
     fprintf(in,"      SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE TEMPERATURE',),);\n");
     fprintf(in,"      DETRUIRE(CONCEPT=(_F(NOM=temp,),),);\n");
     fprintf(in,"      temp=CREA_CHAMP(OPERATION='EXTR',RESULTAT=sol[n],NUME_ORDRE=1,NOM_CHAM='TEMP',TYPE_CHAM='NOEU_TEMP_R');\n\n"); 
     fprintf(in,"      DETRUIRE(CONCEPT=(_F(NOM=temp1,),),);\n");
     fprintf(in,"      temp1=CREA_RESU(TYPE_RESU='EVOL_VARC',NOM_CHAM='TEMP',OPERATION='AFFE',AFFE=(_F(CHAM_GD=temp,INST=n,),),);\n\n");
     fprintf(in,"     DETRUIRE(CONCEPT=(_F(NOM=CHMAT,),),);\n");
     fprintf(in,"     print ('ITERATION: ',n)\n");
    
 
  }
}
void MG_EXPORT::aster_ecrire_comm_imprime_resultat_statique(FILE *in,char* coderesu,bool avec3d,bool poutre,bool desactiveerreur)     
{
  std::string  lieu ="NOEU";
  std::string champ="AUX NOEUDS";
  int val=(int)param_aster.get_valeur((char*)"Noeud_ele");
  if (val==1)
      {
      lieu="ELNO";
      champ="PAR ELEMENT AUX NOEUDS" ;
      }
  if (val==2)
      {
      lieu="ELGA";
      champ="PAR ELEMENT AUX POINTS DE GAUSS" ;
      }
  char* plieu=(char*)lieu.c_str();
  char* pchamp=(char*)champ.c_str();
fprintf(in,"\n# IMPRESSION DES RESULTATS------------------------------------------------------\n");
if (coderesu[3]=='1')   // Déplacements (résultats bruts du calcul par éléments finis)
        {  
            fprintf(in,"\n# DEPLACEMENTS\n");
            if (avec3d) fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='DEPL', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  DEPL',),);\n");
            else fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='DEPL', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  DEPL_2D',),);\n");
            fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='REAC_NODA', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  FORCE_REACTION',),);\n");
        }
if (coderesu[5]=='1')   // Déformations (à partir des déplacements)
        {  
            fprintf(in,"\n# DEFORMATIONS AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
            if (avec3d) fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='EPSI_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  TENSEUR_EPS',),);\n",plieu,pchamp);
            else fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='EPSI_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  TENSEUR_EPS_2D',),);\n",plieu,pchamp);
        }
if (coderesu[4]=='1')   // Contraintes aux noeuds (à partir des contraintes aux points de Gauss calculées par défaut)
        {  
            fprintf(in,"\n# CONTRAINTES AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
            if (avec3d) 
              if (poutre) fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CMP=('SIXX','SIYY','SIZZ','SIXY','SIXZ','SIYZ',),NOM_CHAM='SIEF_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  TENSEUR_SIGMA',),);\n",plieu,pchamp);
              else fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='SIEF_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  TENSEUR_SIGMA',),);\n",plieu,pchamp);
            else fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='SIEF_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  TENSEUR_SIGMA_2D',),);\n",plieu,pchamp);
            if (poutre)
              {
              fprintf(in,"\n# EFFORTS AUX NOEUDS PAR ELEMENT A PARTIR DES DEPLACEMENTS\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='EFGE_ELNO',SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE EFFORT_NOEUD',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='SIPM_ELNO',SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE CONTRAINTE_MAX_POUTRE',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='SIPO_ELNO',SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE CONTRAINTE_POUTRE',),);\n");
              }
            
        }
if (coderesu[6]=='1')   // Contraintes de Von Mises et autres critères (à partir des contraintes aux noeuds)
        {  
            fprintf(in,"\n# CONTRAINTES DE VON MISES AUX NOEUDS A PARTIR DES CONTRAINTES AUX NOEUDS\n");
            if (avec3d) fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='SIEQ_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2',),);\n",plieu,pchamp);
            else fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='SIEQ_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2_2D',),);\n",plieu,pchamp);
        }
if (coderesu[7]=='1')   // Énergie de déformation (à partir des déplacements)
        {
            fprintf(in,"\n# ENERGIE DE DEFORMATION PAR ELEMENT A DES PARTIR DES DEPLACEMENTS\n");
            if (avec3d) fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='EPOT_ELEM',SOUS_TITRE='CHAMP PAR ELEMENT CONSTANT SUR ELEMENT DE NOM SYMBOLIQUE  ENERGIE',),);\n");
            else fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='EPOT_ELEM',SOUS_TITRE='CHAMP PAR ELEMENT CONSTANT SUR ELEMENT DE NOM SYMBOLIQUE  ENERGIE_2D',),);\n");
            if (!desactiveerreur)
              {
              if (avec3d) fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='ERZ1_ELEM',SOUS_TITRE='CHAMP PAR ELEMENT CONSTANT SUR ELEMENT DE NOM SYMBOLIQUE ERREUR',),);\n");
              else fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='ERZ1_ELEM',SOUS_TITRE='CHAMP PAR ELEMENT CONSTANT SUR ELEMENT DE NOM SYMBOLIQUE ERREUR_2D',),);\n");
              }
        }
}
    
    
    
    
    
    
void MG_EXPORT::aster_ecrire_comm_imprime_resultat_statique_plaque(FILE *in,char* coderesu)  
{
fprintf(in,"\n# IMPRESSION DES RESULTATS------------------------------------------------------\n");
fprintf(in,"\n");
if (coderesu[3]=='1')   // Déplacements aux noeuds (résultats bruts du calcul par éléments finis)
        {
        fprintf(in,"\n# DEPLACEMENTS\n");
        fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='DEPL', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  DEPL',),);\n");
        fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='REAC_NODA', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  FORCE_REACTION',),);\n");
        }
if (coderesu[4]=='1')   // Contraintes aux noeuds (à partir des déplacements)
          {
            fprintf(in,"\n# CONTRAINTES AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
            if (coderesu[1]=='1') 
              {
              fprintf(in,"REUINFCO=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEF_ELNO', NUME_COUCHE=1, NIVE_COUCHE='INF',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=REUINFCO, NOM_CHAM='SIEF_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_SIGMA_INF',),);\n");
              }
            if (coderesu[0]=='1') 
              {
              fprintf(in,"RESMOYCO=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEF_ELNO', NUME_COUCHE=1, NIVE_COUCHE='MOY',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESMOYCO, NOM_CHAM='SIEF_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_SIGMA_MOY',),);\n");
              }
            if (coderesu[2]=='1') 
              {
              fprintf(in,"RESSUPCO=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEF_ELNO', NUME_COUCHE=1, NIVE_COUCHE='SUP',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESSUPCO, NOM_CHAM='SIEF_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_SIGMA_SUP',),);\n");
              }
            }
if (coderesu[5]=='1')   // Déformations aux noeuds (à partir des déplacements)
          {
            fprintf(in,"\n# DEFORMATIONS AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
            if (coderesu[1]=='1') 
              {
              fprintf(in,"RESINFDE=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='EPSI_ELNO', NUME_COUCHE=1, NIVE_COUCHE='INF',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESINFDE, NOM_CHAM='EPSI_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_EPS_INF',),);\n");
              }
            if (coderesu[0]=='1') 
              {
              fprintf(in,"RESMOYDE=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='EPSI_ELNO', NUME_COUCHE=1, NIVE_COUCHE='MOY',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESMOYDE, NOM_CHAM='EPSI_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_EPS_MOY',),);\n");
              }
            if (coderesu[2]=='1') 
              {
              fprintf(in,"RESSUPDE=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='EPSI_ELNO', NUME_COUCHE=1, NIVE_COUCHE='SUP',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESSUPDE, NOM_CHAM='EPSI_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_EPS_SUP',),);\n");
              }
            }
if (coderesu[6]=='1')   // Contraintes de Von Mises et autres critères (à partir des contraintes aux noeuds)
          {
            fprintf(in,"\n# CONTRAINTES DE VON MISES AUX NOEUDS A PARTIR DES CONTRAINTES AUX NOEUDS\n");
             if (coderesu[1]=='1') 
               {
               fprintf(in,"RESINFCQ=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO', NUME_COUCHE=1, NIVE_COUCHE='INF',),);\n");
               fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESINFCQ, NOM_CHAM='SIEQ_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2_INF',),);\n");
               }
            if (coderesu[0]=='1') 
               {
               fprintf(in,"RESMOYCQ=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO', NUME_COUCHE=1, NIVE_COUCHE='MOY',),);\n");
               fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESMOYCQ, NOM_CHAM='SIEQ_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2_MOY',),);\n");
               }
            if (coderesu[0]=='1') 
               {
               fprintf(in,"RESSUPCQ=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO', NUME_COUCHE=1, NIVE_COUCHE='SUP',),);\n");
               fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESSUPCQ, NOM_CHAM='SIEQ_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2_SUP',),);\n");
               }
            } 
if (coderesu[7]=='1')   // Énergie de déformation (à partir des déplacements)
        {
            fprintf(in,"\n# ENERGIE DE DEFORMATION PAR ELEMENT A DES PARTIR DES DEPLACEMENTS\n");
            fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='EPOT_ELEM',SOUS_TITRE='CHAMP PAR ELEMENT CONSTANT SUR ELEMENT DE NOM SYMBOLIQUE  ENERGIE',),);\n");
            //fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='ERZ1_ELEM',SOUS_TITRE='CHAMP PAR ELEMENT CONSTANT SUR ELEMENT DE NOM SYMBOLIQUE ERREUR',),);\n");
        }  
}
 
 
void MG_EXPORT::aster_ecrire_comm_imprime_resultat_statique_coque(FILE *in,char* coderesu)  
{
fprintf(in,"\n# PROJECTION DES RESULTATS------------------------------------------------------\n");
fprintf(in,"\n");
if (coderesu[3]=='1')   
        {       
            fprintf(in,"\n# PROJECTION DEPLACEMENTS \n");
            fprintf(in,"RESU1=PROJ_CHAMP(RESULTAT=RESU,MODELE_1=MODCAL,MODELE_2=MODORI,);\n\n");            
        }
if (coderesu[5]=='1')   
        {
        fprintf(in,"\n# PROJECTION DEFORMATIONS AUX NOEUDS \n");            
            if (coderesu[0]=='1')
              {
              fprintf(in,"RESMOYDE=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='EPSI_ELNO', NUME_COUCHE=1, NIVE_COUCHE='MOY',),);\n");
              fprintf(in,"RESMOYDE=CALC_CHAMP(reuse=RESMOYDE, RESULTAT=RESMOYDE, TOUT='OUI', DEFORMATION='EPSI_NOEU',);\n");
              fprintf(in,"RESUMOY1=PROJ_CHAMP(RESULTAT=RESMOYDE,NOM_CHAM='EPSI_NOEU',MODELE_1=MODCAL,MODELE_2=MODORI,);\n");
              }
            if (coderesu[1]=='1')
              {
              fprintf(in,"RESINFDE=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='EPSI_ELNO', NUME_COUCHE=1, NIVE_COUCHE='INF',),);\n");
              fprintf(in,"RESINFDE=CALC_CHAMP(reuse=RESINFDE, RESULTAT=RESINFDE, TOUT='OUI', DEFORMATION='EPSI_NOEU',);\n");
              fprintf(in,"RESUINF1=PROJ_CHAMP(RESULTAT=RESINFDE,NOM_CHAM='EPSI_NOEU',MODELE_1=MODCAL,MODELE_2=MODORI,);\n");
              }
            if (coderesu[2]=='1')
              {
              fprintf(in,"RESSUPDE=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='EPSI_ELNO', NUME_COUCHE=1, NIVE_COUCHE='SUP',),);\n");
              fprintf(in,"RESSUPDE=CALC_CHAMP(reuse=RESSUPDE, RESULTAT=RESSUPDE, TOUT='OUI', DEFORMATION='EPSI_NOEU',);\n");
              fprintf(in,"RESUSUP1=PROJ_CHAMP(RESULTAT=RESSUPDE,NOM_CHAM='EPSI_NOEU',MODELE_1=MODCAL,MODELE_2=MODORI,);\n");
              }
        }
if (coderesu[4]=='1')   
        {
            fprintf(in,"\n# PROJECTION DES CONTRAINTES AUX NOEUDS \n");
            if (coderesu[0]=='1')
              {
              fprintf(in,"RESMOYCO=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEF_ELNO', NUME_COUCHE=1, NIVE_COUCHE='MOY',),);\n");
              fprintf(in,"RESMOYCO=CALC_CHAMP(reuse=RESMOYCO, RESULTAT=RESMOYCO, TOUT='OUI', CONTRAINTE='SIEF_NOEU',);\n");
              fprintf(in,"RESUMOY2=PROJ_CHAMP(RESULTAT=RESMOYCO,NOM_CHAM='SIEF_NOEU',MODELE_1=MODCAL,MODELE_2=MODORI,);\n");
              }
            if (coderesu[1]=='1')
              {
              fprintf(in,"RESINFCO=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEF_ELNO', NUME_COUCHE=1, NIVE_COUCHE='INF',),);\n");
              fprintf(in,"RESINFCO=CALC_CHAMP(reuse=RESINFCO, RESULTAT=RESINFCO, TOUT='OUI', CONTRAINTE='SIEF_NOEU',);\n");
              fprintf(in,"RESUINF2=PROJ_CHAMP(RESULTAT=RESINFCO,NOM_CHAM='SIEF_NOEU',MODELE_1=MODCAL,MODELE_2=MODORI,);\n");    
              }
            if (coderesu[2]=='1')
              {
              fprintf(in,"RESSUPCO=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEF_ELNO', NUME_COUCHE=1, NIVE_COUCHE='SUP',),);\n");
              fprintf(in,"RESSUPCO=CALC_CHAMP(reuse=RESSUPCO, RESULTAT=RESSUPCO, TOUT='OUI', CONTRAINTE='SIEF_NOEU',);\n");
              fprintf(in,"RESUSUP2=PROJ_CHAMP(RESULTAT=RESSUPCO,NOM_CHAM='SIEF_NOEU',MODELE_1=MODCAL,MODELE_2=MODORI,);\n");
              }
        }
if (coderesu[6]=='1')   
        {
            fprintf(in,"\n# PROJECTION DES CONTRAINTES EQUIVALENTES AUX NOEUDS \n");
            if (coderesu[0]=='1')
              {
              fprintf(in,"RESMOYCQ=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO', NUME_COUCHE=1, NIVE_COUCHE='MOY',),);\n");
              fprintf(in,"RESMOYCQ=CALC_CHAMP(reuse=RESMOYCQ, RESULTAT=RESMOYCQ, TOUT='OUI', CRITERES='SIEQ_NOEU',);\n");
              fprintf(in,"RESUMOY3=PROJ_CHAMP(RESULTAT=RESMOYCQ,NOM_CHAM='SIEQ_NOEU',MODELE_1=MODCAL,MODELE_2=MODORI,);\n");
               }
            if (coderesu[1]=='1')
              {
              fprintf(in,"RESINFCQ=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO', NUME_COUCHE=1, NIVE_COUCHE='INF',),);\n");
              fprintf(in,"RESINFCQ=CALC_CHAMP(reuse=RESINFCQ, RESULTAT=RESINFCQ, TOUT='OUI', CRITERES='SIEQ_NOEU',);\n");
              fprintf(in,"RESUINF3=PROJ_CHAMP(RESULTAT=RESINFCQ,NOM_CHAM='SIEQ_NOEU',MODELE_1=MODCAL,MODELE_2=MODORI,);\n");
              }
            if (coderesu[2]=='1')
              {
              fprintf(in,"RESSUPCQ=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO', NUME_COUCHE=1, NIVE_COUCHE='SUP',),);\n");
              fprintf(in,"RESSUPCQ=CALC_CHAMP(reuse=RESSUPCQ, RESULTAT=RESSUPCQ, TOUT='OUI', CRITERES='SIEQ_NOEU',);\n");
              fprintf(in,"RESUSUP3=PROJ_CHAMP(RESULTAT=RESSUPCQ,NOM_CHAM='SIEQ_NOEU',MODELE_1=MODCAL,MODELE_2=MODORI,);\n");
              }
         }
if (coderesu[7]=='1')   
        {
            fprintf(in,"\n# PROJECTION ENERGIE DE DEFORMATION \n");
            fprintf(in,"RESU2=PROJ_CHAMP(METHODE='COLLOCATION',RESULTAT=RESU,NOM_CHAM='EPOT_ELEM',TYPE_CHAM='NOEU',MODELE_1=MODCAL,MODELE_2=MODORI,);\n\n");
            //fprintf(in,"RESU2=PROJ_CHAMP(METHODE='COLLOCATION',RESULTAT=RESU,NOM_CHAM='ERZ1_ELEM',TYPE_CHAM='NOEU',MODELE_1=MODMECA,MODELE_2=MOD,);\n\n");
        }
fprintf(in,"\n# IMPRESSION DES RESULTATS------------------------------------------------------\n");
fprintf(in,"\n");
if (coderesu[3]=='1')   // Déplacements aux noeuds 
        {
            fprintf(in,"\n# DEPLACEMENTS\n");
            fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU1, NOM_CHAM='DEPL', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  DEPL',),);\n");
            fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU1, NOM_CHAM='REAC_NODA', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  FORCE_REACTION',),);\n");
        }
if (coderesu[5]=='1')   // Déformations aux noeuds (à partir des déplacements)
        {
          fprintf(in,"\n# DEFORMATIONS AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
            if (coderesu[1]=='1') fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESUINF1, NOM_CHAM='EPSI_NOEU', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE TENSEUR_EPS_INF',),);\n");
            if (coderesu[0]=='1') fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESUMOY1, NOM_CHAM='EPSI_NOEU', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE TENSEUR_EPS_MOY',),);\n");                           
            if (coderesu[2]=='1') fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESUSUP1, NOM_CHAM='EPSI_NOEU', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE TENSEUR_EPS_SUP',),);\n"); 
        }
if (coderesu[4]=='1')     // Contraintes aux noeuds (à partir des déplacements)
        {
            fprintf(in,"\n# CONTRAINTES AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
            if (coderesu[1]=='1') fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESUINF2, NOM_CHAM='SIEF_NOEU', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_SIGMA_INF',),);\n");
            if (coderesu[0]=='1') fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESUMOY2, NOM_CHAM='SIEF_NOEU', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_SIGMA_MOY',),);\n");
            if (coderesu[2]=='1') fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESUSUP2, NOM_CHAM='SIEF_NOEU', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_SIGMA_SUP',),);\n");
        }
if (coderesu[6]=='1')   // Contraintes de Von Mises et autres critères (à partir des contraintes aux noeuds)
        {
            fprintf(in,"\n# CONTRAINTES DE VON MISES AUX NOEUDS A PARTIR DES CONTRAINTES AUX NOEUDS\n");
            if (coderesu[1]=='1') fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESUINF3, NOM_CHAM='SIEQ_NOEU', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2_INF',),);\n");
            if (coderesu[0]=='1') fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESUMOY3, NOM_CHAM='SIEQ_NOEU', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2_MOY',),);\n");
            if (coderesu[2]=='1') fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESUSUP3, NOM_CHAM='SIEQ_NOEU', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2_SUP',),);\n");
        }
if (coderesu[7]=='1')   // Énergie de déformation (à partir des déplacements)
        {
            fprintf(in,"\n# ENERGIE DE DEFORMATION \n");
            fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='EPOT_ELEM',SOUS_TITRE='CHAMP PAR ELEMENT CONSTANT SUR ELEMENT DE NOM SYMBOLIQUE  ENERGIE',),);\n");
            // if (version>10.9) fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='ERZ1_ELEM',SOUS_TITRE='CHAMP PAR ELEMENT CONSTANT SUR ELEMENT DE NOM SYMBOLIQUE ERREUR',),);\n");
        }
}
    
    
void MG_EXPORT::aster_ecrire_comm_imprime_resultat_thermique(FILE *in)  
{
  fprintf(in,"\n# IMPRESSION DES RESULTATS------------------------------------------------------\n");
  fprintf(in,"\n");
  fprintf(in,"# POST-TRAITMENTS--------------------------------------------------------------\n\n");
  if((int)param_aster.get_valeur("It_resultat")!=0) 
  {  
    fprintf(in,"IMPR_RESU(MODELE=MODCAL,FORMAT='RESULTAT', RESU=_F(RESULTAT=TEMP,NOM_CHAM='TEMP',SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE TEMPERATURE',LIST_INST = lst_arch),);"); 
  }  
  else
  fprintf(in,"IMPR_RESU(MODELE=MODCAL,FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=TEMP,NOM_CHAM='TEMP',SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE TEMPERATURE'),);\n");   
  fprintf(in,"IMPR_RESU(MODELE=MODCAL,FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=FLUX_C,NOM_CHAM='FLUX_ELGA',SOUS_TITRE='CHAMP PAR ELEMENT AUX POINTS DE GAUSS DE NOM SYMBOLIQUE FLUX'),);\n");     
}
 
 
void MG_EXPORT::aster_ecrire_comm_statique_non_lineaire(double version,FILE* in, MG_GEOMETRIE* geo,bool vol,bool coque,bool poutre,bool desactiveerreur,std::vector< std::string >& chargepresente, char* coderesu, std::string relation, std::string deformation)
{
int PAS;
double DEBUT,JUSQU_A;
double PRECISION;
int INCR_MAT_TAN_PRED,IT_MAT_TAN_COH;
DEBUT=param_aster.get_valeur("Ti");
PAS=(int)param_aster.get_valeur("Pas");
JUSQU_A=param_aster.get_valeur("Tf");
INCR_MAT_TAN_PRED=(int)param_aster.get_valeur("Incr_mat_tan_pred");
IT_MAT_TAN_COH=(int)param_aster.get_valeur("It_mat_tan_coh");
fprintf(in,"\n# Liste d'instants de calculs------------------------------------------------\n");
fprintf(in,"lst_reel=DEFI_LIST_REEL(DEBUT=%lf,INTERVALLE=(_F(JUSQU_A=%lf,NOMBRE=%d,),",DEBUT,JUSQU_A,PAS);
int decharge=(int)param_aster.get_valeur("Pas_decharge");
int palier=(int)param_aster.get_valeur("Pas_palier");
if (decharge!=0)
  {
  if (palier!=0)
    fprintf(in,"_F(JUSQU_A=%lf,NOMBRE=%d,),",JUSQU_A+palier*1.0/PAS*(JUSQU_A-DEBUT),palier);
  fprintf(in,"_F(JUSQU_A=%lf,NOMBRE=%d,),",JUSQU_A+(palier+decharge)*1.0/PAS*(JUSQU_A-DEBUT),decharge);
  }
fprintf(in,"),");
fprintf(in,");\n\n");
int niv=(int)param_aster.get_valeur("Niv_subd");
int passub=(int)param_aster.get_valeur("Pas_subd");
if (passub*niv!=0)
  fprintf(in,"lst_inst=DEFI_LIST_INST(DEFI_LIST= _F(LIST_INST = lst_reel), ECHEC = _F(SUBD_NIVEAU =%d , SUBD_PAS=%d ),);\n\n",niv,passub);
else
  fprintf(in,"lst_inst=DEFI_LIST_INST(DEFI_LIST= _F(LIST_INST = lst_reel),);\n\n");
int NB_PAS_ARCHIVE = (int)param_aster.get_valeur("It_resultat");
std::string str_archive;
std::string str_inst_calc_champ;
if(NB_PAS_ARCHIVE!=0)
{
  fprintf(in,"\n# Liste d'instants d'archivage------------------------------------------------\n");
  fprintf(in,"lst_arch=DEFI_LIST_REEL(DEBUT=%lf,INTERVALLE=(_F(JUSQU_A=%lf,NOMBRE=%d,),",DEBUT,JUSQU_A,NB_PAS_ARCHIVE);
  if (decharge!=0)
      fprintf(in,"_F(JUSQU_A=%lf,NOMBRE=1,),",JUSQU_A+(palier+decharge)*1.0/PAS*(JUSQU_A-DEBUT));
  fprintf(in,"),);\n\n");
  str_archive = "ARCHIVAGE = _F(LIST_INST = lst_arch,),";
  str_inst_calc_champ = "LIST_INST = lst_arch";
}
else
{
  char chr_jusqu_a[100]; sprintf(chr_jusqu_a,"%lf",JUSQU_A+(palier+decharge)*1.0/PAS*(JUSQU_A-DEBUT));
  std::string str_jusqu_a = chr_jusqu_a;
  str_archive = "ARCHIVAGE = _F(INST = " + str_jusqu_a + ",),";
  str_inst_calc_champ = "INST = " + str_jusqu_a;
}
fprintf(in,"# CALCUL STATIQUE NON LINEAIRE ELASTIQUE--------------------------------------------------------------\n\n");
std::string comportement="COMP_INCR";
if (version>12) comportement="COMPORTEMENT";
 
fprintf(in,
"RESU=STAT_NON_LINE(MODELE=MODCAL,\n\
                    %s,\n\
                    CHAM_MATER=CHMAT,\n\
                    %s =_F(RELATION='%s', DEFORMATION ='%s'),\n\
                    INCREMENT =_F(LIST_INST=lst_inst,),\n\
                    NEWTON=_F(REAC_INCR=%d,REAC_ITER=%d,),\n",aster_ecrire_comm_solveur().c_str(),comportement.c_str(),relation.c_str(),deformation.c_str(),INCR_MAT_TAN_PRED,IT_MAT_TAN_COH);
if (coque) fprintf(in,"                    CARA_ELEM=CARA_COQ,\n");
fprintf(in,"                    EXCIT=(");
fprintf(in,
"_F(CHARGE=%s,),",chargepresente[0].c_str());
for (int i=1;i<chargepresente.size();i++)    
            fprintf(in,
"\n                           _F(CHARGE=%s,),",chargepresente[i].c_str());
fprintf(in,"),\n");    
fprintf(in,
"                   %s\n",str_archive.c_str());     
        fprintf(in,");\n\n");
 
fprintf(in,"# REACTION NODALE\n");
if (coque) fprintf(in,"RESU=CALC_CHAMP(reuse=RESU,RESULTAT=RESU,TOUT='OUI', CARA_ELEM=CARA_COQ, FORCE='REAC_NODA',%s,);",str_inst_calc_champ.c_str());
else fprintf(in,"RESU=CALC_CHAMP(reuse=RESU,RESULTAT=RESU,TOUT='OUI', FORCE='REAC_NODA',%s,);",str_inst_calc_champ.c_str());
 
std::string  lieu ="NOEU";
int val=(int)param_aster.get_valeur((char*)"Noeud_ele");
if (val==1) lieu="ELNO";
if (val==2) lieu="ELGA";
if (coque) lieu="ELNO";
char* plieu=(char*)lieu.c_str();
if ((coderesu)[5]=='1') // Déformations (à partir des déplacements)
        {
        fprintf(in,"\n# DEFORMATIONS AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
        if (coque) fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, TOUT='OUI', CARA_ELEM=CARA_COQ, DEFORMATION='EPSI_%s',%s,);\n",plieu,str_inst_calc_champ.c_str());
        else fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, TOUT='OUI', DEFORMATION='EPSI_%s',%s,);\n",plieu,str_inst_calc_champ.c_str());
        }
if ((coderesu[4]=='1') || (coderesu[6]=='1'))   // Contraintes aux noeuds (à partir des contraintes aux points de Gauss calculées par défaut)
        {  
        if (val!=2)
          {
          fprintf(in,"\n# CONTRAINTES AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
          if (coque) fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, TOUT='OUI', CARA_ELEM=CARA_COQ, CONTRAINTE='SIEF_%s',%s,);\n",plieu,str_inst_calc_champ.c_str());
          else fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, TOUT='OUI', CONTRAINTE='SIEF_%s',%s,);\n",plieu,str_inst_calc_champ.c_str());
          }
        }   
if (coderesu[6]=='1')   // Contraintes de Von Mises et autres critères (à partir des contraintes aux noeuds)
        {
        fprintf(in,"\n# CONTRAINTES DE VON MISES AUX NOEUDS A PARTIR DES CONTRAINTES AUX NOEUDS\n");
        if (coque) fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, TOUT='OUI', CARA_ELEM=CARA_COQ, CRITERES='SIEQ_%s',%s,);\n",plieu,str_inst_calc_champ.c_str());
        else fprintf(in,"RESU=CALC_CHAMP(reuse=RESU, RESULTAT=RESU, TOUT='OUI', CRITERES='SIEQ_%s',%s,);\n",plieu,str_inst_calc_champ.c_str());
        }
 
}
 
 
 
 
 
    
void MG_EXPORT::aster_ecrire_comm_imprime_resultat_statique_non_lineaire(FILE* in, char* coderesu, bool avec3d)
{
  std::string  lieu ="NOEU";
  std::string champ="AUX NOEUDS";
  int val=(int)param_aster.get_valeur((char*)"Noeud_ele");
  if (val==1)
      {
      lieu="ELNO";
      champ="PAR ELEMENT AUX NOEUDS" ;
      }
  if (val==2)
      {
      lieu="ELGA";
      champ="PAR ELEMENT AUX POINTS DE GAUSS" ;
      }
  char* plieu=(char*)lieu.c_str();
  char* pchamp=(char*)champ.c_str();
  std::string archivage;
  if((int)param_aster.get_valeur("It_resultat")!=0) archivage = "LIST_INST = lst_arch";
  else
  {
    int DEBUT=param_aster.get_valeur("Ti");
    int PAS=(int)param_aster.get_valeur("Pas");
    int JUSQU_A=param_aster.get_valeur("Tf");
    int decharge=(int)param_aster.get_valeur("Pas_decharge");
    int palier=(int)param_aster.get_valeur("Pas_palier");
    char chr_jusqu_a[100]; sprintf(chr_jusqu_a,"%lf",JUSQU_A+(palier+decharge)*1.0/PAS*(JUSQU_A-DEBUT));
    std::string str_jusqu_a = chr_jusqu_a;
    archivage = "INST = " + str_jusqu_a;
  }
fprintf(in,"\n# IMPRESSION DES RESULTATS------------------------------------------------------\n");
if (coderesu[3]=='1')   // Déplacements (résultats bruts du calcul par éléments finis)
        {  
            fprintf(in,"\n# DEPLACEMENTS\n");
            if (avec3d) fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='DEPL', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  DEPL',%s,),);\n",archivage.c_str());
            else fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='DEPL', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  DEPL_2D',%s,),);\n",archivage.c_str());
            fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='REAC_NODA', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  FORCE_REACTION',%s,),);\n",archivage.c_str());
        }
if (coderesu[5]=='1')   // Déformations (à partir des déplacements)
        {  
            fprintf(in,"\n# DEFORMATIONS AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
            if (avec3d) fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='EPSI_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  TENSEUR_EPS',%s,),);\n",plieu,pchamp,archivage.c_str());
            else fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='EPSI_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  TENSEUR_EPS_2D',%s,),);\n",plieu,pchamp,archivage.c_str());
        }
if (coderesu[4]=='1')   // Contraintes aux noeuds (à partir des contraintes aux points de Gauss calculées par défaut)
        {  
            fprintf(in,"\n# CONTRAINTES AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
            if (avec3d) fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='SIEF_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  TENSEUR_SIGMA',%s,),);\n",plieu,pchamp,archivage.c_str());
            else fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='SIEF_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  TENSEUR_SIGMA_2D',%s,),);\n",plieu,pchamp,archivage.c_str());
        }
if (coderesu[6]=='1')   // Contraintes de Von Mises et autres critères (à partir des contraintes aux noeuds)
        {  
            fprintf(in,"\n# CONTRAINTES DE VON MISES AUX NOEUDS A PARTIR DES CONTRAINTES AUX NOEUDS\n");
            if (avec3d) fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='SIEQ_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2',%s,),);\n",plieu,pchamp,archivage.c_str());
            else fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='SIEQ_%s',SOUS_TITRE='CHAMP %s DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2_2D',%s,),);\n",plieu,pchamp,archivage.c_str());
        }
}
 
 void MG_EXPORT::aster_ecrire_comm_imprime_resultat_nonli_plaque(FILE *in,char* coderesu)  
{
std::string archivage; 
  
if((int)param_aster.get_valeur("It_resultat")!=0) archivage = "LIST_INST = lst_arch";
else
  {
    int DEBUT=param_aster.get_valeur("Ti");
    int PAS=(int)param_aster.get_valeur("Pas");
    int JUSQU_A=param_aster.get_valeur("Tf");
    int decharge=(int)param_aster.get_valeur("Pas_decharge");
    int palier=(int)param_aster.get_valeur("Pas_palier");
    char chr_jusqu_a[100]; sprintf(chr_jusqu_a,"%lf",JUSQU_A+(palier+decharge)*1.0/PAS*(JUSQU_A-DEBUT));
    std::string str_jusqu_a = chr_jusqu_a;
    archivage = "INST = " + str_jusqu_a;
  }
fprintf(in,"\n# IMPRESSION DES RESULTATS------------------------------------------------------\n");
fprintf(in,"\n");
if (coderesu[3]=='1')   // Déplacements aux noeuds (résultats bruts du calcul par éléments finis)
        {
        fprintf(in,"\n# DEPLACEMENTS\n");
        fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='DEPL', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  DEPL',%s,),);\n",archivage.c_str());
        fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='REAC_NODA', SOUS_TITRE='CHAMP AUX NOEUDS DE NOM SYMBOLIQUE  FORCE_REACTION',%s,),);\n",archivage.c_str());
        }
if (coderesu[4]=='1')   // Contraintes aux noeuds (à partir des déplacements)
          {
            fprintf(in,"\n# CONTRAINTES AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
            if (coderesu[1]=='1') 
              {
              fprintf(in,"REUINFCO=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEF_ELNO', NUME_COUCHE=1, NIVE_COUCHE='INF',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=REUINFCO, NOM_CHAM='SIEF_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_SIGMA_INF',%s,),);\n",archivage.c_str());
              }
            if (coderesu[0]=='1') 
              {
              fprintf(in,"RESMOYCO=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEF_ELNO', NUME_COUCHE=1, NIVE_COUCHE='MOY',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESMOYCO, NOM_CHAM='SIEF_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_SIGMA_MOY',%s,),);\n",archivage.c_str());
              }
            if (coderesu[2]=='1') 
              {
              fprintf(in,"RESSUPCO=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEF_ELNO', NUME_COUCHE=1, NIVE_COUCHE='SUP',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESSUPCO, NOM_CHAM='SIEF_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_SIGMA_SUP',%s,),);\n",archivage.c_str());
              }
            }
if (coderesu[5]=='1')   // Déformations aux noeuds (à partir des déplacements)
          {
            fprintf(in,"\n# DEFORMATIONS AUX NOEUDS A PARTIR DES DEPLACEMENTS\n");
            if (coderesu[1]=='1') 
              {
              fprintf(in,"RESINFDE=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='EPSI_ELNO', NUME_COUCHE=1, NIVE_COUCHE='INF',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESINFDE, NOM_CHAM='EPSI_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_EPS_INF',%s,),);\n",archivage.c_str());
              }
            if (coderesu[0]=='1') 
              {
              fprintf(in,"RESMOYDE=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='EPSI_ELNO', NUME_COUCHE=1, NIVE_COUCHE='MOY',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESMOYDE, NOM_CHAM='EPSI_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_EPS_MOY',%s,),);\n",archivage.c_str());
              }
            if (coderesu[2]=='1') 
              {
              fprintf(in,"RESSUPDE=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='EPSI_ELNO', NUME_COUCHE=1, NIVE_COUCHE='SUP',),);\n");
              fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESSUPDE, NOM_CHAM='EPSI_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  TENSEUR_EPS_SUP',%s,),);\n",archivage.c_str());
              }
            }
if (coderesu[6]=='1')   // Contraintes de Von Mises et autres critères (à partir des contraintes aux noeuds)
          {
            fprintf(in,"\n# CONTRAINTES DE VON MISES AUX NOEUDS A PARTIR DES CONTRAINTES AUX NOEUDS\n");
             if (coderesu[1]=='1') 
               {
               fprintf(in,"RESINFCQ=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO', NUME_COUCHE=1, NIVE_COUCHE='INF',),);\n");
               fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESINFCQ, NOM_CHAM='SIEQ_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2_INF',%s,),);\n",archivage.c_str());
               }
            if (coderesu[0]=='1') 
               {
               fprintf(in,"RESMOYCQ=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO', NUME_COUCHE=1, NIVE_COUCHE='MOY',),);\n");
               fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESMOYCQ, NOM_CHAM='SIEQ_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2_MOY',%s,),);\n",archivage.c_str());
               }
            if (coderesu[0]=='1') 
               {
               fprintf(in,"RESSUPCQ=POST_CHAMP(RESULTAT=RESU, TOUT_ORDRE='OUI', EXTR_COQUE=_F(NOM_CHAM='SIEQ_ELNO', NUME_COUCHE=1, NIVE_COUCHE='SUP',),);\n");
               fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESSUPCQ, NOM_CHAM='SIEQ_ELNO', SOUS_TITRE='CHAMP PAR ELEMENT AUX NOEUDS DE NOM SYMBOLIQUE  CONTRAINTE_EQUI2_SUP',%s,),);\n",archivage.c_str());
               }
            } 
if (coderesu[7]=='1')   // Énergie de déformation (à partir des déplacements)
        {
            //fprintf(in,"\n# ENERGIE DE DEFORMATION PAR ELEMENT A DES PARTIR DES DEPLACEMENTS\n");
            //fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='EPOT_ELEM',SOUS_TITRE='CHAMP PAR ELEMENT CONSTANT SUR ELEMENT DE NOM SYMBOLIQUE  ENERGIE',),);\n");
            //fprintf(in,"IMPR_RESU(FORMAT='RESULTAT', UNITE=8, RESU=_F(RESULTAT=RESU, NOM_CHAM='ERZ1_ELEM',SOUS_TITRE='CHAMP PAR ELEMENT CONSTANT SUR ELEMENT DE NOM SYMBOLIQUE ERREUR',),);\n");
        }  
}   
    
    
void MG_EXPORT::aster_ecrire_comm_fonction_courbe_traction(FILE* in,MG_GEOMETRIE *geo)
{
  MG_GEOM_FONCTION *fonction;
  for(long i=0;i<geo->get_nb_mg_volume();i++)
  {
  double val_CM=0;
  geo->get_mg_volume(i)->get_valeur_ccf((char*)"CM",val_CM);
  if (!(val_CM>0)) 
      {
      geo->get_mg_volume(i)->get_valeur_ccf((char*)"cm",val_CM);
      val_CM=geo->get_mg_geom_fonction((int)val_CM-1)->get_id();
      }
  if(val_CM>0)
  {
    char chr_nom_fonction[8];
    sprintf(chr_nom_fonction,"%d",(int)val_CM);
    std::string str_nom_fonction = chr_nom_fonction;
    str_nom_fonction = "cm" + str_nom_fonction;
    fonction = geo->get_mg_geom_fonctionid((int)val_CM);
    fprintf(in,"\%s = DEFI_FONCTION(NOM_PARA = 'EPSI',\n\
                          NOM_RESU = 'SIGM',\n\
                          INTERPOL = 'LIN',\n\
                          PROL_DROITE = 'LINEAIRE',\n\
                          PROL_GAUCHE = 'CONSTANT',\n\
                          VALE = (",str_nom_fonction.c_str());
    double coo[2];
    fonction->get_point(0,coo);
    fprintf(in,"%lf,%lf,\n",coo[0],coo[1]);
    for(long k=1;k<fonction->get_nb_point()-2;k++)
    {
      fonction->get_point(k,coo);
      fprintf(in,"                                  %lf,%lf,\n",coo[0],coo[1]);
    }
    fonction->get_point(fonction->get_nb_point()-1,coo);
    fprintf(in,"                                  %lf,%lf,),);\n\n",coo[0],coo[1]);  
    }
  }
 
}
void MG_EXPORT::aster_ecrire_comm_fonction_courbe_diffusion(FILE* in,MG_GEOMETRIE *geo)
{
MG_GEOM_FONCTION *fonc_cond;
int corr=100;
  for(long i=0;i<geo->get_nb_mg_volume();i++)
  {
  double val_Cond=0;
  geo->get_mg_volume(i)->get_valeur_ccf((char*)"Kx",val_Cond);
  if(val_Cond>0)
  {
    char chr_nom_fonction[8];
    sprintf(chr_nom_fonction,"%d",(int)val_Cond);
    std::string str_nom_fonction = chr_nom_fonction;
    fonc_cond = geo->get_mg_geom_fonctionid((int)val_Cond);
    fprintf(in,"F%s = DEFI_FONCTION(NOM_PARA = 'TEMP',\n\
                          NOM_RESU = 'LAMBDA',\n\
                          INTERPOL = 'LIN',\n\
                          PROL_DROITE = 'LINEAIRE',\n\
                          PROL_GAUCHE = 'CONSTANT',\n\
                          VALE = (",str_nom_fonction.c_str());
    double col[2];
 
 fonc_cond->get_point(0,col);
    fprintf(in,"%le,%le,\n",col[0],corr*col[1]);
    for(long k=1;k<fonc_cond->get_nb_point()-2;k++)
    {
      fonc_cond->get_point(k,col);
      fprintf(in,"                                  %le,%le,\n",col[0],corr*col[1]);
    }
      fonc_cond->get_point(fonc_cond->get_nb_point()-1,col);
      fprintf(in,"                                  %le,%le,),);\n\n",col[0],corr*col[1]);   
 
  }
  }
 
 
}   
 
std::string MG_EXPORT::get_string_condition_limite(std::string ccf, double val)
{
  char valchar[100];
  sprintf(valchar,"%le",val);
  std::string valstr=valchar;
  std::string chaine=ccf + " = " + valstr + ",";
  return chaine;
}
 
std::string MG_EXPORT::get_string_condition_limite_f(std::string ccf, std::string nom_fonction)
{
  std::string chaine = ccf + " = " + nom_fonction + ",";
  return chaine;
}
 
std::string MG_EXPORT::get_string_nom_fonction(std::string prefixe, long int id,int base)
{
  char idchar[7];
  if(base==10)
  {
    sprintf(idchar,"%ld",id);
    std::string chaine = prefixe+idchar;
    return chaine;
  }
  else
  {
    OT_CHAINE ot;
    std::string idbase=ot.get_base(id,base);
    std::string chaine = prefixe+idbase;
    return chaine;
  }  
}
 
std::string MG_EXPORT::get_string_fonction(double inst_ini, double val_ini, double inst_fin, double val_fin,std::string nom_fonction)
{
  std::string chaine;
  char char_inst_ini[100], char_inst_fin[100],char_val_ini[100],char_val_fin[100];
  std::string str_inst_ini, str_inst_fin, str_val_ini, str_val_fin;
  sprintf(char_inst_ini,"%le",inst_ini); str_inst_ini = char_inst_ini;
  sprintf(char_inst_fin,"%le",inst_fin); str_inst_fin = char_inst_fin;
  sprintf(char_val_ini,"%le",val_ini); str_val_ini = char_val_ini;
  sprintf(char_val_fin,"%le",val_fin); str_val_fin = char_val_fin;
  chaine  = nom_fonction + "=" + 
  " DEFI_FONCTION(NOM_PARA='INST', \n     " +
  "VALE = ("+ str_inst_ini + "," + str_val_ini+ "," + str_inst_fin + "," + str_val_fin + ",),\n     " +
  "PROL_GAUCHE = 'CONSTANT', \n     PROL_DROITE = 'CONSTANT',);\n"; 
  return chaine;
}
 
std::string MG_EXPORT::get_string_formule(MG_ELEMENT_TOPOLOGIQUE* ele,int num,std::string nom_fonction)
{
  std::string chaine;
  chaine = nom_fonction + "=" + "FORMULE(NOM_PARA = (";
  for(int i=0;i<ele->get_formule_nb_variable(num);i++)
  {
    chaine += "'"+ele->get_formule_variable(num,i)+"',";
  }
  chaine += "), VALE = '" + ele->get_formule_ccf(num) + "');\n";
  return chaine;  
}
 
std::string MG_EXPORT::get_string_formule_stat_non_line(double inst_ini, double val_ini, double inst_fin, double val_fin, std::string nom_fonction)
{
  std::string chaine;
  char char_inst_ini[100], char_inst_fin[100],char_val_ini[100],char_val_fin[100];
  std::string str_inst_ini, str_inst_fin, str_val_ini, str_val_fin;
  sprintf(char_inst_ini,"%le",inst_ini); str_inst_ini = char_inst_ini;
  sprintf(char_inst_fin,"%le",inst_fin); str_inst_fin = char_inst_fin;
  sprintf(char_val_ini,"%le",val_ini); str_val_ini = char_val_ini;
  sprintf(char_val_fin,"%le",val_fin); str_val_fin = char_val_fin;
  //chaine  = nom_fonction + "=" + " FORMULE(NOM_PARA='INST',VALE = 'INST*(("+str_val_fin +"-"+str_val_ini+")/("+str_inst_fin+"-"+str_inst_ini+"))');\n"; 
  chaine = nom_fonction + " = DEFI_FONCTION(NOM_PARA = 'INST',INTERPOL = 'LIN',PROL_DROITE = 'LINEAIRE',PROL_GAUCHE = 'LINEAIRE',\n        VALE = (" + str_inst_ini + "," + str_val_ini + "," + str_inst_fin + "," + str_val_fin;
  int decharge=(int)param_aster.get_valeur("Pas_decharge");
  if (decharge!=0)
        {
        int palier=(int)param_aster.get_valeur("Pas_palier");
        int PAS;
        double DEBUT,JUSQU_A;
        DEBUT=param_aster.get_valeur("Ti");
        PAS=(int)param_aster.get_valeur("Pas");
        JUSQU_A=param_aster.get_valeur("Tf");
        char char_inst_plus[100], char_val_plus[100];
        std::string str_inst_plus, str_val_plus;
        if (palier!=0)
            {
            sprintf(char_inst_plus,"%le",inst_fin+palier*1.0/PAS*(JUSQU_A-DEBUT)); str_inst_plus = char_inst_plus;
            str_val_plus = str_val_fin;
            chaine=chaine+","+str_inst_plus+","+str_val_plus;
            }
        sprintf(char_inst_plus,"%le",inst_fin+(palier+decharge)*1.0/PAS*(JUSQU_A-DEBUT)); str_inst_plus = char_inst_plus;
        sprintf(char_val_plus,"0"); str_val_plus = char_val_plus;
        chaine=chaine+","+str_inst_plus+","+str_val_plus;
        }
  chaine=chaine+"),);\n"; 
  return chaine;
}
 
std::string MG_EXPORT::get_string_formule_stat_non_line_instant(MG_ELEMENT_TOPOLOGIQUE* ele, int num, double inst_ini, double inst_fin, std::string nom_fonction)
{
  std::string chaine;
  char char_inst_ini[100], char_inst_fin[100],char_val_ini[100],char_val_fin[100];
  std::string str_inst_ini, str_inst_fin, str_val_ini, str_val_fin;
  sprintf(char_inst_ini,"%le",inst_ini); str_inst_ini = char_inst_ini;
  sprintf(char_inst_fin,"%le",inst_fin); str_inst_fin = char_inst_fin;
  chaine = nom_fonction + "=" + "FORMULE(NOM_PARA = (";
  for(int i=0;i<ele->get_formule_nb_variable(num);i++)
  {
    chaine += "'"+ele->get_formule_variable(num,i)+"',";
  }
  chaine +="'INST'";
  chaine += "), VALE = 'INST*(("+ele->get_formule_ccf(num)+")/("+str_inst_fin+"-"+str_inst_ini+"))');\n";
  return chaine;  
}
 
void MG_EXPORT::aster_ecrire_comm_condition_limite_blocage_force_temperature(MG_ELEMENT_TOPOLOGIQUE* ele, char* type_ccf, char* aster_ccf, double precision, bool stat_non_line, std::string& strlistccf, std::string& strlistccf_f, std::string& strfonction)
{
  int base=(int)param_aster.get_valeur("Base_num_mail");
  char formulation;
  int num_ccf;
  ele->get_formulation_ccf(type_ccf,formulation);
  num_ccf = ele->get_num_ccf(type_ccf);
  if(formulation=='N')
  {
    double valeur_ccf;
    ele->get_valeur_ccf(type_ccf,valeur_ccf);
    if(!stat_non_line)
    {
      strlistccf = strlistccf + get_string_condition_limite(aster_ccf,valeur_ccf);
    }
    else
    {
      if(fabs(valeur_ccf)<precision)
      {
        strlistccf = strlistccf + get_string_condition_limite(aster_ccf,valeur_ccf);
      }
      else
      {
        std::string nom_fonction = get_string_nom_fonction(type_ccf,ele->get_id(),base);
        strlistccf_f = strlistccf_f + get_string_condition_limite_f(aster_ccf,nom_fonction);
        strfonction = strfonction + get_string_formule_stat_non_line(param_aster.get_valeur("Ti"),0.0,param_aster.get_valeur("Tf"),valeur_ccf,nom_fonction);
      }
    }
  }
  else if(formulation=='F')
  {
    if(!stat_non_line)
    {
      std::string nom_fonction = get_string_nom_fonction(type_ccf,ele->get_id(),base);
      strlistccf_f = strlistccf_f + get_string_condition_limite_f(aster_ccf,nom_fonction);
      strfonction = strfonction + get_string_formule(ele,num_ccf,nom_fonction);
    }
    else
    {    
      std::string nom_fonction = get_string_nom_fonction(type_ccf,ele->get_id(),base);
      strlistccf_f = strlistccf_f + get_string_condition_limite_f(aster_ccf,nom_fonction);
      strfonction = strfonction + get_string_formule_stat_non_line_instant(ele,num_ccf,param_aster.get_valeur("Ti"),param_aster.get_valeur("Tf"),nom_fonction);     
    }
  }
  else if(formulation=='I')
  {
    
  }
}
 
 
 
std::string MG_EXPORT::aster_ecrire_comm_solveur(void)
{
std::string  solveur="SOLVEUR=_F(";
int val=(int)param_aster.get_valeur("Solveur_Methode");
if (val==1)
      {
      solveur=solveur+"METHODE='MULT_FRONT',";
      int renum=(int)param_aster.get_valeur("Solveur_Renum_MULT_FRONT");
      if (renum==1) solveur=solveur+"RENUM='METIS',";
      if (renum==2) solveur=solveur+"RENUM='MD',";
      if (renum==3) solveur=solveur+"RENUM='MDA',";
      }
if (val==2)
      {
      solveur=solveur+"METHODE='LDLT',";
      int renum=(int)param_aster.get_valeur("Solveur_Renum_LDLT");
      if (renum==1) solveur=solveur+"RENUM='RCMK',";
      if (renum==2) solveur=solveur+"RENUM='SANS',";
      }
if (val==3)
      {
      solveur=solveur+"METHODE='MUMPS',";
      int renum=(int)param_aster.get_valeur("Solveur_Renum_MUMPS");
      if (renum==1) solveur=solveur+"RENUM='AUTO',";
      if (renum==2) solveur=solveur+"RENUM='AMD',";
      if (renum==3) solveur=solveur+"RENUM='AMF',";
      if (renum==4) solveur=solveur+"RENUM='QAMD',";
      if (renum==5) solveur=solveur+"RENUM='PORD',";
      if (renum==6) solveur=solveur+"RENUM='METIS',";
      if (renum==7) solveur=solveur+"RENUM='SCOTCH',";
      int gestmem=(int)param_aster.get_valeur("Solveur_Gestion_memoire_MUMPS");
      if (gestmem==1) solveur=solveur+"GESTION_MEMOIRE='AUTO',";
      if (gestmem==2) solveur=solveur+"GESTION_MEMOIRE='IN_CORE',";
      if (gestmem==3) solveur=solveur+"GESTION_MEMOIRE='OUT_OF_CORE',";
      if (gestmem==4) solveur=solveur+"GESTION_MEMOIRE='EVAL',";
      }
if (val==4)
      {
      solveur=solveur+"METHODE='GCPC',";
      int pre=(int)param_aster.get_valeur("Solveur_Pre_Cond_GCPC");
      if (pre==1) solveur=solveur+"PRE_COND='LDLT_INC',RENUM='SANS',";
      if (pre==2) solveur=solveur+"PRE_COND='LDLT_INC',RENUM='RCMK',";
      if (pre==3) solveur=solveur+"PRE_COND='LDLT_SP',";
      }
solveur=solveur+")";
return solveur;
}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
void MG_EXPORT::decompose_maillage(MG_MAILLAGE* mai,TPL_MAP_ENTITE<MG_NOEUD*> &lstnoeud,TPL_MAP_ENTITE<MG_SEGMENT*> &lstsegment,TPL_MAP_ENTITE<MG_TRIANGLE*> &lsttriangle,TPL_MAP_ENTITE<MG_QUADRANGLE*> &lstquadrangle,TPL_MAP_ENTITE<MG_TETRA*> &lsttetra,TPL_MAP_ENTITE<MG_HEXA*> &lsthexa,TPL_MAP_ENTITE<class MG_PENTA*> &lstpenta,TPL_MAP_ENTITE<class MG_PYRAMIDE*> &lstpyramide)
{
    LISTE_MG_TETRA::iterator  it4;
    for (MG_TETRA* tet=mai->get_premier_tetra(it4);tet;tet=mai->get_suivant_tetra(it4))
        lsttetra.ajouter(tet);
    int nbtet=lsttetra.get_nb();
    LISTE_MG_HEXA::iterator  it42;
    for (MG_HEXA* hex=mai->get_premier_hexa(it42);hex;hex=mai->get_suivant_hexa(it42))
        lsthexa.ajouter(hex);
    int nbhexa=lsthexa.get_nb();
    LISTE_MG_PENTA::iterator  it43;
    for (MG_PENTA* pen=mai->get_premier_penta(it43);pen;pen=mai->get_suivant_penta(it43))
        lstpenta.ajouter(pen);
    int nbpenta=lstpenta.get_nb();
    LISTE_MG_PYRAMIDE::iterator  it44;
    for (MG_PYRAMIDE* pyr=mai->get_premier_pyramide(it44);pyr;pyr=mai->get_suivant_pyramide(it44))
        lstpyramide.ajouter(pyr);
    int nbpyramide=lstpyramide.get_nb();
    LISTE_MG_TRIANGLE::iterator  it3;
    for (MG_TRIANGLE* tri=mai->get_premier_triangle(it3);tri;tri=mai->get_suivant_triangle(it3))
    {
        if (tri->get_lien_topologie()!=NULL)
        {
            if (tri->get_lien_topologie()->get_dimension()==2) lsttriangle.ajouter(tri);
        }
        else if ((nbtet+nbhexa+nbpenta+nbpyramide==0)|| (MG_MAILLAGE::DIMENSIONMAILLAGESANSTOPO==2)) lsttriangle.ajouter(tri);
    }
    int nbtri=lsttriangle.get_nb();
    LISTE_MG_QUADRANGLE::iterator  it32;
    for (MG_QUADRANGLE* quad=mai->get_premier_quadrangle(it32);quad;quad=mai->get_suivant_quadrangle(it32))
    {
        if (quad->get_lien_topologie()!=NULL)
        {
            if (quad->get_lien_topologie()->get_dimension()==2) lstquadrangle.ajouter(quad);
        }
        else if ((nbtet+nbhexa+nbpenta+nbpyramide==0)|| (MG_MAILLAGE::DIMENSIONMAILLAGESANSTOPO==2)) lstquadrangle.ajouter(quad);
    }
    int nbquad=lstquadrangle.get_nb();
    LISTE_MG_SEGMENT::iterator  it2;
    for (MG_SEGMENT* seg=mai->get_premier_segment(it2);seg;seg=mai->get_suivant_segment(it2))
    {
        if (seg->get_lien_topologie()!=NULL)
        {
            if (seg->get_lien_topologie()->get_dimension()==1) lstsegment.ajouter(seg);
        }
        else 
          if (((nbtet+nbhexa+nbpenta+nbpyramide==0) && (nbtri+nbquad==0)) || (MG_MAILLAGE::DIMENSIONMAILLAGESANSTOPO==1)) 
                lstsegment.ajouter(seg);
    }
 
    LISTE_MG_NOEUD::iterator  it;
    for (MG_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
    {
        if (noeud->get_lien_topologie()!=NULL)
            if (noeud->get_lien_topologie()->get_dimension()==0) lstnoeud.ajouter(noeud);
    }
 
}
 
 
 
double MG_EXPORT::get_version_aster(void)
{
char version[100];
strcpy(version,param_aster.get_nom("Version").c_str());
for (int i=0;i<strlen(version);i++)
  if ((version[i]!='0') && (version[i]!='1') && (version[i]!='2') && (version[i]!='3') && (version[i]!='4') && (version[i]!='5') && (version[i]!='6') && (version[i]!='7') && (version[i]!='8') && (version[i]!='9') && (version[i]!='.'))  
                version[i]=' ';
double ver;
sscanf(version,"%lf",&ver);
return ver;
}    
 
void MG_EXPORT::stl(class MG_MAILLAGE* mai,std::string fichier)
{
std::string fichiermaillage=fichier+".stl";
FILE* in=fopen(fichiermaillage.c_str(),"wt");
fprintf(in,"solid MAGiC\n");     
LISTE_MG_TRIANGLE::iterator it;
for (MG_TRIANGLE* tri=mai->get_premier_triangle(it);tri!=NULL;tri=mai->get_suivant_triangle(it))
    {
    double *xyz1=tri->get_noeud1()->get_coord();  
    double *xyz2=tri->get_noeud2()->get_coord();  
    double *xyz3=tri->get_noeud3()->get_coord();  
    OT_VECTEUR_3D vec1(xyz1,xyz2);
    OT_VECTEUR_3D vec2(xyz1,xyz3);
    OT_VECTEUR_3D nor=vec1&vec2;
    nor.norme();
    fprintf(in,"   facet normal %le %le %le\n",nor.get_x(),nor.get_y(),nor.get_z());
    fprintf(in,"      outer loop\n");
    fprintf(in,"         vertex %le %le %le\n",xyz1[0],xyz1[1],xyz1[2]);
    fprintf(in,"         vertex %le %le %le\n",xyz2[0],xyz2[1],xyz2[2]);
    fprintf(in,"         vertex %le %le %le\n",xyz3[0],xyz3[1],xyz3[2]);
    fprintf(in,"      endloop\n");
    fprintf(in,"   endfacet\n");
    }
fprintf(in,"endsolid MAGiC\n");     
}
 
 
void MG_EXPORT::off(class MG_MAILLAGE* mai,std::string fichier)
{
std::string fichiermaillage=fichier+".off";
FILE* in=fopen(fichiermaillage.c_str(),"wt");
fprintf(in,"OFF\n");     
fprintf(in,"%d %d 0\n",mai->get_nb_mg_noeud(),mai->get_nb_mg_triangle()+mai->get_nb_mg_quadrangle());
int i=0;
LISTE_MG_NOEUD::iterator it;
for (MG_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
    {
        noeud->change_nouveau_numero(i);
        double *coord=noeud->get_coord();
        fprintf(in,"%lf %lf %lf\n",coord[0],coord[1],coord[2]);
        i++;
    }
LISTE_MG_TRIANGLE::iterator itt;
for (MG_TRIANGLE* tri=mai->get_premier_triangle(itt);tri;tri=mai->get_suivant_triangle(itt))
    {
        fprintf(in,"3 %d %d %d\n",tri->get_noeud2()->get_nouveau_numero(),tri->get_noeud1()->get_nouveau_numero(),tri->get_noeud3()->get_nouveau_numero());
    }
LISTE_MG_QUADRANGLE::iterator itq;
for (MG_QUADRANGLE* qua=mai->get_premier_quadrangle(itq);qua;qua=mai->get_suivant_quadrangle(itq))
    {
        fprintf(in,"4 %d %d %d %d\n",qua->get_noeud1()->get_nouveau_numero(),qua->get_noeud2()->get_nouveau_numero(),qua->get_noeud3()->get_nouveau_numero(),qua->get_noeud4()->get_nouveau_numero());
    }
 
  
}
 
 
 
std::string MG_EXPORT::get_string_angles_nautiques(TPL_LISTE_ENTITE<double> &param,double precision)
{
  double x=param.get(6), y=param.get(7), z=param.get(8);
  double alpha=0., beta=0., gamma=0.;
  
  if((fabs(x)>precision)||(fabs(y)>precision))
  {
    alpha=atan2(y,x);
    if(fabs(cos(alpha))>=fabs(sin(alpha))) beta = acos(x/cos(alpha));
    else beta = acos(y/sin(alpha));
    if (z>0.) beta=-beta;
  }
  else
  {
    alpha=0.;
    if(z>0.) beta=-M_PI/2.;
    else beta=M_PI/2;
  }
 
  char valchar[100];
  sprintf(valchar,"ANGL_NAUT = (%le,%le,%le)",alpha*180/M_PI,beta*180/M_PI,gamma);
  std::string valstr=valchar;
  return valstr;
}
 
 
 
void MG_EXPORT::regroupement_faces(MG_FACE* face,double val,TPL_LISTE_ENTITE<double> param,std::string &strlistccf,MG_GEOMETRIE* geo)
{
  int id_face=face->get_id();
  int nb_face = geo->get_nb_mg_face();
  double precision=geo->get_valeur_precision();
  for (int i=0;i<nb_face;i++)
  {
    MG_FACE* face_i=geo->get_mg_face(i);
    int id_face_i=face_i->get_id();
    double val_i;
    TPL_LISTE_ENTITE<double> param_i;
    if(face_i->get_valeur_ccf((char*)"DR",val_i)&&(val_i==val)&&(face_i->get_surface()->get_type_geometrique(param_i)==GEOMETRIE::CONST::Co_CYLINDRE)&&(id_face_i!=id_face))
    {
      double cen1[3]={param.get(0),param.get(1),param.get(2)};
      double cen2[3]={param_i.get(0),param_i.get(1),param_i.get(2)};
      
      OT_VECTEUR_3D vec1(cen1,cen2);
      OT_VECTEUR_3D vec2(param.get(6),param.get(7),param.get(8));
      OT_VECTEUR_3D vec3=vec1&vec2;
      if((vec3.get_longueur()<precision)&&(fabs(param.get(9)-param_i.get(9))<precision)) strlistccf = strlistccf + "'GMF" + std::to_string(id_face_i) + "',";  
    }
    if(face_i->get_valeur_ccf((char*)"DR",val_i)&&(val_i==val)&&(face_i->get_surface()->get_type_geometrique(param_i)==GEOMETRIE::CONST::Co_SPHERE)&&(id_face_i!=id_face))
    {
      if((fabs((param.get(0)-param_i.get(0)))<precision)&&(fabs((param.get(1)-param_i.get(1)))<precision)&&(fabs((param.get(2)-param_i.get(2)))<precision)&&(fabs((param.get(3)-param_i.get(3)))<precision))
        strlistccf = strlistccf + "'GMF" + std::to_string(id_face_i) + "',";
    }
  }
}
 
 
 
void MG_EXPORT::abaqus(FEM_MAILLAGE* mai, std::string fichier)
{
double facteur_unite = 1.;
if (mai->get_mg_geometrie()!=NULL) facteur_unite=mai->get_mg_geometrie()->get_valeur_unite();
std::string fichiermaillage=fichier+".inp";
FILE* out=fopen(fichiermaillage.c_str(),"wt");
char chaine[5000];
fprintf(out,"** Exportation MAGIC->ABAQUS\n");
fprintf(out,"**=**DEFINITION DES NOEUDS DU MAILLAGE\n");
fprintf(out,"*NODE,SYSTEM=R\n");
LISTE_FEM_NOEUD::iterator it;
int i=0;
for (FEM_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
            {
            i++;
            noeud->change_numero(i);
            double *coord=noeud->get_coord();
            fprintf(out, "%d,%+0.15E,%+0.15E,%+0.15E\n",noeud->get_numero(),coord[0]*facteur_unite,coord[1]*facteur_unite,coord[2]*facteur_unite);
            
              
            }
fprintf(out, "**==** DEFINITION DES ELEMENTS\n");
TPL_LISTE_ENTITE<FEM_ELEMENT3*> lstc3d4;
TPL_LISTE_ENTITE<FEM_ELEMENT3*> lstc3d6;
TPL_LISTE_ENTITE<FEM_ELEMENT3*> lstc3d8;
TPL_LISTE_ENTITE<FEM_ELEMENT3*> lstc3d10;
TPL_LISTE_ENTITE<FEM_ELEMENT3*> lstc3d15;
TPL_LISTE_ENTITE<FEM_ELEMENT3*> lstc3d20;
LISTE_FEM_ELEMENT3::iterator itele;
for (FEM_ELEMENT3* ele=mai->get_premier_element3(itele);ele!=NULL;ele=mai->get_suivant_element3(itele))
    {
    if (ele->get_nb_fem_noeud()==4) lstc3d4.ajouter(ele);  
    if (ele->get_nb_fem_noeud()==6) lstc3d6.ajouter(ele);  
    if (ele->get_nb_fem_noeud()==8) lstc3d8.ajouter(ele);  
    if (ele->get_nb_fem_noeud()==10) lstc3d10.ajouter(ele);  
    if (ele->get_nb_fem_noeud()==15) lstc3d15.ajouter(ele);  
    if (ele->get_nb_fem_noeud()==20) lstc3d20.ajouter(ele);  
    }
int nbele=0;
if (lstc3d4.get_nb()!=0)
    {
    fprintf(out,"*ELEMENT,TYPE=C3D4,ELSET=EF_C3D4\n");    
    for (int i=0;i<lstc3d4.get_nb();i++)
        {
         nbele++;
         FEM_ELEMENT3* ele=lstc3d4.get(i);
         ele->change_numero(nbele);
         fprintf(out,"%d,%d,%d,%d,%d,\n",nbele,ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(3)->get_numero());    
        }
    }
if (lstc3d6.get_nb()!=0)
    {
    fprintf(out,"*ELEMENT,TYPE=C3D4,ELSET=EF_C3D6\n");    
    for (int i=0;i<lstc3d6.get_nb();i++)
        {
         nbele++;
         FEM_ELEMENT3* ele=lstc3d6.get(i);
         ele->change_numero(nbele);
         fprintf(out,"%d,%d,%d,%d,%d,%d,%d,\n",nbele,ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(3)->get_numero(),ele->get_fem_noeud(4)->get_numero(),ele->get_fem_noeud(5)->get_numero());    
        }
    }
if (lstc3d8.get_nb()!=0)
    {
    fprintf(out,"*ELEMENT,TYPE=C3D8,ELSET=EF_C3D8\n");    
    for (int i=0;i<lstc3d8.get_nb();i++)
        {
         nbele++;
         FEM_ELEMENT3* ele=lstc3d8.get(i);
         ele->change_numero(nbele);
         fprintf(out,"%d,%d,%d,%d,%d,%d,%d,%d,%d,\n",nbele,ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(3)->get_numero(),ele->get_fem_noeud(4)->get_numero(),ele->get_fem_noeud(5)->get_numero(),ele->get_fem_noeud(6)->get_numero(),ele->get_fem_noeud(7)->get_numero());    
        }
    }
if (lstc3d10.get_nb()!=0)
    {
    fprintf(out,"*ELEMENT,TYPE=C3D10,ELSET=EF_C3D10\n");    
    for (int i=0;i<lstc3d10.get_nb();i++)
        {
         nbele++;
         FEM_ELEMENT3* ele=lstc3d10.get(i);
         ele->change_numero(nbele);
         fprintf(out,"%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,\n",nbele,ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(4)->get_numero(),ele->get_fem_noeud(9)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(3)->get_numero(),ele->get_fem_noeud(5)->get_numero(),ele->get_fem_noeud(6)->get_numero(),ele->get_fem_noeud(7)->get_numero(),ele->get_fem_noeud(8)->get_numero());    
        }
    }
if (lstc3d15.get_nb()!=0)
    {
    fprintf(out,"*ELEMENT,TYPE=C3D15,ELSET=EF_C3D15\n");    
    for (int i=0;i<lstc3d15.get_nb();i++)
        {
         nbele++;
         FEM_ELEMENT3* ele=lstc3d15.get(i);
         ele->change_numero(nbele);
         fprintf(out,"%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,\n",nbele,ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(4)->get_numero(),ele->get_fem_noeud(9)->get_numero(),ele->get_fem_noeud(11)->get_numero(),ele->get_fem_noeud(13)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(3)->get_numero(),ele->get_fem_noeud(5)->get_numero(),ele->get_fem_noeud(6)->get_numero(),ele->get_fem_noeud(7)->get_numero(),ele->get_fem_noeud(8)->get_numero(),ele->get_fem_noeud(10)->get_numero(),ele->get_fem_noeud(12)->get_numero(),ele->get_fem_noeud(14)->get_numero());
           
        }
    }
if (lstc3d20.get_nb()!=0)
    {
    fprintf(out,"*ELEMENT,TYPE=C3D20,ELSET=EF_C3D20\n");    
    for (int i=0;i<lstc3d20.get_nb();i++)
        {
         nbele++;
         FEM_ELEMENT3* ele=lstc3d20.get(i);
         ele->change_numero(nbele);
         fprintf(out,"%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,%d,\n%d,%d,%d,%d,%d,\n",nbele,ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(4)->get_numero(),ele->get_fem_noeud(6)->get_numero(),ele->get_fem_noeud(12)->get_numero(),ele->get_fem_noeud(14)->get_numero(),ele->get_fem_noeud(16)->get_numero(),ele->get_fem_noeud(18)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(3)->get_numero(),ele->get_fem_noeud(5)->get_numero(),ele->get_fem_noeud(7)->get_numero(),ele->get_fem_noeud(8)->get_numero(),ele->get_fem_noeud(9)->get_numero(),ele->get_fem_noeud(10)->get_numero(),ele->get_fem_noeud(11)->get_numero(),ele->get_fem_noeud(13)->get_numero(),ele->get_fem_noeud(15)->get_numero(),ele->get_fem_noeud(17)->get_numero(),ele->get_fem_noeud(19)->get_numero());
           
        }
    }
if (mai->get_mg_geometrie()!=NULL)
    {
    MG_GEOMETRIE* geo=mai->get_mg_geometrie();
    fprintf(out,"**_** DEFINITION DES GROUPES D ELEMENTS\n");  
    int numvol=0;
    LISTE_MG_VOLUME::iterator it;
    for (MG_VOLUME* vol=geo->get_premier_volume(it);vol!=NULL;vol=geo->get_suivant_volume(it))
        {
        numvol++;  
        fprintf(out,"*ELSET,ELSET=Elt_%04d\n",numvol);
        for (int j=0;j<vol->get_lien_fem_maillage()->get_nb();j++)
          {
          fprintf(out,"%d,",vol->get_lien_fem_maillage()->get(j)->get_numero());
          if ( ((j+1)%16==0) && (j<vol->get_lien_fem_maillage()->get_nb()-1) )fprintf(out,"\n");
          }
     fprintf(out,"\n");
     }
    }
fclose(out);
    
}
  
void MG_EXPORT::formatneutre(FEM_MAILLAGE* mai, std::string fichier)
{
double facteur_unite = 1.;
if (mai->get_mg_geometrie()!=NULL) facteur_unite=mai->get_mg_geometrie()->get_valeur_unite();
std::string fichiermaillage=fichier+".mai";
FILE* out=fopen(fichiermaillage.c_str(),"wt");
LISTE_FEM_NOEUD::iterator it;
int i=0;
fprintf(out, "%d %d %d\n",mai->get_nb_fem_noeud(),mai->get_nb_fem_element2(),mai->get_nb_fem_element3());
for (FEM_NOEUD* noeud=mai->get_premier_noeud(it);noeud;noeud=mai->get_suivant_noeud(it))
            {
            i++;
            noeud->change_numero(i);
            double *coord=noeud->get_coord();
        fprintf(out, "%d %lf %lf %lf\n",noeud->get_numero(),coord[0]*facteur_unite,coord[1]*facteur_unite,coord[2]*facteur_unite);
            }
LISTE_FEM_ELEMENT2::iterator itele;
for (FEM_ELEMENT2* ele=mai->get_premier_element2(itele);ele!=NULL;ele=mai->get_suivant_element2(itele))
    {
    if (ele->get_nb_fem_noeud()==3) 
     fprintf(out,"T3 %d %d %d\n",ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(2)->get_numero());
    if (ele->get_nb_fem_noeud()==4)   
     fprintf(out,"Q4 %d %d %d %d\n",ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(3)->get_numero());
    if (ele->get_nb_fem_noeud()==6)   
     fprintf(out,"T6 %d %d %d %d %d %d\n",ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(4)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(3)->get_numero(),ele->get_fem_noeud(5)->get_numero());
    if (ele->get_nb_fem_noeud()==8)     
        fprintf(out,"Q8 %d %d %d %d %d %d %d %d\n",ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(4)->get_numero(),ele->get_fem_noeud(6)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(3)->get_numero(),ele->get_fem_noeud(5)->get_numero(),ele->get_fem_noeud(7)->get_numero());
    }
LISTE_FEM_ELEMENT3::iterator itele2;
for (FEM_ELEMENT3* ele=mai->get_premier_element3(itele2);ele!=NULL;ele=mai->get_suivant_element3(itele2))
    {
    if (ele->get_nb_fem_noeud()==4) 
     fprintf(out,"T4 %d %d %d %d\n",ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(3)->get_numero());
    if (ele->get_nb_fem_noeud()==8)   
     fprintf(out,"H8 %d %d %d %d %d %d %d %d\n",ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(3)->get_numero(),ele->get_fem_noeud(4)->get_numero(),ele->get_fem_noeud(4)->get_numero(),ele->get_fem_noeud(6)->get_numero(),ele->get_fem_noeud(7)->get_numero());
    if (ele->get_nb_fem_noeud()==10)   
     fprintf(out,"T10 %d %d %d %d %d %d %d %d %d %d\n",ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(4)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(3)->get_numero(),ele->get_fem_noeud(5)->get_numero(),ele->get_fem_noeud(6)->get_numero(),ele->get_fem_noeud(7)->get_numero(),ele->get_fem_noeud(8)->get_numero(),ele->get_fem_noeud(9)->get_numero());
    if (ele->get_nb_fem_noeud()==20)     
        fprintf(out,"H20 %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d\n",ele->get_fem_noeud(0)->get_numero(),ele->get_fem_noeud(2)->get_numero(),ele->get_fem_noeud(4)->get_numero(),ele->get_fem_noeud(6)->get_numero(),ele->get_fem_noeud(12)->get_numero(),ele->get_fem_noeud(14)->get_numero(),ele->get_fem_noeud(16)->get_numero(),ele->get_fem_noeud(18)->get_numero(),ele->get_fem_noeud(1)->get_numero(),ele->get_fem_noeud(7)->get_numero(),ele->get_fem_noeud(8)->get_numero(),ele->get_fem_noeud(3)->get_numero(),ele->get_fem_noeud(9)->get_numero(),ele->get_fem_noeud(5)->get_numero(),ele->get_fem_noeud(10)->get_numero(),ele->get_fem_noeud(11)->get_numero(),ele->get_fem_noeud(13)->get_numero(),ele->get_fem_noeud(19)->get_numero(),ele->get_fem_noeud(15)->get_numero(),ele->get_fem_noeud(17)->get_numero());
    }
fclose(out);
    
}