// FICHIER : Maheo_hyper.cc
// CLASSE : Maheo_hyper


// This file is part of the Herezh++ application.
//
// The finite element software Herezh++ is dedicated to the field
// of mechanics for large transformations of solid structures.
// It is developed by Gérard Rio (APP: IDDN.FR.010.0106078.000.R.P.2006.035.20600)
// INSTITUT DE RECHERCHE DUPUY DE LÔME (IRDL) <https://www.irdl.fr/>.
//
// Herezh++ is distributed under GPL 3 license ou ultérieure.
//
// Copyright (C) 1997-2021 Université Bretagne Sud (France)
// AUTHOR : Gérard Rio
// E-MAIL  : gerardrio56@free.fr
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License,
// or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty
// of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
// See the GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program. If not, see <https://www.gnu.org/licenses/>.
//
// For more information, please consult: <https://herezh.irdl.fr/>.


//#include "Debug.h"

# include <iostream>
using namespace std;  //introduces namespace std
#include <math.h>
#include <stdlib.h>
#include "Sortie.h"
#include "TypeConsTens.h"
#include "CharUtil.h"

#include "Maheo_hyper.h"
#include "MathUtil.h"

Maheo_hyper::Maheo_hyper () :  // Constructeur par defaut
  Hyper_W_gene_3D(MAHEO_HYPER,CAT_MECANIQUE,3)
  ,Qsig_rev(-ConstMath::trespetit)
  , mu1_rev(-ConstMath::trespetit)
  ,mu2_rev(-ConstMath::trespetit)
  ,fact_regularisation(ConstMath::pasmalpetit)
  ,Qsig_rev_temperature(NULL),mu1_rev_temperature(NULL),mu2_rev_temperature(NULL)
  ,W_d(0.),W_v(0.)
  ,W_d_J1(0.),W_d_J2(0.),W_v_J3(0.),W_v_J3J3(0.)
  ,W_d_J1_2(0.),W_d_J1_J2(0.),W_d_J2_2(0.)
   { };
	

// Constructeur de copie
Maheo_hyper::Maheo_hyper (const Maheo_hyper& loi) :
	Hyper_W_gene_3D(loi)
  ,Qsig_rev(loi.Qsig_rev)
  , mu1_rev(loi.mu1_rev)
  ,mu2_rev(loi.mu2_rev)
  ,Qsig_rev_temperature(loi.Qsig_rev_temperature)
  ,mu1_rev_temperature(loi.mu1_rev_temperature)
  ,mu2_rev_temperature(loi.mu2_rev_temperature)
  ,fact_regularisation(loi.fact_regularisation)
  ,W_d(loi.W_d),W_v(loi.W_v)
  ,W_d_J1(loi.W_d_J1),W_d_J2(loi.W_d_J2),W_v_J3(loi.W_v_J3),W_v_J3J3(loi.W_v_J3J3)
  ,W_d_J1_2(loi.W_d_J1_2),W_d_J1_J2(loi.W_d_J1_J2),W_d_J2_2(loi.W_d_J2_2)
	 {// on regarde s'il s'agit de courbes locales ou de courbes globales

      if (Qsig_rev_temperature != NULL)
         if (Qsig_rev_temperature->NomCourbe() == "_")
            Qsig_rev_temperature = Courbe1D::New_Courbe1D(*(loi.Qsig_rev_temperature));
      if (mu1_rev_temperature != NULL)
         if (mu1_rev_temperature->NomCourbe() == "_")
            mu1_rev_temperature = Courbe1D::New_Courbe1D(*(loi.mu1_rev_temperature));
      if (mu2_rev_temperature != NULL)
         if (mu2_rev_temperature->NomCourbe() == "_")
            mu2_rev_temperature = Courbe1D::New_Courbe1D(*(loi.mu2_rev_temperature));
	  };

Maheo_hyper::~Maheo_hyper ()
// Destructeur 
   { if (Qsig_rev_temperature != NULL)
         if (Qsig_rev_temperature->NomCourbe() == "_") delete Qsig_rev_temperature;
     if (mu1_rev_temperature != NULL)
         if (mu1_rev_temperature->NomCourbe() == "_") delete mu1_rev_temperature;
     if (mu2_rev_temperature != NULL)
         if (mu2_rev_temperature->NomCourbe() == "_") delete mu2_rev_temperature;
   };

// Lecture des donnees de la classe sur fichier
void Maheo_hyper::LectureDonneesParticulieres
                (UtilLecture * entreePrinc,LesCourbes1D& lesCourbes1D
                                             ,LesFonctions_nD& lesFonctionsnD)
  { string toto,nom;
    // lecture de Qsig_rev
    string mot_cle = "Qsig_rev=";
    string nom_class_methode = "Maheo_hyper::LectureDonneesParticulieres";
    entreePrinc->Lecture_et_verif_mot_cle(nom_class_methode,mot_cle);
    // maintenant choix thermodépendant ou pas
    if(strstr(entreePrinc->tablcar,"Qsig_rev_thermo_dependant_")!=0)
     { mot_cle = "Qsig_rev_thermo_dependant_";
       entreePrinc->Lecture_et_verif_mot_cle(nom_class_methode,mot_cle);
       // lecture de la loi d'évolution
       Qsig_rev_temperature = Lecture_courbe(entreePrinc,lesCourbes1D);
      }
    else
      *(entreePrinc->entree) >> Qsig_rev ;
    // lecture de mu1_rev
    mot_cle = "mu1_rev=";
    entreePrinc->Lecture_et_verif_mot_cle(nom_class_methode,mot_cle);
    // maintenant choix thermodépendant ou pas
    if(strstr(entreePrinc->tablcar,"mu1_rev_temperature_")!=0)
     { mot_cle = "mu1_rev_temperature_";
       entreePrinc->Lecture_et_verif_mot_cle(nom_class_methode,mot_cle);
       // lecture de la loi d'évolution
       Qsig_rev_temperature = Lecture_courbe(entreePrinc,lesCourbes1D);
      }
    else
      *(entreePrinc->entree) >> mu1_rev;
    // lecture de mu2_rev
    mot_cle = "mu2_rev=";
    entreePrinc->Lecture_et_verif_mot_cle(nom_class_methode,mot_cle);
    // maintenant choix thermodépendant ou pas
    if(strstr(entreePrinc->tablcar,"mu2_rev_temperature_")!=0)
     { mot_cle = "mu2_rev_temperature_";
       entreePrinc->Lecture_et_verif_mot_cle(nom_class_methode,mot_cle);
       // lecture de la loi d'évolution
       Qsig_rev_temperature = Lecture_courbe(entreePrinc,lesCourbes1D);
      }
    else
      *(entreePrinc->entree) >> mu2_rev;
    // cas avec une régularisation éventuelle
    if (strstr(entreePrinc->tablcar,"avec_regularisation_")!=NULL)
     { mot_cle = "avec_regularisation_";
       entreePrinc->Lecture_et_verif_mot_cle(nom_class_methode,mot_cle);
       *(entreePrinc->entree) >> fact_regularisation;
     };
   
    // lecture de l'indication éventuelle du post traitement
    string le_mot_cle = "sortie_post_";
    entreePrinc->Lecture_un_parametre_int(0,nom_class_methode,0,1,le_mot_cle,sortie_post);
   
   
    // --- appel au niveau de la classe mère
    // ici  il n'y a pas de type de déformation associé
    // mais on prend la def standart d'almansi, pour les fonctions associées éventuelles
    Loi_comp_abstraite::Lecture_type_deformation_et_niveau_commentaire
                 (*entreePrinc,lesFonctionsnD,true);
   };

 // affichage de la loi
void Maheo_hyper::Affiche()  const
  { cout << " \n loi de comportement hyper elastique 3D Maheo_hyper  \n";

    if ( Qsig_rev_temperature != NULL) { cout << " Qsig_rev thermo dependant "
                                         << " courbe Qsig_rev=f(T): " << Qsig_rev_temperature->NomCourbe() <<" ";}
    else                          { cout << " Qsig_rev= " << Qsig_rev << " ";};
    if ( mu1_rev_temperature != NULL) { cout << " mu1_rev thermo dependant "
                                         << " courbe mu1_rev=f(T): " << mu1_rev_temperature->NomCourbe() <<" ";}
    else                          { cout << " mu1_rev= " << mu1_rev << " ";};
    if ( mu2_rev_temperature != NULL) { cout << " mu2_rev thermo dependant "
                                         << " courbe mu2_rev=f(T): " << mu2_rev_temperature->NomCourbe() <<" ";}
    else                          { cout << " mu2_rev= " << mu2_rev << " ";};

    // appel de la classe mère
    Loi_comp_abstraite::Affiche_don_classe_abstraite();
  };
            
// affichage et definition interactive des commandes particulières à chaques lois
void Maheo_hyper::Info_commande_LoisDeComp(UtilLecture& entreePrinc)
 {  ofstream & sort = *(entreePrinc.Commande_pointInfo()); // pour simplifier
	   cout << "\n definition standart (rep o) ou exemples exhaustifs (rep n'importe quoi) ? ";
	   string rep = "_";
    // procédure de lecture avec prise en charge d'un retour chariot
    rep = lect_return_defaut(true,"o");

    sort << "\n# ----------------------------------------------------------------------------------"
         << "\n# |... loi de comportement hyper elastique 3D Maheo_hyper                       .. |"
         << "\n# ----------------------------------------------------------------------------------"
         << "\n\n#           exemple de definition de loi"
         << "\n   Qsig_rev= 2 mu1_rev= 0.0167 mu2_rev= 0.45   "
         << "\n#   .. fin de la definition de la loi Maheo_hyper  \n" << endl;
	   if ((rep != "o") && (rep != "O" ) && (rep != "0") )
      { sort << "\n#   " 
         << "\n#------------------------------------------------------------------------------------"
         << "\n#  il est possible de definir des parametres thermo-dependants (1 ou 2 ou 3 parametres)"
         << "\n#  par exemple pour les trois parametres on ecrit: "
         << "\n#------------------------------------------------------------------------------------"
         << "\n#  Qsig_rev= Qsig_rev_thermo_dependant_ courbe1 "
         << "\n#  mu1_rev= mu1_rev_temperature_ courbe2 "
         << "\n#  mu2_rev= mu2_rev_temperature_ courbe3 "
         << "\n#  ou encore "
         << "\n#  Qsig_rev= Qsig_rev_temperature_ courbe2 "
         << "\n#  mu1_rev= 0.0167  mu2_rev=  mu2_rev_temperature_ courbe4 "
         << "\n#------------------------------------------------------------------------------------"
         << "\n#  noter qu'apres la definition de chaque courbe, on change de ligne, a l'inverse "
         << "\n#  si la valeur du parametre est fixe, on poursuit sur la meme ligne. "
         << "\n#------------------------------------------------------------------------------------"
         << "\n#  il est possible d'indiquer un facteur de regularisation qui permet d'eviter "
         << "\n#  de potentiels  problemes de NaN, de type division par 0 par exemple "
         << "\n#  1/a est remplace par 1/(a+fact_regularisation), par defaut fact_regularisation = 1.e-12 "
         << "\n#  pour indiquer un facteur de regulation non nul on indique en dernier parametre "
         << "\n#  le mot cle avec_regularisation_ suivi du facteur voulu "
         << "\n#  ex: "
         << "\n#    avec_regularisation_  1.e-12 "
         << "\n#  ce mot cle doit se situer avant le mot cle sortie_post_ "
         << "\n#------------------------------------------------------------------------------------"
         << "\n#  il est possible de recuperer differentes grandeurs de travail par exemple "
         << "\n#  l'intensite du potentiel, comme ces grandeurs sont calculees au moment de la resolution "
         << "\n#  et ne sont pas stockees, il faut indiquer le mot cle sortie_post_ suivi de 1 (par defaut = 0) "
         << "\n#  ensuite au moment de la constitution du .CVisu on aura acces aux grandeurs de travail "
         << "\n#  ex: "
         << "\n#    sortie_post_  1 "
         << "\n#  ce mot cle est le dernier des parametres specifiques de la loi il doit se situe "
         << "\n#  a la fin de la derniere ligne de donnees "
         << "\n#"
         << "\n#------------------------------------------------------------------------------------"
         << endl;
       };
    // appel de la classe Hyper_W_gene_3D
    Hyper_W_gene_3D::Info_commande_LoisDeComp_hyper3D(entreePrinc);
    // appel de la classe mère
    Loi_comp_abstraite::Info_commande_don_LoisDeComp(entreePrinc);     
  };  		  	  

// test si la loi est complete
int Maheo_hyper::TestComplet()
    { int ret = LoiAbstraiteGeneral::TestComplet();

      if ((Qsig_rev_temperature == NULL) && (Qsig_rev == (-ConstMath::trespetit)))
         { cout << " \n le coefficient Qsig_rev de la loi Maheo_hyper n'est pas defini pour la loi "
                << Nom_comp(id_comp)
                << '\n' << endl;
           ret = 0;
         };
      if ((mu1_rev_temperature == NULL) && (mu1_rev == (-ConstMath::trespetit)))
         { cout << " \n le coefficient mu1_rev de la loi Maheo_hyper n'est pas defini pour la loi "
                << Nom_comp(id_comp)
                << '\n' << endl;
           ret = 0;
         };
      if ((mu2_rev_temperature == NULL) && (mu2_rev == (-ConstMath::trespetit)))
         { cout << " \n le coefficient mu2_rev de la loi Maheo_hyper n'est pas defini pour la loi "
                << Nom_comp(id_comp)
                << '\n' << endl;
           ret = 0;
         };
      //
      if (ret == 0)
        {this-> Affiche();
         ret = 0;
        };
      return ret;
    }; 

	   //----- lecture écriture de restart -----

// cas donne le niveau de la récupération
// = 1 : on récupère tout
// = 2 : on récupère uniquement les données variables (supposées comme telles)
void Maheo_hyper::Lecture_base_info_loi(ifstream& ent,const int cas,LesReferences& lesRef,LesCourbes1D& lesCourbes1D
                                             ,LesFonctions_nD& lesFonctionsnD)
  { string nom; bool test;
    if (cas == 1)
     { // Qsig_rev
       ent >> nom >> test;
       // vérification
       #ifdef MISE_AU_POINT
         if (nom != "Qsig_rev")
           { cout << "\n erreur en lecture du parametres Qsig_rev de la loi de mooney rivlin 3D"
                  << " on devait lire Qsig_rev= avant le second parametre "
                  << " et on a lue: " << nom << " "  
                  << "\n Maheo_hyper::Lecture_base_info_loi(..."
                  << endl;
             Sortie(1);                  
            }
       #endif
       if (!test)
         { ent >> Qsig_rev;
           if (Qsig_rev_temperature != NULL) {if (Qsig_rev_temperature->NomCourbe() == "_")
              delete Qsig_rev_temperature; Qsig_rev_temperature = NULL;};
          }
       else
         { ent >> nom; Qsig_rev_temperature = lesCourbes1D.Lecture_pour_base_info(ent,cas,Qsig_rev_temperature); };

       // mu1_rev
       ent >> nom >> test;
       // vérification
       #ifdef MISE_AU_POINT
         if (nom != "mu1_rev")
           { cout << "\n erreur en lecture du parametres mu1_rev de la loi de mooney rivlin 3D"
                  << " on devait lire mu1_rev= avant le second parametre "
                  << " et on a lue: " << nom << " "  
                  << "\n Maheo_hyper::Lecture_base_info_loi(..."
                  << endl;
             Sortie(1);                  
            }
       #endif
       if (!test)
         { ent >> mu1_rev;
           if (mu1_rev_temperature != NULL) {if (mu1_rev_temperature->NomCourbe() == "_")
              delete mu1_rev_temperature; mu1_rev_temperature = NULL;};
          }
       else
         { ent >> nom; mu1_rev_temperature = lesCourbes1D.Lecture_pour_base_info(ent,cas,mu1_rev_temperature); };

       // mu2_rev
       ent >> nom >> test;
       // vérification
       #ifdef MISE_AU_POINT
         if (nom != "mu2_rev")
           { cout << "\n erreur en lecture du parametres mu2_rev de la loi de mooney rivlin 3D"
                  << " on devait lire mu2_rev= avant le second parametre "
                  << " et on a lue: " << nom << " "  
                  << "\n Maheo_hyper::Lecture_base_info_loi(..."
                  << endl;
             Sortie(1);                  
            }
       #endif
       if (!test)
         { ent >> mu2_rev;
           if (mu2_rev_temperature != NULL) {if (mu2_rev_temperature->NomCourbe() == "_")
              delete mu2_rev_temperature; mu2_rev_temperature = NULL;};
          }
       else
         { ent >> nom; mu2_rev_temperature = lesCourbes1D.Lecture_pour_base_info(ent,cas,mu2_rev_temperature); };
     };
    // appel de la classe mère
    Loi_comp_abstraite::Lecture_don_base_info(ent,cas,lesRef,lesCourbes1D,lesFonctionsnD); 
  };

// cas donne le niveau de sauvegarde
// = 1 : on sauvegarde tout
// = 2 : on sauvegarde uniquement les données variables (supposées comme telles)
void Maheo_hyper::Ecriture_base_info_loi(ofstream& sort,const int cas)
  { if (cas == 1) 
     { // Qsig_rev
	      sort << "  Qsig_rev= ";
       if (Qsig_rev_temperature == NULL)
         { sort << false << " " << Qsig_rev << " ";}
       else 
         { sort << true << " fonction_Qsig_rev_temperature ";
           LesCourbes1D::Ecriture_pour_base_info(sort,cas,Qsig_rev_temperature);
          };
       // mu1_rev
	      sort << "  mu1_rev= ";
       if (mu1_rev_temperature == NULL)
         { sort << false << " " << mu1_rev << " ";}
       else 
         { sort << true << " fonction_mu1_rev_temperature ";
           LesCourbes1D::Ecriture_pour_base_info(sort,cas,mu1_rev_temperature);
         };
       // mu2_rev
	      sort << "  mu2_rev= ";
       if (mu2_rev_temperature == NULL)
         { sort << false << " " << mu2_rev << " ";}
       else 
         { sort << true << " fonction_mu2_rev_temperature ";
           LesCourbes1D::Ecriture_pour_base_info(sort,cas,mu2_rev_temperature);
         };
     };
	   // appel de la classe mère
    Loi_comp_abstraite::Ecriture_don_base_info(sort,cas);  
   }; 
     
  // calcul d'un module d'young équivalent à la loi: pour l'instant à faire !!
  double Maheo_hyper::Module_young_equivalent(Enum_dure temps,const Deformation & ,SaveResul * )
    {// comme la loi n'a pas de partie volumique, le module d'Young équivalent est nul
     return 0.;
     };

 // ========== codage des METHODES VIRTUELLES  protegees:================
        // calcul des contraintes a t+dt
void Maheo_hyper::Calcul_SigmaHH (TenseurHH& ,TenseurBB& ,DdlElement & tab_ddl,
             TenseurBB & ,TenseurHH & ,BaseB& ,BaseH& ,TenseurBB & epsBB_,
             TenseurBB & ,
             TenseurBB & gijBB_,TenseurHH & gijHH_,Tableau <TenseurBB *>& d_gijBB_,
             double& jacobien_0,double& jacobien,TenseurHH & sigHH_
		  	,EnergieMeca & energ,const EnergieMeca & ,double& module_compressibilite,double&  module_cisaillement
		  	,const Met_abstraite::Expli_t_tdt& ex)
 {   
    #ifdef MISE_AU_POINT
    if (epsBB_.Dimension() != 3)
       { cout << "\nErreur : la dimension devrait etre 3 !\n";
         cout << " Maheo_hyper::Calcul_SigmaHH\n";
         Sortie(1);
       };
    if (tab_ddl.NbDdl() != d_gijBB_.Taille())
       { cout << "\nErreur : le nb de ddl est != de la taille de d_gijBB_  !\n";
         cout << " Maheo_hyper::Calcul_SigmaHH\n";
         Sortie(1);
       };
    #endif
    Tenseur3HH & sigHH = *((Tenseur3HH*) &sigHH_);  //   passage explicite en tenseur dim 3
    
    // cas de la thermo dépendance, on calcul les grandeurs
    if (Qsig_rev_temperature != NULL) Qsig_rev = Qsig_rev_temperature->Valeur(*temperature);
    if (mu1_rev_temperature != NULL) mu1_rev = mu1_rev_temperature->Valeur(*temperature);
    if (mu2_rev_temperature != NULL) mu2_rev = mu2_rev_temperature->Valeur(*temperature);

    // calcul des invariants et de leurs variations premières (méthode de Hyper_W_gene_3D)
    Invariants_et_var1(*(ex.gijBB_0),*(ex.gijHH_0),gijBB_,gijHH_,jacobien_0,jacobien);
    // calcul du potentiel et de ses dérivées premières / aux invariants J_r
	   Potentiel_et_var();
    // stockage éventuel pour du post-traitement
    if (sortie_post)
     { // récup du conteneur spécifique du point, pour sauvegarde éventuelle
       SaveResulHyper_W_gene_3D & save_resulHyper_W = *((SaveResulHyper_W_gene_3D*) saveResul);
       save_resulHyper_W.invP->potentiel= W_d + W_v;
     };
	
    // calcul du tenseur des contraintes: on tiend compte du fait que le potentiel ne dépend que de J1
    sigHH = (W_d_J1/V) * d_J_r_epsBB_HH(1);
//    sigHH = (W_d_J1/V) * d_J_r_epsBB_HH(1) + (W_d_J2/V) * d_J_r_epsBB_HH(2) 
//	        + (W_v_J3/V) * d_J_r_epsBB_HH(3);
  
    // calcul du module de compressibilité
    module_compressibilite = 2. * W_v_J3; // ici 0
    // pour le module de cisaillement, pour l'instant je ne fais rien !! à voir ***
    module_cisaillement = 0.;

    // traitement des énergies
    energ.Inita(0.); 
    energ.ChangeEnergieElastique((W_d)/V);
//    energ.ChangeEnergieElastique((W_d+W_v)/V);
  
    LibereTenseur(); 
 };
        
        // calcul des contraintes a t+dt et de ses variations  
void Maheo_hyper::Calcul_DsigmaHH_tdt (TenseurHH& ,TenseurBB& ,DdlElement & tab_ddl
    ,BaseB& ,TenseurBB & ,TenseurHH &
    ,BaseB& ,Tableau <BaseB> & ,BaseH& ,Tableau <BaseH> &
    ,TenseurBB & epsBB_tdt,Tableau <TenseurBB *>& d_epsBB,TenseurBB &
		  ,TenseurBB & gijBB_tdt,TenseurHH & gijHH_tdt_
		  ,Tableau <TenseurBB *>& d_gijBB_tdt
		  ,Tableau <TenseurHH *>& ,double& jacobien_0,double& jacobien
		  ,Vecteur& ,TenseurHH& sigHH_tdt,Tableau <TenseurHH *>& d_sigHH
		  ,EnergieMeca & energ,const EnergieMeca & ,double& module_compressibilite,double&  module_cisaillement
		  ,const Met_abstraite::Impli& ex )
 {
    #ifdef MISE_AU_POINT
    if (epsBB_tdt.Dimension() != 3)
       { cout << "\nErreur : la dimension devrait etre 3  !\n";
         cout << " Maheo_hyper::Calcul_DsigmaHH_tdt\n";
         Sortie(1);
       };
    if (tab_ddl.NbDdl() != d_gijBB_tdt.Taille())
       { cout << "\nErreur : le nb de ddl est != de la taille de d_gijBB_tdt  !\n";
         cout << " Maheo_hyper::Calcul_SDsigmaHH_tdt\n";
         Sortie(1);
       };
    #endif
    Tenseur3HH & sigHH = *((Tenseur3HH*) &sigHH_tdt);  //  passage en dim 3 explicite
    Tenseur3HH & gijHH_tdt = *((Tenseur3HH*) &gijHH_tdt_);  //  passage en dim 3 explicite
    
    // cas de la thermo dépendance, on calcul les grandeurs
    if (Qsig_rev_temperature != NULL) Qsig_rev = Qsig_rev_temperature->Valeur(*temperature);
    if (mu1_rev_temperature != NULL) mu1_rev = mu1_rev_temperature->Valeur(*temperature);
    if (mu2_rev_temperature != NULL) mu2_rev = mu2_rev_temperature->Valeur(*temperature);
  
    // calcul des invariants et de leurs variations premières et secondes
    Invariants_et_var2(*(ex.gijBB_0),*(ex.gijHH_0),gijBB_tdt,gijHH_tdt,jacobien_0,jacobien);
    // calcul du potentiel et de ses dérivées premières et secondes / aux invariants J_r
    Potentiel_et_var2();
    // stockage éventuel pour du post-traitement
    if (sortie_post)
     { // récup du conteneur spécifique du point, pour sauvegarde éventuelle
       SaveResulHyper_W_gene_3D & save_resulHyper_W = *((SaveResulHyper_W_gene_3D*) saveResul);
       save_resulHyper_W.invP->potentiel= W_d + W_v;
     };
    // calcul du tenseur des contraintes: on tiend compte du fait que le potentiel ne dépend que de J1
    double unSurV=1./V;
    sigHH = (W_d_J1*unSurV) * d_J_r_epsBB_HH(1);
//    sigHH = (W_d_J1*unSurV) * d_J_r_epsBB_HH(1) + (W_d_J2*unSurV) * d_J_r_epsBB_HH(2) 
//            + (W_v_J3*unSurV) * d_J_r_epsBB_HH(3);
//	cout << "\n sigHH " << sigHH
//	     << "\n d_J_r_epsBB_HH1 " << d_J_r_epsBB_HH(1)         
//	     << "\n d_J_r_epsBB_HH2 " << d_J_r_epsBB_HH(2)         
//	     << "\n d_J_r_epsBB_HH3 " << d_J_r_epsBB_HH(3) 
//	     << "\n (W_d_J1*unSurV) " << (W_d_J1*unSurV) 
//	     << " (W_d_J2*unSurV) " << (W_d_J2*unSurV) 
//	     << " (W_d_J3*unSurV) " << (W_v_J3*unSurV); 
	             

	   // calcul de la variation seconde du potentiel par rapport à epsij epskl
    // on tiend compte du fait que le potentiel ne dépend que de J1
	   Tenseur3HHHH d2W_d2epsHHHH
         =  // tout d'abord les dérivées secondes du potentiel déviatoire
            W_d_J1_2  * Tenseur3HHHH::Prod_tensoriel(d_J_r_epsBB_HH(1),d_J_r_epsBB_HH(1))
            // puis les dérivées premières du potentiel déviatoire
           + W_d_J1 * d_J_1_eps2BB_HHHH;
//         =  // tout d'abord les dérivées secondes du potentiel déviatoire
//            W_d_J1_2  * Tenseur3HHHH::Prod_tensoriel(d_J_r_epsBB_HH(1),d_J_r_epsBB_HH(1))
//          + W_d_J1_J2 * Tenseur3HHHH::Prod_tensoriel(d_J_r_epsBB_HH(1),d_J_r_epsBB_HH(2))
//          + W_d_J2_2  * Tenseur3HHHH::Prod_tensoriel(d_J_r_epsBB_HH(2),d_J_r_epsBB_HH(2))
//            // puis les dérivées premières du potentiel déviatoire
//           + W_d_J1 * d_J_1_eps2BB_HHHH + W_d_J2 * d_J_2_eps2BB_HHHH
//            // enfin les dérivées seconde et première du potentiel sphérique
//           + W_v_J3 * d_J_3_eps2BB_HHHH
//           + W_v_J3J3 * Tenseur3HHHH::Prod_tensoriel(d_J_r_epsBB_HH(3),d_J_r_epsBB_HH(3));
	
	   // calcul de la variation du tenseur des contraintes par rapports aux déformations
    // on tient compte du fait que V*sigHH = d W/ d epsij
    Tenseur3HH interHH = -sigHH ; //* (-0.5*unSurV*unSurV);
	
    //	Tenseur3HHHH dSigdepsHHHH(1,interHH,d_J_r_epsBB_HH(3));
    Tenseur3HHHH dSigdepsHHHH(1,interHH,gijHH_tdt);
    //	dSigdepsHHHH += (unSurV) * d2W_d2epsHHHH;
    
    Tenseur3HHHH interHHHH((unSurV) * d2W_d2epsHHHH);  // cas des tenseurs généraux
    dSigdepsHHHH += interHHHH;                        // cas des tenseurs généraux
	
    //---------------------------------------------------------------------------------
    // vérif numérique de l'opérateur tangent
    //    Cal_dsigma_deps_num (*(ex.gijBB_0),*(ex.gijHH_0),gijBB_tdt,gijHH_tdt,jacobien_0,jacobien,dSigdepsHHHH);
    //---------------------------------------------------------------------------------

	   // calcul des variations / aux ddl
    int nbddl = d_gijBB_tdt.Taille();
    for (int i = 1; i<= nbddl; i++)
     { // on fait  uniquement une égalité d'adresse et de ne pas utiliser
       // le constructeur d'ou la profusion d'* et de ()
       Tenseur3HH & dsigHH = *((Tenseur3HH*) (d_sigHH(i)));  // passage en dim 3
       const Tenseur3BB & depsBB = *((Tenseur3BB *) (d_epsBB(i))); //    "
       dsigHH = dSigdepsHHHH && depsBB;
     };
    
    // calcul du module de compressibilité
    module_compressibilite = 2. * W_v_J3;// ici 0
    // pour le module de cisaillement, pour l'instant je ne fais rien !! à voir ***
    module_cisaillement = 0.;

    // traitement des énergies
    energ.Inita(0.); 
    energ.ChangeEnergieElastique((W_d+W_v)/V);
    
    LibereTenseur(); 
    LibereTenseurQ();
     
 };


// calcul des contraintes et ses variations  par rapport aux déformations a t+dt
// en_base_orthonormee:  le tenseur de contrainte en entrée est  en orthonormee
//                  le tenseur de déformation et son incrémentsont également en orthonormees
//                 si = false: les bases transmises sont utilisées
// ex: contient les éléments de métrique relativement au paramétrage matériel = X_(0)^a
void Maheo_hyper::Calcul_dsigma_deps (bool en_base_orthonormee, TenseurHH & ,TenseurBB&
            ,TenseurBB & epsBB_tdt,TenseurBB &, double& jacobien_0,double& jacobien 
		  	,TenseurHH& sigHH_tdt,TenseurHHHH& d_sigma_deps_ 
		  	,EnergieMeca & energ,const EnergieMeca & ,double& module_compressibilite,double&  module_cisaillement
		  	,const Met_abstraite::Umat_cont& ex ) 
 {
    #ifdef MISE_AU_POINT
	   if (epsBB_tdt.Dimension() != 3)
	    { cout << "\nErreur : la dimension devrait etre 3 !\n";
		     cout << " Maheo_hyper::Calcul_dsigma_deps\n";
		     Sortie(1);
		   };
    #endif
    Tenseur3HH & sigHH = *((Tenseur3HH*) &sigHH_tdt);  // // passage en dim 3 explicite
    Tenseur3HH & gijHH_tdt = *((Tenseur3HH*) ex.gijHH_tdt);  //  passage en dim 3 explicite
    
    // cas de la thermo dépendance, on calcul les grandeurs
    if (Qsig_rev_temperature != NULL) Qsig_rev = Qsig_rev_temperature->Valeur(*temperature);
    if (mu1_rev_temperature != NULL) mu1_rev = mu1_rev_temperature->Valeur(*temperature);
    if (mu2_rev_temperature != NULL) mu2_rev = mu2_rev_temperature->Valeur(*temperature);

    // calcul des invariants et de leurs variations premières et secondes
	   Invariants_et_var2(*(ex.gijBB_0),*(ex.gijHH_0),*(ex.gijBB_tdt),gijHH_tdt,jacobien_0,jacobien);
	   // calcul du potentiel et de ses dérivées premières et secondes / aux invariants J_r
    Potentiel_et_var2();
    // stockage éventuel pour du post-traitement
    if (sortie_post)
     { // récup du conteneur spécifique du point, pour sauvegarde éventuelle
       SaveResulHyper_W_gene_3D & save_resulHyper_W = *((SaveResulHyper_W_gene_3D*) saveResul);
       save_resulHyper_W.invP->potentiel= W_d + W_v;
     };
    // calcul du tenseur des contraintes, on travaille ici dans le repère matériel finale correspondant
    // aux coordonnées initiales X_(0)^a, on obtient donc un tenseur dans la base naturelle finale
    double unSurV=1./V;
    // on tiend compte du fait que le potentiel ne dépend que de J1
    Tenseur3HH  sig_localeHH  = (W_d_J1*unSurV) * d_J_r_epsBB_HH(1);
//    Tenseur3HH  sig_localeHH  = (W_d_J1*unSurV) * d_J_r_epsBB_HH(1) + (W_d_J2*unSurV) * d_J_r_epsBB_HH(2) 
//            + (W_v_J3*unSurV) * d_J_r_epsBB_HH(3);
	   // passage éventuelle dans la base I_a
    if (en_base_orthonormee)
       {sig_localeHH.BaseAbsolue(sigHH,*(ex.giB_tdt));}
    else {sigHH = sig_localeHH;}; // sinon la base locale est la bonne

	   // calcul de la variation seconde du potentiel par rapport à epsij epskl
    // on tiend compte du fait que le potentiel ne dépend que de J1
	   Tenseur3HHHH d2W_d2epsHHHH
         =  // tout d'abord les dérivées secondes du potentiel déviatoire
            W_d_J1_2  * Tenseur3HHHH::Prod_tensoriel(d_J_r_epsBB_HH(1),d_J_r_epsBB_HH(1))
            // puis les dérivées premières du potentiel déviatoire
           + W_d_J1 * d_J_1_eps2BB_HHHH;
//         =  // tout d'abord les dérivées secondes du potentiel déviatoire
//            W_d_J1_2  * Tenseur3HHHH::Prod_tensoriel(d_J_r_epsBB_HH(1),d_J_r_epsBB_HH(1))
//          + W_d_J1_J2 * Tenseur3HHHH::Prod_tensoriel(d_J_r_epsBB_HH(1),d_J_r_epsBB_HH(2))
//          + W_d_J2_2  * Tenseur3HHHH::Prod_tensoriel(d_J_r_epsBB_HH(2),d_J_r_epsBB_HH(2))
//            // puis les dérivées premières du potentiel déviatoire
//           + W_d_J1 * d_J_1_eps2BB_HHHH + W_d_J2 * d_J_2_eps2BB_HHHH
//            // enfin les dérivées seconde et première du potentiel sphérique
//           + W_v_J3 * d_J_3_eps2BB_HHHH
//           + W_v_J3J3 * Tenseur3HHHH::Prod_tensoriel(d_J_r_epsBB_HH(3),d_J_r_epsBB_HH(3));
  
    // calcul de la variation du tenseur des contraintes par rapports aux déformations
    // on tient compte du fait que V*sigHH = d W/ d epsij
    Tenseur3HH interHH = -sig_localeHH ; //* (-0.5*unSurV*unSurV);
    
    // calcul de la variation du tenseur des contraintes par rapports aux déformations
    // on tient compte du fait que V*sigHH = d W/ d epsij
    Tenseur3HHHH dSigdepsHHHH(1,interHH,gijHH_tdt);
    //	dSigdepsHHHH += (unSurV) * d2W_d2epsHHHH;
	
	   Tenseur3HHHH interHHHH((unSurV) * d2W_d2epsHHHH);  // cas des tenseurs généraux
	   dSigdepsHHHH += interHHHH;                        // cas des tenseurs généraux

    // transfert des informations: on pas d'un tenseur de 81 composantes à 36
    // avec des symétries par rapport aux deux premiers indices et par rapport aux deux derniers
    ///    Tenseur3HHHH   d_sigma_depsHHHH; d_sigma_depsHHHH.TransfertDunTenseurGeneral(dSigdepsHHHH.Symetrise1et2_3et4());
	   // calcul de la première partie de l'opérateur tangent (correspond au changement de repère
	   // gi_tdt -> Ia de l'opérateur calculer précédemment
    Tenseur3HHHH & d_sigma_depsFinHHHH =  *((Tenseur3HHHH*) &d_sigma_deps_); // pour accés directe 
	   // passage éventuelle dans la base I_a
    if (en_base_orthonormee)
       {dSigdepsHHHH.ChangeBase(d_sigma_depsFinHHHH,*(ex.giB_tdt));}
    else
       {d_sigma_depsFinHHHH = dSigdepsHHHH;};
	
    // traitement des énergies
    energ.Inita(0.); 
    energ.ChangeEnergieElastique((W_d)/V);
//    energ.ChangeEnergieElastique((W_d+W_v)/V);
  
    LibereTenseur(); 
    LibereTenseurQ();
     
 };

//---------------------- méthodes privées -------------------------------
	   // calcul du potentiel et de ses dérivées premières / aux invariants J_r
void Maheo_hyper::Potentiel_et_var()
	{ // calcul de grandeurs intermédiaires
   #ifdef MISE_AU_POINT
	  if ((J_r(1)-3.) < 0.)
	   { cout << "\nErreur : (J_r(1)-3.)= "<<(J_r(1)-3.) <<" est < 0. !"
           << " ce n'est pas possible avec les formules actuelles ";
		    cout << "\n Maheo_hyper::Calcul_dsigma_deps\n";
		    Sortie(1);
		  };
	  if ((mu1_rev/Qsig_rev) < 0.)
	   { cout << "\nErreur : mu1_rev/Qsig_rev= "<<mu1_rev/Qsig_rev <<" est < 0. !"
           << " ce n'est pas possible avec les formules actuelles ";
		    cout << "\n Maheo_hyper::Calcul_dsigma_deps\n";
		    Sortie(1);
		  };
   #endif
   double J_r1moins3 = DabsMaX(J_r(1)-3.,0.); // aux arondis près on peut avoir un pb de 0.
   double racineIBmoins3 = sqrt(J_r1moins3);
   double mu1SurQsigfoisracineIBmoins3 = mu1_rev/Qsig_rev*racineIBmoins3;
   double tanh_mu1Sur_etc = tanh(mu1SurQsigfoisracineIBmoins3);
  
   // le potentiel
   W_d= Qsig_rev*Qsig_rev*log(cosh(mu1SurQsigfoisracineIBmoins3))+mu2_rev*J_r1moins3;
   // variation / J1
	  W_d_J1 = Qsig_rev/(2.*(fact_regularisation+racineIBmoins3))
             * tanh_mu1Sur_etc + mu2_rev ;
   // variation / J2
	  W_d_J2 = 0.;
   // et / à V et J3
   W_v = 0.;         // potentiel volumique
   W_v_J3 = 0.;    // variation / J3
	};

	   // calcul du potentiel et de ses dérivées premières et secondes / aux invariants J_r
void Maheo_hyper::Potentiel_et_var2()
	{ // calcul de grandeurs intermédiaires
   #ifdef MISE_AU_POINT
	  if ((J_r(1)-3.) < -ConstMath::petit)
	   { cout << "\nErreur : (J_r(1)-3.)= "<<(J_r(1)-3.) <<" est < 0. !"
           << " ce n'est pas possible avec les formules actuelles ";
		    cout << "\n Maheo_hyper::Calcul_dsigma_deps\n";
		    Sortie(1);
		  };
	  if ((mu1_rev/Qsig_rev) < -ConstMath::petit)
	   { cout << "\nErreur : mu1_rev/Qsig_rev= "<<mu1_rev/Qsig_rev <<" est < 0. !"
           << " ce n'est pas possible avec les formules actuelles ";
		    cout << "\n Maheo_hyper::Calcul_dsigma_deps\n";
		    Sortie(1);
		  };
   #endif
   double J_r1moins3 = DabsMaX(J_r(1)-3.,0.); // aux arondis près on peut avoir un pb de 0.
   double racineIBmoins3 = sqrt(J_r1moins3);
   double mu1SurQsigfoisracineIBmoins3 = mu1_rev * racineIBmoins3 /Qsig_rev;
   double tanh_mu1Sur_etc = tanh(mu1SurQsigfoisracineIBmoins3);
  
   // le potentiel
   W_d= Qsig_rev*Qsig_rev*log(cosh(mu1SurQsigfoisracineIBmoins3))+mu2_rev*J_r1moins3;
   // variation / J1
	  W_d_J1 = Qsig_rev/(2.*(fact_regularisation+racineIBmoins3))
             * tanh_mu1Sur_etc + mu2_rev ;
   // variation seconde / J1
	  W_d_J1_2 = -Qsig_rev*0.25*exp(-1.5*log(J_r1moins3+fact_regularisation))*tanh_mu1Sur_etc
            + mu1_rev * 0.25 / (fact_regularisation+J_r1moins3) * (1.-tanh_mu1Sur_etc * tanh_mu1Sur_etc);

	  W_d_J2 = 0.;  // variation / J2
	  W_d_J1_J2 = W_d_J2_2 = 0.; // dérivées secondes
  
   // et / à V et J3
   W_v = 0.;         // potentiel volumique
   W_v_J3 = 0.;    // variation / J3
   W_v_J3J3 = 0.;  // et der seconde
  
   //	  cout << "\n Jr= " << J_r(1) << " " << J_r(2) << " " << J_r(3) << " pot " << W_d << " " << W_v ;
	};


// calcul de la dérivée numérique de la contrainte
void Maheo_hyper::Cal_dsigma_deps_num (const TenseurBB & gijBB_0_,const TenseurHH & gijHH_0_
		                       ,const TenseurBB & gijBB_tdt_,const TenseurHH & gijHH_tdt_
		                       ,const double& jacobien_0,const double& jacobien
		                       ,Tenseur3HHHH& dSigdepsHHHH)
		  	
		  	
	{ const Tenseur3BB & gijBB_0 = *((Tenseur3BB*) &gijBB_0_); // passage en dim 3 explicit
   const Tenseur3BB & gijBB_tdt = *((Tenseur3BB*) &gijBB_tdt_); //  "
   const Tenseur3HH & gijHH_0 = *((Tenseur3HH*) &gijHH_0_); //  "
   const Tenseur3HH & gijHH_tdt = *((Tenseur3HH*) &gijHH_tdt_); //  "
	
   Tenseur3BB  gijBBtdt_N; // tenseur  modifié
   Tenseur3HH  gijHHtdt_N; // idem_0
	  double delta = ConstMath::unpeupetit*10.;
	  double unSurDelta = 1./delta;
	  
	  // cas des contraintes et de ses variations analytiques
   //	  Tenseur3HHHH dSigdepsHHHH; // le tenseur contenant les dérivées analytiques
	  Tenseur3HH SigmaHH_deb;
	  Cal_sigmaEtDer_pour_num(gijBB_0_,gijHH_0_,gijBB_tdt_,gijHH_tdt_
		                       ,jacobien_0,jacobien,SigmaHH_deb,dSigdepsHHHH);      
	  // dimensionnement pour la matrice numérique
	  Tenseur3HHHH dSigdepsHHHH_num;
	  
	  // on va boucler sur les composantes de gijBB
	  for (int i=1;i<=3;i++) 
	    for (int j=1;j<=3;j++)
	     { gijBBtdt_N = gijBB_tdt;
	       gijBBtdt_N.Coor(i,j) += delta;
	       // en fait dans l'opération précédente on a modifier les termes (i,j) et (j,i)
	       // car le tenseur est symétrique
	       // on a donc en variation numérique la somme des deux dérivées
	       // on définit un coeff multiplicatif qui vaut 1 ou 0.5
	       double coef=1.; if (i != j) coef = 0.5;
	       gijHHtdt_N = gijBBtdt_N.Inverse();
	       double jacobien_N=sqrt(gijBBtdt_N.Det());
	         
	       // cas des contraintes 
	       Tenseur3HH SigmaHH_N;
	       Cal_sigma_pour_num(gijBB_0_,gijHH_0_,(const TenseurBB &) gijBBtdt_N,(const TenseurHH &) gijHHtdt_N
		                       ,jacobien_0,jacobien_N,SigmaHH_N);
		                       	  		  	
	       // calcul des dérivées numériques et comparaisons
	       for (int k=1;k<=3;k++)
	         for (int l=1;l<=3;l++)
	           { // 
	             double derSigNum = coef * 2.*(SigmaHH_N(k,l) - SigmaHH_deb(k,l) )*unSurDelta;
	             dSigdepsHHHH_num.Change(k,l,i,j,derSigNum);
	             double derSigAna = dSigdepsHHHH(k,l,i,j);//0.5*(dSigdepsHHHH(k,l,i,j) + dSigdepsHHHH(k,l,j,i));
              bool erreur = false;
              if (diffpourcent(derSigNum,derSigAna,MaX(Dabs(derSigNum),Dabs(derSigAna)),0.1))
               if (MaX(Dabs(derSigNum),Dabs(derSigAna)) > 200.) 
                {if (MiN(Dabs(derSigNum),Dabs(derSigAna)) == 0.)
                  {if ( MaX(Dabs(derSigNum),Dabs(derSigAna)) > 50.*delta) erreur = true;}
                 else erreur = true;
                };
             //    erreur = false; // a virer 
              if (erreur)
                {
                  // calcul des dérivées d'éléments intermédiaires pour voir
                  
                  //
                  cout << "\n erreur dans le calcul analytique de l'operateur tangent " 
                       << "\n derSigNum= " << derSigNum << " derSigAna= " << derSigAna 
                       << " klij= " << k << " " << l << " " << i << " " << j
                       << " SigmaHH_N(k,l)= " << SigmaHH_N(k,l);
                  cout << "\n Maheo_hyper::Calcul_derivee_numerique(..";
                  cout << "\n un caractere ";
                  // --- pour le débug ----
                  // calcul des invariants et de leurs variations premières en numérique
	                 Invariants_et_var1_deb(gijBB_0_,gijHH_0_,(const TenseurBB &) gijBBtdt_N,(const TenseurHH &) gijHHtdt_N
		                                ,jacobien_0,jacobien_N);
		                // calcul des invariants et de leurs variations premières et secondes
		                Invariants_et_var2_deb(gijBB_0_,gijHH_0_,(const TenseurBB &) gijBBtdt_N,(const TenseurHH &) gijHHtdt_N
		                                ,jacobien_0,jacobien_N);
                  string toto;
                  toto= lect_chaine();
                };
	           };
	     };
	  // passage des dérivées numériques aux dérivées finales
	  dSigdepsHHHH= dSigdepsHHHH_num;  
	};

	   // calcul de la contrainte avec le minimum de variable de passage, utilisé pour le numérique
void Maheo_hyper::Cal_sigma_pour_num(const TenseurBB & gijBB_0,const TenseurHH & gijHH_0
		                       ,const TenseurBB & gijBB_tdt,const TenseurHH & gijHH_tdt
		                       ,const double& jacobien_0,const double& jacobien,TenseurHH & sigHH_)
	{    
    Tenseur3HH & sigHH = *((Tenseur3HH*) &sigHH_);  //  passage en dim 3 explicite
	   // calcul des invariants et de leurs variations premières (méthode de Hyper_W_gene_3D)
    //    Invariants_et_var1(gijBB_0,gijHH_0,gijBB_tdt,gijHH_tdt,jacobien_0,jacobien);
    // pour vérif on appelle var2, mais c'est à virer
    Invariants_et_var1(gijBB_0,gijHH_0,gijBB_tdt,gijHH_tdt,jacobien_0,jacobien);
	   // calcul du potentiel et de ses dérivées premières / aux invariants J_r
	   Potentiel_et_var();
	
	   // calcul du tenseur des contraintes
	   sigHH = (W_d_J1/V) * d_J_r_epsBB_HH(1);
//	   sigHH = (W_d_J1/V) * d_J_r_epsBB_HH(1) + (W_d_J2/V) * d_J_r_epsBB_HH(2)
//	            + (W_v_J3/V) * d_J_r_epsBB_HH(3);
		
	};	  		  	

	   // idem avec la variation 
void Maheo_hyper::Cal_sigmaEtDer_pour_num(const TenseurBB & gijBB_0,const TenseurHH & gijHH_0
		                       ,const TenseurBB & gijBB_tdt,const TenseurHH & gijHH_tdt
		                       ,const double& jacobien_0,const double& jacobien
		                       ,TenseurHH & sigHH_,Tenseur3HHHH& dSigdepsHHHH)	  		  	
	{    
    Tenseur3HH & sigHH = *((Tenseur3HH*) &sigHH_);  //  passage en dim 3 explicite
	   // calcul des invariants et de leurs variations premières et seconde (méthode de Hyper_W_gene_3D)
    Invariants_et_var2(gijBB_0,gijHH_0,gijBB_tdt,gijHH_tdt,jacobien_0,jacobien);
	   // calcul du potentiel et de ses dérivées premières / aux invariants J_r
	   Potentiel_et_var2();
	
    // calcul du tenseur des contraintes
    double unSurV=1./V;
    sigHH = (W_d_J1*unSurV) * d_J_r_epsBB_HH(1);
//    sigHH = (W_d_J1*unSurV) * d_J_r_epsBB_HH(1) + (W_d_J2*unSurV) * d_J_r_epsBB_HH(2)
//            + (W_v_J3*unSurV) * d_J_r_epsBB_HH(3);

    // calcul de la variation seconde du potentiel par rapport à epsij epskl
    Tenseur3HHHH d2W_d2epsHHHH 
        = W_d_J1 * d_J_1_eps2BB_HHHH;

//        = W_d_J1 * d_J_1_eps2BB_HHHH + W_d_J2 * d_J_2_eps2BB_HHHH
//          + W_v_J3 * d_J_3_eps2BB_HHHH
//          + W_v_J3J3 * Tenseur3HHHH::Prod_tensoriel(d_J_r_epsBB_HH(3),d_J_r_epsBB_HH(3));
    //	cout << "\n d2W_d2epsHHHH(1,1,1,1)= " << d2W_d2epsHHHH(1,1,1,1);
    
    // calcul de la variation du tenseur des contraintes par rapports aux déformations
    // on tient compte du fait que V*sigHH = d W/ d epsij
    Tenseur3HH interHH = -sigHH ; //* (-0.5*unSurV*unSurV);
    
    Tenseur3HHHH d_igdepsHHHH(1,interHH,gijHH_tdt);
    d_igdepsHHHH += (unSurV) * d2W_d2epsHHHH;
	   dSigdepsHHHH = d_igdepsHHHH;
	};