]> SALOME platform Git repositories - tools/eficas.git/commitdiff
Salome HOME
Chgt dans Include V7_3_0p1
authorPascale Noyret <pascale.noyret@edf.fr>
Tue, 14 Jan 2014 17:20:34 +0000 (17:20 +0000)
committerPascale Noyret <pascale.noyret@edf.fr>
Tue, 14 Jan 2014 17:20:34 +0000 (17:20 +0000)
Aster/Cata/cataSTA11/cata.py
Aster/Cata/cataSTA11/ops.py
Ihm/I_MACRO_ETAPE.py
Noyau/N_VALIDATOR.py

index 11ed9bb01ce7395e8810a17fb3effee3c6f34531..36daee42e484c645cefc2ef41b2fb04bd3f66217 100755 (executable)
@@ -1,6 +1,4 @@
-#& MODIF ENTETE  DATE 18/12/2012   AUTEUR SELLENET N.SELLENET 
-# -*- coding: iso-8859-1 -*-
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+# coding: utf-8
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -17,7 +15,7 @@
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 import os
 from math import sin, cos, tan, asin, acos, atan2, atan, sinh, cosh, tanh
@@ -35,13 +33,13 @@ except ImportError:
     aster = None
     aster_exists = False
 
-# Le catalogue est constitué par concaténation des fichiers .capy
+# Le catalogue est constitué par concaténation des fichiers .capy
 # de catapy/{entete,commun,commande}.
 
-# Tous les imports globaux devraient être faits ici dans accas.capy.
-# Veillez à limiter les imports dans la définition des concepts (co_*.capy)
-# au strict nécessaire et les faire sous les méthodes qui en ont
-# expressément besoin.
+# Tous les imports globaux devraient être faits ici dans accas.capy.
+# Veillez à limiter les imports dans la définition des concepts (co_*.capy)
+# au strict nécessaire et les faire sous les méthodes qui en ont
+# expressément besoin.
 
 JdC = JDC_CATA(code='ASTER',
                execmodul=None,
@@ -49,17 +47,17 @@ JdC = JDC_CATA(code='ASTER',
                        AU_MOINS_UN('FIN'),
                        A_CLASSER(('DEBUT', 'POURSUITE'), 'FIN')))
 
-# Types géométriques
+# Types géométriques
 class no(GEOM):
     """
-    Classe servant à définir le nom d'un noeud dans le fichier de commande
+    Classe servant à définir le nom d'un noeud dans le fichier de commande
     En clair : un chaine de longueur 8.
     """
     pass
 
 class grno(GEOM):
     """
-    Classe servant à définir le nom d'un groupe de noeuds dans le fichier de commande
+    Classe servant à définir le nom d'un groupe de noeuds dans le fichier de commande
     En clair : un chaine de longueur 24.
     """
     def __convert__(cls,valeur):
@@ -68,19 +66,19 @@ class grno(GEOM):
         """
         if isinstance(valeur, (str,unicode)) and len(valeur.strip()) <= 24:
             return valeur.strip()
-        raise ValueError(_(u'On attend une chaine de caractères (de longueur <= 24).'))
+        raise ValueError(_(u'On attend une chaine de caractères (de longueur <= 24).'))
     __convert__ = classmethod(__convert__)
 
 class ma(GEOM):
     """
-    Classe servant à définir le nom d'une maille dans le fichier de commande
+    Classe servant à définir le nom d'une maille dans le fichier de commande
     En clair : un chaine de longueur 8.
     """
     pass
 
 class grma(GEOM):
     """
-    Classe servant à définir le nom d'un groupe de mailles dans le fichier de commande
+    Classe servant à définir le nom d'un groupe de mailles dans le fichier de commande
     En clair : un chaine de longueur 24.
     """
     def __convert__(cls,valeur):
@@ -89,10 +87,9 @@ class grma(GEOM):
         """
         if isinstance(valeur, (str,unicode)) and len(valeur.strip()) <= 24:
             return valeur.strip()
-        raise ValueError(_(u'On attend une chaine de caractères (de longueur <= 24).'))
+        raise ValueError(_(u'On attend une chaine de caractères (de longueur <= 24).'))
     __convert__ = classmethod(__convert__)
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -109,13 +106,12 @@ class grma(GEOM):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class cabl_precont(ASSD):
     cata_sdj = "SD.sd_cabl_precont.sd_cabl_precont"
-#& MODIF ENTETE  DATE 19/10/2011   AUTEUR ASSIRE A.ASSIRE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -132,7 +128,7 @@ class cabl_precont(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class cara_elem(ASSD):
@@ -149,10 +145,10 @@ class cara_elem(ASSD):
            lenEPXval   = len(EPXval)
            lenEPXnoeud = len(EPXnoeud)*6
         except:
-           # s'il y a un problème sur la structure de données ==> <F>
+           # s'il y a un problème sur la structure de données ==> <F>
            from Utilitai.Utmess import UTMESS
            UTMESS('F','MODELISA9_98')
-        # Vérification de la déclaration qui est faite dans 'acearp'
+        # Vérification de la déclaration qui est faite dans 'acearp'
         if ( lenEPXval != lenEPXnoeud ):
            from Utilitai.Utmess import UTMESS
            UTMESS('F','MODELISA9_97')
@@ -170,10 +166,10 @@ class cara_elem(ASSD):
            lenEPXval   = len(EPXval)
            lenEPXnoeud = len(EPXnoeud)*6
         except:
-           # s'il y a un problème sur la structure de données ==> <F>
+           # s'il y a un problème sur la structure de données ==> <F>
            from Utilitai.Utmess import UTMESS
            UTMESS('F','MODELISA9_98')
-        # Vérification de la déclaration qui est faite dans 'acearp'
+        # Vérification de la déclaration qui est faite dans 'acearp'
         if ( lenEPXval != lenEPXnoeud ):
            from Utilitai.Utmess import UTMESS
            UTMESS('F','MODELISA9_97')
@@ -185,9 +181,6 @@ class cara_elem(ASSD):
 
         return ressorts, amorts
 
-
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -204,7 +197,7 @@ class cara_elem(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 class cham_gd_sdaster(ASSD):
     cata_sdj = "SD.sd_champ.sd_champ"
@@ -332,9 +325,6 @@ class post_comp_cham_el :
         self.point = point
         self.sous_point = sous_point
 
-#& MODIF ENTETE  DATE 23/04/2012   AUTEUR COURTOIS M.COURTOIS 
-# -*- coding: iso-8859-1 -*-
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -351,13 +341,13 @@ class post_comp_cham_el :
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 class cham_mater(ASSD):
     cata_sdj = "SD.sd_cham_mater.sd_cham_mater"
 
     def get_vale_ref(self, nom_varc):
-        """Retourne la valeur de référence de `nom_varc`."""
+        """Retourne la valeur de référence de `nom_varc`."""
         from SD.sd_carte import sd_carte
         nom_varc = nom_varc.strip()
         varc = self.sdj.varc
@@ -367,12 +357,11 @@ class cham_mater(ASSD):
         novarc = [sv for sv in varc.CVRCVARC.get()]
         assert len(novarc) > idx, novarc
         nomch = novarc[idx]
-        # accès à la carte
+        # accès à la carte
         cartref = sd_carte("%-8s.%-8s.1" % (self.nom, nomch))
         valref = cartref.VALE.get()[0]
         return valref
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -389,13 +378,12 @@ class cham_mater(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class char_acou(ASSD):
     cata_sdj = "SD.sd_char_acou.sd_char_acou"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -412,13 +400,12 @@ class char_acou(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class char_cine_acou(ASSD):
     cata_sdj = "SD.sd_char_cine.sd_char_cine"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -435,13 +422,12 @@ class char_cine_acou(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class char_cine_meca(ASSD):
     cata_sdj = "SD.sd_char_cine.sd_char_cine"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -458,13 +444,12 @@ class char_cine_meca(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class char_cine_ther(ASSD):
     cata_sdj = "SD.sd_char_cine.sd_char_cine"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -481,13 +466,12 @@ class char_cine_ther(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class char_contact(ASSD):
     cata_sdj = "SD.sd_contact.sd_contact"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -504,13 +488,12 @@ class char_contact(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class char_meca(ASSD):
     cata_sdj = "SD.sd_char_meca.sd_char_meca"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -527,13 +510,12 @@ class char_meca(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class char_ther(ASSD):
     cata_sdj = "SD.sd_char_ther.sd_char_ther"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -550,13 +532,12 @@ class char_ther(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class compor_sdaster(ASSD):
     cata_sdj = "SD.sd_compor.sd_compor"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -573,13 +554,12 @@ class compor_sdaster(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class corresp_2_mailla(ASSD):
     cata_sdj = "SD.sd_corresp_2_mailla.sd_corresp_2_mailla"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -596,37 +576,12 @@ class corresp_2_mailla(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class courbe_sdaster(ASSD):
     cata_sdj = "SD.sd_courbe.sd_courbe"
-#& MODIF ENTETE  DATE 27/08/2012   AUTEUR ALARCON A.ALARCON 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
-# 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 2 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, WRITE TO EDF R&D CODE_ASTER,         
-#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
-# ======================================================================
-# RESPONSABLE ALARCON A.ALARCON
-class dyna_gene(ASSD):
-   cata_sdj = "SD.sd_dyna_gene.sd_dyna_gene"
 
-class harm_gene(dyna_gene): pass
-class tran_gene(dyna_gene): pass
-#& MODIF ENTETE  DATE 28/01/2013   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -643,7 +598,7 @@ class tran_gene(dyna_gene): pass
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 class entier(ASSD):
     cata_sdj = "SD.AsBase"
@@ -654,7 +609,7 @@ class entier(ASSD):
 
     def __adapt__(self, validator):
         if validator.name == "list":
-            # validateur liste,cardinalité
+            # validateur liste,cardinalité
             return (self, )
         elif validator.name == "type":
             # validateur type
@@ -663,8 +618,6 @@ class entier(ASSD):
             # validateur into et valid
             return self
 
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -681,13 +634,12 @@ class entier(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class fiss_xfem(ASSD):
     cata_sdj = "SD.sd_xfem.sd_fiss_xfem"
-#& MODIF ENTETE  DATE 27/08/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -704,7 +656,7 @@ class fiss_xfem(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 # types 'fonction' :
 class fonction_class(ASSD):
@@ -752,7 +704,7 @@ class fonction_class(ASSD):
       return dico
 
    def Trace(self,FORMAT='TABLEAU',**kargs):
-      """Tracé d'une fonction"""
+      """Tracé d'une fonction"""
       if not self.accessible() :
          raise Accas.AsException("Erreur dans fonction.Trace en PAR_LOT='OUI'")
       from Utilitai.Graph import Graph
@@ -767,7 +719,7 @@ class fonction_sdaster(fonction_class):
    def convert(self, arg='real'):
       """
       Retourne un objet de la classe t_fonction
-      représentation python de la fonction
+      représentation python de la fonction
       """
       from Cata_Utils.t_fonction import t_fonction, t_fonction_c
       class_fonction = t_fonction
@@ -817,17 +769,18 @@ class fonction_sdaster(fonction_class):
       return self.Valeurs()[0]
 
    def Ordo(self):
-      """Retourne la liste des ordonnées"""
+      """Retourne la liste des ordonnées"""
       return self.Valeurs()[1]
 
-   def __call__(self,val):
-      ### Pour EFICAS : substitution de l'instance de classe
-      ### parametre par sa valeur
+   def __call__(self, val, tol=1.e-6):
+      """Evaluate a function at 'val'. If provided, 'tol' is a relative
+      tolerance to match an abscissa value."""
+      # Pour EFICAS : substitution de l'instance de classe
+      # parametre par sa valeur
       if isinstance(val, ASSD):
          val=val.valeur
-      ###
       __ff=self.convert()
-      return __ff(val)
+      return __ff(val, tol=tol)
 
 
 class fonction_c(fonction_class):
@@ -835,7 +788,7 @@ class fonction_c(fonction_class):
    def convert(self,arg='real'):
       """
       Retourne un objet de la classe t_fonction ou t_fonction_c,
-      représentation python de la fonction complexe
+      représentation python de la fonction complexe
       """
       import numpy
       from Cata_Utils.t_fonction import t_fonction, t_fonction_c
@@ -894,15 +847,15 @@ class fonction_c(fonction_class):
       return self.Valeurs()[0]
 
    def Ordo(self):
-      """Retourne la liste des parties réelles des ordonnées"""
+      """Retourne la liste des parties réelles des ordonnées"""
       return self.Valeurs()[1]
 
    def OrdoImg(self):
-      """Retourne la liste des parties imaginaires des ordonnées"""
+      """Retourne la liste des parties imaginaires des ordonnées"""
       return self.Valeurs()[2]
 
    def Trace(self,FORMAT='TABLEAU',**kargs):
-      """Tracé d'une fonction complexe"""
+      """Tracé d'une fonction complexe"""
       if not self.accessible():
          raise Accas.AsException("Erreur dans fonction_c.Trace en PAR_LOT='OUI'")
       from Utilitai.Graph import Graph
@@ -913,21 +866,22 @@ class fonction_c(fonction_class):
          Leg=os.linesep.join(self.sdj.TITR.get()) )
       gr.Trace(FORMAT=FORMAT,**kargs)
 
-   def __call__(self,val):
-      ### Pour EFICAS : substitution de l'instance de classe
-      ### parametre par sa valeur
+   def __call__(self, val, tol=1.e-6):
+      """Evaluate a function at 'val'. If provided, 'tol' is a relative
+      tolerance to match an abscissa value."""
+      # Pour EFICAS : substitution de l'instance de classe
+      # parametre par sa valeur
       if isinstance(val, ASSD):
          val=val.valeur
-      ###
       __ff=self.convert(arg='complex')
-      return __ff(val)
+      return __ff(val, tol=tol)
 
 
 class nappe_sdaster(fonction_class):
 
    def convert(self):
       """
-      Retourne un objet de la classe t_nappe, représentation python de la nappe
+      Retourne un objet de la classe t_nappe, représentation python de la nappe
       """
       from Cata_Utils.t_fonction import t_fonction, t_nappe
       para = self.Parametres()
@@ -1005,7 +959,7 @@ class nappe_sdaster(fonction_class):
       return self.Valeurs()[0]
 
    def Trace(self,FORMAT='TABLEAU',**kargs):
-      """Tracé d'une nappe"""
+      """Tracé d'une nappe"""
       if not self.accessible():
          raise Accas.AsException("Erreur dans nappe.Trace en PAR_LOT='OUI'")
       from Utilitai.Graph import Graph
@@ -1017,19 +971,18 @@ class nappe_sdaster(fonction_class):
             Leg=os.linesep.join(self.sdj.TITR.get()) )
       gr.Trace(FORMAT=FORMAT,**kargs)
 
-   def __call__(self,val1,val2):
-      ### Pour EFICAS : substitution de l'instance de classe
-      ### parametre par sa valeur
+   def __call__(self, val1, val2, tol=1.e-6):
+      """Evaluate a function at 'val'. If provided, 'tol' is a relative
+      tolerance to match an abscissa value."""
+      # Pour EFICAS : substitution de l'instance de classe
+      # parametre par sa valeur
       if isinstance(val1, ASSD):
          val1=val1.valeur
       if isinstance(val2, ASSD):
          val2=val2.valeur
-      ###
       __ff=self.convert()
-      return __ff(val1,val2)
+      return __ff(val1, val2, tol=tol)
 
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1046,13 +999,12 @@ class nappe_sdaster(fonction_class):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class fond_fiss(ASSD):
     cata_sdj = "SD.sd_fond_fiss.sd_fond_fiss"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1069,13 +1021,12 @@ class fond_fiss(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class gfibre_sdaster(ASSD):
     cata_sdj = "SD.sd_gfibre.sd_gfibre"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1092,13 +1043,12 @@ class gfibre_sdaster(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class interf_dyna_clas(ASSD):
     cata_sdj = "SD.sd_interf_dyna_clas.sd_interf_dyna_clas"
-#& MODIF ENTETE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1115,13 +1065,12 @@ class interf_dyna_clas(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE ANDRIAM H.ANDRIAMBOLOLONA
+# person_in_charge: harinaivo.andriambololona at edf.fr
 
 
 class interspectre(ASSD):
     cata_sdj = "SD.sd_interspectre.sd_interspectre"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1138,13 +1087,12 @@ class interspectre(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class list_inst(ASSD):
     cata_sdj = "SD.sd_list_inst.sd_list_inst"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1161,13 +1109,12 @@ class list_inst(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class listis_sdaster(ASSD):
     cata_sdj = "SD.sd_listis.sd_listis"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1184,7 +1131,7 @@ class listis_sdaster(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class listr8_sdaster(ASSD):
@@ -1202,8 +1149,6 @@ class listr8_sdaster(ASSD):
          UTMESS('F', 'SDVERI_2', valk=[vale])
       return list(t_vale)
 
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1220,7 +1165,7 @@ class listr8_sdaster(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 def VALE_triang2array(vect_VALE, dim, dtype=None):
     """Conversion (par recopie) de l'objet .VALE decrivant une matrice pleine
@@ -1317,8 +1262,6 @@ class macr_elem_dyna(ASSD):
         aster.putvectjev(nom_vale,len(tmp),tuple((
             range(1,len(tmp)+1))),tuple(tmp),tuple(tmp),1)
 
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1335,13 +1278,12 @@ class macr_elem_dyna(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class macr_elem_stat(ASSD):
     cata_sdj = "SD.sd_macr_elem_stat.sd_macr_elem_stat"
-#& MODIF ENTETE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -1358,7 +1300,7 @@ class macr_elem_stat(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class maillage_sdaster(ASSD):
@@ -1396,8 +1338,7 @@ class grille_sdaster(maillage_sdaster):
 
 class squelette(maillage_sdaster):
     cata_sdj = "SD.sd_squelette.sd_squelette"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1414,20 +1355,20 @@ class squelette(maillage_sdaster):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class mater_sdaster(ASSD):
    cata_sdj = "SD.sd_mater.sd_mater"
 
    def RCVALE(self, phenomene, nompar=(), valpar=(), nomres=(), stop=1):
-      """Appel à la routine fortran RCVALE pour récupérer les valeurs des
-      propriétés du matériau.
+      """Appel à la routine fortran RCVALE pour récupérer les valeurs des
+      propriétés du matériau.
       """
       if not self.accessible():
          raise Accas.AsException("Erreur dans mater.RCVALE en PAR_LOT='OUI'")
       from Utilitai.Utmess import UTMESS
-      # vérification des arguments
+      # vérification des arguments
       if not type(nompar) in (list, tuple):
          nompar = [nompar,]
       if not type(valpar) in (list, tuple):
@@ -1443,12 +1384,9 @@ class mater_sdaster(ASSD):
          UTMESS('F','SDVERI_4',valk=[vk1,vk2])
       if len(nomres) < 1:
          UTMESS('F', 'SDVERI_5')
-      # appel à l'interface Python/C
+      # appel à l'interface Python/C
       return aster.rcvale(self.nom, phenomene, nompar, valpar, nomres, stop)
 
-
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1465,7 +1403,7 @@ class mater_sdaster(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 class matr_asse(ASSD):
     cata_sdj = "SD.sd_matr_asse.sd_matr_asse"
@@ -1516,7 +1454,7 @@ class matr_asse(ASSD):
         return valeur
 
 class matr_asse_gd(matr_asse):
-    cata_sdj = "SD.sd_matr_asse_gene.sd_matr_asse_gene"
+    cata_sdj = "SD.sd_matr_asse.sd_matr_asse"
 
 class matr_asse_depl_c(matr_asse_gd):
     pass
@@ -1535,8 +1473,7 @@ class matr_asse_temp_c(matr_asse_gd):
 
 class matr_asse_temp_r(matr_asse_gd):
     pass
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1553,7 +1490,7 @@ class matr_asse_temp_r(matr_asse_gd):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 def VALM_triang2array(dict_VALM, dim, dtype=None):
    """Conversion (par recopie) de l'objet .VALM decrivant une matrice pleine
@@ -1741,8 +1678,7 @@ class matr_asse_gene_c(matr_asse_gene):
     else:
       raise KeyError
     return
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1759,7 +1695,7 @@ class matr_asse_gene_c(matr_asse_gene):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class matr_elem(ASSD):
@@ -1777,9 +1713,6 @@ class matr_elem_pres_c(matr_elem):
 class matr_elem_temp_r(matr_elem):
     pass
 
-
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1796,13 +1729,12 @@ class matr_elem_temp_r(matr_elem):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class melasflu_sdaster(ASSD):
     cata_sdj = "SD.sd_melasflu.sd_melasflu"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1819,14 +1751,12 @@ class melasflu_sdaster(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class mode_cycl(ASSD):
     cata_sdj = "SD.sd_mode_cycl.sd_mode_cycl"
 
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1843,7 +1773,7 @@ class mode_cycl(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class modele_gene(ASSD):
@@ -1870,8 +1800,6 @@ class modele_gene(ASSD):
       lidf=aster.getcolljev(ncham+(14-len(ncham))*' '+'.MODG.LIDF')
       return [([(lidf[ind][indb]) for indb in range(4)]) for ind in lidf]
 
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1888,13 +1816,12 @@ class modele_gene(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class modele_sdaster(ASSD):
     cata_sdj = "SD.sd_modele.sd_modele"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1911,13 +1838,12 @@ class modele_sdaster(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class nume_ddl_gene(ASSD):
     cata_sdj = "SD.sd_nume_ddl.sd_nume_ddl"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1934,13 +1860,12 @@ class nume_ddl_gene(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class nume_ddl_sdaster(ASSD):
     cata_sdj = "SD.sd_nume_ddl.sd_nume_ddl"
-#& MODIF ENTETE  DATE 28/01/2013   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1957,7 +1882,7 @@ class nume_ddl_sdaster(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 class reel(ASSD):
     cata_sdj = "SD.AsBase"
@@ -1971,7 +1896,7 @@ class reel(ASSD):
 
     def __adapt__(self, validator):
         if validator.name == "list":
-            # validateur liste,cardinalité
+            # validateur liste,cardinalité
             return (self, )
         elif validator.name == "type":
             # validateur type
@@ -1980,8 +1905,6 @@ class reel(ASSD):
             # validateur into et valid
             return self
 
-#& MODIF ENTETE  DATE 27/08/2012   AUTEUR ALARCON A.ALARCON 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -1998,7 +1921,7 @@ class reel(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class resultat_sdaster(ASSD):
@@ -2025,29 +1948,12 @@ class resultat_sdaster(ASSD):
       return aster.GetResu(self.get_name(), "PARAMETRES")
 
 class resultat_jeveux(resultat_sdaster):
-   """Classe permettant d'accéder à un resultat jeveux qui n'a pas d'ASSD associée,
-   c'est le cas des concepts résultats (table, evol_xxxx) dérivés."""
+   """Classe permettant d'accéder à un resultat jeveux qui n'a pas d'ASSD associée,
+   c'est le cas des concepts résultats (table, evol_xxxx) dérivés."""
    def __init__(self, nom_jeveux):
       resultat_sdaster.__init__(self)
       self.set_name(nom_jeveux)
 
-class resultat_dyn(resultat_sdaster):
-    cata_sdj = "SD.sd_resultat_dyn.sd_resultat_dyn"
-
-class mode_meca(resultat_dyn):
-    cata_sdj = "SD.sd_mode_meca.sd_mode_meca"
-
-class base_modale(resultat_dyn):
-    cata_sdj = "SD.sd_base_modale.sd_base_modale"
-
-
-class acou_harmo(resultat_dyn): pass
-class dyna_harmo(resultat_dyn): pass
-class dyna_trans(resultat_dyn): pass
-class mode_acou(resultat_dyn): pass
-class mode_flamb(resultat_dyn): pass
-class mode_gene(resultat_dyn): pass
-
 class comb_fourier(resultat_sdaster): pass
 class fourier_elas(resultat_sdaster): pass
 class fourier_ther(resultat_sdaster): pass
@@ -2062,12 +1968,10 @@ class evol_noli(evol_sdaster): pass
 class evol_ther(evol_sdaster): pass
 class evol_varc(evol_sdaster): pass
 
-# resultat_sdaster/mode_meca :
-class mode_meca_c(mode_meca): pass
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
+
 # ======================================================================
-# COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
+# COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # 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 2 OF THE LICENSE, OR     
@@ -2082,13 +1986,51 @@ class mode_meca_c(mode_meca): pass
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: hassan.berro at edf.fr
 
+class dyna_gene(ASSD):
+    cata_sdj = "SD.sd_dyna_gene.sd_dyna_gene"
+
+class dyna_phys(resultat_sdaster):
+    cata_sdj="SD.sd_dyna_phys.sd_dyna_phys"
+
+# Concepts généralisés
+class harm_gene  (dyna_gene) : pass
+class tran_gene  (dyna_gene) : pass
+
+# Concepts physiques
+class acou_harmo (dyna_phys) : pass
+class dyna_harmo (dyna_phys) : pass
+class dyna_trans (dyna_phys) : pass
+class mode_acou  (dyna_phys) : pass
+class mode_flamb (dyna_phys) : pass
+class mode_meca  (dyna_phys) : pass
+class mode_meca_c(mode_meca) : pass
+
+# TODO : convertir mode_gene en format généralisé
+class mode_gene  (dyna_phys) : pass
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
+# 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 2 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, WRITE TO EDF R&D CODE_ASTER,
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# ======================================================================
+# person_in_charge: mathieu.courtois at edf.fr
+
+
+class sd_partit(ASSD):
+    cata_sdj = "SD.sd_partition.sd_partit"
 
-class sd_feti_sdaster(ASSD):
-    cata_sdj = "SD.sd_feti.sd_feti"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -2105,13 +2047,12 @@ class sd_feti_sdaster(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class spectre_sdaster(ASSD):
     cata_sdj = "SD.sd_spectre.sd_spectre"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -2128,13 +2069,12 @@ class spectre_sdaster(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class surface_sdaster(ASSD):
     cata_sdj = "SD.sd_surface.sd_surface"
-#& MODIF ENTETE  DATE 30/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -2151,7 +2091,7 @@ class surface_sdaster(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class table_sdaster(ASSD):
@@ -2159,7 +2099,7 @@ class table_sdaster(ASSD):
 
     def __getitem__(self, key):
         """Retourne la valeur d'une cellule de la table.
-        Exemple : TAB['INST', 1] retourne la 1ère valeur de la colonne 'INST'."""
+        Exemple : TAB['INST', 1] retourne la 1ère valeur de la colonne 'INST'."""
         from Utilitai.Utmess import UTMESS
         if not self.accessible():
             raise Accas.AsException("Erreur dans table.__getitem__ en PAR_LOT='OUI'")
@@ -2181,8 +2121,8 @@ class table_sdaster(ASSD):
 
     def TITRE(self):
         """Retourne le titre d'une table Aster
-        (Utile pour récupérer le titre et uniquement le titre d'une table dont
-        on souhaite manipuler la dérivée).
+        (Utile pour récupérer le titre et uniquement le titre d'une table dont
+        on souhaite manipuler la dérivée).
         """
         if not self.accessible():
             raise Accas.AsException("Erreur dans table.TITRE en PAR_LOT='OUI'")
@@ -2195,8 +2135,8 @@ class table_sdaster(ASSD):
         return titr
 
     def EXTR_TABLE(self, para=None) :
-        """Produit un objet Table à partir du contenu d'une table Aster.
-        On peut limiter aux paramètres listés dans 'para'.
+        """Produit un objet Table à partir du contenu d'une table Aster.
+        On peut limiter aux paramètres listés dans 'para'.
         """
         def Nonefy(l1,l2) :
             if l2 == 0:
@@ -2208,7 +2148,7 @@ class table_sdaster(ASSD):
         from Utilitai.Table import Table
         # titre
         titr = self.TITRE()
-        # récupération des paramètres
+        # récupération des paramètres
         #v_tblp = aster.getvectjev('%-19s.TBLP' % self.get_name())
         v_tblp = self.sdj.TBLP.get()
         if v_tblp == None:
@@ -2217,7 +2157,7 @@ class table_sdaster(ASSD):
         tabnom=list(v_tblp)
         nparam=len(tabnom)/4
         lparam=[tabnom[4*i:4*i+4] for i in range(nparam)]
-        # restriction aux paramètres demandés
+        # restriction aux paramètres demandés
         if para is not None:
             if type(para) not in (list, tuple):
                 para = [para, ]
@@ -2228,7 +2168,7 @@ class table_sdaster(ASSD):
                     restr.append(ip)
             lparam = restr
         dval={}
-        # liste des paramètres et des types
+        # liste des paramètres et des types
         lpar=[]
         ltyp=[]
         for i in lparam :
@@ -2252,8 +2192,8 @@ class table_fonction(table_sdaster):
     valeurs des cellules sont des noms de fonction_sdaster ou fonction_c."""
 
 class table_jeveux(table_sdaster):
-    """Classe permettant d'accéder à une table jeveux qui n'a pas d'ASSD associée,
-    c'est le cas des concepts résultats (table, evol_xxxx) dérivés."""
+    """Classe permettant d'accéder à une table jeveux qui n'a pas d'ASSD associée,
+    c'est le cas des concepts résultats (table, evol_xxxx) dérivés."""
     def __init__(self, nom_jeveux):
         table_sdaster.__init__(self)
         self.set_name(nom_jeveux)
@@ -2267,8 +2207,7 @@ class table_fonction(table_sdaster):
 class table_container(table_sdaster):
     """Table contenant les colonnes NOM_OBJET, TYPE_OBJET et NOM_SD."""
     cata_sdj = "SD.sd_table_container.sd_table_container"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -2285,13 +2224,12 @@ class table_container(table_sdaster):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class type_flui_stru(ASSD):
    cata_sdj = "SD.sd_type_flui_stru.sd_type_flui_stru"
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -2308,7 +2246,7 @@ class type_flui_stru(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class vect_asse_gene(ASSD):
@@ -2399,8 +2337,6 @@ class vect_asse_gene(ASSD):
                        1)
       return
 
-#& MODIF ENTETE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -2417,7 +2353,7 @@ class vect_asse_gene(ASSD):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 class vect_elem(ASSD):
@@ -2434,8 +2370,7 @@ class vect_elem_pres_c(vect_elem):
 
 class vect_elem_temp_r(vect_elem):
    pass
-#& MODIF COMMUN  DATE 09/04/2013   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -2452,7 +2387,7 @@ class vect_elem_temp_r(vect_elem):
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE ABBAS M.ABBAS
+# person_in_charge: mickael.abbas at edf.fr
 
 def C_AFFICHAGE() : return FACT(statut='f',max=1,
         INFO_RESIDU = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
@@ -2460,8 +2395,7 @@ def C_AFFICHAGE() : return FACT(statut='f',max=1,
         UNITE       = SIMP(statut='f',typ='I',val_min=1),
         PAS         = SIMP(statut='f',typ='I',val_min=1),
        );
-#& MODIF COMMUN  DATE 31/01/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -2478,7 +2412,7 @@ def C_AFFICHAGE() : return FACT(statut='f',max=1,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE ABBAS M.ABBAS
+# person_in_charge: mickael.abbas at edf.fr
 def C_ARCHIVAGE() : return FACT(statut='d',max=1,
     regles         = (EXCLUS('PAS_ARCH','LIST_INST','INST'),),
     LIST_INST      = SIMP(statut='f',typ=(listr8_sdaster) ),
@@ -2491,100 +2425,7 @@ def C_ARCHIVAGE() : return FACT(statut='d',max=1,
               PRECISION       =SIMP(statut='o',typ='R',),),
     CHAM_EXCLU     = SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',),
 );
-#& MODIF COMMUN  DATE 26/09/2011   AUTEUR MACOCCO K.MACOCCO 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
-# 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 2 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, WRITE TO EDF R&D CODE_ASTER,         
-#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
-# ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
-def C_COMP_ELAS( COMMAND ) :  #COMMUN#
-    
-    assert COMMAND in ('MACR_ASCOUF_CALC','MACR_ASPIC_CALC','CALC_G','POST_GP',
-                       'CALC_POINT_MAT','SIMU_POINT_MAT', 'DYNA_NON_LINE','STAT_NON_LINE','CALCUL',)
-    
-    kwargs = {}
-
-# ----------------------------------------------------------------------------------------------------------------------------------
-#                            RELATION
-# ----------------------------------------------------------------------------------------------------------------------------------
-    # commandes pour lesquelles on ne peut pas choisir une relation de type 1d
-    if COMMAND in ('CALC_G','POST_GP','CALC_POINT_MAT','SIMU_POINT_MAT' ):
-        kwargs['RELATION'] = SIMP(statut='o',typ='TXM',defaut="ELAS",
-                                 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC","ELAS_VMIS_PUIS","ELAS_HYPER"))
-
-    # commandes pour lesquelles tout type de relation est possible
-    elif COMMAND in ('DYNA_NON_LINE','STAT_NON_LINE','CALCUL',):
-        kwargs['RELATION'] = SIMP(statut='o',typ='TXM',defaut="ELAS",
-                                 into=("ELAS","ELAS_VMIS_LINE","ELAS_VMIS_TRAC",
-                                       "ELAS_VMIS_PUIS","ELAS_HYPER","ELAS_POUTRE_GR","CABLE"))
-
-     # cas particulier de MACR_ASCOUF/ASPIC_CALC : on limite volontairement le choix pour ne pas perturber l'utilisateur
-     # mais theoriquement, toutes les lois disponibles pour CALC_G le sont aussi pour MACR_ASCOUF/ASPIC_CALC
-    elif COMMAND in ('MACR_ASCOUF_CALC','MACR_ASPIC_CALC'):
-        kwargs['RELATION'] = SIMP(statut='o',typ='TXM',into=("ELAS","ELAS_VMIS_TRAC"))
-
-
-# ----------------------------------------------------------------------------------------------------------------------------------
-#                            DEFORMATION
-# ----------------------------------------------------------------------------------------------------------------------------------
-
-    # commandes pour lesquelles on ne peut pas choisir les grandes deformations
-    if COMMAND in ('CALC_POINT_MAT','MACR_ASCOUF_CALC','MACR_ASPIC_CALC'):
-        kwargs['DEFORMATION'] =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT",))
-
-    # commandes pour lesquelles on peut choisir tout type de deformation
-    elif COMMAND in ('DYNA_NON_LINE','STAT_NON_LINE','CALCUL','POST_GP','CALC_G','SIMU_POINT_MAT', ):
-        kwargs['DEFORMATION'] =SIMP(statut='f',typ='TXM',defaut="PETIT" ,into=("PETIT","GROT_GDEP",))
-
-# ----------------------------------------------------------------------------------------------------------------------------------
-#                            INTEGRATION (RESI_INTE_RELA, ITER_INTE_MAXI, ALGO_INTE)
-# ----------------------------------------------------------------------------------------------------------------------------------
-
-    kwargs['RESI_INTE_RELA']    =SIMP(statut='f',typ='R',defaut= 1.0E-6)
-    kwargs['ITER_INTE_MAXI']    =SIMP(statut='f',typ='I',defaut= 10 )
-    kwargs['ALGO_INTE']         =SIMP(statut='f',typ='TXM',into=("ANALYTIQUE", "SECANTE",))
-
-# ----------------------------------------------------------------------------------------------------------------------------------
-#                            LOCALISATION
-# ----------------------------------------------------------------------------------------------------------------------------------
-
-    # commandes pour lesquelles la localisation n'a pas de sens
-    # 'CALC_POINT_MAT','SIMU_POINT_MAT' 
-
-    # commandes pour lesquelles la localisation est automatique
-    # 'MACR_ASCOUF_CALC','MACR_ASPIC_CALC'
-
-    # commandes pour lesquelles on peut choisir la localisation
-    if COMMAND in ('DYNA_NON_LINE','STAT_NON_LINE','CALC_G','POST_GP','CALCUL'):
-        kwargs['regles'] = (PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),)
-        kwargs['TOUT'] =SIMP(statut='f',typ='TXM',into=("OUI",) )
-        kwargs['GROUP_MA']  =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**')
-        kwargs['MAILLE']    =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**')
-
-# ----------------------------------------------------------------------------------------------------------------------------------
-#                            DIVERS
-# ----------------------------------------------------------------------------------------------------------------------------------
-
 
-
-    mcfact = FACT(statut='f',max='**', **kwargs)
-
-    return mcfact
-#& MODIF COMMUN  DATE 09/04/2013   AUTEUR ASSIRE A.ASSIRE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -2601,13 +2442,17 @@ def C_COMP_ELAS( COMMAND ) :  #COMMUN#
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PROIX J.M.PROIX
-def C_COMP_INCR(COMMAND=None) :  #COMMUN#
+# person_in_charge: jean-michel.proix at edf.fr
+def C_COMPORTEMENT(COMMAND=None) :  #COMMUN#
+
+    assert COMMAND in ('MACR_ASCOUF_CALC','MACR_ASPIC_CALC','CALC_G','POST_GP','CALC_ESSAI_GEOMECA','CALC_EUROPLEXUS',
+                       'CALC_POINT_MAT','SIMU_POINT_MAT', 'DYNA_NON_LINE','STAT_NON_LINE','CALCUL','CALC_FORC_NONL',
+                       'CALC_IFS_DNL','CALC_PRECONT','CREA_RESU','LIRE_RESU','MACR_ECREVISSE','TEST_COMPOR',None)
 
     if COMMAND !='CALC_EUROPLEXUS':
         mcfact = FACT(statut='f',min=1,max='**',
 
-           RELATION  =SIMP( statut='o',typ='TXM',defaut="ELAS",into=C_RELATION()),
+           RELATION  =SIMP( statut='o',typ='TXM',defaut="ELAS",into=C_RELATION(COMMAND)),
            b_monox     = BLOC(condition = "RELATION == 'MONOCRISTAL' ",
                                  fr="SD issue de DEFI_COMPOR",
                    COMPOR =SIMP(statut='o',typ=compor_sdaster,max=1),),
@@ -2622,16 +2467,16 @@ def C_COMP_INCR(COMMAND=None) :  #COMMUN#
                                  fr="Comportement utilisateur de type UMAT",
                    NB_VARI =SIMP(statut='o',typ='I',max=1,fr="Nombre de variables internes"),
                    LIBRAIRIE = SIMP(statut='o', typ='TXM',validators=LongStr(1,128),
-                        fr="Chemin vers la bibliothèque dynamique définissant le comportement UMAT"),
+                        fr="Chemin vers la bibliothèque dynamique définissant le comportement UMAT"),
                    NOM_ROUTINE = SIMP(statut='o', typ='TXM',
-                        fr="Nom de la routine UMAT dans la bibliothèque"),),
+                        fr="Nom de la routine UMAT dans la bibliothèque"),),
            b_mfront      = BLOC(condition = "RELATION == 'MFRONT' ",
                                  fr="Comportement utilisateur de type MFRONT",
                    NB_VARI =SIMP(statut='o',typ='I',max=1,fr="Nombre de variables internes"),
                    LIBRAIRIE = SIMP(statut='o', typ='TXM',validators=LongStr(1,128),
-                        fr="Chemin vers la bibliothèque dynamique définissant le comportement MFRONT"),
+                        fr="Chemin vers la bibliothèque dynamique définissant le comportement MFRONT"),
                    NOM_ROUTINE = SIMP(statut='o', typ='TXM',
-                        fr="Nom de la routine MFRONT dans la bibliothèque"),),
+                        fr="Nom de la routine MFRONT dans la bibliothèque"),),
 
 # KITs
            b_kit_ddi = BLOC(condition = "RELATION == 'KIT_DDI' ",
@@ -2653,6 +2498,20 @@ def C_COMP_INCR(COMMAND=None) :  #COMMUN#
                                        "MAZARS"
                                        ),),
                    ),
+           b_kit_cg= BLOC(condition = "RELATION == 'KIT_CG' ",
+                            fr="relations pour elements cables gaines",
+               RELATION_KIT    =SIMP(statut='o',typ='TXM',min=2,max=2,validators=NoRepeat(),
+                                 into=(
+                                       "CABLE_GAINE_FROT",
+                                       "VMIS_ISOT_LINE",
+                                       "VMIS_ISOT_TRAC",
+                                       "VMIS_CINE_LINE",
+                                       "PINTO_MENEGOTTO",
+                                       "ELAS",
+                                       "SANS"
+                                       ),),
+                   ),
+
            b_kit_thm = BLOC(condition = "RELATION in ['KIT_HHM','KIT_HH','KIT_H','KIT_HM','KIT_THHM', \
                                                       'KIT_THH','KIT_THM','KIT_THV']",
                             fr="lois de comportements thermo-hydro-mecaniques",
@@ -2706,25 +2565,25 @@ def C_COMP_INCR(COMMAND=None) :  #COMMUN#
            DEFORMATION       =SIMP(statut='f',typ='TXM',defaut="PETIT",
                                    into=("PETIT","PETIT_REAC","GROT_GDEP","SIMO_MIEHE","GDEF_HYPO_ELAS","GDEF_LOG")),
 
-           # gestion des contraintes planes par la méthode itérative
+           # gestion des contraintes planes par la méthode itérative
 
               RESI_CPLAN_MAXI    =SIMP(statut='f',typ='R',
-                                      fr="Critère d'arret absolu pour assurer la condition de contraintes planes"),
+                                      fr="Critère d'arret absolu pour assurer la condition de contraintes planes"),
 
                    b_resi_cplan  =BLOC(condition = " RESI_CPLAN_MAXI == None ",
 
               RESI_CPLAN_RELA   =SIMP(statut='f',typ='R',defaut= 1.0E-6,
-                                      fr="Critère d'arret relatif pour assurer la condition de contraintes planes"),
+                                      fr="Critère d'arret relatif pour assurer la condition de contraintes planes"),
                                   ),
 
               ITER_CPLAN_MAXI =SIMP(statut='f',typ='I',defaut= 1,
-                                      fr="Nombre d'itérations maxi pour assurer la condition de contraintes planes"),
+                                      fr="Nombre d'itérations maxi pour assurer la condition de contraintes planes"),
            #
            RESI_INTE_RELA    =SIMP(statut='f',typ='R',defaut= 1.0E-6),
            ITER_INTE_MAXI    =SIMP(statut='f',typ='I',defaut= 20 ),
 
            b_redec_local      = BLOC(condition = "DEFORMATION in ('PETIT','PETIT_REAC','GROT_GDEP')",
-                                     fr="Nombre de redécoupages internes du pas de temps",
+                                     fr="Nombre de redécoupages internes du pas de temps",
                ITER_INTE_PAS   =SIMP(statut='f',typ='I',defaut= 0 ),
                                      ),
 
@@ -2767,7 +2626,7 @@ def C_COMP_INCR(COMMAND=None) :  #COMMUN#
          )
 
     else:
-        mcfact = FACT(statut='f',min=1,max='**',  #COMMUN#
+        mcfact = FACT(statut='o',min=1,max='**',  #COMMUN#
 
            RELATION  = SIMP( statut='o',typ='TXM',defaut="ELAS",into=('ELAS','GLRC_DAMAGE')),
            GROUP_MA  = SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
@@ -2775,8 +2634,7 @@ def C_COMP_INCR(COMMAND=None) :  #COMMUN#
 
 
     return mcfact
-#& MODIF COMMUN  DATE 23/04/2013   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -2793,14 +2651,14 @@ def C_COMP_INCR(COMMAND=None) :  #COMMUN#
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE ABBAS M.ABBAS
+# person_in_charge: mickael.abbas at edf.fr
 def C_CONVERGENCE() : return FACT(statut='d',
            regles=(PRESENT_ABSENT('RESI_REFE_RELA','RESI_GLOB_MAXI','RESI_GLOB_RELA','RESI_COMP_RELA'),),
            b_refe_rela    =BLOC(condition = "RESI_REFE_RELA != None",
              regles=(AU_MOINS_UN('SIGM_REFE','EPSI_REFE','FLUX_THER_REFE','FORC_REFE',
                                   'FLUX_HYD1_REFE','FLUX_HYD2_REFE','VARI_REFE','DEPL_REFE','LAGR_REFE'),),
              FORC_REFE       =SIMP(statut='f',typ='R',min=2,max=2,
-                fr="Force et Moment de référence pour les éléments de structure."),
+                fr="Force et Moment de référence pour les éléments de structure."),
              SIGM_REFE       =SIMP(statut='f',typ='R'),
              DEPL_REFE       =SIMP(statut='f',typ='R'),
              EPSI_REFE       =SIMP(statut='f',typ='R'),
@@ -2818,8 +2676,7 @@ def C_CONVERGENCE() : return FACT(statut='d',
            ITER_GLOB_ELAS  =SIMP(statut='f',typ='I',defaut=25),
            ARRET           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
          );
-#& MODIF COMMUN  DATE 31/07/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -2836,7 +2693,7 @@ def C_CONVERGENCE() : return FACT(statut='d',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE ABBAS M.ABBAS
+# person_in_charge: mickael.abbas at edf.fr
 def C_INCREMENT(TYPE_CMD) :   #COMMUN#
 #
     assert TYPE_CMD in ('THERMIQUE','MECANIQUE',)
@@ -2863,8 +2720,7 @@ def C_INCREMENT(TYPE_CMD) :   #COMMUN#
                   **kwargs)
 
     return mcfact
-#& MODIF COMMUN  DATE 21/02/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -2881,7 +2737,7 @@ def C_INCREMENT(TYPE_CMD) :   #COMMUN#
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE ABBAS M.ABBAS
+# person_in_charge: mickael.abbas at edf.fr
 def C_NEWTON() : return FACT(statut='d',
            REAC_INCR       =SIMP(statut='f',typ='I',defaut= 1,val_min=0),
            PREDICTION      =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOLE") ),
@@ -2891,9 +2747,7 @@ def C_NEWTON() : return FACT(statut='d',
            REAC_ITER_ELAS  =SIMP(statut='f',typ='I',defaut=0,val_min=0),
            EVOL_NOLI       =SIMP(statut='f',typ=evol_noli),
          );
-#& MODIF COMMUN  DATE 11/03/2013   AUTEUR CUVILLIE M.CUVILLIEZ 
-# encoding: iso-8859-1
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -2910,7 +2764,7 @@ def C_NEWTON() : return FACT(statut='d',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: josselin.delmas at edf.fr
 
 class NOM_CHAM_INTO:  #COMMUN#
     """
@@ -2925,165 +2779,165 @@ class NOM_CHAM_INTO:  #COMMUN#
         d = {}
         d['CONTRAINTE'] = {
             "EFGE_ELGA":        ( ("lin", "nonlin",),
-                                 _(u"Efforts généralisés aux points de Gauss"), ),
+                                 _(u"Efforts généralisés aux points de Gauss"), ),
             "EFGE_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Efforts généralisés aux noeuds par élément"), ),
+                                 _(u"Efforts généralisés aux noeuds par élément"), ),
             "EFGE_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Efforts généralisés aux noeuds"), ),
+                                 _(u"Efforts généralisés aux noeuds"), ),
             "SIEF_ELGA":        ( ("lin",),
                                  _(u"Contraintes et efforts aux points de Gauss"), ),
             "SIEF_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Contraintes et efforts aux noeuds par élément"), ),
+                                 _(u"Contraintes et efforts aux noeuds par élément"), ),
             "SIEF_NOEU":        ( ("lin", "nonlin",),
                                  _(u"Contraintes et efforts aux noeuds"), ),
             "SIGM_ELGA":        ( ("lin", "nonlin",),
                                  _(u"Contraintes aux points de Gauss"), ),
             "SIGM_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Contraintes aux noeuds par élément"), ),
+                                 _(u"Contraintes aux noeuds par élément"), ),
             "SIGM_NOEU":        ( ("lin", "nonlin",),
                                  _(u"Contraintes aux noeuds"), ),
-            "SIPM_ELNO":        ( ("lin",),
-                                 _(u"Contraintes aux noeuds par élément pour les éléments de poutre"), ),
+            "SIPM_ELNO":        ( ("lin","nonlin"),
+                                 _(u"Contraintes aux noeuds par élément pour les éléments de poutre"), ),
             "SIPO_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Contraintes aux noeuds par élément pour les éléments de poutre"), ),
+                                 _(u"Contraintes aux noeuds par élément pour les éléments de poutre"), ),
             "SIPO_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Contraintes aux noeuds pour les éléments de poutre"), ),
+                                 _(u"Contraintes aux noeuds pour les éléments de poutre"), ),
             "SIRO_ELEM":        ( ("lin", "nonlin",),
-                                 _(u"Contraintes de rosette par élément"), ),
+                                 _(u"Contraintes de rosette par élément"), ),
         }
         d['DEFORMATION'] = {
             "DEGE_ELGA":        ( ("lin", "nonlin",),          
-                                 _(u"Déformations généralisées aux points de Gauss"), ),
+                                 _(u"Déformations généralisées aux points de Gauss"), ),
             "DEGE_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Déformations généralisées aux noeuds par élément"), ),
+                                 _(u"Déformations généralisées aux noeuds par élément"), ),
             "DEGE_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Déformations généralisées aux noeuds"), ),
+                                 _(u"Déformations généralisées aux noeuds"), ),
             "EPFD_ELGA":        ( ("nonlin",),
-                                 _(u"Déformations de fluage de déssication aux points de Gauss"), ),
+                                 _(u"Déformations de fluage de déssication aux points de Gauss"), ),
             "EPFD_ELNO":        ( ("nonlin",),
-                                 _(u"Déformations de fluage de déssication aux noeuds par élément"), ),
+                                 _(u"Déformations de fluage de déssication aux noeuds par élément"), ),
             "EPFD_NOEU":        ( ("nonlin",),
-                                 _(u"Déformations de fluage de déssication aux noeuds"), ),
+                                 _(u"Déformations de fluage de déssication aux noeuds"), ),
             "EPFP_ELGA":        ( ("nonlin",),
-                                 _(u"Déformations de fluage propre aux points de Gauss"), ),
+                                 _(u"Déformations de fluage propre aux points de Gauss"), ),
             "EPFP_ELNO":        ( ("nonlin",),
-                                 _(u"Déformations de fluage propre aux noeuds par élément"), ),
+                                 _(u"Déformations de fluage propre aux noeuds par élément"), ),
             "EPFP_NOEU":        ( ("nonlin",),
-                                 _(u"Déformations de fluage propre aux noeuds"), ),
+                                 _(u"Déformations de fluage propre aux noeuds"), ),
             "EPME_ELGA":        ( ("lin", "nonlin",),
-                                 _(u"Déformations mécaniques en petits déplacements aux points de Gauss"), ),
+                                 _(u"Déformations mécaniques en petits déplacements aux points de Gauss"), ),
             "EPME_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Déformations mécaniques en petits déplacements aux noeuds par élément"), ),
+                                 _(u"Déformations mécaniques en petits déplacements aux noeuds par élément"), ),
             "EPME_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Déformations mécaniques en petits déplacements aux noeuds"), ),
+                                 _(u"Déformations mécaniques en petits déplacements aux noeuds"), ),
             "EPMG_ELGA":        ( ("nonlin",),
-                                 _(u"Déformations mécaniques en grands déplacements aux points de Gauss"), ),
+                                 _(u"Déformations mécaniques en grands déplacements aux points de Gauss"), ),
             "EPMG_ELNO":        ( ("nonlin",),
-                                 _(u"Déformations mécaniques en grands déplacements aux noeuds par élément"), ),
+                                 _(u"Déformations mécaniques en grands déplacements aux noeuds par élément"), ),
             "EPMG_NOEU":        ( ("nonlin",),
-                                 _(u"Déformations mécaniques en grands déplacements aux noeuds"), ),
+                                 _(u"Déformations mécaniques en grands déplacements aux noeuds"), ),
             "EPSG_ELGA":        ( ("lin","nonlin",),
-                                 _(u"Déformations de Green-Lagrange aux points de Gauss"), ),
+                                 _(u"Déformations de Green-Lagrange aux points de Gauss"), ),
             "EPSG_ELNO":        ( ("lin","nonlin",),
-                                 _(u"Déformations de Green-Lagrange aux noeuds par élément"), ),
+                                 _(u"Déformations de Green-Lagrange aux noeuds par élément"), ),
             "EPSG_NOEU":        ( ("lin","nonlin",),
-                                 _(u"Déformations de Green-Lagrange aux noeuds"), ),
+                                 _(u"Déformations de Green-Lagrange aux noeuds"), ),
             "EPSI_ELGA":        ( ("lin", "nonlin",),
-                                 _(u"Déformations aux points de Gauss"), ),
+                                 _(u"Déformations aux points de Gauss"), ),
             "EPSI_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Déformations aux noeuds par élément"), ),
+                                 _(u"Déformations aux noeuds par élément"), ),
             "EPSI_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Déformations aux noeuds"), ),
+                                 _(u"Déformations aux noeuds"), ),
             "EPSP_ELGA":        ( ("nonlin",),
-                                 _(u"Déformations anélastique aux points de Gauss"), ),
+                                 _(u"Déformations anélastique aux points de Gauss"), ),
             "EPSP_ELNO":        ( ("nonlin",),
-                                 _(u"Déformations anélastique aux noeuds par élément"), ),
+                                 _(u"Déformations anélastique aux noeuds par élément"), ),
             "EPSP_NOEU":        ( ("nonlin",),
-                                 _(u"Déformations anélastique aux noeuds"), ),
+                                 _(u"Déformations anélastique aux noeuds"), ),
             "EPVC_ELGA":        ( ("lin", "nonlin",),
-                                 _(u"Déformations dues aux variables de commande aux points de Gauss"), ),
+                                 _(u"Déformations dues aux variables de commande aux points de Gauss"), ),
             "EPVC_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Déformations dues aux variables de commande aux noeuds par élément"), ),
+                                 _(u"Déformations dues aux variables de commande aux noeuds par élément"), ),
             "EPVC_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Déformations dues aux variables de commande aux noeuds"), ),
+                                 _(u"Déformations dues aux variables de commande aux noeuds"), ),
         }
         d['ENERGIE'] = {
             "DISS_ELEM":        ( ("lin", "nonlin",),
-                                 _(u"Énergie de dissipation par élément"), ),
+                                 _(u"Énergie de dissipation par élément"), ),
             "DISS_ELGA":        ( ("lin", "nonlin",),
-                                 _(u"Densité d'énergie de dissipation aux points de Gauss"), ),
+                                 _(u"Densité d'énergie de dissipation aux points de Gauss"), ),
             "DISS_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Densité d'énergie de dissipation aux noeuds par élément"), ),
+                                 _(u"Densité d'énergie de dissipation aux noeuds par élément"), ),
             "DISS_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Densité d'énergie de dissipation aux noeuds"), ),
+                                 _(u"Densité d'énergie de dissipation aux noeuds"), ),
             "ECIN_ELEM":        ( ("lin",),
-                                 _(u"Énergie cinétique par élément"), ),
+                                 _(u"Énergie cinétique par élément"), ),
             "ENEL_ELEM":        ( ("lin", "nonlin",),
-                                 _(u"Énergie élastique par élément"), ),
+                                 _(u"Énergie élastique par élément"), ),
             "ENEL_ELGA":        ( ("lin", "nonlin",),
-                                 _(u"Densité d'énergie élastique aux points de Gauss"), ),
+                                 _(u"Densité d'énergie élastique aux points de Gauss"), ),
             "ENEL_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Densité d'énergie élastique aux noeuds par élément"), ),
+                                 _(u"Densité d'énergie élastique aux noeuds par élément"), ),
             "ENEL_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Densité d'énergie élastique aux noeuds"), ),
+                                 _(u"Densité d'énergie élastique aux noeuds"), ),
             "EPOT_ELEM":        ( ("lin",),
-                                 _(u"Énergie potentielle de déformation élastique par élément"), ),
+                                 _(u"Énergie potentielle de déformation élastique par élément"), ),
             "ETOT_ELEM":        ( ("lin", "nonlin",),
-                                 _(u"Incrément d'énergie de déformation totale par élément"), ),
+                                 _(u"Incrément d'énergie de déformation totale par élément"), ),
             "ETOT_ELGA":        ( ("lin", "nonlin",),
-                                 _(u"Incrément de densité d'énergie de déformation totale aux points de Gauss"), ),
+                                 _(u"Incrément de densité d'énergie de déformation totale aux points de Gauss"), ),
             "ETOT_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Incrément de densité d'énergie de déformation totale aux noeuds par élément"), ),
+                                 _(u"Incrément de densité d'énergie de déformation totale aux noeuds par élément"), ),
             "ETOT_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Incrément de densité d'énergie de déformation totale aux noeuds"), ),
+                                 _(u"Incrément de densité d'énergie de déformation totale aux noeuds"), ),
         }                       
         d['CRITERES'] = {
             "DERA_ELGA":        ( ("nonlin",),
-                                 _(u"Indicateur local de décharge et de perte de radialité aux points de Gauss"), ),
+                                 _(u"Indicateur local de décharge et de perte de radialité aux points de Gauss"), ),
             "DERA_ELNO":        ( ("nonlin",),
-                                 _(u"Indicateur local de décharge et de perte de radialité aux noeuds par élément"), ),
+                                 _(u"Indicateur local de décharge et de perte de radialité aux noeuds par élément"), ),
             "DERA_NOEU":        ( ("nonlin",),
-                                 _(u"Indicateur local de décharge et de perte de radialité aux noeuds"), ),
+                                 _(u"Indicateur local de décharge et de perte de radialité aux noeuds"), ),
             "ENDO_ELGA":        ( ("nonlin",),
-                                 _(u"Dommage de Lemaître-Sermage aux points de Gauss"), ),
+                                 _(u"Dommage de Lemaître-Sermage aux points de Gauss"), ),
             "ENDO_ELNO":        ( ("nonlin",),
-                                 _(u"Dommage de Lemaître-Sermage aux noeuds par élément"), ),
+                                 _(u"Dommage de Lemaître-Sermage aux noeuds par élément"), ),
             "ENDO_NOEU":        ( ("nonlin",),
-                                 _(u"Dommage de Lemaître-Sermage aux noeuds"), ),
+                                 _(u"Dommage de Lemaître-Sermage aux noeuds"), ),
             "EPEQ_ELGA":        ( ("lin", "nonlin",),
-                                 _(u"Déformations équivalentes aux points de Gauss"), ),
+                                 _(u"Déformations équivalentes aux points de Gauss"), ),
             "EPEQ_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Déformations équivalentes aux noeuds par élément"), ),
+                                 _(u"Déformations équivalentes aux noeuds par élément"), ),
             "EPEQ_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Déformations équivalentes aux noeuds"), ),
+                                 _(u"Déformations équivalentes aux noeuds"), ),
             "EPMQ_ELGA":        ( ("lin", "nonlin",),
-                                 _(u"Déformations mécaniques équivalentes aux points de Gauss"), ),
+                                 _(u"Déformations mécaniques équivalentes aux points de Gauss"), ),
             "EPMQ_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Déformations mécaniques équivalentes aux noeuds par élément"), ),
+                                 _(u"Déformations mécaniques équivalentes aux noeuds par élément"), ),
             "EPMQ_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Déformations mécaniques équivalentes aux noeuds"), ),
+                                 _(u"Déformations mécaniques équivalentes aux noeuds"), ),
             "INDL_ELGA":        ( ("nonlin",),
                                  _(u"Indicateur de localisation aux points de Gauss"), ),
             "PDIL_ELGA":        ( ("nonlin",),
-                                 _(u"Module de rigidité de micro-dilatation"), ),
+                                 _(u"Module de rigidité de micro-dilatation"), ),
             "SIEQ_ELGA":        ( ("lin", "nonlin",),
-                                 _(u"Contraintes équivalentes aux points de Gauss"), ),
+                                 _(u"Contraintes équivalentes aux points de Gauss"), ),
             "SIEQ_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Contraintes équivalentes aux noeuds par élément"), ),
+                                 _(u"Contraintes équivalentes aux noeuds par élément"), ),
             "SIEQ_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Contraintes équivalentes aux noeuds"), ),
+                                 _(u"Contraintes équivalentes aux noeuds"), ),
         }
         d['VARI_INTERNE'] = {
             "VAEX_ELGA":        ( ("nonlin",),
                                  _(u"Extraction d'une variable interne aux points de Gauss"), ),
             "VAEX_ELNO":        ( ("nonlin",),
-                                 _(u"Extraction d'une variable interne aux noeuds pas élément"), ),
+                                 _(u"Extraction d'une variable interne aux noeuds pas élément"), ),
             "VAEX_NOEU":        ( ("nonlin",),
                                  _(u"Extraction d'une variable interne aux noeuds"), ),
             "VARC_ELGA":        ( ("lin", "nonlin",),
                                  _(u"Variables de commande aux points de Gauss"), ),
             "VARI_ELNO":        ( ("nonlin",),
-                                 _(u"Variables internes aux noeuds pas élément"), ),
+                                 _(u"Variables internes aux noeuds pas élément"), ),
             "VARI_NOEU":        ( ("nonlin",),
                                  _(u"Variables internes aux noeuds"), ),
         }
@@ -3093,97 +2947,97 @@ class NOM_CHAM_INTO:  #COMMUN#
         }
         d['THERMIQUE'] = {
             "TEMP_ELGA":        ( (),
-                                 _(u"Température aux points de Gauss"), ),
+                                 _(u"Température aux points de Gauss"), ),
             "FLUX_ELGA":        ( (),
                                  _(u"Flux thermique aux points de Gauss"), ),
             "FLUX_ELNO":        ( (),
-                                 _(u"Flux thermique aux noeuds par élément"), ),
+                                 _(u"Flux thermique aux noeuds par élément"), ),
             "FLUX_NOEU":        ( (),
                                  _(u"Flux thermique aux noeuds"), ),
             "HYDR_NOEU":        ( (),
                                  _(u"Hydratation aux noeuds"), ),
             "SOUR_ELGA":        ( (),
-                                 _(u"Source de chaleur à partir d'un potentiel électrique"), ),
+                                 _(u"Source de chaleur à partir d'un potentiel électrique"), ),
             "ETHE_ELEM":        ( (),
-                                 _(u"Énergie dissipée thermiquement"), ),
+                                 _(u"Énergie dissipée thermiquement"), ),
         }
         d['ACOUSTIQUE'] = {
             "PRAC_ELNO":        ( (),
-                                 _(u"Pression acoustique aux noeuds par élément"), ),
+                                 _(u"Pression acoustique aux noeuds par élément"), ),
             "PRAC_NOEU":        ( (),
                                  _(u"Pression acoustique aux noeuds"), ),
             "PRME_ELNO":        ( (),
-                                 _(u"Pression aux noeuds par élément pour les éléments FLUIDE"), ),
+                                 _(u"Pression aux noeuds par élément pour les éléments FLUIDE"), ),
             "INTE_ELNO":        ( (),
-                                 _(u"Intensité acoustique aux noeuds par élément"), ),
+                                 _(u"Intensité acoustique aux noeuds par élément"), ),
             "INTE_NOEU":        ( (),
-                                 _(u"Intensité acoustique aux noeuds"), ),
+                                 _(u"Intensité acoustique aux noeuds"), ),
         }
         d['FORCE'] = {
             "FORC_NODA":        ( (),
                                  _(u"Forces nodales"), ),
             "REAC_NODA":        ( (),
-                                 _(u"Réactions nodales"), ),
+                                 _(u"Réactions nodales"), ),
         }
         d['ERREUR'] = {
             "SIZ1_NOEU":        ( (),
-                                 _(u"Contraintes lissées de Zhu-Zienkiewicz version 1 aux noeuds"), ),
+                                 _(u"Contraintes lissées de Zhu-Zienkiewicz version 1 aux noeuds"), ),
             "ERZ1_ELEM":        ( (),
-                                 _(u"Indicateur d'erreur de Zhu-Zienkiewicz version 1 par élément"), ),
+                                 _(u"Indicateur d'erreur de Zhu-Zienkiewicz version 1 par élément"), ),
             "SIZ2_NOEU":        ( (),
-                                 _(u"Contraintes lissées de Zhu-Zienkiewicz version 2 aux noeuds"), ),
+                                 _(u"Contraintes lissées de Zhu-Zienkiewicz version 2 aux noeuds"), ),
             "ERZ2_ELEM":        ( (),
-                                 _(u"Indicateur d'erreur de Zhu-Zienkiewicz version 2 par élément"), ),
+                                 _(u"Indicateur d'erreur de Zhu-Zienkiewicz version 2 par élément"), ),
             "ERME_ELEM":        ( (),
-                                 _(u"Indicateur d'erreur en résidu en mécanique par élément"), ),
+                                 _(u"Indicateur d'erreur en résidu en mécanique par élément"), ),
             "ERME_ELNO":        ( (),
-                                 _(u"Indicateur d'erreur en résidu en mécanique aux noeuds par élément"), ),
+                                 _(u"Indicateur d'erreur en résidu en mécanique aux noeuds par élément"), ),
             "ERME_NOEU":        ( (),
-                                 _(u"Indicateur d'erreur en résidu en mécanique aux noeuds"), ),
+                                 _(u"Indicateur d'erreur en résidu en mécanique aux noeuds"), ),
             "QIRE_ELEM":        ( (),
-                                 _(u"Indicateur d'erreur en quantités d'intérêt en résidu par élément"), ),
+                                 _(u"Indicateur d'erreur en quantités d'intérêt en résidu par élément"), ),
             "QIRE_ELNO":        ( (),
-                                 _(u"Indicateur d'erreur en quantités d'intérêt en résidu aux noeuds par élément"), ),
+                                 _(u"Indicateur d'erreur en quantités d'intérêt en résidu aux noeuds par élément"), ),
             "QIRE_NOEU":        ( (),
-                                 _(u"Indicateur d'erreur en quantités d'intérêt en résidu aux noeuds"), ),
+                                 _(u"Indicateur d'erreur en quantités d'intérêt en résidu aux noeuds"), ),
             "QIZ1_ELEM":        ( (),
-                                 _(u"Indicateur d'erreur en quantités d'intérêt de Zhu-Zienkiewicz version 1 par élément"), ),
+                                 _(u"Indicateur d'erreur en quantités d'intérêt de Zhu-Zienkiewicz version 1 par élément"), ),
             "QIZ2_ELEM":        ( (),
-                                 _(u"Indicateur d'erreur en quantités d'intérêt de Zhu-Zienkiewicz version 2 par élément"), ),
+                                 _(u"Indicateur d'erreur en quantités d'intérêt de Zhu-Zienkiewicz version 2 par élément"), ),
             "SING_ELEM":        ( (),
-                                 _(u"Degré de singularité par élément"), ),
+                                 _(u"Degré de singularité par élément"), ),
             "SING_ELNO":        ( (),
-                                 _(u"Degré de singularité aux noeuds par élément"), ),
+                                 _(u"Degré de singularité aux noeuds par élément"), ),
             "ERTH_ELEM":        ( (),
-                                 _(u"Indicateur d'erreur en résidu en thermique par élément"), ),
+                                 _(u"Indicateur d'erreur en résidu en thermique par élément"), ),
             "ERTH_ELNO":        ( (),
-                                 _(u"Indicateur d'erreur en résidu en thermique aux noeuds par élément"), ),
+                                 _(u"Indicateur d'erreur en résidu en thermique aux noeuds par élément"), ),
             "ERTH_NOEU":        ( (),
-                                 _(u"Indicateur d'erreur en résidu en thermique aux noeuds"), ),
+                                 _(u"Indicateur d'erreur en résidu en thermique aux noeuds"), ),
         }
         d['METALLURGIE'] = {
             "DURT_ELNO":        ( (),
-                                 _(u"Dureté aux noeuds par élément"), ),
+                                 _(u"Dureté aux noeuds par élément"), ),
             "DURT_NOEU":        ( (),
-                                 _(u"Dureté aux noeuds"), ),
+                                 _(u"Dureté aux noeuds"), ),
             "META_ELNO":        ( (),
-                                 _(u"Proportion de phases métallurgiques aux noeuds par élément"), ),
+                                 _(u"Proportion de phases métallurgiques aux noeuds par élément"), ),
             "META_NOEU":        ( (),
-                                 _(u"Proportion de phases métallurgiques aux noeuds"), ),
+                                 _(u"Proportion de phases métallurgiques aux noeuds"), ),
         }
         d['DEPLACEMENT'] = {
             "ACCE":             ( (),
-                                 _(u"Accélération aux noeuds"), ),
+                                 _(u"Accélération aux noeuds"), ),
             "ACCE_ABSOLU":      ( (),
-                                 _(u"Accélération absolue aux noeuds"), ),
+                                 _(u"Accélération absolue aux noeuds"), ),
             "DEPL":             ( (),
-                                 _(u"Déplacements aux noeuds"), ),
+                                 _(u"Déplacements aux noeuds"), ),
             "DEPL_ABSOLU":      ( (),
-                                 _(u"Déplacements absolus aux noeuds"), ),
+                                 _(u"Déplacements absolus aux noeuds"), ),
             "STRX_ELGA":        ( (),
-                                 _(u"Efforts généralisés à partir des déplacements en linéaire aux points de Gauss"), ),
+                                 _(u"Efforts généralisés à partir des déplacements en linéaire aux points de Gauss"), ),
             "TEMP":             ( (),
-                                 _(u"Température aux noeuds"), ),
+                                 _(u"Température aux noeuds"), ),
             "VITE":             ( (),
                                  _(u"Vitesse aux noeuds"), ),
             "VALE_CONT":        ( (),
@@ -3193,47 +3047,21 @@ class NOM_CHAM_INTO:  #COMMUN#
             "VITE_ABSOLU":      ( (),
                                  _(u"Vitesse absolue aux noeuds"), ),
         }
-        d['POST_ELEM'] = {
-            "DEPL":             ( (),
-                                 _(u"Déplacements aux noeuds"), ),
-            "TEMP":             ( (),
-                                 _(u"Température aux noeuds"), ),
-            "NEUT_R":             ( (),
-                                 _(u"Variable de commande 'neutre'"), ),
-            "FLUX_ELGA":        ( (),
-                                 _(u"Flux thermique aux points de Gauss"), ),
-            "FLUX_ELNO":        ( (),
-                                 _(u"Flux thermique aux noeuds par élément"), ),
-            "FLUX_NOEU":        ( (),
-                                 _(u"Flux thermique aux noeuds"), ),
-            "EPSI_ELGA":        ( ("lin", "nonlin",),
-                                 _(u"Déformations aux points de Gauss"), ),
-            "EPSI_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Déformations aux noeuds par élément"), ),
-            "EPSI_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Déformations aux noeuds"), ),
-            "SIEF_ELGA":        ( ("lin",),
-                                 _(u"Contraintes et efforts aux points de Gauss"), ),
-            "SIEF_ELNO":        ( ("lin", "nonlin",),
-                                 _(u"Contraintes et efforts aux noeuds par élément"), ),
-            "SIEF_NOEU":        ( ("lin", "nonlin",),
-                                 _(u"Contraintes et efforts aux noeuds"), ),
-        }
         d['AUTRES'] = {
             "COMPORTEMENT":     ( (),
-                                 _(u"Carte de comportement mécanique"), ),
+                                 _(u"Carte de comportement mécanique"), ),
             "COMPORTHER":       ( (),
                                  _(u"Carte de comportement thermique"), ),
             "DEPL_VIBR":        ( (),
-                                 _(u"Déplacement pour mode vibratoire"), ),
+                                 _(u"Déplacement pour mode vibratoire"), ),
             "DIVU":             ( (),
-                                 _(u"Déformation volumique en THM"), ),
+                                 _(u"Déformation volumique en THM"), ),
             "EPSA_ELNO":        ( (),
-                                 _(u"Déformations anélastique aux noeuds par élément"), ),
+                                 _(u"Déformations anélastique aux noeuds par élément"), ),
             "EPSA_NOEU":        ( (),
-                                 _(u"Déformations anélastique aux noeuds"), ),
+                                 _(u"Déformations anélastique aux noeuds"), ),
             "FERRAILLAGE":      ( ("lin",),
-                                 _(u"Densité de ferraillage"), ),
+                                 _(u"Densité de ferraillage"), ),
             "FSUR_2D":          ( (),
                                  _(u"Chargement de force surfacique en 2D"), ),
             "FSUR_3D":          ( (),
@@ -3243,13 +3071,13 @@ class NOM_CHAM_INTO:  #COMMUN#
             "FVOL_3D":          ( (),
                                  _(u"Chargement de force volumique en 3D"), ),
             "HYDR_ELNO":        ( (),
-                                 _(u"Hydratation aux noeuds par élément"), ),
+                                 _(u"Hydratation aux noeuds par élément"), ),
             "IRRA":             ( (),
                                  _(u"Irradition aux noeuds"), ),
             "MODE_FLAMB":       ( (),
                                  _(u"Mode de flambement"), ),
             "MODE_STAB":        ( (),
-                                 _(u"Mode de stabilité"), ),
+                                 _(u"Mode de stabilité"), ),
             "NEUT":             ( (),
                                  _(u"Variable de commande 'neutre'"), ),
             "PRES":             ( (),
@@ -3257,7 +3085,7 @@ class NOM_CHAM_INTO:  #COMMUN#
             "PTOT":             ( (),
                                  _(u"Pression totale de fluide en THM"), ),
             "SISE_ELNO":        ( (),
-                                 _(u"Contraintes aux noeuds par sous-élément"), ),
+                                 _(u"Contraintes aux noeuds par sous-élément"), ),
             "SPMX_ELGA":        ( (),
                                  _(u"Valeurs maximum sur un sous-point"), ),
             "THETA":            ( (),
@@ -3265,23 +3093,49 @@ class NOM_CHAM_INTO:  #COMMUN#
             "VITE_VENT":        ( (),
                                  _(u"Chargement vitesse du vent"), ),
         }
-        for typ in ('ELGA', 'ELNO', 'NOEU', 'CART'):
+        for typ in ('ELGA', 'ELNO', 'ELEM', 'NOEU', 'CART'):
             for i in range(1, 11):
                 d['AUTRES']['UT%02d_%s' % (i, typ)]=( (),
-                                 _(u"Champ utilisateur numéro %02d_%s" % (i, typ)), )
+                                 _(u"Champ utilisateur numéro %02d_%s" % (i, typ)), )
         self.d_all = d
         return
 
-    def Check(self):
-        """ Check des doublons
+    def CheckPhenom(self):
+        """ Vérification de la cohérence entre les phenomènes et les clés
+        """
+        l_keys = list(self.d_all.keys())
+        l_phen = list(self.all_phenomenes)
+        uniq_keys = set(l_keys)
+        uniq_phen = set(l_phen)
+        if len(l_keys) != len(uniq_keys) or len(l_phen) != len(uniq_phen) :
+            for i in uniq_keys :
+                l_keys.remove(i)
+            assert len(l_keys) == 0, 'Keys must be unique: %s' % l_keys
+            for i in uniq_phen :
+                l_phen.remove(i)
+            assert len(l_phen) == 0, 'Phenomenon must be unique: %s' % l_phen
+        if len(l_keys) > len(l_phen) :
+            for i in l_phen :
+                l_keys.remove(i)
+            assert len(l_keys) == 0, 'Key %s not listed in the list of phenomenons' % l_keys
+        if len(l_keys) < len(l_phen) :
+            for i in l_keys:
+                l_phen.remove(i)
+            assert len(l_phen) == 0, 'Phenomenon %s not known as a key' % l_phen
+
+
+    def CheckField(self):
+        """ Vérification des doublons dans les noms des champs
         """
         l_cham = []
         for phen in self.all_phenomenes:
-            for cham in self.d_all[phen].keys():
-                if cham in l_cham:
-                    raise "Erreur : %s est en doublon dans c_nom_cham_into" % cham
-                else:
-                    l_cham.append(cham)
+            l_cham.extend(self.d_all[phen].keys())
+        uniq = set(l_cham)
+        if len(l_cham) != len(uniq):
+            for i in uniq:
+                l_cham.remove(i)
+            assert len(l_cham) == 0, 'Field names must be unique: %s' % l_cham
+
 
     def InfoChamps(self, l_nom_cham):
         """ on renvoie juste les informations relatives au(x) champ(s)
@@ -3312,7 +3166,6 @@ class NOM_CHAM_INTO:  #COMMUN#
         for phen in l_phen:
             # parcours de tous les champs
             for cham in self.d_all[phen].keys():
-               #print cham, categorie, l_typ_cham
                isok = True
                # Filtre par categorie
                if categorie is not None:
@@ -3340,11 +3193,12 @@ class NOM_CHAM_INTO:  #COMMUN#
         self.Tous()
         # check les doublons (fonctionnalite developpeur permettant de detecter les doublons dans les champs)
         if 1:
-            self.Check()
+            self.CheckPhenom()
+            self.CheckField()
 
     def __call__(self, *l_typ_cham, **kwargs):
-        """Cette fonction retourne la liste des "into" possibles pour le mot-clé NOM_CHAM.
-        C'est à dire les noms de champs des SD RESULTAT (DATA de la routine RSCRSD).
+        """Cette fonction retourne la liste des "into" possibles pour le mot-clé NOM_CHAM.
+        C'est à dire les noms de champs des SD RESULTAT (DATA de la routine RSCRSD).
         l_typ_cham : rien ou un ou plusieurs parmi 'ELGA', 'ELNO', 'NOEU', 'ELEM'.
         kwargs : un dictionnaire de mot-cles, les cles parmis : 
           'phenomene'  : retourne la liste des champs en filtrant par le phenomene (eventuellement mixe avec le suivant)
@@ -3361,9 +3215,8 @@ class NOM_CHAM_INTO:  #COMMUN#
 
 
 C_NOM_CHAM_INTO = NOM_CHAM_INTO()
-#& MODIF COMMUN  DATE 19/09/2011   AUTEUR PELLET J.PELLET 
-# RESPONSABLE DESROCHES X.DESROCHES
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
+# person_in_charge: xavier.desroches at edf.fr
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -3514,8 +3367,7 @@ def C_NOM_GRANDEUR() : return  ( #COMMUN#
 "WEIBULL",
 "XCONTAC",
                                  )
-#& MODIF COMMUN  DATE 11/09/2012   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -3532,7 +3384,7 @@ def C_NOM_GRANDEUR() : return  ( #COMMUN#
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ABBAS M.ABBAS
+# person_in_charge: mickael.abbas at edf.fr
 
 def C_OBSERVATION() : return FACT(statut='f',max=99,
            TITRE           =SIMP(statut='f',typ='TXM',max=1),
@@ -3596,9 +3448,8 @@ def C_OBSERVATION() : return FACT(statut='f',max=99,
 
 
        );
-#& MODIF COMMUN  DATE 13/12/2011   AUTEUR COURTOIS M.COURTOIS 
-# RESPONSABLE COURTOIS M.COURTOIS
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
+# person_in_charge: mathieu.courtois at edf.fr
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -3622,8 +3473,7 @@ def C_PARA_FONCTION() : return  ( #COMMUN#
                    "AMOR","ABSC","ABSC_CURV","SIGM","HYDR","SECH","PORO","SAT",
                    "PGAZ","PCAP","PLIQ","PVAP","PAD","VITE","ENDO",
                    "NORM","EPAIS","NEUT1","NEUT2",)
-#& MODIF COMMUN  DATE 26/03/2012   AUTEUR PROIX J-M.PROIX 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -3640,7 +3490,7 @@ def C_PARA_FONCTION() : return  ( #COMMUN#
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE KAZYMYRE K.KAZYMYRENKO
+# person_in_charge: kyrylo.kazymyrenko at edf.fr
 def C_PILOTAGE() : return FACT(statut='f',
            regles=(EXCLUS('NOEUD','GROUP_NO'),PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
            TYPE    =SIMP(statut='o',typ='TXM',into=("DDL_IMPO","LONG_ARC","PRED_ELAS","DEFORMATION",
@@ -3664,8 +3514,6 @@ def C_PILOTAGE() : return FACT(statut='f',
            DIRE_PILO     =SIMP(statut='f',typ='TXM',max='**'),
          );
 
-#& MODIF COMMUN  DATE 13/12/2011   AUTEUR GENIAUT S.GENIAUT 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -3682,7 +3530,7 @@ def C_PILOTAGE() : return FACT(statut='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE ABBAS M.ABBAS
+# person_in_charge: mickael.abbas at edf.fr
 def C_RECH_LINEAIRE() : return FACT(statut='f',
            METHODE         =SIMP(statut='f',typ='TXM',defaut="CORDE",into=("CORDE","MIXTE","PILOTAGE") ),
            RESI_LINE_RELA  =SIMP(statut='f',typ='R',defaut= 1.0E-1 ),
@@ -3691,8 +3539,7 @@ def C_RECH_LINEAIRE() : return FACT(statut='f',
            RHO_MAX         =SIMP(statut='f',typ='R',defaut=1.0E+1),
            RHO_EXCL        =SIMP(statut='f',typ='R',defaut=0.9E-2,val_min=0.),
          );
-#& MODIF COMMUN  DATE 02/04/2013   AUTEUR PROIX J-M.PROIX 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -3709,9 +3556,53 @@ def C_RECH_LINEAIRE() : return FACT(statut='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PROIX J.M.PROIX
-def C_RELATION() : return (             "ELAS",            #COMMUN#
+# person_in_charge: jean-michel.proix@edf.fr
+#
+def C_RELATION( COMMAND ):
 
+    if COMMAND in ('CALC_G',):
+                   return (             "ELAS",            #COMMUN#
+                                        "ELAS_VMIS_LINE",
+                                        "ELAS_VMIS_TRAC",
+                                        "ELAS_VMIS_PUIS",
+                                        "ELAS_HYPER",
+                                        "VMIS_ISOT_LINE",
+                                        "VMIS_ISOT_TRAC",
+                                        # relations interdites depuis issue21711, elles
+                                        # devront etre introduites dans le F90 si besoin
+                                        #"VMIS_CINE_LINE",
+                                        #"VMIS_ISOT_PUIS",
+                                     )
+    elif COMMAND in ('MACR_ASCOUF_CALC','MACR_ASPIC_CALC',):
+                   return (             "ELAS",           
+                                        "ELAS_VMIS_TRAC",
+                                        "VMIS_ISOT_TRAC",
+                                     )
+    elif COMMAND =='DEFI_COMPOR' :
+                   return (             "ELAS",  #uniquement ce qui a du sens (cf doc) et qui fait l'objet d'un test
+                                        "BETON_UMLV_FP",
+                                        "BETON_DOUBLE_DP",
+                                        "CORR_ACIER",
+                                        "GRANGER_FP",
+                                        "GRANGER_FP_V",
+                                        "GRANGER_FP_INDT",
+                                        "GRAN_IRRA_LOG",
+                                        "MAZARS_GC",
+                                        "VISC_IRRA_LOG",
+                                        "VMIS_CINE_GC",
+                                        "VMIS_CINE_LINE",
+                                        "VMIS_ISOT_LINE",
+                                        "VMIS_ISOT_TRAC",
+                                        "VMIS_ISOT_PUIS",
+                                     )
+    else :
+                   return (             "ELAS",            
+                                        "ELAS_VMIS_LINE",
+                                        "ELAS_VMIS_TRAC",
+                                        "ELAS_VMIS_PUIS",
+                                        "ELAS_HYPER",
+                                        "ELAS_POUTRE_GR",
+                                        "CABLE",
                                         "ARME",
                                         "ASSE_CORN",
                                         "BARCELONE",
@@ -3720,6 +3611,7 @@ def C_RELATION() : return (             "ELAS",            #COMMUN#
                                         "BETON_RAG",
                                         "BETON_REGLE_PR",
                                         "BETON_UMLV_FP",
+                                        "CABLE_GAINE_FROT",
                                         "CAM_CLAY",
                                         "CJS",
                                         "CORR_ACIER",
@@ -3743,6 +3635,7 @@ def C_RELATION() : return (             "ELAS",            #COMMUN#
                                         "ELAS_GONF",
                                         "ELAS_HYPER",
                                         "ENDO_CARRE",
+                                        "ENDO_FISS_EXP",
                                         "ENDO_FRAGILE",
                                         "ENDO_HETEROGENE",
                                         "ENDO_ISOT_BETON",
@@ -3751,6 +3644,7 @@ def C_RELATION() : return (             "ELAS",            #COMMUN#
                                         "GATT_MONERIE",
                                         "GLRC_DAMAGE",
                                         "GLRC_DM",
+                                        "DHRC",
                                         "GRANGER_FP",
                                         "GRANGER_FP_INDT",
                                         "GRANGER_FP_V",
@@ -3768,6 +3662,7 @@ def C_RELATION() : return (             "ELAS",            #COMMUN#
                                         "JOINT_BANDIS",
                                         "JOINT_MECA_RUPT",
                                         "JOINT_MECA_FROT",
+                                        "KIT_CG",
                                         "KIT_DDI",
                                         "KIT_HH",
                                         "KIT_H",
@@ -3777,7 +3672,6 @@ def C_RELATION() : return (             "ELAS",            #COMMUN#
                                         "KIT_THHM",
                                         "KIT_THM",
                                         "KIT_THV",
-                                        "LABORD_1D",
                                         "LAIGLE",
                                         "LEMAITRE",
                                         "LEMAITRE_IRRA",
@@ -3811,6 +3705,7 @@ def C_RELATION() : return (             "ELAS",            #COMMUN#
                                         "META_V_INL_PT",
                                         "META_V_INL_PT_RE",
                                         "META_V_INL_RE",
+                                        "MOHR_COULOMB",
                                         "MONOCRISTAL",
                                         "MULTIFIBRE",
                                         "NORTON",
@@ -3853,8 +3748,7 @@ def C_RELATION() : return (             "ELAS",            #COMMUN#
                                         "UMAT",
                                         "MFRONT",
                                      )
-#& MODIF COMMUN  DATE 18/02/2013   AUTEUR DESOZA T.DESOZA 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -3871,7 +3765,7 @@ def C_RELATION() : return (             "ELAS",            #COMMUN#
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BOITEAU O.BOITEAU
+# person_in_charge: olivier.boiteau at edf.fr
 
 def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
 
@@ -3901,6 +3795,7 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
                       'MODE_ITER_SIMULT',
                       'MODE_ITER_INV',
                       'MODE_STATIQUE',
+                      'MODE_NON_LINE',
                       'STAT_NON_LINE',
                       'THER_LINEAIRE',
                       'THER_NON_LINE',
@@ -3915,8 +3810,8 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
 #
 # CLASSIFICATION EN 3 CATEGORIES :
 #  - solveurs directs uniquement
-#  - solveurs pour le linéaire
-#  - solveurs pour le non-linéaire
+#  - solveurs pour le linéaire
+#  - solveurs pour le non-linéaire
 #
 # GESTION DES EXCEPTIONS
 #
@@ -3953,6 +3848,7 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
                     'MACRO_BASCULE_SCHEMA',
                     'STAT_NON_LINE',
                     'THER_NON_LINE',
+                    'MODE_NON_LINE',
                     ):
       _type = 'NL'
    else:
@@ -3960,10 +3856,9 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
 
 # ----------------------------------------------------------------------------------------------------------------------------------
 
-   _feti   = False
    _dist   = False
 
-#  FETI et MATR_DISTRIBUEE ne fonctionnent que dans MECA_STATIQUE et MECA_NON_LINE
+#  MATR_DISTRIBUEE ne fonctionnent que dans MECA_STATIQUE et MECA_NON_LINE
    if COMMAND in ('CALC_IFS_DNL',
                   'CALC_PRECONT',
                   'DYNA_NON_LINE',
@@ -3973,7 +3868,6 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
                   'MECA_STATIQUE',
                   'STAT_NON_LINE',
                   ):
-      _feti = True
       _dist = True
 
 # ----------------------------------------------------------------------------------------------------------------------------------
@@ -3981,12 +3875,12 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
    _gene   = False
    _ldlt   = False
 
-#  Avec des matrices généralisées, MULT_FRONT n'est pas permis, LDLT est donc par défaut
+#  Avec des matrices généralisées, MULT_FRONT n'est pas permis, LDLT est donc par défaut
    if BASE == 'GENE':
       _gene = True
       _ldlt = True
 
-#  LDLT est le solveur par défaut dans DYNA_TRAN_MODAL (systèmes linéaires petits)
+#  LDLT est le solveur par défaut dans DYNA_TRAN_MODAL (systèmes linéaires petits)
    if COMMAND == 'DYNA_TRAN_MODAL':
       _ldlt = True
 
@@ -3994,7 +3888,7 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
 
    _syme   = False
 
-#  Seuls les opérateurs non-linéaires produisent des matrices non-symétriques
+#  Seuls les opérateurs non-linéaires produisent des matrices non-symétriques
    if _type == 'NL':
       _syme = True
    if COMMAND == 'THER_NON_LINE_MO':
@@ -4005,9 +3899,11 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
    _singu  = True
    _rcmk   = True
    _resol  = True
+   _cmodal = False
 
 #  Avec les solveurs modaux STOP_SINGULIER n'existe pas, de plus RCMK n'est pas disponible
    if COMMAND in ('INFO_MODE','MODE_ITER_INV','MODE_ITER_SIMULT'):
+      _cmodal= True
       _singu = False
       _rcmk  = False
 #     Dans INFO_MODE on ne fait que factoriser
@@ -4018,7 +3914,7 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
 
    _singu_non = False
 
-#  Dans DEFI_BASE_MODALE, NON est le défaut de STOP_SINGULIER
+#  Dans DEFI_BASE_MODALE, NON est le défaut de STOP_SINGULIER
    if COMMAND == 'DEFI_BASE_MODALE':
       _singu_non = True
 
@@ -4028,7 +3924,7 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
 #
 # ----------------------------------------------------------------------------------------------------------------------------------
 
-#  Mot-clés simples
+#  Mot-clés simples
    _MotCleSimples={}
 
 #  Solveurs
@@ -4037,9 +3933,8 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
    _BlocMU={}
    _BlocGC={}
    _BlocPE={}
-   _BlocFE={}
 
-#  Préconditionneurs
+#  Préconditionneurs
    _BlocGC_INC={}
    _BlocPE_INC={}
    _BlocXX_SP={}
@@ -4066,8 +3961,10 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
          _into = ("LDLT", "MUMPS", )
    else:
       _into = ("MULT_FRONT", "LDLT", "MUMPS", "GCPC", "PETSC", )
-      if _feti:
-         _into = ("MULT_FRONT", "LDLT", "MUMPS", "GCPC", "PETSC", "FETI", )
+
+   if COMMAND =='MODE_NON_LINE':
+      _defaut = "MUMPS"
+      _into = ("MUMPS",)
 
    _MotCleSimples['METHODE'] = SIMP(statut='f', typ='TXM', defaut=_defaut, into=_into, )
 
@@ -4079,13 +3976,12 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
 
 # ----------------------------------------------------------------------------------------------------------------------------------
 #
-# MULT_FRONT/LDLT/MUMPS/FETI (RENUM/NPREC/STOP_SINGULIER)
+# MULT_FRONT/LDLT/MUMPS (RENUM/NPREC/STOP_SINGULIER)
 #
 # ----------------------------------------------------------------------------------------------------------------------------------
 
 #  RENUM
    _BlocMF['RENUM'] = SIMP(statut='f', typ='TXM', defaut="METIS", into=("MD", "MDA", "METIS", ), )
-   _BlocFE['RENUM'] = SIMP(statut='f', typ='TXM', defaut="METIS", into=("MD", "MDA", "METIS", ), )
 
    if _rcmk:
       _into = ("RCMK", "SANS", )
@@ -4099,15 +3995,24 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
    _BlocMU['RENUM'] = SIMP(statut='f', typ='TXM', defaut="AUTO", into=("AMD", "AMF", "PORD", "METIS", "QAMD", "SCOTCH", "AUTO", ), )
 
 # ----------------------------------------------------------------------------------------------------------------------------------
-
 #  NPREC
    _BlocMF['NPREC'] = SIMP(statut='f', typ='I', defaut=8, )
    _BlocLD['NPREC'] = SIMP(statut='f', typ='I', defaut=8, )
    _BlocMU['NPREC'] = SIMP(statut='f', typ='I', defaut=8, )
-   _BlocFE['NPREC'] = SIMP(statut='f', typ='I', defaut=8, )
 
 # ----------------------------------------------------------------------------------------------------------------------------------
+#  ELIM_LAGR
+
+   if not _cmodal :
+      _BlocPE['ELIM_LAGR'     ] = SIMP(statut='f', typ='TXM', defaut="NON" , into=("OUI", "NON"), )
+      _BlocMF['ELIM_LAGR'     ] = SIMP(statut='f', typ='TXM', defaut="NON" , into=("OUI", "NON"), )
+      _BlocLD['ELIM_LAGR'     ] = SIMP(statut='f', typ='TXM', defaut="NON" , into=("OUI", "NON"), )
+      _BlocMU['ELIM_LAGR'     ] = SIMP(statut='f', typ='TXM', defaut="LAGR2" , into=("OUI", "NON", "LAGR2"), )
+   else :
+      _BlocMU['ELIM_LAGR'     ] = SIMP(statut='f', typ='TXM', defaut="LAGR2" , into=("NON", "LAGR2"), )
 
+
+# ----------------------------------------------------------------------------------------------------------------------------------
 #  STOP_SINGULIER
    _into = ("OUI", "NON", )
    _defaut = "OUI"
@@ -4119,7 +4024,6 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
       _BlocMF['STOP_SINGULIER'] = SIMP(statut='f', typ='TXM', defaut=_defaut, into=_into, )
       _BlocLD['STOP_SINGULIER'] = SIMP(statut='f', typ='TXM', defaut=_defaut, into=_into, )
       _BlocMU['STOP_SINGULIER'] = SIMP(statut='f', typ='TXM', defaut=_defaut, into=_into, )
-      _BlocFE['STOP_SINGULIER'] = SIMP(statut='f', typ='TXM', defaut=_defaut, into=_into, )
 
 # ----------------------------------------------------------------------------------------------------------------------------------
 #
@@ -4138,10 +4042,6 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
    if _resol:
       _BlocMU['POSTTRAITEMENTS'] = SIMP(statut='f', typ='TXM', defaut="AUTO", into=("SANS", "AUTO", "FORCE", ), )
 
-# ----------------------------------------------------------------------------------------------------------------------------------
-
-   _BlocMU['ELIM_LAGR2'     ] = SIMP(statut='f', typ='TXM', defaut="OUI" , into=("OUI", "NON"), )
-
 # ----------------------------------------------------------------------------------------------------------------------------------
 
    _BlocMU['PCENT_PIVOT'    ] = SIMP(statut='f', typ='I'  , defaut=20, val_min=1, )
@@ -4234,27 +4134,6 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
 
    _BlocXX_Autres['RENUM'] = SIMP(statut='f', typ='TXM', defaut="SANS", into=("SANS","RCMK", ), )
 
-# ----------------------------------------------------------------------------------------------------------------------------------
-#
-# FETI (MOT-CLES RESTANT)
-#
-# ----------------------------------------------------------------------------------------------------------------------------------
-
-   _BlocFE['PARTITION'      ] = SIMP(statut='o',typ=sd_feti_sdaster)
-   _BlocFE['RESI_RELA'      ] = SIMP(statut='f',typ='R',defaut=1.E-6,val_min=0.)
-   _BlocFE['NMAX_ITER'      ] = SIMP(statut='f',typ='I',defaut=0,val_min=0)
-   _BlocFE['REAC_RESI'      ] = SIMP(statut='f',typ='I',defaut=0,val_min=0)
-   _BlocFE['TYPE_REORTHO_DD'] = SIMP(statut='f',typ='TXM',defaut="GSM",into=("SANS","GS","GSM","IGSM") )
-   _BlocFE['NB_REORTHO_DD'  ] = SIMP(statut='f',typ='I',defaut=0,val_min=0)
-   _BlocFE['NB_REORTHO_INST'] = SIMP(statut='f',typ='I',defaut=0,val_min=0)
-   _BlocFE['PRE_COND'       ] = SIMP(statut='f',typ='TXM',defaut="LUMPE",into=("LUMPE","SANS") )
-   _BlocFE['SCALING'        ] = SIMP(statut='f',typ='TXM',defaut="MULT",into=("SANS","MULT") )
-   _BlocFE['VERIF_SDFETI'   ] = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") )
-   _BlocFE['TEST_CONTINU'   ] = SIMP(statut='f',typ='R',defaut=1.E-8,val_min=0.)
-   _BlocFE['INFO_FETI'      ] = SIMP(statut='f',typ='TXM',defaut='FFFFFFFFFFFFFFFFFFFFFFFF')
-   _BlocFE['STOCKAGE_GI'    ] = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON","CAL") )
-   _BlocFE['NB_SD_PROC0'    ] = SIMP(statut='f',typ='I',defaut=0,val_min=0)
-   _BlocFE['ACCELERATION_SM'] = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") )
 
 # ----------------------------------------------------------------------------------------------------------------------------------
 #
@@ -4264,45 +4143,45 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
 
    mcfact = FACT(statut='d',
                  b_mult_front = BLOC(condition = "METHODE == 'MULT_FRONT' ",
-                                     fr="Paramètres de la méthode multi frontale",
+                                     fr="Paramètres de la méthode multi frontale",
                                      **_BlocMF
                                      ),
                  b_ldlt       = BLOC(condition = "METHODE == 'LDLT' ",
-                                     fr="Paramètres de la méthode LDLT",
+                                     fr="Paramètres de la méthode LDLT",
                                      **_BlocLD
                                      ),
                  b_mumps      = BLOC(condition = "METHODE == 'MUMPS' ",
-                                     fr="Paramètres de la méthode MUMPS",
+                                     fr="Paramètres de la méthode MUMPS",
                                      **_BlocMU
                                      ),
                  b_gcpc       = BLOC(condition = "METHODE == 'GCPC' ",
-                                      fr="Paramètres de la méthode du gradient conjugué",
+                                      fr="Paramètres de la méthode du gradient conjugué",
                                      b_ldltinc    = BLOC(condition = "PRE_COND == 'LDLT_INC' ",
-                                                         fr="Paramètres de la factorisation incomplète",
+                                                         fr="Paramètres de la factorisation incomplète",
                                                          **_BlocGC_INC
                                                          ),
                                      b_simple     = BLOC(condition = "PRE_COND == 'LDLT_SP' ",
-                                                         fr="Paramètres de la factorisation simple précision",
+                                                         fr="Paramètres de la factorisation simple précision",
                                                          **_BlocXX_SP
                                                          ),
                                      **_BlocGC
                                      ),
                  b_petsc      = BLOC(condition = "METHODE == 'PETSC' ",
-                                     fr="Paramètres de la méthode PETSC",
+                                     fr="Paramètres de la méthode PETSC",
                                      b_ldltinc    = BLOC(condition = "PRE_COND == 'LDLT_INC' ",
-                                                         fr="Paramètres de la factorisation incomplète",
+                                                         fr="Paramètres de la factorisation incomplète",
                                                          **_BlocPE_INC
                                                          ),
                                      b_simple     = BLOC(condition = "PRE_COND == 'LDLT_SP' ",
-                                                         fr="Paramètres de la factorisation simple précision",
+                                                         fr="Paramètres de la factorisation simple précision",
                                                          **_BlocXX_SP
                                                          ),
                                      b_ml         = BLOC(condition = "PRE_COND == 'ML' ",
-                                                         fr="Paramètres du multigrille algébrique ML",
+                                                         fr="Paramètres du multigrille algébrique ML",
                                                          **_BlocPE_ML
                                                          ),
                                      b_boomer        = BLOC(condition = "PRE_COND == 'BOOMER' ",
-                                                         fr="Paramètres du multigrille algébrique HYPRE",
+                                                         fr="Paramètres du multigrille algébrique HYPRE",
                                                          **_BlocPE_BOOMER
                                                          ),
                                      b_autres     = BLOC(condition = "PRE_COND == 'JACOBI' or \
@@ -4312,16 +4191,11 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
                                                          ),
                                      **_BlocPE
                                      ),
-                 b_feti       = BLOC(condition = "METHODE == 'FETI' ",
-                                     fr="Paramètres de la méthode FETI 1",
-                                     **_BlocFE
-                                     ),
                  **_MotCleSimples
                  )
 
    return mcfact
-#& MODIF COMMUN  DATE 11/09/2012   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -4338,7 +4212,7 @@ def C_SOLVEUR( COMMAND, BASE=None ) :  #COMMUN#
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ABBAS M.ABBAS
+# person_in_charge: mickael.abbas at edf.fr
 
 def C_SUIVI_DDL() : return FACT(statut='f',max=4,
 
@@ -4389,8 +4263,7 @@ def C_SUIVI_DDL() : return FACT(statut='f',max=4,
 
 
        );
-#& MODIF COMMUN  DATE 10/10/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -4407,15 +4280,15 @@ def C_SUIVI_DDL() : return FACT(statut='f',max=4,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 def C_TEST_REFERENCE(keyword, max=1):       #COMMUN#
-    """Mots-clés communs pour TEST_RESU, TEST_TABLE, TEST_FONCTION.
-    On retourne un bloc pour ajouter la règle UN_PARMI."""
+    """Mots-clés communs pour TEST_RESU, TEST_TABLE, TEST_FONCTION.
+    On retourne un bloc pour ajouter la règle UN_PARMI."""
     assert keyword in ('CHAM_NO', 'CHAM_ELEM', 'CARTE', 'RESU', 'GENE', 'OBJET',
                        'TABLE', 'FONCTION', 'FICHIER')
     with_int     = keyword not in ('FONCTION', 'FICHIER')
     with_complex = keyword not in ('OBJET', 'FICHIER')
-    with_string  = keyword in ('FICHIER', )
+    with_string  = keyword in ('FICHIER', 'TABLE')
     vale_abs     = keyword not in ('CARTE', 'FICHIER')
     type_test    = keyword not in ('CARTE', 'GENE', 'OBJET')
     multi_prec   = keyword in ('RESU', 'GENE')
@@ -4464,8 +4337,7 @@ def C_TEST_REFERENCE(keyword, max=1):       #COMMUN#
         )
     }
     return kwargs
-#& MODIF COMMUN  DATE 19/11/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -4482,7 +4354,7 @@ def C_TEST_REFERENCE(keyword, max=1):       #COMMUN#
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GNICOLAS G.NICOLAS
+# person_in_charge: gerald.nicolas at edf.fr
 #
 # ce fichier contient la liste des "into" possibles pour le mot cle TYPE_CHAM
 def C_TYPE_CHAM_INTO( type_cham=None ) : #COMMUN#
@@ -4508,8 +4380,6 @@ def C_TYPE_CHAM_INTO( type_cham=None ) : #COMMUN#
 
   return tuple(l)
 
-#& MODIF COMMANDE  DATE 22/04/2013   AUTEUR FLEJOU J-L.FLEJOU 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -4526,11 +4396,11 @@ def C_TYPE_CHAM_INTO( type_cham=None ) : #COMMUN#
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE FLEJOU J-L.FLEJOU
+# person_in_charge: jean-luc.flejou at edf.fr
 AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
-   fr="Affectation de caractéristiques à des éléments de structure",
+   fr="Affectation de caractéristiques à des éléments de structure",
    reentrant='n',
-   UIinfo ={"groupes":("Modélisation",)},
+   UIinfo ={"groupes":("Modélisation",)},
    regles = (AU_MOINS_UN('POUTRE','BARRE','COQUE','CABLE','DISCRET','DISCRET_2D','MASSIF',
                          'GRILLE','MEMBRANE','MULTIFIBRE','RIGI_PARASOL'),
              PRESENT_PRESENT('MULTIFIBRE','GEOM_FIBRE'),
@@ -4553,13 +4423,13 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
             TABLE_CARA           = SIMP(statut= 'f',typ=table_sdaster),
             NOM_SEC             = SIMP(statut= 'f',typ= 'TXM'),
             CARA                 = SIMP(statut= 'f',typ= 'TXM',validators= NoRepeat(),min= 4 ,max= 15,
-                                       fr= "A,IY,IZ,JX sont des paramètres obligatoires",
+                                       fr= "A,IY,IZ,JX sont des paramètres obligatoires",
                                        into= ("A","IY","IZ","AY","AZ","EY","EZ","JX","RY","RZ","RT",
                                              "JG","IYR2","IZR2","AI") ),
             VALE                    = SIMP(statut= 'f',typ= 'R',min= 4 ,max= 15), ),
          b_homothetique       = BLOC(condition = "VARI_SECT == 'HOMOTHETIQUE'",
             CARA                 = SIMP(statut= 'o',typ= 'TXM',validators= NoRepeat(),min= 8 ,max= 30,
-                                       fr= "A1,A2,IY1,IY2,IZ1,IZ2,JX1,JX2 sont des paramètres obligatoires",
+                                       fr= "A1,A2,IY1,IY2,IZ1,IZ2,JX1,JX2 sont des paramètres obligatoires",
                                        into= ("A1","IY1","IZ1","AY1","AZ1","EY1","EZ1","JX1","RY1",
                                              "RZ1","RT1","JG1","IYR21","IZR21","AI1",
                                              "A2","IY2","IZ2","AY2","AZ2","EY2","EZ2","JX2","RY2",
@@ -4586,12 +4456,12 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
          VARI_SECT            = SIMP(statut= 'f',typ= 'TXM',into= ("CONSTANT","HOMOTHETIQUE"),defaut= "CONSTANT"),
          b_constant           = BLOC(condition = "VARI_SECT == 'CONSTANT'",
             CARA                 = SIMP(statut= 'o',typ= 'TXM',validators= NoRepeat(),min= 1 ,max= 2,
-                                       fr= "R est un paramètre obligatoire",
+                                       fr= "R est un paramètre obligatoire",
                                        into= ("R","EP") ),
             VALE                 = SIMP(statut= 'o',typ= 'R',min= 1 ,max= 2), ),
          b_homothetique       = BLOC(condition = "VARI_SECT == 'HOMOTHETIQUE'",
             CARA                 = SIMP(statut= 'o',typ= 'TXM',validators= NoRepeat(),min= 2 ,max= 4,
-                                       fr= "R1, R2 sont des paramètres obligatoires",
+                                       fr= "R1, R2 sont des paramètres obligatoires",
                                        into= ("R1","R2","EP1","EP2") ),
             VALE                 = SIMP(statut= 'o',typ= 'R',min= 2 ,max= 4), ),
          MODI_METRIQUE     = SIMP(statut= 'f',typ= 'TXM',defaut= "NON",into= ("OUI","NON") ),
@@ -4665,14 +4535,14 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
 
       SYME                 = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),),
       b_SYME_OUI           = BLOC(condition="SYME=='OUI'",
-         fr="SYMETRIQUE: Affectation de matrices de rigidité, de masse ou d'amortissement à des mailles ou noeuds",
+         fr="SYMETRIQUE: Affectation de matrices de rigidité, de masse ou d'amortissement à des mailles ou noeuds",
          CARA                 = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=1,defaut="None",
             into=("K_T_D_N", "K_T_D_L", "K_TR_D_N", "K_TR_D_L", "K_T_N", "K_T_L", "K_TR_N", "K_TR_L",
                   "M_T_D_N", "M_T_D_L", "M_TR_D_N", "M_TR_D_L", "M_T_N", "M_T_L", "M_TR_N", "M_TR_L",
                   "A_T_D_N", "A_T_D_L", "A_TR_D_N", "A_TR_D_L", "A_T_N", "A_T_L", "A_TR_N", "A_TR_L",),),
-         #  Affection des caractéristiques de RIGIDITE/AMORTISSEMENT/MASSE
+         #  Affection des caractéristiques de RIGIDITE/AMORTISSEMENT/MASSE
          b_AK_T_D_N            = BLOC(condition = "((CARA=='K_T_D_N')or(CARA=='A_T_D_N'))",
-            fr="NOEUD: 3 valeurs (triangulaire supérieure par colonne)",
+            fr="NOEUD: 3 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
             NOEUD                = SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -4680,13 +4550,13 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
             GROUP_NO             = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=3 ,max=3 ),),
          b_AK_T_D_L            = BLOC(condition = "((CARA=='K_T_D_L')or(CARA=='A_T_D_L'))",
-            fr="SEGMENT: 3 valeurs (triangulaire supérieure par colonne)",
+            fr="SEGMENT: 3 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA'),),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
             GROUP_MA             = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=3 ,max=3 ),),
          b_AK_TR_D_N           = BLOC(condition = "((CARA=='K_TR_D_N')or(CARA=='A_TR_D_N'))",
-            fr="NOEUD: 6 valeurs (triangulaire supérieure par colonne)",
+            fr="NOEUD: 6 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
             NOEUD                = SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -4694,13 +4564,13 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
             GROUP_NO             = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=6 ,max=6 ),),
          b_AK_TR_D_L           = BLOC(condition = "((CARA=='K_TR_D_L')or(CARA=='A_TR_D_L'))",
-            fr="SEGMENT: 6 valeurs (triangulaire supérieure par colonne)",
+            fr="SEGMENT: 6 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA'),),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
             GROUP_MA             = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=6 ,max=6 ),),
          b_MAK_T_N              = BLOC(condition = "((CARA=='K_T_N')or(CARA=='A_T_N')or(CARA=='M_T_N'))",
-            fr="NOEUD: 6 valeurs (triangulaire supérieure par colonne)",
+            fr="NOEUD: 6 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
             NOEUD                = SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -4708,13 +4578,13 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
             GROUP_NO             = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=6 ,max=6 ),),
          b_MAK_T_L              = BLOC(condition = "((CARA=='K_T_L')or(CARA=='A_T_L')or(CARA=='M_T_L'))",
-            fr="SEGMENT: 21 valeurs (triangulaire supérieure par colonne)",
+            fr="SEGMENT: 21 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA'),),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
             GROUP_MA             = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=21,max=21),),
          b_MAK_TR_N             = BLOC(condition = "((CARA=='K_TR_N')or(CARA=='A_TR_N')or(CARA=='M_TR_N'))",
-            fr="NOEUD: 21 valeurs (triangulaire supérieure par colonne)",
+            fr="NOEUD: 21 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
             NOEUD                = SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -4722,12 +4592,12 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
             GROUP_NO             = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=21,max=21),),
          b_MAK_TR_L             = BLOC(condition = "((CARA=='K_TR_L')or(CARA=='A_TR_L')or(CARA=='M_TR_L'))",
-            fr="SEGMENT: 78 valeurs (triangulaire supérieure par colonne)",
+            fr="SEGMENT: 78 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA'),),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
             GROUP_MA             = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=78,max=78),),
-         #  Affection des caractéristiques de MASSE
+         #  Affection des caractéristiques de MASSE
          b_M_T_D_N           = BLOC(condition = "(CARA=='M_T_D_N')",
             fr="NOEUD: 1 valeur de masse",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
@@ -4761,18 +4631,18 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
             GROUP_NO             = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=4,max=4),),
       ),
-      #     éléments à matrice non-symétrique
+      #     éléments à matrice non-symétrique
       #        b_MAK_T_N_NS       'K_T_N'     'A_T_N'    'M_T_N'
       #        b_MAK_T_L_NS       'K_T_L'     'A_T_L'    'M_T_L'
       #        b_MAK_TR_N_NS      'K_TR_N'    'A_TR_N'   'M_TR_N'
       #        b_MAK_TR_L_NS      'K_TR_L'    'A_TR_L'   'M_TR_L'
       b_SYME_NON           = BLOC(condition="SYME=='NON'",
-         fr="NON-SYMETRIQUE: Affectation de matrices de rigidité, de masse ou d'amortissement à des mailles ou noeuds",
+         fr="NON-SYMETRIQUE: Affectation de matrices de rigidité, de masse ou d'amortissement à des mailles ou noeuds",
          CARA                 = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=1,defaut="None",
             into=("K_T_N", "K_T_L", "K_TR_N", "K_TR_L",
                   "M_T_N", "M_T_L", "M_TR_N", "M_TR_L",
                   "A_T_N", "A_T_L", "A_TR_N", "A_TR_L",),),
-         #  Affection des caractéristiques de RIGIDITE/AMORTISSEMENT/MASSE : NON-SYMETRIQUE
+         #  Affection des caractéristiques de RIGIDITE/AMORTISSEMENT/MASSE : NON-SYMETRIQUE
          b_MAK_T_N_NS           = BLOC(condition = "((CARA=='K_T_N')or(CARA=='A_T_N')or(CARA=='M_T_N'))",
             fr="NOEUD: 9 valeurs (matrice pleine par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
@@ -4809,14 +4679,14 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
       AMOR_HYST            = SIMP(statut='f',typ='R' ),
       SYME                 = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),),
       b_SYME_OUI           = BLOC(condition="SYME=='OUI'",
-         fr="SYMETRIQUE: Affectation de matrices de rigidité, de masse ou d'amortissement à des mailles ou noeuds",
+         fr="SYMETRIQUE: Affectation de matrices de rigidité, de masse ou d'amortissement à des mailles ou noeuds",
          CARA                 = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=1,defaut="None",
             into=("K_T_D_N", "K_T_D_L", "K_TR_D_N", "K_TR_D_L", "K_T_N", "K_T_L", "K_TR_N", "K_TR_L",
                   "M_T_D_N", "M_T_D_L", "M_TR_D_N", "M_TR_D_L", "M_T_N", "M_T_L", "M_TR_N", "M_TR_L",
                   "A_T_D_N", "A_T_D_L", "A_TR_D_N", "A_TR_D_L", "A_T_N", "A_T_L", "A_TR_N", "A_TR_L",),),
-         #  Affection des caractéristiques de RIGIDITE/AMORTISSEMENT/MASSE
+         #  Affection des caractéristiques de RIGIDITE/AMORTISSEMENT/MASSE
          b_AK_T_D_N            = BLOC(condition = "((CARA=='K_T_D_N')or(CARA=='A_T_D_N'))",
-            fr="NOEUD: 2 valeurs (triangulaire supérieure par colonne)",
+            fr="NOEUD: 2 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
             NOEUD                = SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -4824,13 +4694,13 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
             GROUP_NO             = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=2 ,max=2 ),),
          b_AK_T_D_L            = BLOC(condition = "((CARA=='K_T_D_L')or(CARA=='A_T_D_L'))",
-            fr="SEGMENT: 2 valeurs (triangulaire supérieure par colonne)",
+            fr="SEGMENT: 2 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA'),),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
             GROUP_MA             = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=2 ,max=2 ),),
          b_AK_TR_D_N           = BLOC(condition = "((CARA=='K_TR_D_N')or(CARA=='A_TR_D_N'))",
-            fr="NOEUD: 3 valeurs (triangulaire supérieure par colonne)",
+            fr="NOEUD: 3 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
             NOEUD                = SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -4838,13 +4708,13 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
             GROUP_NO             = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=3 ,max=3 ),),
          b_AK_TR_D_L           = BLOC(condition = "((CARA=='K_TR_D_L')or(CARA=='A_TR_D_L'))",
-            fr="SEGMENT: 3 valeurs (triangulaire supérieure par colonne)",
+            fr="SEGMENT: 3 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA'),),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
             GROUP_MA             = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=3 ,max=3 ),),
          b_MAK_T_N              = BLOC(condition = "((CARA=='K_T_N')or(CARA=='A_T_N')or(CARA=='M_T_N'))",
-            fr="NOEUD: 3 valeurs (triangulaire supérieure par colonne)",
+            fr="NOEUD: 3 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
             NOEUD                = SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -4852,13 +4722,13 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
             GROUP_NO             = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=3 ,max=3 ),),
          b_MAK_T_L              = BLOC(condition = "((CARA=='K_T_L')or(CARA=='A_T_L')or(CARA=='M_T_L'))",
-            fr="SEGMENT: 10 valeurs (triangulaire supérieure par colonne)",
+            fr="SEGMENT: 10 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA'),),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
             GROUP_MA             = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=10,max=10),),
          b_MAK_TR_N             = BLOC(condition = "((CARA=='K_TR_N')or(CARA=='A_TR_N')or(CARA=='M_TR_N'))",
-            fr="NOEUD: 6 valeurs (triangulaire supérieure par colonne)",
+            fr="NOEUD: 6 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
            NOEUD                = SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -4866,12 +4736,12 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
             GROUP_NO             = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=6 ,max=6),),
          b_MAK_TR_L             = BLOC(condition = "((CARA=='K_TR_L')or(CARA=='A_TR_L')or(CARA=='M_TR_L'))",
-            fr="SEGMENT: 21 valeurs (triangulaire supérieure par colonne)",
+            fr="SEGMENT: 21 valeurs (triangulaire supérieure par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA'),),
             MAILLE               = SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
             GROUP_MA             = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=21,max=21),),
-         #  Affection des caractéristiques de MASSE
+         #  Affection des caractéristiques de MASSE
          b_M_T_D_N            = BLOC(condition = "(CARA=='M_T_D_N')",
             fr="NOEUD: 1 valeur de masse",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
@@ -4905,18 +4775,18 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
             GROUP_NO             = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
             VALE                 = SIMP(statut='o',typ='R',min=2 ,max=2 ),),
       ),
-      #     éléments à matrice non-symétrique
+      #     éléments à matrice non-symétrique
       #        b_MAK_T_N_NS       'K_T_N'     'A_T_N'    'M_T_N'
       #        b_MAK_T_L_NS       'K_T_L'     'A_T_L'    'M_T_L'
       #        b_MAK_TR_N_NS      'K_TR_N'    'A_TR_N'   'M_TR_N'
       #        b_MAK_TR_L_NS      'K_TR_L'    'A_TR_L'   'M_TR_L'
       b_SYME_NON           = BLOC(condition="SYME=='NON'",
-         fr="NON-SYMETRIQUE: Affectation de matrices de rigidité, de masse ou d'amortissement à des mailles ou noeuds",
+         fr="NON-SYMETRIQUE: Affectation de matrices de rigidité, de masse ou d'amortissement à des mailles ou noeuds",
          CARA                 = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=1,defaut="None",
             into=("K_T_N", "K_T_L", "K_TR_N", "K_TR_L",
                   "M_T_N", "M_T_L", "M_TR_N", "M_TR_L",
                   "A_T_N", "A_T_L", "A_TR_N", "A_TR_L",),),
-         #  Affection des caractéristiques de RIGIDITE/AMORTISSEMENT/MASSE : NON-SYMETRIQUE
+         #  Affection des caractéristiques de RIGIDITE/AMORTISSEMENT/MASSE : NON-SYMETRIQUE
          b_MAK_T_N_NS           = BLOC(condition = "((CARA=='K_T_N')or(CARA=='A_T_N')or(CARA=='M_T_N'))",
             fr="NOEUD: 4 valeurs (matrice pleine par colonne)",
             regles               = (UN_PARMI('MAILLE','GROUP_MA','NOEUD','GROUP_NO'),),
@@ -5056,7 +4926,7 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
                               UN_PARMI('COOR_CENTRE','NOEUD_CENTRE','GROUP_NO_CENTRE'),
                               EXCLUS('GROUP_MA_POI1','GROUP_MA_SEG2'),),
       GROUP_MA             = SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**',
-         fr="Surface servant à répartir les caractéristiques des discrets"),
+         fr="Surface servant à répartir les caractéristiques des discrets"),
       GROUP_MA_POI1        = SIMP(statut='f',typ=grma,validators=NoRepeat(),max=1,
          fr="Mailles de type point correspondant aux discrets"),
       GROUP_MA_SEG2        = SIMP(statut='f',typ=grma,validators=NoRepeat(),max=1,
@@ -5093,7 +4963,7 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
 #============================================================================
    MASS_AJOU            = FACT(statut='f',max='**',
       GROUP_MA             = SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**',
-         fr="Surface servant à répartir les caractéristiques des discrets"),
+         fr="Surface servant à répartir les caractéristiques des discrets"),
       GROUP_MA_POI1        = SIMP(statut='o',typ=grma,validators=NoRepeat(),max=1,
          fr="Mailles de type point correspondant aux discrets"),
       FONC_GROUP           = SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
@@ -5112,8 +4982,7 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
       PREC_INERTIE         = SIMP(statut= 'f',typ= 'R',defaut= 0.1),
    ),
 );
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -5130,25 +4999,28 @@ AFFE_CARA_ELEM=OPER(nom="AFFE_CARA_ELEM",op=  19,sd_prod=cara_elem,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE None
+#
 AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op=  68,sd_prod=char_acou,
                     fr="Affectation de charges et conditions aux limites acoustiques constantes",
                     reentrant='n',
             UIinfo={"groupes":("Chargements","Acoustique",)},
          regles=(AU_MOINS_UN('PRES_IMPO','VITE_FACE','IMPE_FACE','LIAISON_UNIF' ),),
          MODELE          =SIMP(statut='o',typ=modele_sdaster ),
-         VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
-         METHODE         =SIMP(statut='c',typ='TXM',fr="Stratégie de résolution pour les pressions imposées",
+         METHODE         =SIMP(statut='c',typ='TXM',fr="Stratégie de résolution pour les pressions imposées",
                                into=('DUALISATION',),defaut='DUALISATION',),
-                               # METHODE='ELIMINATION' est traité dans le fortran mais dangereux actuellement
+                               # METHODE='ELIMINATION' est traité dans le fortran mais dangereux actuellement
          PRES_IMPO       =FACT(statut='f',max='**',
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
-           TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
-           GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
-           MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
-           GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-           NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
-           PRES            =SIMP(statut='o',typ='C' ),
+             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+             GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             PRES            =SIMP(statut='o',typ='C' ),
          ),
          VITE_FACE       =FACT(statut='f',max='**',
              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
@@ -5175,8 +5047,7 @@ AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op=  68,sd_prod=char_acou,
            DDL             =SIMP(statut='o',typ='TXM',max='**'),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -5193,7 +5064,7 @@ AFFE_CHAR_ACOU=OPER(nom="AFFE_CHAR_ACOU",op=  68,sd_prod=char_acou,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,EVOL_IMPO,**args):
   if MECA_IMPO != None  : return char_cine_meca
   if THER_IMPO != None  : return char_cine_ther
@@ -5204,15 +5075,15 @@ def affe_char_cine_prod(MECA_IMPO,THER_IMPO,ACOU_IMPO,EVOL_IMPO,**args):
       elif AsType(EVOL_IMPO) in (evol_ther,) :
           return char_cine_ther
       else :
-          raise AsException("Extension à faire ...")
+          raise AsException("Extension à faire ...")
 
   raise AsException("type de concept resultat non prevu")
 
 
 AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
-                    ,fr="Affectation de conditions aux limites cinématiques (U=U0) pour un traitement sans dualisation",
+                    ,fr="Affectation de conditions aux limites cinématiques (U=U0) pour un traitement sans dualisation",
                      reentrant='n',
-            UIinfo={"groupes":("Chargements","Mécanique",)},
+            UIinfo={"groupes":("Chargements","Mécanique",)},
          regles=(UN_PARMI('MECA_IMPO','THER_IMPO','ACOU_IMPO','EVOL_IMPO'),
                  ),
          MODELE          =SIMP(statut='o',typ=modele_sdaster ),
@@ -5227,7 +5098,7 @@ AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
                                'H1X','H1Y','H1Z','E1X','E1Y','E1Z','E2X','E2Y','E2Z',
                                'E3X','E3Y','E3Z','E4X','E4Y','E4Z','V11','V12','V13','V21','V22',
                                'V23','V31','V32','V33','PRES11','PRES12','PRES13','PRES21',
-                               'PRES22','PRES23','PRES31','PRES32','PRES33','LH1'),),
+                               'PRES22','PRES23','PRES31','PRES32','PRES33','LH1','GLIS'),),
              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -5313,6 +5184,7 @@ AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
              PRES32          =SIMP(statut='f',typ='R' ),
              PRES33          =SIMP(statut='f',typ='R' ),
              LH1             =SIMP(statut='f',typ='R' ),
+             GLIS            =SIMP(statut='f',typ='R' ),
          ),
 
          THER_IMPO       =FACT(statut='f',max='**',
@@ -5341,13 +5213,12 @@ AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
 
          EVOL_IMPO  =SIMP(statut='f',typ=(evol_noli,evol_elas,evol_ther),fr="Pour imposer les ddls d'un evol_xxx"),
          b_evol_impo = BLOC ( condition = "EVOL_IMPO != None",
-           NOM_CMP         =SIMP(statut='f',typ='TXM',max='**',), # pour n'imposer que certaines CMPS (par défaut : toutes)
+           NOM_CMP         =SIMP(statut='f',typ='TXM',max='**',), # pour n'imposer que certaines CMPS (par défaut : toutes)
          ),
 
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -5364,17 +5235,17 @@ AFFE_CHAR_CINE=OPER(nom="AFFE_CHAR_CINE",op= 101,sd_prod=affe_char_cine_prod
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 def affe_char_cine_f_prod(MECA_IMPO,THER_IMPO,**args):
   if MECA_IMPO != None  : return char_cine_meca
   if THER_IMPO != None  : return char_cine_ther
   raise AsException("type de concept resultat non prevu")
 
 AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 101,sd_prod=affe_char_cine_f_prod,
-                      fr="Affectation de conditions aux limites cinématiques fonction d'un (ou plusieurs) paramètres"
+                      fr="Affectation de conditions aux limites cinématiques fonction d'un (ou plusieurs) paramètres"
                         +" pour un traitement sans dualisation",
                      reentrant='n',
-            UIinfo={"groupes":("Chargements","Mécanique",)},
+            UIinfo={"groupes":("Chargements","Mécanique",)},
          regles=(UN_PARMI('MECA_IMPO','THER_IMPO')),
          MODELE          =SIMP(statut='o',typ=modele_sdaster ),
          MECA_IMPO       =FACT(statut='f',max='**',
@@ -5387,7 +5258,7 @@ AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 101,sd_prod=affe_char_cine_f_pr
                                'H1X','H1Y','H1Z','E1X','E1Y','E1Z','E2X','E2Y','E2Z',
                                'E3X','E3Y','E3Z','E4X','E4Y','E4Z','V11','V12','V13','V21','V22',
                                'V23','V31','V32','V33','PRES11','PRES12','PRES13','PRES21',
-                               'PRES22','PRES23','PRES31','PRES32','PRES33','LH1'),),
+                               'PRES22','PRES23','PRES31','PRES32','PRES33','LH1','GLIS'),),
            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
            GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
            MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -5473,6 +5344,7 @@ AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 101,sd_prod=affe_char_cine_f_pr
            PRES32=SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
            PRES33=SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
            LH1   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+           GLIS  =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
 
          ),
          THER_IMPO       =FACT(statut='f',max='**',
@@ -5490,8 +5362,7 @@ AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 101,sd_prod=affe_char_cine_f_pr
          ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 07/05/2013   AUTEUR DESOZA T.DESOZA 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -5508,16 +5379,16 @@ AFFE_CHAR_CINE_F=OPER(nom="AFFE_CHAR_CINE_F",op= 101,sd_prod=affe_char_cine_f_pr
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: mickael.abbas at edf.fr
 AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
-                    fr="Affectation de charges et conditions aux limites mécaniques constantes",
+                    fr="Affectation de charges et conditions aux limites mécaniques constantes",
                      reentrant='n',
-            UIinfo={"groupes":("Chargements","Mécanique",)},
+            UIinfo={"groupes":("Chargements","Mécanique",)},
          regles=(AU_MOINS_UN('EVOL_CHAR','PESANTEUR','ROTATION','DDL_IMPO','DDL_POUTRE','FACE_IMPO',
                              'CHAMNO_IMPO','ARETE_IMPO',
                              'LIAISON_DDL','LIAISON_OBLIQUE','LIAISON_GROUP','LIAISON_MAIL',
                              'LIAISON_CYCL','LIAISON_SOLIDE','LIAISON_ELEM','LIAISON_UNIF',
-                             'LIAISON_CHAMNO','LIAISON_RBE3','LIAISON_INTERF','LIAISON_XFEM',
+                             'LIAISON_CHAMNO','LIAISON_RBE3','LIAISON_INTERF',
                              'VECT_ASSE',
                              'FORCE_NODALE','FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
                              'PRE_SIGM','PRES_REP','EFFE_FOND','PRE_EPSI','FORCE_POUTRE','FORCE_TUYAU',
@@ -5535,23 +5406,24 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
             GRAVITE          =SIMP(statut='o',typ='R',min=1,max=1),
             DIRECTION        =SIMP(statut='o',typ='R',min=3,max=3),),
 
-         METHODE         =SIMP(statut='c',typ='TXM',fr="Stratégie de résolution pour les déplacements imposés",
+         METHODE         =SIMP(statut='c',typ='TXM',fr="Stratégie de résolution pour les déplacements imposés",
                                into=('DUALISATION',),defaut='DUALISATION',),
-                               # METHODE='ELIMINATION' est traité dans le fortran mais dangereux actuellement
-
-         ROTATION        =FACT(statut='f', max=1, fr="Définition d'un chargement de rotation",
-                       GROUP_MA = SIMP(statut='f',typ=grma,validators=NoRepeat(), max='**'),
-                       MAILLE   = SIMP(statut='f',typ=ma, validators=NoRepeat(),max='**'),
-                       VITESSE  = SIMP(statut='o', typ='R',min=1,max=1),
-                       AXE      = SIMP(statut='o', typ='R',min=2, max=3),
-                       CENTRE   = SIMP(statut='f',typ='R',defaut=(0.,0.,0.),max=3),
-         b_rotation_tout=BLOC(condition="(GROUP_MA == None) and (MAILLE ==None)",
-                       TOUT     = SIMP(statut='f',typ='TXM',into=("OUI",),defaut="OUI",),),
-         b_rotation=BLOC(condition="(GROUP_MA != None) or (MAILLE !=None)",
-                       TOUT     = SIMP(statut='f',typ='TXM',into=("NON","OUI"),defaut="NON",),),),
+                               # METHODE='ELIMINATION' est traité dans le fortran mais dangereux actuellement
+
+         ROTATION        =FACT(statut='f', max=1, 
+             fr="Définition d'un chargement de rotation",
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(), max='**'),
+             MAILLE          =SIMP(statut='f',typ=ma, validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             VITESSE         =SIMP(statut='o', typ='R',min=1,max=1),
+             AXE             =SIMP(statut='o', typ='R',min=2, max=3),
+             CENTRE          =SIMP(statut='f',typ='R',min=2, max=3),
+             b_rotation_tout=BLOC(condition="(GROUP_MA == None) and (MAILLE ==None)",
+                       TOUT     = SIMP(statut='f',typ='TXM',into=("OUI",),defaut="OUI",),),),
 
          DDL_IMPO        =FACT(statut='f',max='**',
-             fr="Impose à des noeuds une ou plusieurs valeurs de déplacement (ou de certaines grandeurs asscociées)",
+             fr="Impose à des noeuds une ou plusieurs valeurs de déplacement (ou de certaines grandeurs asscociées)",
              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
                                  'TEMP','PRE1','PRE2','UI2','UI3','VI2','VI3','WI2','WI3','UO2',
@@ -5562,12 +5434,16 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
                                  'E1X','E1Y','E1Z','E2X','E2Y','E2Z','E3X','E3Y','E3Z','E4X','E4Y','E4Z',
                                  'LAGS_C','LAGS_F1','LAGS_F2','LAG2_C','LAG2_F1','LAG2_F2','LAG3_C','LAG3_F1',
                                  'V11','V12','V13','V21','V22','V23','V31','V32','V33',
-                                 'PRES11','PRES12','PRES13','PRES21','PRES22','PRES23','PRES31','PRES32','PRES33','LH1'),),
+                                 'PRES11','PRES12','PRES13','PRES21','PRES22','PRES23','PRES31','PRES32','PRES33','LH1','GLIS'),),
              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
              GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
              NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
              LIAISON         =SIMP(statut='f',typ='TXM',into=('ENCASTRE',)),
              DX              =SIMP(statut='f',typ='R' ),
              DY              =SIMP(statut='f',typ='R' ),
@@ -5666,35 +5542,45 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
              PRES32          =SIMP(statut='f',typ='R' ),
              PRES33          =SIMP(statut='f',typ='R' ),
              LH1             =SIMP(statut='f',typ='R' ),
+             GLIS            =SIMP(statut='f',typ='R' ),
            ),
 
 
 
          DDL_POUTRE    =FACT(statut='f',max='**',
-             fr="Bloque des DDLs dans un repère local d'une poutre",
-             regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
+             fr="Bloque des DDLs dans un repère local d'une poutre",
+             regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ'),
                      UN_PARMI('VECT_Y','ANGL_VRIL'),),
+             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
              GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
              NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+
+
              DX              =SIMP(statut='f',typ='R' ),
              DY              =SIMP(statut='f',typ='R' ),
              DZ              =SIMP(statut='f',typ='R' ),
              DRX             =SIMP(statut='f',typ='R' ),
              DRY             =SIMP(statut='f',typ='R' ),
              DRZ             =SIMP(statut='f',typ='R' ),
-#  définition du repère local
+#  définition du repère local
              VECT_Y          =SIMP(statut='f',typ='R',min=3,max=3),
              ANGL_VRIL       =SIMP(statut='f',typ='R',),
-#  restriction sur les mailles servant à définir le repère local
-             GROUP_MA        =SIMP(statut='f',typ=grma,),
-             MAILLE          =SIMP(statut='f',typ=ma,),
+#  restriction sur les mailles servant à définir le repère local
+             GROUP_MA_REPE   =SIMP(statut='f',typ=grma,),
+             MAILLE_REPE     =SIMP(statut='f',typ=ma,),
                             ),
 
 
 
            FACE_IMPO       =FACT(statut='f',max='**',
-             fr="Impose à tous les noeuds d'une face une ou plusieurs valeurs de déplacement (ou de certaines grandeurs associées)",
+             fr="Impose à tous les noeuds d'une face une ou plusieurs valeurs de déplacement (ou de certaines grandeurs associées)",
              regles=(UN_PARMI('GROUP_MA','MAILLE',),
                      AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
                                  'TEMP','PRE1','PRE2','DNOR','DTAN'),
@@ -5710,7 +5596,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
                      EXCLUS('DTAN','DRX'),
                      EXCLUS('DTAN','DRY'),
                      EXCLUS('DTAN','DRZ'),),
-#  rajout d'un mot clé REPERE :/ LOCAL /GLOBAL
+#  rajout d'un mot clé REPERE :/ LOCAL /GLOBAL
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
              SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -5742,7 +5628,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
          ARETE_IMPO       =FACT(statut='f',max='**',
-             fr="Impose à tous les noeuds d'une arete des elements 3D une ou plusieurs valeurs de déplacement",
+             fr="Impose à tous les noeuds d'une arete des elements 3D une ou plusieurs valeurs de déplacement",
              regles=(UN_PARMI('GROUP_MA','MAILLE',),
                      AU_MOINS_UN('DX','DY','DZ','DTAN','PRES','PHI','TEMP','PRE1','PRE2'),
                      EXCLUS('DTAN','DX'),
@@ -5766,7 +5652,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
            LIAISON_DDL     =FACT(statut='f',max='**',
-             fr="Définit une relation linéaire entre des DDLs de deux ou plusieurs noeuds",
+             fr="Définit une relation linéaire entre des DDLs de deux ou plusieurs noeuds",
              regles=(UN_PARMI('GROUP_NO','NOEUD'),),
              GROUP_NO        =SIMP(statut='f',typ=grno ,max='**'),
              NOEUD           =SIMP(statut='f',typ=no   ,max='**'),
@@ -5776,12 +5662,18 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
            LIAISON_OBLIQUE =FACT(statut='f',max='**',
-             fr="Applique à des noeuds la meme valeur de déplacement définie composante par composante"
-              +" dans un repère oblique quelconque",
-             regles=(UN_PARMI('GROUP_NO','NOEUD'),
-                     UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
+             fr="Applique à des noeuds la meme valeur de déplacement définie composante par composante"
+              +" dans un repère oblique quelconque",
+             regles=(AU_MOINS_UN('GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
+                     AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ'),),
              GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
              NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
              ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
              DX              =SIMP(statut='f',typ='R' ),
              DY              =SIMP(statut='f',typ='R' ),
@@ -5792,7 +5684,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
            LIAISON_GROUP   =FACT(statut='f',max='**',
-             fr="Définit la meme relation linéaire entre certains DDLs de couples de noeuds",
+             fr="Définit la meme relation linéaire entre certains DDLs de couples de noeuds",
              regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
                      UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
                      EXCLUS('GROUP_MA_1','GROUP_NO_2'),
@@ -5828,7 +5720,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
            LIAISON_MAIL    =FACT(statut='f',max='**',
-             fr="Définit des relations linéaires permettant de recoller deux bords d'une structure",
+             fr="Définit des relations linéaires permettant de recoller deux bords d'une structure",
              regles=(AU_MOINS_UN('GROUP_MA_MAIT','MAILLE_MAIT'),
                      AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL')),
               GROUP_MA_MAIT   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -5856,7 +5748,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
          ),
 
            LIAISON_CYCL    =FACT(statut='f',max='**',
-             fr="Définit des relations linéaires permettant de recoller les bords de deux parties symétriquement cycliques",
+             fr="Définit des relations linéaires permettant de recoller les bords de deux parties symétriquement cycliques",
              regles=(AU_MOINS_UN('GROUP_MA_MAIT1','MAILLE_MAIT1'),
                      AU_MOINS_UN('GROUP_MA_ESCL','MAILLE_ESCL','GROUP_NO_ESCL','NOEUD_ESCL'),
                      PRESENT_PRESENT('DDL_MAIT','DDL_ESCL'),
@@ -5880,24 +5772,27 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
          ),
 
 
-           LIAISON_SOLIDE  =FACT(statut='f',max='**',
-             fr="Modélise une partie indéformable d'une structure."
-              +" Les mots clés TRAN et ANGL_NAUT permettent d'imposer le déplacement de la partie indéformable.",
-             regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
-                     ENSEMBLE('CENTRE','ANGL_NAUT'),),
+           LIAISON_SOLIDE  =FACT(statut='f',max='**',
+             fr="Modélise une partie indéformable d'une structure."
+              +" Le mot clé TRAN permettent d'imposer le déplacement de la partie indéformable.",
+             regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
+
              GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
              NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+
              TRAN            =SIMP(statut='f',typ='R',max=3 ),
-             ANGL_NAUT       =SIMP(statut='f',typ='R',max=3 ),
-             CENTRE          =SIMP(statut='f',typ='R',max=3 ),
              DIST_MIN        =SIMP(statut='f',typ='R'),
              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
            ),
 
          LIAISON_ELEM    =FACT(statut='f',max='**',
-            fr="Modélise le raccord : d'une partie massive 3D avec une poutre ou avec un tuyau, d'une coque"
+            fr="Modélise le raccord : d'une partie massive 3D avec une poutre ou avec un tuyau, d'une coque"
                +" avec une poutre ou avec un tuyau, d'une plaque avec une poutre",
             regles      =(UN_PARMI('GROUP_MA_1','MAILLE_1'), UN_PARMI('GROUP_NO_2','NOEUD_2'),),
             OPTION      =SIMP(statut='o',typ='TXM',into=("3D_TUYAU","3D_POU","2D_POU","COQ_POU","COQ_TUYAU","PLAQ_POUT_ORTH") ),
@@ -5923,17 +5818,23 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
          ),
 
            LIAISON_UNIF    =FACT(statut='f',max='**',
-             fr="Impose une meme valeur (inconnue) à des DDLs d'un ensemble de noeuds",
+             fr="Impose une meme valeur (inconnue) à des DDLs d'un ensemble de noeuds",
              regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
+
              GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
              NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+
              DDL             =SIMP(statut='o',typ='TXM',max='**'),
            ),
 
          LIAISON_CHAMNO  =FACT(statut='f',max='**',
-             fr="Définit une relation linéaire entre tous les DDLs présents dans un concept CHAM_NO",
+             fr="Définit une relation linéaire entre tous les DDLs présents dans un concept CHAM_NO",
 #  type de cham_no_sdaster CO()
              CHAM_NO         =SIMP(statut='o',typ=cham_no_sdaster), #CO()
              COEF_IMPO       =SIMP(statut='o',typ='R' ),
@@ -5941,8 +5842,8 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
          LIAISON_RBE3    =FACT(statut='f',max='**',
-            fr="""Modélise des relations linéaires de type RBE3 entre
-                les degrés de liberté d'un noeud maître et des noeuds esclaves.""",
+            fr="""Modélise des relations linéaires de type RBE3 entre
+                les degrés de liberté d'un noeud maître et des noeuds esclaves.""",
             regles          =(UN_PARMI('GROUP_NO_MAIT','NOEUD_MAIT'), UN_PARMI('GROUP_NO_ESCL','NOEUD_ESCL'),),
             GROUP_NO_MAIT   =SIMP(statut='f',typ=grno,max=1),
             NOEUD_MAIT      =SIMP(statut='f',typ=no  ,max=1),
@@ -5955,23 +5856,18 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
          ),
 
          LIAISON_INTERF  =FACT(statut='f',max='**',
-             fr="Définit une relation linéaire entre les DDLs d'interface à partir d'un MACRELEM",
+             fr="Définit une relation linéaire entre les DDLs d'interface à partir d'un MACRELEM",
              MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna),
              TYPE_LIAISON    =SIMP(statut='f',typ='TXM',defaut="RIGIDE",into=("RIGIDE","SOUPLE") ),
            ),
 
-         LIAISON_XFEM      =SIMP(statut='f',typ='TXM',into=("OUI",),),
-
-         CONTACT_XFEM      =SIMP(statut='f',typ=char_contact,min=1,max=1,),
-
-
 #         SIMP(statut='f',typ='TXM',defaut="NON" ),
 
          VECT_ASSE       =SIMP(statut='f',typ=cham_no_sdaster ),
 #
 # FORCES
 #
-         FORCE_NODALE    =FACT(statut='f',fr="Applique à des noeuds des forces nodales",max='**',
+         FORCE_NODALE    =FACT(statut='f',fr="Applique à des noeuds des forces nodales",max='**',
            regles=(AU_MOINS_UN('GROUP_NO','NOEUD'),
                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
            GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
@@ -5986,7 +5882,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
          ),
 
          FORCE_FACE      =FACT(statut='f',max='**',
-             fr="Applique des forces surfaciques sur une face d'élément volumique",
+             fr="Applique des forces surfaciques sur une face d'élément volumique",
              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
                      AU_MOINS_UN('FX','FY','FZ'),),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -5997,7 +5893,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
          FORCE_ARETE     =FACT(statut='f',max='**',
-         fr="Applique des forces linéiques à une arete d'élément volumique ou de coque",
+         fr="Applique des forces linéiques à une arete d'élément volumique ou de coque",
              regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),
                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ' ),),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -6011,7 +5907,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
          FORCE_CONTOUR   =FACT(statut='f',max='**',
-             fr="Applique des forces linéiques au bord d'un domaine 2D ou AXIS ou AXIS_FOURIER",
+             fr="Applique des forces linéiques au bord d'un domaine 2D ou AXIS ou AXIS_FOURIER",
              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -6025,7 +5921,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
          FORCE_INTERNE   =FACT(statut='f',max='**',
-             fr="Applique des forces volumiques (2D ou 3D) à un domaine volumique",
+             fr="Applique des forces volumiques (2D ou 3D) à un domaine volumique",
              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
                      AU_MOINS_UN('FX','FY','FZ' ),),
@@ -6038,13 +5934,13 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
          PRE_SIGM   =FACT(statut='f',max='**',
-             fr="Applique des contraintes volumiques (2D ou 3D) à un domaine volumique",
+             fr="Applique des contraintes volumiques (2D ou 3D) à un domaine volumique",
              #INST            =SIMP(statut='f',typ='R' ),
              SIGM            =SIMP(statut='o',typ=(cham_elem,carte_sdaster)),
            ),
 
          PRES_REP        =FACT(statut='f',max='**',
-             fr="Applique une pression à un domaine de milieu continu 2D ou 3D, ou à un domaine de coques et tuyaux",
+             fr="Applique une pression à un domaine de milieu continu 2D ou 3D, ou à un domaine de coques et tuyaux",
              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','FISSURE'),
                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE','FISSURE'),
                      AU_MOINS_UN('PRES','CISA_2D' ),),
@@ -6057,7 +5953,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
          EFFE_FOND       =FACT(statut='f',max='**',
-           fr="Calcul l'effet de fond sur une branche de tuyauterie (modélisation 3D) soumise à une pression",
+           fr="Calcul l'effet de fond sur une branche de tuyauterie (modélisation 3D) soumise à une pression",
            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
            GROUP_MA_INT    =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
            GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -6066,7 +5962,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
          ),
 
          PRE_EPSI       =FACT(statut='f',max='**',
-             fr="Applique un chargement de déformation initiale à un élément 2D, 3D ou de structure",
+             fr="Applique un chargement de déformation initiale à un élément 2D, 3D ou de structure",
              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
                      AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ','EPX',
@@ -6092,7 +5988,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
         FORCE_POUTRE    =FACT(statut='f',max='**',
-             fr="Applique des forces linéiques sur des éléments de type poutre",
+             fr="Applique des forces linéiques sur des éléments de type poutre",
              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
                      ),
@@ -6100,7 +5996,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
              TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FORCE",into=("VENT","FORCE",) ),
-#  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
+#  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
                b_force = BLOC(condition = "TYPE_CHARGE == 'FORCE'",
                           regles=(
                     AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','N','VY','VZ','MT','MFY','MFZ'),
@@ -6149,7 +6045,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
          FORCE_TUYAU     =FACT(statut='f',max='**',
-             fr="Applique une pression sur des éléments TUYAU",
+             fr="Applique une pression sur des éléments TUYAU",
              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
@@ -6159,7 +6055,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
          FORCE_COQUE     =FACT(statut='f',max='**',
-             fr="Applique des forces surfaciques sur des éléments de types coques",
+             fr="Applique des forces surfaciques sur des éléments de types coques",
              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
                      AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
@@ -6175,7 +6071,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
                      PRESENT_ABSENT('MF1','FX','FY','FZ','MX','MY','MZ','PRES'),
                      PRESENT_ABSENT('MF2','FX','FY','FZ','MX','MY','MZ','PRES'),
                      PRESENT_ABSENT('PRES','FX','FY','FZ','MX','MY','MZ','F1','F2','F3','MF1','MF2'),),
-#  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
+#  rajour d'un mot clé REPERE :/ LOCAL /GLOBAL
              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -6198,22 +6094,30 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
            LIAISON_COQUE   =FACT(statut='f',max='**',
-             fr="Permet de représenter le raccord entre des éléments de coques au moyen des relations linéaires",
+             fr="Permet de représenter le raccord entre des éléments de coques au moyen des relations linéaires",
              regles=(AU_MOINS_UN('GROUP_MA_1','MAILLE_1','GROUP_MA_2','MAILLE_2',
                                'GROUP_NO_1','NOEUD_1','GROUP_NO_2','NOEUD_2',),),
              GROUP_MA_1      =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE_1        =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
              GROUP_NO_1      =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
              NOEUD_1         =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA_1 =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE_1   =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO_1 =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD_1    =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
              GROUP_MA_2      =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE_2        =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
              GROUP_NO_2      =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
              NOEUD_2         =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA_2 =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE_2   =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO_2 =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD_2    =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
              NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
            ),
 
          RELA_CINE_BP    =FACT(statut='f',max='**',
-           fr="Etablir des relations cinématiques permettant de relier les noeuds cable aux noeuds du béton, et spécifier"
+           fr="Etablir des relations cinématiques permettant de relier les noeuds cable aux noeuds du béton, et spécifier"
               +" la prise en compte des contraintes initiales dans les cables",
            CABLE_BP        =SIMP(statut='o',typ=cabl_precont ),
            SIGM_BPEL       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
@@ -6222,7 +6126,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
          ),
 
          FORCE_ELEC      =FACT(statut='f',max='**',
-             fr="Appliquer la force de LAPLACE agissant sur un conducteur principal, due à la présence d'un conducteur"
+             fr="Appliquer la force de LAPLACE agissant sur un conducteur principal, due à la présence d'un conducteur"
                  +" secondaire droit",
              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
@@ -6231,7 +6135,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
 
-             POSITION        =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
+             POSITION        =SIMP(statut='f',typ='TXM',fr="Direction prédéfinie",into=("PARA","INFI","FINI",) ),
              b_fxyz  =BLOC ( condition = "POSITION == None",
                   FX   =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
                   FY   =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
@@ -6256,8 +6160,8 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
 
 
         INTE_ELEC       =FACT(statut='f',max='**',
-             fr="Appliquer la force de LAPLACE agissant sur un conducteur principal, due à la présence d'un conducteur"
-               +" secondaire non nécessairement droit",
+             fr="Appliquer la force de LAPLACE agissant sur un conducteur principal, due à la présence d'un conducteur"
+               +" secondaire non nécessairement droit",
              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
                      AU_MOINS_UN('GROUP_MA_2','MAILLE_2','TRANS','SYME'),
@@ -6272,14 +6176,14 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
 
-         IMPE_FACE       =FACT(statut='f',fr="Applique une impédance acoustique à une face",max='**',
+         IMPE_FACE       =FACT(statut='f',fr="Applique une impédance acoustique à une face",max='**',
              regles=(AU_MOINS_UN('GROUP_MA','MAILLE' ),),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
              IMPE            =SIMP(statut='o',typ='R' ),
            ),
 
-         VITE_FACE       =FACT(statut='f',fr="Impose des vitesses normales à une face (phénomène ACOUSTIQUE), ",max='**',
+         VITE_FACE       =FACT(statut='f',fr="Impose des vitesses normales à une face (phénomène ACOUSTIQUE), ",max='**',
              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -6289,7 +6193,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
 
 
          ONDE_FLUI       =FACT(statut='f',max='**',
-             fr="Applique une amplitude de pression d'onde incidente sinusoidale arrivant normalement à une face",
+             fr="Applique une amplitude de pression d'onde incidente sinusoidale arrivant normalement à une face",
              regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -6297,7 +6201,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
            ),
 
          FLUX_THM_REP    =FACT(statut='f',max='**',
-             fr="Applique à un domaine de milieu continu 2D ou 3D un flux de chaleur et/ou un apport de masse fluide"
+             fr="Applique à un domaine de milieu continu 2D ou 3D un flux de chaleur et/ou un apport de masse fluide"
                  +" (flux hydraulique)",
              regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                      PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
@@ -6310,7 +6214,7 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
              FLUN_HYDR2      =SIMP(statut='f',typ='R' ),
            ),
          FORCE_SOL       =FACT(statut='f',max=1,
-             fr="Définition des impédances et forces  de sol temporelles",
+             fr="Définition des impédances et forces  de sol temporelles",
            regles=(UN_PARMI('GROUP_NO_INTERF','SUPER_MAILLE'),
                    AU_MOINS_UN('UNITE_RESU_MASS','UNITE_RESU_RIGI','UNITE_RESU_AMOR'),),
            GROUP_NO_INTERF =SIMP(statut='f',typ=grno,),
@@ -6324,9 +6228,6 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
 
-
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -6343,26 +6244,29 @@ AFFE_CHAR_MECA=OPER(nom="AFFE_CHAR_MECA",op=   7,sd_prod=char_meca,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: mickael.abbas at edf.fr
 AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op=   7,sd_prod=char_meca,
-                     fr="Affectation de charges et conditions aux limites mécaniques complexes",
+                     fr="Affectation de charges et conditions aux limites mécaniques complexes",
                      reentrant='n',
-            UIinfo={"groupes":("Chargements","Mécanique",)},
+            UIinfo={"groupes":("Chargements","Mécanique",)},
          regles=(AU_MOINS_UN('DDL_IMPO','FORCE_POUTRE','LIAISON_DDL', ),),
          MODELE          =SIMP(statut='o',typ=modele_sdaster ),
-         VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
-         METHODE         =SIMP(statut='c',typ='TXM',fr="Stratégie de résolution pour les déplacements imposés",
+         METHODE         =SIMP(statut='c',typ='TXM',fr="Stratégie de résolution pour les déplacements imposés",
                                into=('DUALISATION',),defaut='DUALISATION',),
-                               # METHODE='ELIMINATION' est traité dans le fortran mais dangereux actuellement
+                               # METHODE='ELIMINATION' est traité dans le fortran mais dangereux actuellement
          DDL_IMPO        =FACT(statut='f',max='**',
-           fr="Impose à des noeuds une ou plusieurs valeurs de déplacement (ou de certaines grandeurs asscociées)",
+           fr="Impose à des noeuds une ou plusieurs valeurs de déplacement (ou de certaines grandeurs asscociées)",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD',),
-                   AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','LIAISON', ),),
-           TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
-           GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
-           MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
-           GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-           NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+                   AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','LIAISON','GLIS' ),),
+             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+             GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
            LIAISON         =SIMP(statut='f',typ='TXM',into=('ENCASTRE',)),
            DX              =SIMP(statut='f',typ='C' ),
            DY              =SIMP(statut='f',typ='C' ),
@@ -6373,9 +6277,10 @@ AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op=   7,sd_prod=char_meca,
            GRX             =SIMP(statut='f',typ='C' ),
            PRES            =SIMP(statut='f',typ='C' ),
            PHI             =SIMP(statut='f',typ='C' ),
+           GLIS            =SIMP(statut='f',typ='C' ),
          ),
          FORCE_POUTRE    =FACT(statut='f',max='**',
-           fr="Applique des forces linéiques sur des éléments de type poutre",
+           fr="Applique des forces linéiques sur des éléments de type poutre",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
                    AU_MOINS_UN('FX','FY','FZ','N','VY','VZ',),
@@ -6397,7 +6302,7 @@ AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op=   7,sd_prod=char_meca,
            VZ              =SIMP(statut='f',typ='C' ),
          ),
          LIAISON_DDL     =FACT(statut='f',max='**',
-           fr="Définit une relation linéaire entre les DDLs de deux ou plusieurs noeuds",
+           fr="Définit une relation linéaire entre les DDLs de deux ou plusieurs noeuds",
            regles=(UN_PARMI('GROUP_NO','NOEUD', ),),
            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
            NOEUD           =SIMP(statut='f',typ=no  ,max='**'),
@@ -6407,8 +6312,7 @@ AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op=   7,sd_prod=char_meca,
          ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 26/03/2013   AUTEUR CHEIGNON E.CHEIGNON 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -6425,37 +6329,40 @@ AFFE_CHAR_MECA_C=OPER(nom="AFFE_CHAR_MECA_C",op=   7,sd_prod=char_meca,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: mickael.abbas at edf.fr
 AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
-                      fr="Affectation de charges et conditions aux limites mécaniques fonction d'un (ou plusieurs) paramètres",
+                      fr="Affectation de charges et conditions aux limites mécaniques fonction d'un (ou plusieurs) paramètres",
                       reentrant='n',
-            UIinfo={"groupes":("Chargements","Mécanique",)},
+            UIinfo={"groupes":("Chargements","Mécanique",)},
         regles=(AU_MOINS_UN('DDL_IMPO','FACE_IMPO','LIAISON_DDL','FORCE_NODALE',
                             'FORCE_FACE','FORCE_ARETE','FORCE_CONTOUR','FORCE_INTERNE',
                             'PRES_REP','FORCE_POUTRE','VITE_FACE','IMPE_FACE','ONDE_PLANE',
                             'LIAISON_OBLIQUE','PRE_EPSI','LIAISON_GROUP','LIAISON_UNIF',
                             'LIAISON_SOLIDE','FORCE_COQUE','LIAISON_COQUE','FORCE_TUYAU',
                             'EFFE_FOND','FLUX_THM_REP',),),
-         VERI_DDL        =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
          VERI_NORM       =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
          MODELE          =SIMP(statut='o',typ=modele_sdaster),
-         METHODE         =SIMP(statut='c',typ='TXM',fr="Stratégie de résolution pour les déplacements imposés",
+         METHODE         =SIMP(statut='c',typ='TXM',fr="Stratégie de résolution pour les déplacements imposés",
                                into=('DUALISATION',),defaut='DUALISATION',),
-                               # METHODE='ELIMINATION' est traité dans le fortran mais dangereux actuellement
+                               # METHODE='ELIMINATION' est traité dans le fortran mais dangereux actuellement
 
          DDL_IMPO        =FACT(statut='f',max='**',
-           fr="Impose à des noeuds une ou plusieurs valeurs de déplacement (ou de certaines grandeurs asscociées) fournies"
-               +" par l'intermédiaire d'un concept fonction ",
+           fr="Impose à des noeuds une ou plusieurs valeurs de déplacement (ou de certaines grandeurs asscociées) fournies"
+               +" par l'intermédiaire d'un concept fonction ",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI',
                                'TEMP','PRE1','PRE2','GONF','LIAISON','H1X',
                                'H1Y','H1Z','E1X','E1Y','E1Z','E2X','E2Y','E2Z',
-                               'E3X','E3Y','E3Z','E4X','E4Y','E4Z','LAGS_C'),),
-           TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
-           GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
-           MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
-           GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-           NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+                               'E3X','E3Y','E3Z','E4X','E4Y','E4Z','LAGS_C','GLIS'),),
+             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+             GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
            LIAISON         =SIMP(statut='f',typ='TXM',into=('ENCASTRE',)),
            DX              =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
            DY              =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
@@ -6486,11 +6393,12 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
            E4Y             =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
            E4Z             =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
            LAGS_C          =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+           GLIS            =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
          ),
 
          FACE_IMPO       =FACT(statut='f',max='**',
-           fr="Impose à tous les noeuds d'une face une ou plusieurs valeurs de déplacement (ou de certaines grandeurs associées)"
-              +" fournies par l'intérmédiaire d'un concept fonction",
+           fr="Impose à tous les noeuds d'une face une ou plusieurs valeurs de déplacement (ou de certaines grandeurs associées)"
+              +" fournies par l'intérmédiaire d'un concept fonction",
            regles=(UN_PARMI('GROUP_MA','MAILLE'),
                    AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ','GRX','PRES','PHI','TEMP','PRE1','PRE2','DNOR','DTAN'),
                    EXCLUS('DNOR','DX'),
@@ -6529,7 +6437,7 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
          LIAISON_DDL     =FACT(statut='f',max='**',
-           fr="Définit une relation linéaire entre des DDLs de deux ou plusieurs noeuds, les valeurs sont fournies par"
+           fr="Définit une relation linéaire entre des DDLs de deux ou plusieurs noeuds, les valeurs sont fournies par"
                +" l'intermediaire d'un concept de type fonction",
            regles=(UN_PARMI('GROUP_NO','NOEUD'),UN_PARMI('COEF_MULT','COEF_MULT_FONC'),),
            GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
@@ -6541,24 +6449,30 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
          LIAISON_OBLIQUE =FACT(statut='f',max='**',
-           fr="Applique à des noeuds la meme valeur de déplacement définie composante par composante dans un repère oblique"
-              +" quelconque, les valeurs sont fournis par l'intermédiaire d'un concept fonction",
-           regles=(UN_PARMI('GROUP_NO','NOEUD'),
-                   UN_PARMI('DX','DY','DZ','DRX','DRY','DRZ'),),
-           GROUP_NO        =SIMP(statut='f',typ=grno,max='**'),
-           NOEUD           =SIMP(statut='f',typ=no  ,max='**'),
-           ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
-           DX              =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
-           DY              =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
-           DZ              =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
-           DRX             =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
-           DRY             =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
-           DRZ             =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+           fr="Applique à des noeuds la meme valeur de déplacement définie composante par composante dans un repère oblique"
+              +" quelconque, les valeurs sont fournis par l'intermédiaire d'un concept fonction",
+             regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
+                     AU_MOINS_UN('DX','DY','DZ','DRX','DRY','DRZ'),),
+             GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             ANGL_NAUT       =SIMP(statut='o',typ='R',max=3),
+             DX              =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+             DY              =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+             DZ              =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+             DRX             =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+             DRY             =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
+             DRZ             =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
          ),
 
          LIAISON_GROUP   =FACT(statut='f',max='**',
-           fr="Définit la meme relation linéaire entre certains DDLs de couples de noeuds, les valeurs sont fournies par"
-               +" l'intermédiaire de concept fonction",
+           fr="Définit la meme relation linéaire entre certains DDLs de couples de noeuds, les valeurs sont fournies par"
+               +" l'intermédiaire de concept fonction",
            regles=(UN_PARMI('GROUP_MA_1','MAILLE_1','GROUP_NO_1','NOEUD_1'),
                    UN_PARMI('GROUP_MA_2','MAILLE_2','GROUP_NO_2','NOEUD_2'),
                    EXCLUS('GROUP_MA_1','GROUP_NO_2'),
@@ -6592,36 +6506,43 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
           LIAISON_UNIF    =FACT(statut='f',max='**',
-           fr="Impose une meme valeur (inconnue) à des DDLs d'un ensemble de noeuds",
+           fr="Impose une meme valeur (inconnue) à des DDLs d'un ensemble de noeuds",
            regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
-           GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
-           MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
-           GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-           NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
-           DDL             =SIMP(statut='o',typ='TXM',max='**'),
+             GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             DDL             =SIMP(statut='o',typ='TXM',max='**'),
          ),
 
 
          LIAISON_SOLIDE  =FACT(statut='f',max='**',
-           fr="Modélise une partie indéformable d'une structure."
-            +" Les mots clés TRAN et ANGL_NAUT permettent d'imposer le déplacement de la partie indéformable.",
-           regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),
-                   ENSEMBLE('CENTRE','ANGL_NAUT'),),
-           GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-           NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
-           GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
-           MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
-           TRAN            =SIMP(statut='f',typ='R',max=3 ),
-           ANGL_NAUT       =SIMP(statut='f',typ='R',max=3 ),
-           CENTRE          =SIMP(statut='f',typ='R',max=3 ),
-           DIST_MIN        =SIMP(statut='f',typ='R'),
-           NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
+             fr="Modélise une partie indéformable d'une structure."
+              +" Le mot clé TRAN permettent d'imposer le déplacement de la partie indéformable.",
+             regles=(UN_PARMI('GROUP_NO','NOEUD','GROUP_MA','MAILLE'),),
+
+             GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+
+             TRAN            =SIMP(statut='f',typ='R',max=3 ),
+             DIST_MIN        =SIMP(statut='f',typ='R'),
+             NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES") ),
          ),
 
 
 
          FORCE_NODALE    =FACT(statut='f',max='**',
-           fr="Applique à des noeuds des forces nodales dont les valeurs des composantes sont fournies par l'intermédiaire"
+           fr="Applique à des noeuds des forces nodales dont les valeurs des composantes sont fournies par l'intermédiaire"
                +" d'un concept fonction",
            regles=(UN_PARMI('GROUP_NO','NOEUD'),
                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
@@ -6637,8 +6558,8 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
          FORCE_FACE      =FACT(statut='f',max='**',
-           fr="Applique des forces surfaciques sur une face d'élément volumique dont les valeurs des composantes sont fournies"
-               +" par l'intermédiaire d'un concept fonction",
+           fr="Applique des forces surfaciques sur une face d'élément volumique dont les valeurs des composantes sont fournies"
+               +" par l'intermédiaire d'un concept fonction",
            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
                    AU_MOINS_UN('FX','FY','FZ'),),
            GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -6648,8 +6569,8 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
            FZ              =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
          ),
          FORCE_ARETE     =FACT(statut='f',max='**',
-           fr="Applique des forces linéiques à une arete d'élément volumique ou de coque dont les valeurs des composantes sont"
-               +" fournies par l'intermédiaire d'un concept fonction",
+           fr="Applique des forces linéiques à une arete d'élément volumique ou de coque dont les valeurs des composantes sont"
+               +" fournies par l'intermédiaire d'un concept fonction",
            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
            GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -6662,8 +6583,8 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
            MZ              =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
          ),
          FORCE_CONTOUR   =FACT(statut='f',max='**',
-           fr="Applique des forces linéiques au bord d'un domaine 2D ou AXIS ou AXIS_FOURIER, dont les valeurs des composantes"
-               +" sont fournies par l'intermédiaire d'un concept fonction",
+           fr="Applique des forces linéiques au bord d'un domaine 2D ou AXIS ou AXIS_FOURIER, dont les valeurs des composantes"
+               +" sont fournies par l'intermédiaire d'un concept fonction",
            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ'),),
            GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -6677,8 +6598,8 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
          FORCE_INTERNE   =FACT(statut='f',max='**',
-           fr="Applique des forces volumiques (2D ou 3D) à un domaine volumique, dont les valeurs des composantes sont fournies"
-               +" par l'intermédiaire d'un concept fonction",
+           fr="Applique des forces volumiques (2D ou 3D) à un domaine volumique, dont les valeurs des composantes sont fournies"
+               +" par l'intermédiaire d'un concept fonction",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
                    AU_MOINS_UN('FX','FY','FZ'),),
@@ -6691,8 +6612,8 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
          PRES_REP        =FACT(statut='f',max='**',
-           fr="Applique une pression à un domaine de milieu continu 2D ou 3D ou à un domaine de coques et tuyaux, dont les"
-               +" valeurs imposées (pression et/ou cisaillement) sont fournies par l'intermédiaire d'un concept fonction",
+           fr="Applique une pression à un domaine de milieu continu 2D ou 3D ou à un domaine de coques et tuyaux, dont les"
+               +" valeurs imposées (pression et/ou cisaillement) sont fournies par l'intermédiaire d'un concept fonction",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','FISSURE'),
                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE','FISSURE'),
                    AU_MOINS_UN('PRES','CISA_2D'),),
@@ -6705,8 +6626,8 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
          EFFE_FOND       =FACT(statut='f',max='**',
-           fr="Calcul l'effet de fond sur une branche de tuyauterie (modélisation 3D) soumise"
-               +" à une pression dont la valeur est fournie par l'intermédiaire d'un concept fonction",
+           fr="Calcul l'effet de fond sur une branche de tuyauterie (modélisation 3D) soumise"
+               +" à une pression dont la valeur est fournie par l'intermédiaire d'un concept fonction",
            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),),
            GROUP_MA_INT    =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
            GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -6715,8 +6636,8 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
          PRE_EPSI       =FACT(statut='f',max='**',
-           fr="Applique un chargement de déformation initiale à un élément 2D, 3D ou de structure dont les composantes"
-               +" du tenseur de déformation sont fournies par l'intermédiaire d'un concept fonction",
+           fr="Applique un chargement de déformation initiale à un élément 2D, 3D ou de structure dont les composantes"
+               +" du tenseur de déformation sont fournies par l'intermédiaire d'un concept fonction",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
                    AU_MOINS_UN('EPXX','EPYY','EPZZ','EPXY','EPXZ','EPYZ'),),
@@ -6732,8 +6653,8 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
          FORCE_POUTRE    =FACT(statut='f',max='**',
-           fr="Applique des forces linéiques sur des éléments de type poutre dont les valeurs sont fournies par"
-               +" l'intermédiaire d'un concept fonction",
+           fr="Applique des forces linéiques sur des éléments de type poutre dont les valeurs sont fournies par"
+               +" l'intermédiaire d'un concept fonction",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
 
@@ -6791,7 +6712,7 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
          FORCE_TUYAU     =FACT(statut='f',max='**',
-           fr="Applique une pression sur des éléments TUYAU, la valeur est fournie par l'intermédiaire d'un concept fonction",
+           fr="Applique une pression sur des éléments TUYAU, la valeur est fournie par l'intermédiaire d'un concept fonction",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
@@ -6801,8 +6722,8 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
          FORCE_COQUE     =FACT(statut='f',max='**',
-           fr="Applique des forces surfaciques sur des éléments de types coques dont les valeurs sont fournies par"
-               +" l'intermédiaires d'un concept fonction",
+           fr="Applique des forces surfaciques sur des éléments de types coques dont les valeurs sont fournies par"
+               +" l'intermédiaires d'un concept fonction",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
                    AU_MOINS_UN('FX','FY','FZ','MX','MY','MZ','PRES','F1','F2','F3','MF1','MF2'),
@@ -6839,24 +6760,32 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          ),
 
          LIAISON_COQUE   =FACT(statut='f',max='**',
-           fr="Permet de représenter le raccord entre des éléments de coques au moyen des relations linéaires",
-           regles=(AU_MOINS_UN('GROUP_MA_1','MAILLE_1','GROUP_MA_2','MAILLE_2',
-                               'GROUP_NO_1','NOEUD_1','GROUP_NO_2','NOEUD_2',),),
-           GROUP_MA_1      =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
-           MAILLE_1        =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
-           GROUP_NO_1      =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-           NOEUD_1         =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
-           GROUP_MA_2      =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
-           MAILLE_2        =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
-           GROUP_NO_2      =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-           NOEUD_2         =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
-           NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
+             fr="Permet de représenter le raccord entre des éléments de coques au moyen des relations linéaires",
+             regles=(AU_MOINS_UN('GROUP_MA_1','MAILLE_1','GROUP_MA_2','MAILLE_2',
+                                 'GROUP_NO_1','NOEUD_1','GROUP_NO_2','NOEUD_2',),),
+             GROUP_MA_1      =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE_1        =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             GROUP_NO_1      =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             NOEUD_1         =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA_1 =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE_1   =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO_1 =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD_1    =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             GROUP_MA_2      =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE_2        =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             GROUP_NO_2      =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             NOEUD_2         =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA_2 =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE_2   =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO_2 =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD_2    =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             NUME_LAGR       =SIMP(statut='f',typ='TXM',defaut="NORMAL",into=("NORMAL","APRES",) ),
          ),
 
 
          VITE_FACE       =FACT(statut='f',max='**',
-           fr="Impose des vitesses normales à une face (phénomène ACOUSTIQUE) dont les valeurs sont fournies par"
-               +" l'intermédiaire d'un concept fonction",
+           fr="Impose des vitesses normales à une face (phénomène ACOUSTIQUE) dont les valeurs sont fournies par"
+               +" l'intermédiaire d'un concept fonction",
            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
            GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -6864,7 +6793,7 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
            VNOR            =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
          ),
          IMPE_FACE       =FACT(statut='f',max='**',
-           fr="Applique à une face une impédance acoustique dont la valeur est fournie par l'intermédiaire"
+           fr="Applique à une face une impédance acoustique dont la valeur est fournie par l'intermédiaire"
                +" d'un concept fonction",
            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
@@ -6872,13 +6801,13 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
            MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
            IMPE            =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
          ),
-         ONDE_PLANE      =FACT(statut='f',max='**',
-           fr="Impose un chargement sismique par onde plane dont la valeur est fournie par l'intermédiaire"
+         ONDE_PLANE      =FACT(statut='f',max=1,
+           fr="Impose un chargement sismique par onde plane dont la valeur est fournie par l'intermédiaire"
                +" d'un concept fonction",
            regles=(AU_MOINS_UN('GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('GROUP_MA','MAILLE'),),
-           DIRECTION       =SIMP(statut='o',typ='R',max='**'),
-           TYPE_ONDE       =SIMP(statut='o',typ='TXM' ),
+           DIRECTION       =SIMP(statut='o',typ='R',min=3, max=3),
+           TYPE_ONDE       =SIMP(statut='o',typ='TXM', into=("S", "P", "SV", "SH",) ),
            FONC_SIGNAL     =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
            MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
            GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -6887,8 +6816,8 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
 
 
          FLUX_THM_REP    =FACT(statut='f',max='**',
-           fr="Applique à un domaine continue 2D ou 3D un flux de chaleur et/ou un apport de masse fluide (flux hydraulique)"
-               +" dont les valeurs des flux sont fournies par l'intermédiaire d'un concept fonction",
+           fr="Applique à un domaine continue 2D ou 3D un flux de chaleur et/ou un apport de masse fluide (flux hydraulique)"
+               +" dont les valeurs des flux sont fournies par l'intermédiaire d'un concept fonction",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
                    AU_MOINS_UN('FLUN','FLUN_HYDR1','FLUN_HYDR2'),),
@@ -6903,9 +6832,6 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
 
-
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -6922,7 +6848,7 @@ AFFE_CHAR_MECA_F=OPER(nom="AFFE_CHAR_MECA_F",op=7,sd_prod=char_meca,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: mickael.abbas at edf.fr
 AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
                     ,fr="Affectation de charges et conditions aux limites thermiques constantes",
                     reentrant='n',
@@ -6931,18 +6857,22 @@ AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
                           'ECHANGE_PAROI','PRE_GRAD_TEMP','LIAISON_DDL','LIAISON_GROUP',
                           'LIAISON_UNIF','LIAISON_CHAMNO','RAYONNEMENT','LIAISON_MAIL' ),),
          MODELE          =SIMP(statut='o',typ=(modele_sdaster) ),
-         METHODE         =SIMP(statut='c',typ='TXM',fr="Stratégie de résolution pour les températures imposées",
+         METHODE         =SIMP(statut='c',typ='TXM',fr="Stratégie de résolution pour les températures imposées",
                                into=('DUALISATION',),defaut='DUALISATION',),
-                               # METHODE='ELIMINATION' est traité dans le fortran mais dangereux actuellement
+                               # METHODE='ELIMINATION' est traité dans le fortran mais dangereux actuellement
 
          TEMP_IMPO       =FACT(statut='f',max='**',
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
                    AU_MOINS_UN('TEMP','TEMP_MIL','TEMP_SUP','TEMP_INF'),),
-           TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
-           GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
-           MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
-           GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-           NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+             GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
            TEMP            =SIMP(statut='f',typ='R'),
            TEMP_MIL        =SIMP(statut='f',typ='R'),
            TEMP_INF        =SIMP(statut='f',typ='R'),
@@ -6964,7 +6894,7 @@ AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
 
 
          RAYONNEMENT     =FACT(statut='f',max='**',
-           fr="Attention, exprimer les températures en Celsius si rayonnement",
+           fr="Attention, exprimer les températures en Celsius si rayonnement",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
@@ -7123,8 +7053,7 @@ AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
 
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -7141,10 +7070,10 @@ AFFE_CHAR_THER=OPER(nom="AFFE_CHAR_THER",op=34,sd_prod=char_ther
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: mickael.abbas at edf.fr
 AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=34,sd_prod=char_ther,
                      fr="Affectation de charges et conditions aux limites thermiques fonction d'un (ou plusieurs)"
-                         +" paramètres (temps, ...)",
+                         +" paramètres (temps, ...)",
                      reentrant='n',
             UIinfo={"groupes":("Chargements","Thermique",)},
       regles=(AU_MOINS_UN('TEMP_IMPO','SOURCE','SOUR_NL','FLUX_REP','FLUX_NL','ECHANGE',
@@ -7155,12 +7084,15 @@ AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=34,sd_prod=char_ther,
          TEMP_IMPO       =FACT(statut='f',max='**',
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD'),
                    AU_MOINS_UN('TEMP','TEMP_MIL','TEMP_SUP','TEMP_INF'),),
-           TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
-           GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
-           MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
-           GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
-           NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
-           DDL             =SIMP(statut='f',typ='TXM',into=("TEMP",) ),
+             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+             GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+             SANS_MAILLE     =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             SANS_GROUP_NO   =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
+             SANS_NOEUD      =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
            TEMP            =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
            TEMP_MIL        =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
            TEMP_INF        =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
@@ -7193,7 +7125,7 @@ AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=34,sd_prod=char_ther,
 
 
          RAYONNEMENT     =FACT(statut='f',max='**',
-           fr="Attention, exprimer les températures en Celsius si rayonnement",
+           fr="Attention, exprimer les températures en Celsius si rayonnement",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),
                    PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
@@ -7336,8 +7268,7 @@ AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=34,sd_prod=char_ther,
 
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -7354,15 +7285,15 @@ AFFE_CHAR_THER_F=OPER(nom="AFFE_CHAR_THER_F",op=34,sd_prod=char_ther,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
-                   fr="Affecter des matériaux à des zones géométriques d'un maillage",
+                   fr="Affecter des matériaux à des zones géométriques d'un maillage",
                          reentrant='n',
-            UIinfo={"groupes":("Modélisation",)},
+            UIinfo={"groupes":("Modélisation",)},
          MAILLAGE        =SIMP(statut='o',typ=maillage_sdaster),
          MODELE          =SIMP(statut='f',typ=modele_sdaster),
 
-         #  affectation du nom du matériau (par mailles):
+         #  affectation du nom du matériau (par mailles):
          #  ----------------------------------------------
          AFFE            =FACT(statut='o',max='**',
            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
@@ -7384,7 +7315,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
 
          #  affectation des variables de commande :
          #  --------------------------------------------------
-         # un mot clé caché qui ne sert qu'à boucler sur les VARC possibles :
+         # un mot clé caché qui ne sert qu'à boucler sur les VARC possibles :
          LIST_NOM_VARC =SIMP(statut='c',typ='TXM', defaut=("TEMP","GEOM","CORR","IRRA","HYDR","SECH","EPSA",
                                                            "M_ACIER","M_ZIRC","NEUT1","NEUT2","PTOT","DIVU",)),
 
@@ -7392,14 +7323,14 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
           regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),
                   PRESENT_ABSENT('GROUP_MA','TOUT'),
                   PRESENT_ABSENT('MAILLE','TOUT'),
-                # La règle suivante permet de donner VALE_REF sans donner EVOL ni CHAM_GD
-                # Elle est nécessaire pour la THM (voir doc U4.43.03)
-                # Mais on ne peut plus l'écrire depuis de VALE_REF est dans un bloc
+                # La règle suivante permet de donner VALE_REF sans donner EVOL ni CHAM_GD
+                # Elle est nécessaire pour la THM (voir doc U4.43.03)
+                # Mais on ne peut plus l'écrire depuis de VALE_REF est dans un bloc
                 # AU_MOINS_UN('EVOL','CHAM_GD','VALE_REF'),
                   EXCLUS('EVOL','CHAM_GD'),
                   ),
 
-          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ), # [défaut]
+          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ), # [défaut]
           GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
           MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
 
@@ -7418,14 +7349,14 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
               FONC_INST     =SIMP(statut='f',typ=(fonction_sdaster,formule)),
           ),
 
-          # VALE_REF est nécessaire pour certaines VARC :
+          # VALE_REF est nécessaire pour certaines VARC :
           B_VALE_REF          =BLOC(condition="NOM_VARC in ('TEMP','SECH')",
                VALE_REF          =SIMP(statut='o',typ='R'),
           ),
 
          ),
 
-         #  mots clés cachés pour les variables de commande NEUT1/NEUT2 :
+         #  mots clés cachés pour les variables de commande NEUT1/NEUT2 :
          #  --------------------------------------------------------------
          VARC_NEUT1   =FACT(statut='d',
            NOM_VARC        =SIMP(statut='c',typ='TXM',defaut="NEUT1"),
@@ -7440,7 +7371,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
            CMP_VARC        =SIMP(statut='c',typ='TXM',max=1,min=1,defaut=("NEUT2")),
          ),
 
-         #  mots clés cachés pour variable de commande TEMP :
+         #  mots clés cachés pour variable de commande TEMP :
          #  --------------------------------------------------
          VARC_TEMP    =FACT(statut='d',
            NOM_VARC        =SIMP(statut='c',typ='TXM',defaut="TEMP"),
@@ -7449,7 +7380,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
            CMP_VARC        =SIMP(statut='c',typ='TXM',max=4,min=4,defaut=("TEMP","TEMP_MIL","TEMP_INF","TEMP_SUP",)),
          ),
 
-         #  mots clés cachés pour variable de commande GEOM :
+         #  mots clés cachés pour variable de commande GEOM :
          #  --------------------------------------------------
          VARC_GEOM    =FACT(statut='d',
            NOM_VARC        =SIMP(statut='c',typ='TXM',defaut="GEOM"),
@@ -7458,7 +7389,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
            CMP_VARC        =SIMP(statut='c',typ='TXM',max=3,min=3,defaut=("X","Y","Z",)),
          ),
 
-         #  mots clés cachés pour variable de commande PTOT :
+         #  mots clés cachés pour variable de commande PTOT :
          #  -------------------------------------------------
          VARC_PTOT    =FACT(statut='d',
            NOM_VARC         =SIMP(statut='c',typ='TXM',defaut="PTOT"),
@@ -7467,7 +7398,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
            CMP_VARC         =SIMP(statut='c',typ='TXM',max=1,min=1,defaut=("PTOT",)),
          ),
 
-         #  mots clés cachés pour variable de commande SECH :
+         #  mots clés cachés pour variable de commande SECH :
          #  --------------------------------------------------
          VARC_SECH    =FACT(statut='d',
            NOM_VARC        =SIMP(statut='c',typ='TXM',defaut="SECH"),
@@ -7476,7 +7407,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
            CMP_VARC        =SIMP(statut='c',typ='TXM',max=1,min=1,defaut=("SECH",)),
          ),
 
-         #  mots clés cachés pour variable de commande HYDR :
+         #  mots clés cachés pour variable de commande HYDR :
          #  --------------------------------------------------
          VARC_HYDR    =FACT(statut='d',
            NOM_VARC        =SIMP(statut='c',typ='TXM',defaut="HYDR"),
@@ -7485,7 +7416,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
            CMP_VARC        =SIMP(statut='c',typ='TXM',max=1,min=1,defaut=("HYDR",)),
          ),
 
-         #  mots clés cachés pour variable de commande CORR :
+         #  mots clés cachés pour variable de commande CORR :
          #  --------------------------------------------------
          VARC_CORR    =FACT(statut='d',
            NOM_VARC        =SIMP(statut='c',typ='TXM',defaut="CORR"),
@@ -7494,7 +7425,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
            CMP_VARC        =SIMP(statut='c',typ='TXM',max=1,min=1,defaut=("CORR",)),
          ),
 
-         #  mots clés cachés pour variable de commande IRRA :
+         #  mots clés cachés pour variable de commande IRRA :
          #  --------------------------------------------------
          VARC_IRRA    =FACT(statut='d',
            NOM_VARC        =SIMP(statut='c',typ='TXM',defaut="IRRA"),
@@ -7503,7 +7434,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
            CMP_VARC        =SIMP(statut='c',typ='TXM',max=1,min=1,defaut=("IRRA",)),
          ),
 
-         #  mots clés cachés pour variable de commande DIVU :
+         #  mots clés cachés pour variable de commande DIVU :
          #  --------------------------------------------------
          VARC_DIVU    =FACT(statut='d',
            NOM_VARC        =SIMP(statut='c',typ='TXM',defaut="DIVU"),
@@ -7512,7 +7443,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
            CMP_VARC        =SIMP(statut='c',typ='TXM',max=1,min=1,defaut=("DIVU",)),
          ),
 
-         #  mots clés cachés pour variable de commande EPSA :
+         #  mots clés cachés pour variable de commande EPSA :
          #  --------------------------------------------------
          VARC_EPSA    =FACT(statut='d',
            NOM_VARC        =SIMP(statut='c',typ='TXM',defaut="EPSA"),
@@ -7520,7 +7451,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
            CMP_GD          =SIMP(statut='c',typ='TXM',max=6,min=6,defaut=("EPXX","EPYY","EPZZ","EPXY","EPXZ","EPYZ",)),
            CMP_VARC        =SIMP(statut='c',typ='TXM',max=6,min=6,defaut=("EPSAXX","EPSAYY","EPSAZZ","EPSAXY","EPSAXZ","EPSAYZ",)),
          ),
-         #  mots clés cachés pour variable de commande metallurgique ACIER :
+         #  mots clés cachés pour variable de commande metallurgique ACIER :
          #  -----------------------------------------------------------------
          VARC_M_ACIER  =FACT(statut='d',
            NOM_VARC        =SIMP(statut='c',typ='TXM',defaut="M_ACIER"),
@@ -7529,7 +7460,7 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
            CMP_VARC        =SIMP(statut='c',typ='TXM',max=7,min=7,defaut=("PFERRITE","PPERLITE","PBAINITE",
                                                                           "PMARTENS","TAUSTE","TRANSF","TACIER",)),
          ),
-         #  mots clés cachés pour variable de commande metallurgique ZIRCALOY :
+         #  mots clés cachés pour variable de commande metallurgique ZIRCALOY :
          #  --------------------------------------------------------------------
          VARC_M_ZIRC  =FACT(statut='d',
            NOM_VARC        =SIMP(statut='c',typ='TXM',defaut="M_ZIRC"),
@@ -7541,9 +7472,6 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )  ;
 
-
-#& MODIF COMMANDE  DATE 18/03/2013   AUTEUR SFAYOLLE S.FAYOLLE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -7560,10 +7488,10 @@ AFFE_MATERIAU=OPER(nom="AFFE_MATERIAU",op=6,sd_prod=cham_mater,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele_sdaster,
-            UIinfo={"groupes":("Modélisation",)},
-                 fr="Définir le phénomène physique modélisé et le type d'éléments finis sur le maillage",reentrant='n',
+            UIinfo={"groupes":("Modélisation",)},
+                 fr="Définir le phénomène physique modélisé et le type d'éléments finis sur le maillage",reentrant='n',
          regles=(AU_MOINS_UN('AFFE','AFFE_SOUS_STRUC'),UN_PARMI('MAILLAGE','GRILLE')),
          MAILLAGE        =SIMP(statut='f',typ=maillage_sdaster),
          GRILLE          =SIMP(statut='f',typ=grille_sdaster),
@@ -7571,21 +7499,21 @@ AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele_sdaster,
          VERIF           =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max=2,into=("MAILLE","NOEUD") ),
 #
 #====
-# Définition des grandeurs caractéristiques
+# Définition des grandeurs caractéristiques
 #====
 #
          GRANDEUR_CARA =FACT(statut='f',max=1,
-         fr="Grandeurs caractéristiques pour l'adimensionnement des indicateurs d'erreur HM",
+         fr="Grandeurs caractéristiques pour l'adimensionnement des indicateurs d'erreur HM",
          ang="Characteristic data for HM error estimators adimensionalisation",
 #
             LONGUEUR      =SIMP(statut='f',typ='R',val_min=0,
-                                fr ="Longueur caractéristique",
+                                fr ="Longueur caractéristique",
                                 ang="Characteristic length",),
             PRESSION      =SIMP(statut='f',typ='R',val_min=0,
-                                fr ="Pression caractéristique",
+                                fr ="Pression caractéristique",
                                 ang="Characteristic pressure",),
             TEMPERATURE   =SIMP(statut='f',typ='R',val_min=0,
-                                fr ="Température caractéristique",
+                                fr ="Température caractéristique",
                                 ang="Characteristic temperature",),),
 #
          AFFE_SOUS_STRUC =FACT(statut='f',
@@ -7604,7 +7532,7 @@ AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele_sdaster,
            PHENOMENE       =SIMP(statut='o',typ='TXM',
                                  into=("MECANIQUE","THERMIQUE","ACOUSTIQUE") ),
                 b_mecanique     =BLOC( condition = "PHENOMENE=='MECANIQUE'",
-                                        fr="modélisations mécaniques",
+                                        fr="modélisations mécaniques",
                     MODELISATION    =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=(
                                   "2D_DIS_T",        # RESP. : FLEJOU J.L.FLEJOU
                                   "2D_DIS_TR",       # RESP. : FLEJOU J.L.FLEJOU
@@ -7649,6 +7577,7 @@ AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele_sdaster,
                                   "AXIS_INTERFACE_S",# RESP. : LAVERNE J.LAVERNE
                                   "AXIS_ELDI",       # RESP. : LAVERNE J.LAVERNE
                                   "BARRE",           # RESP. : FLEJOU J.L.FLEJOU
+                                  "CABLE_GAINE",     # RESP. :
                                   "2D_BARRE",        # RESP. : FLEJOU J.L.FLEJOU
                                   "C_PLAN",          # RESP. : LEFEBVRE J.P.LEFEBVRE
                                   "C_PLAN_SI",       # RESP. : DESROCHES X.DESROCHES
@@ -7794,7 +7723,7 @@ AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele_sdaster,
                                                                       )  )  ),
 
                 b_thermique     =BLOC( condition = "PHENOMENE=='THERMIQUE'",
-                                        fr="modélisations thermiques",
+                                        fr="modélisations thermiques",
                     MODELISATION    =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=(
                                   "3D",              # RESP. : DURAND C.DURAND
                                   "3D_DIAG",         # RESP. : DURAND C.DURAND
@@ -7809,7 +7738,7 @@ AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele_sdaster,
                                                                       ),),),
 
                 b_acoustique    =BLOC( condition = "PHENOMENE=='ACOUSTIQUE'",
-                                        fr="modélisations acoustiques",
+                                        fr="modélisations acoustiques",
                      MODELISATION    =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=(
                                   "3D",              # RESP. : None
                                   "PLAN"             # RESP. : None
@@ -7826,10 +7755,9 @@ AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele_sdaster,
          ),
 
          VERI_JACOBIEN  =SIMP(statut='f',typ='TXM',into=('OUI','NON'),defaut='OUI',
-                              fr ="Vérification de la forme des mailles (jacobiens tous de meme signe).",),
+                              fr ="Vérification de la forme des mailles (jacobiens tous de meme signe).",),
 ) ;
-#& MODIF COMMANDE  DATE 25/01/2011   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -7846,7 +7774,7 @@ AFFE_MODELE=OPER(nom="AFFE_MODELE",op=18,sd_prod=modele_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 def appl_cine_matr_prod(MATR_ASSE,**args):
   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
@@ -7858,15 +7786,14 @@ def appl_cine_matr_prod(MATR_ASSE,**args):
   raise AsException("type de concept resultat non prevu")
 
 APPL_CINE_MATR=OPER(nom="APPL_CINE_MATR",op=158,sd_prod=appl_cine_matr_prod,
-               fr="Appliquer les C.L. cinématiques sur la matrice",
-               reentrant='f', UIinfo={"groupes":("Résolution",)},
+               fr="Appliquer les C.L. cinématiques sur la matrice",
+               reentrant='f', UIinfo={"groupes":("Résolution",)},
          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 25/01/2011   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -7883,11 +7810,11 @@ APPL_CINE_MATR=OPER(nom="APPL_CINE_MATR",op=158,sd_prod=appl_cine_matr_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 APPL_CINE_SCMB=OPER(nom="APPL_CINE_SCMB",op=159,sd_prod=cham_no_sdaster,reentrant='f',
-               fr="Application des C.L. cinématiques au second membre",
-               UIinfo={"groupes":("Résolution",)},
+               fr="Application des C.L. cinématiques au second membre",
+               UIinfo={"groupes":("Résolution",)},
          CHAM_NO        =SIMP(statut='o',typ=cham_no_sdaster),
          MATR           =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
@@ -7896,8 +7823,7 @@ APPL_CINE_SCMB=OPER(nom="APPL_CINE_SCMB",op=159,sd_prod=cham_no_sdaster,reentran
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -7914,7 +7840,7 @@ APPL_CINE_SCMB=OPER(nom="APPL_CINE_SCMB",op=159,sd_prod=cham_no_sdaster,reentran
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ANDRIAM H.ANDRIAMBOLOLONA
+# person_in_charge: harinaivo.andriambololona at edf.fr
 
 
 def asse_elem_ssd_prod(self,RESU_ASSE_SSD,**args):
@@ -7981,8 +7907,7 @@ ASSE_ELEM_SSD=MACRO(nom="ASSE_ELEM_SSD",
         STOCKAGE     =SIMP(statut='f',typ='TXM',defaut="LIGN_CIEL",into=("LIGN_CIEL","PLEIN") ),
 
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -7999,7 +7924,7 @@ ASSE_ELEM_SSD=MACRO(nom="ASSE_ELEM_SSD",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage_sdaster,
                    fr="Assembler deux maillages pour en former un nouveau",
                    reentrant='n',
@@ -8014,8 +7939,7 @@ ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage_sdaster,
                              ),
                            ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8032,14 +7956,14 @@ ASSE_MAILLAGE=OPER(nom="ASSE_MAILLAGE",op= 105,sd_prod=maillage_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BODEL C.BODEL
+# person_in_charge: mathieu.corus at edf.fr
 def asse_matr_gene_prod(METHODE,**args):
     if   (METHODE=="INITIAL") : return matr_asse_gene_r
     elif (args['OPTION']=="RIGI_GENE_C") : return matr_asse_gene_c
     else : return matr_asse_gene_r
 
 ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=asse_matr_gene_prod,
-                    fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
+                    fr="Assemblage des matrices généralisées de macro éléments pour construction de la matrice globale généralisée",
                     reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
@@ -8048,8 +7972,7 @@ ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=asse_matr_gene_prod,
            OPTION          =SIMP(statut='o',typ='TXM',into=("RIGI_GENE","RIGI_GENE_C","MASS_GENE","AMOR_GENE") ),
            ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8066,7 +7989,7 @@ ASSE_MATR_GENE=OPER(nom="ASSE_MATR_GENE",op= 128,sd_prod=asse_matr_gene_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 def asse_matrice_prod(MATR_ELEM,**args):
   if AsType(MATR_ELEM) == matr_elem_depl_r : return matr_asse_depl_r
   if AsType(MATR_ELEM) == matr_elem_depl_c : return matr_asse_depl_c
@@ -8075,7 +7998,7 @@ def asse_matrice_prod(MATR_ELEM,**args):
   raise AsException("type de concept resultat non prevu")
 
 ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
-                  fr="Construction d'une matrice assemblée",reentrant='n',
+                  fr="Construction d'une matrice assemblée",reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
          MATR_ELEM       =SIMP(statut='o',
                                typ=(matr_elem_depl_r,matr_elem_depl_c,matr_elem_temp_r,matr_elem_pres_c) ),
@@ -8084,8 +8007,7 @@ ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
          CHAR_CINE       =SIMP(statut='f',typ=(char_cine_meca,char_cine_ther,char_cine_acou) ),
          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8102,7 +8024,7 @@ ASSE_MATRICE=OPER(nom="ASSE_MATRICE",op=12,sd_prod=asse_matrice_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BODEL C.BODEL
+# person_in_charge: mathieu.corus at edf.fr
 ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
                     fr="Projection des chargements sur la base modale d'une sous structure",
                     reentrant='n',
@@ -8116,8 +8038,7 @@ ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
            ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8134,17 +8055,16 @@ ASSE_VECT_GENE=OPER(nom="ASSE_VECT_GENE",op= 140,sd_prod=vect_asse_gene,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=cham_no_sdaster,
-                  fr="Construire un champ aux noeuds par assemblage de vecteurs élémentaires",reentrant='n',
+                  fr="Construire un champ aux noeuds par assemblage de vecteurs élémentaires",reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
          VECT_ELEM       =SIMP(statut='o',typ=vect_elem,max='**'),
          NUME_DDL        =SIMP(statut='o',typ=nume_ddl_sdaster ),
          INFO            =SIMP(statut='f',typ='I',into=(1,2,) ),
 )  ;
-#& MODIF COMMANDE  DATE 05/11/2012   AUTEUR BRIE N.BRIE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -8161,7 +8081,7 @@ ASSE_VECTEUR=OPER(nom="ASSE_VECTEUR",op=13,sd_prod=cham_no_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE ALARCON A.ALARCON
+# person_in_charge: albert.alarcon at edf.fr
 
 def assemblage_prod(self,NUME_DDL,MATR_ASSE,VECT_ASSE,**args):
   if ((not MATR_ASSE) and (not VECT_ASSE)):  raise AsException("Aucun concept a assembler")
@@ -8179,7 +8099,7 @@ def assemblage_prod(self,NUME_DDL,MATR_ASSE,VECT_ASSE,**args):
 
         if opti in ( "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",) : t=matr_asse_pres_c
 
-        if opti in ( "RIGI_THER","MASS_THER","RIGI_THER_CONV" ,
+        if opti in ( "RIGI_THER","RIGI_THER_CONV" ,
                      "RIGI_THER_CONV_D",) : t=matr_asse_temp_r
 
         if opti == "RIGI_MECA_HYST"   : t= matr_asse_depl_c
@@ -8197,7 +8117,7 @@ ASSEMBLAGE=MACRO(nom="ASSEMBLAGE",
                       UIinfo={"groupes":("Matrices et vecteurs",)},
                       sd_prod=assemblage_prod,
                       regles=(AU_MOINS_UN('MATR_ASSE','VECT_ASSE'),),
-                      fr="Calcul des matrices et vecteurs assemblés ",
+                      fr="Calcul des matrices et vecteurs assemblés ",
          MODELE          =SIMP(statut='o',typ=modele_sdaster),
          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
          INST            =SIMP(statut='f',typ='R',defaut=0.),
@@ -8207,19 +8127,19 @@ ASSEMBLAGE=MACRO(nom="ASSEMBLAGE",
          NUME_DDL        =SIMP(statut='o',typ=(nume_ddl_sdaster,CO)),
          SOLVEUR         =FACT(statut='d',
            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","MUMPS","PETSC") ),
-         b_mult_front    =BLOC(condition="METHODE=='MULT_FRONT'",fr="Paramètres associés à la méthode multifrontale",
+         b_mult_front    =BLOC(condition="METHODE=='MULT_FRONT'",fr="Paramètres associés à la méthode multifrontale",
            RENUM           =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
          ),
-         b_ldlt          =BLOC(condition="METHODE=='LDLT'",fr="Paramètres associés à la méthode LDLT",
+         b_ldlt          =BLOC(condition="METHODE=='LDLT'",fr="Paramètres associés à la méthode LDLT",
            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
          ),
-         b_mumps         =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
+         b_mumps         =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
            RENUM           =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","SCOTCH","AUTO")),
          ),
-         b_gcpc          =BLOC(condition="METHODE=='GCPC'",fr="Paramètres associés à la méthode gradient conjugué",
+         b_gcpc          =BLOC(condition="METHODE=='GCPC'",fr="Paramètres associés à la méthode gradient conjugué",
            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
          ),
-         b_petsc         =BLOC(condition = "METHODE == 'PETSC'",fr="Paramètres de la méthode PETSC",
+         b_petsc         =BLOC(condition = "METHODE == 'PETSC'",fr="Paramètres de la méthode PETSC",
            RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("SANS","RCMK") ),
          ),
          ),
@@ -8231,8 +8151,7 @@ ASSEMBLAGE=MACRO(nom="ASSEMBLAGE",
                                          "AMOR_MECA","RIGI_MECA_HYST","IMPE_MECA",
                                          "ONDE_FLUI","RIGI_FLUI_STRU","MASS_FLUI_STRU",
                                          "RIGI_ROTA","RIGI_GEOM","MECA_GYRO","RIGI_GYRO",
-                                         "RIGI_THER","MASS_THER",
-                                         "RIGI_ACOU","MASS_ACOU","AMOR_ACOU",)
+                                         "RIGI_THER","RIGI_ACOU","MASS_ACOU","AMOR_ACOU",)
                                    ),
 
              b_rigi_meca = BLOC( condition = "OPTION=='RIGI_MECA'",
@@ -8253,7 +8172,7 @@ ASSEMBLAGE=MACRO(nom="ASSEMBLAGE",
          VECT_ASSE       =FACT(statut='f',max='**',
              VECTEUR         =SIMP(statut='o',typ=CO),             
              OPTION          =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_ACOU","CHAR_THER") ),
-           b_char_meca     =BLOC(condition = "OPTION == 'CHAR_MECA'", fr="chargement mécanique",
+           b_char_meca     =BLOC(condition = "OPTION == 'CHAR_MECA'", fr="chargement mécanique",
               CHARGE       =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
               MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
               ),
@@ -8271,8 +8190,7 @@ ASSEMBLAGE=MACRO(nom="ASSEMBLAGE",
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
 );
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8289,11 +8207,11 @@ ASSEMBLAGE=MACRO(nom="ASSEMBLAGE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DEVESA G.DEVESA
+# person_in_charge: Georges-cc.devesa at edf.fr
 CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8_sdaster,
-                     fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
+                     fr="Création d'une liste d'amortissements modaux calculés selon la règle du RCC-G",
                      reentrant='n',
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+            UIinfo={"groupes":("Résolution","Dynamique",)},
        regles=(EXCLUS('AMOR_RAYLEIGH','ENER_SOL',),
                EXCLUS('AMOR_RAYLEIGH','AMOR_INTERNE',),
                EXCLUS('AMOR_RAYLEIGH','AMOR_SOL',),
@@ -8308,7 +8226,7 @@ CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8_sdaster,
          ENER_SOL        =FACT(statut='f',
            regles=(UN_PARMI('GROUP_NO_RADIER','GROUP_MA_RADIER'),
                    PRESENT_ABSENT('COEF_GROUP','FONC_GROUP'),
-#  Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
+#  Peut-on remplacer les deux règles suivantes par un ENSEMBLE_('KRX','KRY','KRZ')
                    PRESENT_PRESENT('KRX','KRY'),
                    PRESENT_PRESENT('KRX','KRZ'),
                    PRESENT_ABSENT('COOR_CENTRE','NOEUD_CENTRE'),
@@ -8342,8 +8260,7 @@ CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8_sdaster,
            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.3 ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 15/01/2013   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8360,12 +8277,12 @@ CALC_AMOR_MODAL=OPER(nom="CALC_AMOR_MODAL",op= 172,sd_prod=listr8_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DELMAS J.DELMAS
+# person_in_charge: josselin.delmas at edf.fr
 
 CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=cham_elem,
-                    fr="Calculer un champ élémentaire en thermique et en accoustique à partir de champs déjà calculés",
+                    fr="Calculer un champ élémentaire en thermique et en accoustique à partir de champs déjà calculés",
                     reentrant='n',
-            UIinfo={"groupes":("Résultats et champs","Post-traitements",)},
+            UIinfo={"groupes":("Résultats et champs","Post-traitements",)},
          MODELE          =SIMP(statut='o',typ=modele_sdaster),
          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
 
@@ -8393,8 +8310,7 @@ CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=cham_elem,
          ),
 
 )  ;
-#& MODIF COMMANDE  DATE 15/04/2013   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8411,7 +8327,7 @@ CALC_CHAM_ELEM=OPER(nom="CALC_CHAM_ELEM",op=38,sd_prod=cham_elem,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE SELLENET N.SELLENET
+# person_in_charge: nicolas.sellenet at edf.fr
 def calc_champ_prod(RESULTAT,**args):
    if AsType(RESULTAT) != None : return AsType(RESULTAT)
    raise AsException("type de concept resultat non prevu : RESULTAT=%s (type %s)" \
@@ -8545,24 +8461,26 @@ CALC_CHAMP=OPER(nom="CALC_CHAMP",op=52,sd_prod=calc_champ_prod,reentrant='f',
 
      # Mot-cle facteur CHAMp UTILisateur
      CHAM_UTIL = FACT(statut='f', max='**',
-          regles = (UN_PARMI('FORMULE', 'CRITERE'), ),
+          regles = (UN_PARMI('FORMULE', 'CRITERE', 'NORME'), ),
           NOM_CHAM = SIMP(statut='o', typ='TXM',
-                          fr="Nom du champ utilisé en donnée",),
+                          fr="Nom du champ utilisé en donnée",),
           FORMULE  = SIMP(statut='f', typ=formule, max='**',
-                          fr="Formule permet d'obtenir le critère",),
-          CRITERE  = SIMP(statut='f', typ='TXM',
+                          fr="Formule permet d'obtenir le critère",),
+          CRITERE  = SIMP(statut='f', typ='TXM', max=1,
                           into=('TRACE', 'VMIS', 'INVA_2'),
-                          fr="Calcule d'un critère pré-défini",),
+                          fr="Calcul d'un critère pré-défini",),
+          NORME    = SIMP(statut='f', typ='TXM', max=1,
+                          into=('L2', 'FROBENIUS', ),
+                          fr="Calcul d'une norme pré-définie",),
           NUME_CHAM_RESU = SIMP(statut='o', typ='I', val_min=1, val_max=20,
-                          fr="Numéro du champ produit. Exemple: 6 produit le champ UT06",),
+                          fr="Numéro du champ produit. Exemple: 6 produit le champ UT06",),
      ),
 
      INFO             = SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
 
      TITRE            = SIMP(statut='f',typ='TXM',max='**'),
 );
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8579,10 +8497,10 @@ CALC_CHAMP=OPER(nom="CALC_CHAMP",op=52,sd_prod=calc_champ_prod,reentrant='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=cham_no_sdaster,
-                    fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
+                    fr="Calcul des seconds membres associés à des charges cinématiques (conditions aux limites non dualisées)",
                     reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
          NUME_DDL        =SIMP(statut='o',typ=nume_ddl_sdaster ),
@@ -8590,8 +8508,7 @@ CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=cham_no_sdaster,
          INST            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8608,7 +8525,7 @@ CALC_CHAR_CINE=OPER(nom="CALC_CHAR_CINE",op= 102,sd_prod=cham_no_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DEVESA G.DEVESA
+# person_in_charge: Georges-cc.devesa at edf.fr
 def calc_char_seisme_prod(MATR_MASS,**args ):
   if AsType(MATR_MASS) == matr_asse_depl_r : return cham_no_sdaster
   raise AsException("type de concept resultat non prevu")
@@ -8618,7 +8535,7 @@ CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op=  92,sd_prod=calc_char_seisme_pr
             UIinfo={"groupes":("Matrices et vecteurs",)},
          regles=(UN_PARMI('MONO_APPUI','MODE_STAT' ),),
          MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r,fr="Matrice de masse" ),
-         DIRECTION       =SIMP(statut='o',typ='R',max=6,fr="Directions du séisme imposé"),
+         DIRECTION       =SIMP(statut='o',typ='R',max=6,fr="Directions du séisme imposé"),
          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
          MODE_STAT       =SIMP(statut='f',typ=(mode_meca,) ),
          b_mode_stat     =BLOC ( condition = "MODE_STAT != None",
@@ -8628,8 +8545,7 @@ CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op=  92,sd_prod=calc_char_seisme_pr
          ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 20/09/2011   AUTEUR CORUS M.CORUS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -8646,7 +8562,7 @@ CALC_CHAR_SEISME=OPER(nom="CALC_CHAR_SEISME",op=  92,sd_prod=calc_char_seisme_pr
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE CORUS M.CORUS
+# person_in_charge: mathieu.corus at edf.fr
 CALC_CORR_SSD=OPER(nom="CALC_CORR_SSD",op=  91,sd_prod=table_container,
                     fr="Qualite d'un modele reduit en dynamique",
                     reentrant='n',
@@ -8662,8 +8578,7 @@ CALC_CORR_SSD=OPER(nom="CALC_CORR_SSD",op=  91,sd_prod=table_container,
          ),
          TITRE          =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 25/03/2013   AUTEUR BOTTONI M.BOTTONI 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8680,7 +8595,7 @@ CALC_CORR_SSD=OPER(nom="CALC_CORR_SSD",op=  91,sd_prod=table_container,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BOTTONI M.BOTTONI
+# person_in_charge: marina.bottoni at edf.fr
 
 
 def calc_ecrevisse_prod(self,CHARGE_MECA,CHARGE_THER1,CHARGE_THER2,TABLE,DEBIT,**args):
@@ -8698,7 +8613,7 @@ CALC_ECREVISSE=MACRO(nom="CALC_ECREVISSE",
                      op=OPS('Macro.calc_ecrevisse_ops.calc_ecrevisse_ops'),
                      sd_prod=calc_ecrevisse_prod,
                      reentrant='n',
-                     UIinfo={"groupes":("Outils-métier",)},fr="Procedure de couplage avec Ecrevisse",
+                     UIinfo={"groupes":("Outils-métier",)},fr="Procedure de couplage avec Ecrevisse",
                      regles   = (UN_PARMI('LOGICIEL','VERSION'),),
 
 #      CONCEPTS SORTANTS : 2 CHARGEMENTS THERMIQUE + 1 MECANIQUE + 2 TABLES POUR LE POST-TRAITEMENT
@@ -8799,7 +8714,7 @@ CALC_ECREVISSE=MACRO(nom="CALC_ECREVISSE",
            b_ecou_gele         =BLOC(condition="ECOULEMENT=='GELE'",fr="Modele d'ecoulement gele",
              PRESS_EBULLITION    =SIMP(statut='o',typ='R',fr="Pression d'ebullition [corrp*psat(t)]" ),
            ),
-           FROTTEMENT          =SIMP(statut='o',typ='I',into=(-14,-13,-12,-11,-4,-3,-2,-1,0,1,2,3,4,11,12,13,14),fr="Correlation de frottement [ifrot]" ),
+           FROTTEMENT          =SIMP(statut='o',typ='I',into=(-4,-3,-2,-1,0,1,2,3,4,11,12,13,14),fr="Correlation de frottement [ifrot]" ),
            b_frottement        =BLOC(condition="FROTTEMENT<0",fr="Modele d'ecoulement gele",
              REYNOLDS_LIM        =SIMP(statut='o',typ='R',fr="Coefficient de Reynolds limite [relim]" ),
              FROTTEMENT_LIM      =SIMP(statut='o',typ='R',fr="Coefficient de frottement impose [frtlim]" ),
@@ -8837,8 +8752,7 @@ CALC_ECREVISSE=MACRO(nom="CALC_ECREVISSE",
          INFO               =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 
 )  ;
-#& MODIF COMMANDE  DATE 13/11/2012   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8855,19 +8769,19 @@ CALC_ECREVISSE=MACRO(nom="CALC_ECREVISSE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DELMAS J.DELMAS
+# person_in_charge: josselin.delmas at edf.fr
 def calc_erreur_prod(RESULTAT,**args):
    if AsType(RESULTAT) != None : return AsType(RESULTAT)
    raise AsException("type de concept resultat non prevu")
 
 CALC_ERREUR=OPER(nom="CALC_ERREUR",op=42,sd_prod=calc_erreur_prod,reentrant='f',
-            UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
-            fr="Compléter ou créer un résultat en calculant des champs d'erreur",
+            UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
+            fr="Compléter ou créer un résultat en calculant des champs d'erreur",
      MODELE          =SIMP(statut='f',typ=modele_sdaster),
      CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
 
      RESULTAT        =SIMP(statut='o',typ=resultat_sdaster,
-                                      fr="Résultat d'une commande globale"),
+                                      fr="Résultat d'une commande globale"),
 
      regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
                     'NOEUD_CMP','LIST_INST','LIST_FREQ','LIST_ORDRE','NOM_CAS'),
@@ -8890,11 +8804,11 @@ CALC_ERREUR=OPER(nom="CALC_ERREUR",op=42,sd_prod=calc_erreur_prod,reentrant='f',
      TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),defaut="OUI"),
 
 #-----------------------------------------------------------------------
-# pour conserver la compatibilité mais ne sert à rien
+# pour conserver la compatibilité mais ne sert à rien
 #-----------------------------------------------------------------------
      CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
      EXCIT           =FACT(statut='f',max='**',
-                           fr="Charges contenant les températures, les efforts répartis pour les poutres...",
+                           fr="Charges contenant les températures, les efforts répartis pour les poutres...",
                            regles=(EXCLUS('FONC_MULT','COEF_MULT',),),
                     CHARGE          =SIMP(statut='o',typ=(char_meca,char_cine_meca),),
                     FONC_MULT       =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),),
@@ -8904,25 +8818,24 @@ CALC_ERREUR=OPER(nom="CALC_ERREUR",op=42,sd_prod=calc_erreur_prod,reentrant='f',
      OPTION =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=C_NOM_CHAM_INTO(phenomene='ERREUR',),),
 
      b_erre_qi =BLOC(condition = "au_moins_un(OPTION, ('QIRE_ELEM','QIZ1_ELEM','QIZ2_ELEM','QIRE_ELNO','QIRE_NOEU'))",
-                     RESU_DUAL=SIMP(statut='o',typ=resultat_sdaster,fr="Résultat du problème dual"),),
+                     RESU_DUAL=SIMP(statut='o',typ=resultat_sdaster,fr="Résultat du problème dual"),),
 
      b_sing    =BLOC(condition= "au_moins_un(OPTION, 'SING_ELEM')",
                     PREC_ERR=SIMP(statut='o',typ='R',val_min= 0.,
-                                  fr="Précision demandée pour calculer la carte de taille des éléments"),
+                                  fr="Précision demandée pour calculer la carte de taille des éléments"),
                     TYPE_ESTI=SIMP(statut='f',typ='TXM',into=("ERME_ELEM","ERZ1_ELEM","ERZ2_ELEM",
                                                               "QIRE_ELEM","QIZ1_ELEM","QIZ2_ELEM",),
                                    fr="Choix de l'estimateur d'erreur"),),
 
 #-------------------------------------------------------------------
-#    Catalogue commun SOLVEUR (utilisé actuellement pour estimateur d'erreur ZZ1)
+#    Catalogue commun SOLVEUR (utilisé actuellement pour estimateur d'erreur ZZ1)
      SOLVEUR         =C_SOLVEUR('CALC_ERREUR'),
 #-------------------------------------------------------------------
 
      INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
      TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 ) ;
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -8940,7 +8853,7 @@ CALC_ERREUR=OPER(nom="CALC_ERREUR",op=42,sd_prod=calc_erreur_prod,reentrant='f',
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
 
-# RESPONSABLE NISTOR I.NISTOR
+# person_in_charge: albert.alarcon at edf.fr
 
 
 def calc_essai_prod(self,RESU_IDENTIFICATION,
@@ -8977,7 +8890,7 @@ CALC_ESSAI = MACRO(nom       = 'CALC_ESSAI',
                    op        = OPS('Macro.calc_essai_ops.calc_essai_ops'),
                    sd_prod   = calc_essai_prod,
                    reentrant = 'n',
-                   UIinfo    = {"groupes":("Outils-métier","Dynamique",)},
+                   UIinfo    = {"groupes":("Outils-métier","Dynamique",)},
                    fr        = "Outil de post-traitement interactif pour Meidee ",
                    INTERACTIF  = SIMP( statut='f',typ='TXM',into=('OUI','NON'),defaut='OUI' ),
                    RESU_IDENTIFICATION = FACT( statut='f',max='**',
@@ -9048,8 +8961,6 @@ CALC_ESSAI = MACRO(nom       = 'CALC_ESSAI',
                                           ),
                         );
 
-#& MODIF COMMANDE  DATE 06/08/2012   AUTEUR CUVILLIE M.CUVILLIEZ 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -9066,7 +8977,7 @@ CALC_ESSAI = MACRO(nom       = 'CALC_ESSAI',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE CUVILLIEZ S.CUVILLIEZ
+# person_in_charge: sam.cuvilliez at edf.fr
 
 def calc_essai_geomeca_prod(self,                            
                             ESSAI_TD,
@@ -9095,9 +9006,9 @@ CALC_ESSAI_GEOMECA = MACRO(nom="CALC_ESSAI_GEOMECA",
                      reentrant='n',
                      fr="",
                      MATER       = SIMP(statut='o',typ=mater_sdaster),
-                     COMP_INCR   = C_COMP_INCR(),
+                     COMPORTEMENT   = C_COMPORTEMENT(),
                      CONVERGENCE = C_CONVERGENCE(),
-                     regles=(AU_MOINS_UN('COMP_INCR'), # car COMP_INCR est facultatif dans C_COMP_INCR
+                     regles=(AU_MOINS_UN('COMPORTEMENT'), # car COMPORTEMENT est facultatif dans C_COMPORTEMENT
                              AU_MOINS_UN(
                                          'ESSAI_TD'    ,
                                          'ESSAI_TND'   ,
@@ -9196,8 +9107,7 @@ CALC_ESSAI_GEOMECA = MACRO(nom="CALC_ESSAI_GEOMECA",
                      #                 ),
 
                     INFO = SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),)
-#& MODIF COMMANDE  DATE 29/04/2013   AUTEUR GREFFET N.GREFFET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -9214,7 +9124,7 @@ CALC_ESSAI_GEOMECA = MACRO(nom="CALC_ESSAI_GEOMECA",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ASSIRE A.ASSIRE
+# person_in_charge: aimery.assire at edf.fr
 
 def calc_europlexus_prod(self,COURBE=None,**args):
   if COURBE is not None:
@@ -9225,10 +9135,13 @@ CALC_EUROPLEXUS = MACRO(nom="CALC_EUROPLEXUS",
                         op=OPS('Macro.calc_europlexus_ops.calc_europlexus_ops'),
                         sd_prod=calc_europlexus_prod,
                         reentrant='n',
-                        UIinfo={"groupes":("Outils-métier","Dynamique",)},
+                        UIinfo={"groupes":("Outils-métier","Dynamique",)},
                         fr="Chainage Code_Aster-Europlexus",
-                        regles=(PRESENT_ABSENT('ETAT_INIT','MODELE'),PRESENT_ABSENT('ETAT_INIT','CARA_ELEM'),
-                        PRESENT_ABSENT('ETAT_INIT','CHAM_MATER'),EXCLUS('ETAT_INIT','FONC_PARASOL'),),
+                        regles=(PRESENT_ABSENT('ETAT_INIT','MODELE'),
+                                PRESENT_ABSENT('ETAT_INIT','CARA_ELEM'),
+                                PRESENT_ABSENT('ETAT_INIT','CHAM_MATER'),
+                                EXCLUS('ETAT_INIT','FONC_PARASOL'),
+                                AU_MOINS_UN('COMPORTEMENT'),),
         LOGICIEL = SIMP(statut='f', typ='TXM', defaut='/home/europlex/EPXD/bin/europlexus'),
         LANCEMENT = SIMP(statut='f', typ='TXM', defaut='OUI',into=('OUI','NON')),
 
@@ -9254,7 +9167,7 @@ CALC_EUROPLEXUS = MACRO(nom="CALC_EUROPLEXUS",
 
 
         CHAM_MATER = SIMP(statut='f',typ=cham_mater),
-        COMP_INCR  =C_COMP_INCR('CALC_EUROPLEXUS'),
+        COMPORTEMENT  =C_COMPORTEMENT('CALC_EUROPLEXUS'),
 
         EXCIT      = FACT(statut='o',max='**',
            CHARGE         = SIMP(statut='o',typ=(char_meca,)),
@@ -9360,8 +9273,7 @@ CALC_EUROPLEXUS = MACRO(nom="CALC_EUROPLEXUS",
 
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=( 1, 2 ) ),
         ) ;
-#& MODIF COMMANDE  DATE 26/06/2012   AUTEUR TRAN V-X.TRAN 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -9378,7 +9290,7 @@ CALC_EUROPLEXUS = MACRO(nom="CALC_EUROPLEXUS",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ANGLES J.ANGLES
+# person_in_charge: van-xuan.tran at edf.fr
 def calc_fatigue_prod(TYPE_CALCUL,OPTION,**args):
   if TYPE_CALCUL == "CUMUL_DOMMAGE" : return cham_elem
   if TYPE_CALCUL == "FATIGUE_MULTI" and OPTION == "DOMA_ELGA": return cham_elem
@@ -9387,7 +9299,7 @@ def calc_fatigue_prod(TYPE_CALCUL,OPTION,**args):
   raise AsException("type de calcul non prevu")
 
 CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant='n',
-                  fr="Calculer un champ de dommage de fatigue subit par une structure et déterminer le plan critique"
+                  fr="Calculer un champ de dommage de fatigue subit par une structure et déterminer le plan critique"
                       +" dans lequel le cisaillement est maximal.",
             UIinfo={"groupes":("Post-traitements","Rupture",)},
 
@@ -9412,7 +9324,7 @@ CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant
                                    ),
                            ),
              b_epsi   =BLOC(condition = "OPTION != 'DOMA_ELNO_SIGM' and OPTION != 'DOMA_ELGA_SIGM'",
-                               fr="Calcul a partir d un champ de déformations.",
+                               fr="Calcul a partir d un champ de déformations.",
                HISTOIRE        =FACT(statut='o',
                RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,
                                                    evol_noli) ),
@@ -9448,7 +9360,7 @@ CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant
          ),
 
          b_fatigue_multi   =BLOC(condition = "TYPE_CALCUL == 'FATIGUE_MULTI'",
-                                 fr="Plan critique dans le cas de la fatigue multiaxiale à grand nombre de cycles.",
+                                 fr="Plan critique dans le cas de la fatigue multiaxiale à grand nombre de cycles.",
            TYPE_CHARGE   =SIMP(statut='o',typ='TXM',into=("PERIODIQUE","NON_PERIODIQUE") ),
            OPTION        =SIMP(statut='o',typ='TXM',into=("DOMA_ELGA","DOMA_NOEUD") ),
            RESULTAT      =SIMP(statut='o',typ=(evol_elas, evol_noli) ),
@@ -9470,11 +9382,12 @@ CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant
                b_fati_pf  =BLOC(condition = "(CRITERE == 'FORMULE_CRITERE')",
                    FORMULE_GRDEQ   = SIMP(statut='o',typ=(fonction_sdaster,formule) ),
                    COURBE_GRD_VIE  = SIMP(statut='o',typ='TXM',into=("WOHLER","MANSON_C","FORM_VIE") ),
+                   FORMULE_CRITIQUE = SIMP(statut='f',typ=(fonction_sdaster,formule) ),
                    b_fati_pfvie  = BLOC(condition = "(COURBE_GRD_VIE == 'FORM_VIE')",
                         FORMULE_VIE   =SIMP(statut='o',typ=(fonction_sdaster,formule) ),
                   ),
                ),
-               
+
                INST_INIT_CYCL =SIMP(statut='f',typ='R',min=1, max=1),
                INST_CRIT      =SIMP(statut='f',typ='TXM',into=("RELATIF","ABSOLU",) ),
                regles=(PRESENT_PRESENT('INST_INIT_CYCL','INST_CRIT', ),),
@@ -9503,8 +9416,7 @@ CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant
 
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 21/06/2011   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -9521,7 +9433,7 @@ CALC_FATIGUE=OPER(nom="CALC_FATIGUE",op= 151,sd_prod=calc_fatigue_prod,reentrant
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 def calc_ferraillage_prod(RESULTAT,**args):
    if AsType(RESULTAT) != None : return AsType(RESULTAT)
@@ -9529,14 +9441,14 @@ def calc_ferraillage_prod(RESULTAT,**args):
 
 
 CALC_FERRAILLAGE=OPER(nom="CALC_FERRAILLAGE",op=175,sd_prod=calc_ferraillage_prod, reentrant='o',
-            UIinfo={"groupes":("Post-traitements","Outils-métier",)},
-                 fr="calcul de cartes de densité de ferraillage ",
+            UIinfo={"groupes":("Post-traitements","Outils-métier",)},
+                 fr="calcul de cartes de densité de ferraillage ",
 
          RESULTAT        =SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans,) ),
 
 
 #====
-# Sélection des numéros d'ordre pour lesquels on fait le calcul :
+# Sélection des numéros d'ordre pour lesquels on fait le calcul :
 #====
          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
          NUME_ORDRE      =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
@@ -9557,23 +9469,24 @@ CALC_FERRAILLAGE=OPER(nom="CALC_FERRAILLAGE",op=175,sd_prod=calc_ferraillage_pro
 
 #
 #====
-# Définition des grandeurs caractéristiques
+# Définition des grandeurs caractéristiques
 #====
 #
          TYPE_COMB    =SIMP(statut='o',typ='TXM',into=('ELU','ELS')),
 
-#        mot clé facteur répétable pour assigner les caractéristiques locales par zones topologiques (GROUP_MA)
+#        mot clé facteur répétable pour assigner les caractéristiques locales par zones topologiques (GROUP_MA)
          AFFE  =FACT(statut='o',max='**',
            regles=(UN_PARMI('TOUT','GROUP_MA','MAILLE'),),
            TOUT       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
            GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
            MAILLE     =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
            ENROBG     =SIMP(statut='o',typ='R'), # enrobage
-           CEQUI      =SIMP(statut='f',typ='R'), # coefficient d'équivalence acier/béton  (pour ELS)
+           CEQUI      =SIMP(statut='f',typ='R'), # coefficient d'équivalence acier/béton  (pour ELS)
            SIGM_ACIER =SIMP(statut='o',typ='R'), # contrainte admissible dans l'acier
-           SIGM_BETON =SIMP(statut='o',typ='R'), # contrainte admissible dans le béton
+           SIGM_BETON =SIMP(statut='o',typ='R'), # contrainte admissible dans le béton
            PIVA       =SIMP(statut='f',typ='R'), # valeur du pivot a  (pour ELU)
            PIVB       =SIMP(statut='f',typ='R'), # valeur du pivot b  (pour ELU)
+           ES         =SIMP(statut='f',typ='R'), # valeur du Module d'Young de l'acier (pour ELU)
            ),
       )
 
@@ -9581,25 +9494,24 @@ CALC_FERRAILLAGE=OPER(nom="CALC_FERRAILLAGE",op=175,sd_prod=calc_ferraillage_pro
 ##############################################################################################################
 # Remarques :
 #-----------
-#        l'épaisseur des coques sera récupérée automatiquement
-#        via le cara_elem sous-jacent au résultat
+#        l'épaisseur des coques sera récupérée automatiquement
+#        via le cara_elem sous-jacent au résultat
 
-# Le résultat produit est un champ constant par éléments associé à la grandeur FER2_R
+# Le résultat produit est un champ constant par éléments associé à la grandeur FER2_R
 # qui comporte les composantes :
 #
-#     DNSXI  densité d'acier longitudinal suivant X, peau inf
-#     DNSXS  densité d'acier longitudinal suivant X, peau sup
-#     DNSYI  densité d'acier longitudinal suivant Y, peau inf
-#     DNSYS  densité d'acier longitudinal suivant Y, peau sup
-#     DNST   densité d'acier transversal
+#     DNSXI  densité d'acier longitudinal suivant X, peau inf
+#     DNSXS  densité d'acier longitudinal suivant X, peau sup
+#     DNSYI  densité d'acier longitudinal suivant Y, peau inf
+#     DNSYS  densité d'acier longitudinal suivant Y, peau sup
+#     DNST   densité d'acier transversal à l'ELU
 #     SIGMBE contrainte beton
-#     EPSIBE deformation béton
+#     EPSIBE deformation béton
+
+# arrêt en erreur si:
+# - EFGE_ELNO n'a pas été précédemment calculé et n'est donc pas présent dans la structure de données RESULTAT
+# - si aucun CARA_ELEM n'est récupérable via la structure de données RESULTAT
 
-# arrêt en erreur si:
-# - EFGE_ELNO n'a pas été précédemment calculé et n'est donc pas présent dans la structure de données RESULTAT
-# - si aucun CARA_ELEM n'est récupérable via la structure de données RESULTAT
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -9616,13 +9528,13 @@ CALC_FERRAILLAGE=OPER(nom="CALC_FERRAILLAGE",op=175,sd_prod=calc_ferraillage_pro
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ADOBES A.ADOBES
+# person_in_charge: andre.adobes at edf.fr
 CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu_sdaster,
                     reentrant='n',
-                    fr="Calculer les paramètres modaux d'une structure soumise à un écoulement",
+                    fr="Calculer les paramètres modaux d'une structure soumise à un écoulement",
             UIinfo={"groupes":("Matrices et vecteurs",)},
          VITE_FLUI       =FACT(statut='f',
-                               fr="Définir la plage de vitesse fluide étudiée",
+                               fr="Définir la plage de vitesse fluide étudiée",
            VITE_MIN        =SIMP(statut='f',typ='R' ),
            VITE_MAX        =SIMP(statut='f',typ='R' ),
            NB_POIN         =SIMP(statut='f',typ='I' ),
@@ -9638,13 +9550,12 @@ CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu_sdaster,
          ),
          TYPE_FLUI_STRU  =SIMP(statut='o',typ=type_flui_stru ),
          IMPRESSION      =FACT(statut='f',
-                               fr="Choix des informations à imprimer dans le fichier RESULTAT",
+                               fr="Choix des informations à imprimer dans le fichier RESULTAT",
            PARA_COUPLAGE   =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
            DEFORMEE        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -9661,7 +9572,7 @@ CALC_FLUI_STRU=OPER(nom="CALC_FLUI_STRU",op= 144,sd_prod=melasflu_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 def calc_fonc_interp_prod(FONCTION, NOM_PARA_FONC, **args):
    if   AsType(FONCTION) == nappe_sdaster:
       return nappe_sdaster
@@ -9679,7 +9590,7 @@ def calc_fonc_interp_prod(FONCTION, NOM_PARA_FONC, **args):
 
 CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=calc_fonc_interp_prod,
                       docu="U4.32.01",reentrant='n',
-           fr="Définit une fonction (ou une nappe) à partir d'une fonction FORMULE à 1 ou 2 variables",
+           fr="Définit une fonction (ou une nappe) à partir d'une fonction FORMULE à 1 ou 2 variables",
            UIinfo={"groupes":("Fonctions",)},
          regles=(UN_PARMI('VALE_PARA','LIST_PARA'),),
          FONCTION        =SIMP(statut='o',typ=(formule,fonction_sdaster,nappe_sdaster,fonction_c) ),
@@ -9702,8 +9613,7 @@ CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=calc_fonc_interp_pr
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
 )  ;
-#& MODIF COMMANDE  DATE 27/08/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -9720,7 +9630,7 @@ CALC_FONC_INTERP=OPER(nom="CALC_FONC_INTERP",op= 134,sd_prod=calc_fonc_interp_pr
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 def calc_fonction_prod(self, DERIVE, EXTRACTION, INTEGRE, INVERSE, COMB, COMB_C, MULT,
                        ENVELOPPE, FRACTILE, SPEC_OSCI, ASSE, FFT, COMPOSE, CORR_ACCE,
                        PUISSANCE, LISS_ENVELOP, ABS, REGR_POLYNOMIALE, DSP, **args):
@@ -9732,19 +9642,19 @@ def calc_fonction_prod(self, DERIVE, EXTRACTION, INTEGRE, INVERSE, COMB, COMB_C,
       type_vale=AsType(COMB[0]['FONCTION'])
       for mcfact in COMB :
           if(AsType(mcfact['FONCTION'])!=type_vale):
-             raise AsException("CALC_FONCTION/COMB : pas de types hétérogènes nappe/fonction")
+             raise AsException("CALC_FONCTION/COMB : pas de types hétérogènes nappe/fonction")
       return type_vale
    if (COMB_C      != None):
       vale=COMB_C[0]['FONCTION']
       if(AsType(vale) == nappe_sdaster):
          for mcfact in COMB_C[1:] :
              if(AsType(mcfact['FONCTION'])!=nappe_sdaster):
-                raise AsException("CALC_FONCTION/COMB_C : pas de types hétérogènes nappe/fonction")
+                raise AsException("CALC_FONCTION/COMB_C : pas de types hétérogènes nappe/fonction")
          return nappe_sdaster
       else:
          for mcfact in COMB_C :
              if(AsType(mcfact['FONCTION'])==nappe_sdaster):
-                raise AsException("CALC_FONCTION/COMB_C : pas de types hétérogènes nappe/fonction")
+                raise AsException("CALC_FONCTION/COMB_C : pas de types hétérogènes nappe/fonction")
          return fonction_c
    if (ENVELOPPE   != None): return AsType(ENVELOPPE[0]['FONCTION'])
    if (FRACTILE    != None): return AsType(FRACTILE[0] ['FONCTION'])
@@ -9757,7 +9667,7 @@ def calc_fonction_prod(self, DERIVE, EXTRACTION, INTEGRE, INVERSE, COMB, COMB_C,
       type_vale = AsType(MULT[0]['FONCTION'])
       for mcfact in MULT:
           if(AsType(mcfact['FONCTION']) != type_vale):
-             raise AsException("CALC_FONCTION/MULT : pas de types hétérogènes nappe/fonction")
+             raise AsException("CALC_FONCTION/MULT : pas de types hétérogènes nappe/fonction")
       return type_vale
    if (FFT         != None):
       vale=FFT[0]['FONCTION']
@@ -9774,28 +9684,28 @@ def calc_fonction_prod(self, DERIVE, EXTRACTION, INTEGRE, INVERSE, COMB, COMB_C,
 CALC_FONCTION=MACRO(nom="CALC_FONCTION",
                     op=OPS('Macro.calc_fonction_ops.calc_fonction_ops'),
                     sd_prod=calc_fonction_prod,
-                    fr="Effectue des opérations mathématiques sur des concepts de type fonction",
+                    fr="Effectue des opérations mathématiques sur des concepts de type fonction",
                     reentrant='n',
                     UIinfo={"groupes":("Fonctions",)},
          regles=(UN_PARMI('DERIVE', 'INTEGRE', 'SPEC_OSCI', 'DSP', 'FFT', 'CORR_ACCE',
                           'COMB', 'COMB_C', 'MULT', 'ASSE', 'INVERSE', 'ABS',
                           'ENVELOPPE', 'COMPOSE', 'EXTRACTION', 'PUISSANCE', 
                           'LISS_ENVELOP', 'FRACTILE', 'REGR_POLYNOMIALE'),),
-         FFT             =FACT(statut='f',fr="Transformée de Fourier ou de son inverse",
+         FFT             =FACT(statut='f',fr="Transformée de Fourier ou de son inverse",
            FONCTION        =SIMP(statut='o',typ=(fonction_sdaster,fonction_c) ),
            METHODE         =SIMP(statut='f',typ='TXM',defaut="PROL_ZERO",into=("PROL_ZERO","TRONCATURE","COMPLET") ),
            b_syme          =BLOC ( condition = " AsType(FONCTION)==fonction_c ",
              SYME           =SIMP(statut='f',typ='TXM',into=('OUI','NON'),defaut='OUI' ),
            ),
          ),
-         DERIVE          =FACT(statut='f',fr="Dérivée d une fonction",
+         DERIVE          =FACT(statut='f',fr="Dérivée d une fonction",
            METHODE         =SIMP(statut='f',typ='TXM',defaut="DIFF_CENTREE",into=("DIFF_CENTREE",) ),
            FONCTION        =SIMP(statut='o',typ=fonction_sdaster ),
          ),
-         INTEGRE         =FACT(statut='f',fr="Intégrale d'une fonction",
+         INTEGRE         =FACT(statut='f',fr="Intégrale d'une fonction",
            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
            FONCTION        =SIMP(statut='o',typ=fonction_sdaster),
-           COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
+           COEF            =SIMP(statut='f',typ='R',defaut= 0.E+0,fr="Valeur de la constante d intégration" ),
          ),
          LISS_ENVELOP    = FACT(statut='f',fr="Lissage d une enveloppe",
            NAPPE           =SIMP(statut='o',typ=nappe_sdaster ),
@@ -9804,45 +9714,51 @@ CALC_FONCTION=MACRO(nom="CALC_FONCTION",
            ELARG           =SIMP(statut='f',typ='R',defaut =0.1 ),
            TOLE_LISS       =SIMP(statut='f',typ='R',defaut =0.25 ),
          ),
-         REGR_POLYNOMIALE = FACT(statut='f',fr="Régression polynomiale d'une fonction",
+         REGR_POLYNOMIALE = FACT(statut='f',fr="Régression polynomiale d'une fonction",
            FONCTION        =SIMP(statut='o',typ=fonction_sdaster),
            DEGRE           =SIMP(statut='o',typ='I'),
          ),
-         SPEC_OSCI       =FACT(statut='f',fr="Spectre d'oscillateur",
-           METHODE         =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM",) ),
+        SPEC_OSCI       =FACT(statut='f',fr="Spectre d'oscillateur",
+           METHODE         =SIMP(statut='f',typ='TXM',defaut="NIGAM",into=("NIGAM","HARMO","RICE") ),
            FONCTION        =SIMP(statut='o',typ=fonction_sdaster ),
            AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
            LIST_FREQ       =SIMP(statut='f',typ=listr8_sdaster ),
-           FREQ            =SIMP(statut='f',typ='R',max='**'),
+           FREQ            =SIMP(statut='f',typ='R',  max='**'),
            NORME           =SIMP(statut='o',typ='R',fr="Valeur de la norme du spectre d oscillateur" ),
            NATURE          =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
-           NATURE_FONC     =SIMP(statut='f',typ='TXM',defaut="ACCE",into=("DEPL","VITE","ACCE") ),
-         ),
-         DSP             =FACT(statut='f', fr="Densité spectrale",
+           b_methode       =BLOC(condition = "METHODE !='RICE' ",
+             NATURE_FONC     =SIMP(statut='f', typ='TXM', defaut="ACCE", into=("ACCE",),),),
+           b_rice          =BLOC(condition = "METHODE =='RICE' ",
+             DUREE           =SIMP(statut='o', typ='R', val_min=0.,
+                                 fr="durée de la phase forte pour facteur de pic"),
+             NATURE_FONC     =SIMP(statut='f', typ='TXM', defaut="DSP", into=("DSP",),),),
+         ),
+         DSP             =FACT(statut='f', fr="Densité spectrale",
            FONCTION        =SIMP(statut='o', typ=fonction_sdaster ),
            AMOR_REDUIT     =SIMP(statut='o', typ='R', val_min=0., val_max=1.),
            NORME           =SIMP(statut='o', typ='R'),
            LIST_FREQ       =SIMP(statut='f', typ=listr8_sdaster ),
-           FREQ            =SIMP(statut='f', typ='R', max='**'),
-           FREQ_COUP       =SIMP(statut='o', typ='R', fr="fréquence de coupure" ),
+           FREQ_PAS            =SIMP(statut='f', typ='R'),
+                regles=(UN_PARMI('FREQ_PAS','LIST_FREQ'),),
+           FREQ_COUP       =SIMP(statut='o', typ='R', fr="fréquence de coupure" ),
            DUREE           =SIMP(statut='o', typ='R', val_min=0.,
-                                 fr="durée de la phase forte pour facteur de peak"),
+                                 fr="durée de la phase forte pour facteur de peak"),
            FRACT           =SIMP(statut='o', typ='R', defaut=0.5, val_min=0., val_max=1., fr="fractile" ),
          ),
          ABS             =FACT(statut='f',fr="Valeur absolue d'une fonction",
            FONCTION        =SIMP(statut='o',typ=fonction_sdaster,),
          ),
-         COMB            =FACT(statut='f',max='**',fr="Combinaison linéaire réelle de fonctions",
+         COMB            =FACT(statut='f',max='**',fr="Combinaison linéaire réelle de fonctions",
            FONCTION        =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster) ),
-           COEF            =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
+           COEF            =SIMP(statut='o',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
          ),
-         COMB_C          =FACT(statut='f',max='**',fr="Combinaison linéaire complexe de fonctions",
+         COMB_C          =FACT(statut='f',max='**',fr="Combinaison linéaire complexe de fonctions",
            regles=(UN_PARMI('COEF_R','COEF_C'),),
            FONCTION        =SIMP(statut='o',typ=(fonction_sdaster,fonction_c,nappe_sdaster) ),
-           COEF_R          =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
-           COEF_C          =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
+           COEF_R          =SIMP(statut='f',typ='R',fr="Coefficient réel de la combinaison linéaire associée à la fonction" ),
+           COEF_C          =SIMP(statut='f',typ='C',fr="Coefficient complexe de la combinaison linéaire associée à la fonction" ),
          ),
-         MULT            =FACT(statut='f',max='**',fr="Produit de fonctions réelles",
+         MULT            =FACT(statut='f',max='**',fr="Produit de fonctions réelles",
            FONCTION        =SIMP(statut='o',typ=(fonction_sdaster,fonction_c,nappe_sdaster) ),
          ),
          b_comb          =BLOC ( condition = "COMB != None or COMB_C != None " \
@@ -9855,7 +9771,7 @@ CALC_FONCTION=MACRO(nom="CALC_FONCTION",
          ),
          EXTRACTION      =FACT(statut='f',fr="Extraction sur une fonction complexe",
            FONCTION        =SIMP(statut='o',typ=fonction_c),
-           PARTIE          =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
+           PARTIE          =SIMP(statut='o',typ='TXM',into=("REEL","IMAG","MODULE","PHASE"),fr="Partie à extraire"),
          ),
          ENVELOPPE       =FACT(statut='f',fr="Enveloppe d une famille de fonctions",
            FONCTION        =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster),max='**' ),
@@ -9873,7 +9789,7 @@ CALC_FONCTION=MACRO(nom="CALC_FONCTION",
             CORR_DEPL       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
             FONCTION        =SIMP(statut='o',typ=fonction_sdaster ),
          ),
-         PUISSANCE       =FACT(statut='f',fr="Fonction élevée à une puissance",
+         PUISSANCE       =FACT(statut='f',fr="Fonction élevée à une puissance",
             FONCTION      =SIMP(statut='o', typ=(fonction_sdaster,nappe_sdaster) ),
             EXPOSANT      =SIMP(statut='f', typ='I', defaut=1 ),
          ),
@@ -9883,19 +9799,18 @@ CALC_FONCTION=MACRO(nom="CALC_FONCTION",
          NOM_PARA        =SIMP(statut='f',typ='TXM',into=C_PARA_FONCTION() ),
          NOM_RESU        =SIMP(statut='f',typ='TXM' ),
          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG"),
-                               fr="Type d'interpolation pour les abscisses et les ordonnées de la " \
-                                  "fonction ou bien pour le paramètre de la nappe."),
+                               fr="Type d'interpolation pour les abscisses et les ordonnées de la " \
+                                  "fonction ou bien pour le paramètre de la nappe."),
          PROL_DROITE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
          NOM_PARA_FONC   =SIMP(statut='f',typ='TXM',into=C_PARA_FONCTION() ),
          INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,into=("NON","LIN","LOG"),
-                                 fr="Type d'interpolation pour les abscisses et les ordonnées de la fonction"),
+                                 fr="Type d'interpolation pour les abscisses et les ordonnées de la fonction"),
          PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
          PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',into=("CONSTANT","LINEAIRE","EXCLU") ),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )
-#& MODIF COMMANDE  DATE 19/05/2011   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -9912,7 +9827,7 @@ CALC_FONCTION=MACRO(nom="CALC_FONCTION",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GREFFET N.GREFFET
+# person_in_charge: nicolas.greffet at edf.fr
 CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
                    fr="Calculer l'effet de surpression hydrodynamique due au mouvement d'entrainement de la structure"
                        +" en analyse sismique",
@@ -9948,8 +9863,7 @@ CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
          SOLVEUR         =C_SOLVEUR('CALC_FORC_AJOU'),
 #-------------------------------------------------------------------
      ) ;
-#& MODIF COMMANDE  DATE 14/12/2010   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2010  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -9966,11 +9880,11 @@ CALC_FORC_AJOU=OPER(nom="CALC_FORC_AJOU",op=199,sd_prod=vect_asse_gene,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE DEVESA
+# person_in_charge: Georges-cc.devesa at edf.fr
 
 CALC_FORC_NONL=OPER(nom="CALC_FORC_NONL",op= 183,sd_prod=dyna_trans,reentrant='n',
-            fr="Créer un dyna_trans contenant des champs nommés 'DEPL' correspondant à 'FONL_NOEU' ",
-            UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
+            fr="Créer un dyna_trans contenant des champs nommés 'DEPL' correspondant à 'FONL_NOEU' ",
+            UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
          RESULTAT        =SIMP(statut='o',typ=resultat_sdaster),
 
          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
@@ -9998,10 +9912,9 @@ CALC_FORC_NONL=OPER(nom="CALC_FORC_NONL",op= 183,sd_prod=dyna_trans,reentrant='n
          CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
 
-         COMP_INCR       =C_COMP_INCR(),
+         COMPORTEMENT       =C_COMPORTEMENT(),
 )  ;
-#& MODIF COMMANDE  DATE 07/01/2013   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -10018,13 +9931,12 @@ CALC_FORC_NONL=OPER(nom="CALC_FORC_NONL",op= 183,sd_prod=dyna_trans,reentrant='n
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 CALC_G=OPER(nom="CALC_G",op=100,sd_prod=table_sdaster,
-            fr="Calcul du taux de restitution d'énergie par la méthode theta en thermo-élasticité"
-                        +" et les facteurs d'intensité de contraintes.",
+            fr="Calcul du taux de restitution d'énergie par la méthode theta en thermo-élasticité"
+                        +" et les facteurs d'intensité de contraintes.",
                     reentrant='f',
             UIinfo={"groupes":("Post-traitements","Rupture",)},
-         regles=(EXCLUS('COMP_ELAS','COMP_INCR'),),
 
          THETA          =FACT(statut='o',
            THETA           =SIMP(statut='f',typ=(theta_geom,cham_no_sdaster),),
@@ -10091,11 +10003,8 @@ CALC_G=OPER(nom="CALC_G",op=100,sd_prod=table_sdaster,
                                  ),
          ),
 
-         COMP_ELAS       =C_COMP_ELAS('CALC_G'),
-
-         COMP_INCR       =FACT(statut='f',
-               RELATION        =SIMP(statut='f',typ='TXM',defaut="ELAS",
-                                     into=("ELAS","VMIS_ISOT_TRAC","VMIS_ISOT_LINE","VMIS_CINE_LINE","VMIS_ISOT_PUIS") ),
+         COMPORTEMENT       =FACT(statut='f',
+               RELATION  =SIMP( statut='o',typ='TXM',into=C_RELATION('CALC_G')),
                DEFORMATION     =SIMP(statut='f',typ='TXM',defaut="PETIT",into=("PETIT","PETIT_REAC") ),
              regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
                TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
@@ -10144,7 +10053,7 @@ CALC_G=OPER(nom="CALC_G",op=100,sd_prod=table_sdaster,
                                 ),
          ),
 
-        b_cal_contrainte =BLOC(condition="(COMP_ELAS!=None and (OPTION=='CALC_G' or OPTION=='CALC_G_GLOB'))",
+        b_cal_contrainte =BLOC(condition="(COMPORTEMENT!=None and (OPTION=='CALC_G' or OPTION=='CALC_G_GLOB'))",
           CALCUL_CONTRAINTE =SIMP(statut='f',typ='TXM',into=("NON",),),
          ),
 
@@ -10152,8 +10061,7 @@ CALC_G=OPER(nom="CALC_G",op=100,sd_prod=table_sdaster,
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 );
-#& MODIF COMMANDE  DATE 08/04/2013   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -10170,7 +10078,7 @@ CALC_G=OPER(nom="CALC_G",op=100,sd_prod=table_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE BARGELLINI R.BARGELLINI
+# person_in_charge: renaud.bargellini at edf.fr
 #Quoi qu'il en soit, on sort la table GP
 #Si on est sans copeau et que l'utilisateur souhaite verifier
 #les copeaux automatiquement crees, il peut grace a CHAMP_COP
@@ -10191,7 +10099,7 @@ CALC_GP =MACRO(nom="CALC_GP",
                    op=OPS('Macro.calc_gp_ops.calc_gp_ops'),
                    sd_prod=calc_gp_prod,
 #                   sd_prod=table_sdaster,
-                   UIinfo={"groupes":("Outils-métier","Rupture",)},
+                   UIinfo={"groupes":("Outils-métier","Rupture",)},
                    reentrant='n',
                    fr="calcul du parametre de clivage energetique Gp en 2D et en 3D",
                    regles=UN_PARMI('TRANCHE_2D','TRANCHE_3D'),
@@ -10225,8 +10133,7 @@ CALC_GP =MACRO(nom="CALC_GP",
                  FOND_FISS       =SIMP(statut='o',typ=fond_fiss,max=1,),),
          GPMAX           = SIMP(statut='f',typ=CO,),
            )
-#& MODIF COMMANDE  DATE 31/07/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -10243,7 +10150,7 @@ CALC_GP =MACRO(nom="CALC_GP",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GREFFET N.GREFFET
+# person_in_charge: nicolas.greffet at edf.fr
 #
 # MACRO DE COUPLAGE IFS AVEC SATURNE VIA YACS
 #
@@ -10251,10 +10158,10 @@ CALC_IFS_DNL= MACRO(nom='CALC_IFS_DNL',
                     op=OPS("Macro.calc_ifs_dnl_ops.calc_ifs_dnl_ops"),
                     sd_prod=evol_noli,
                     reentrant='f',
-                    fr="Calcul de l'évolution dynamique d'une structure couplée à un "\
-                       "domaine fluide (résolu avec le code Saturne) via YACS",
-            UIinfo={"groupes":("Résolution","Dynamique",)},
-         regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',),),
+                    fr="Calcul de l'évolution dynamique d'une structure couplée à un "\
+                       "domaine fluide (résolu avec le code Saturne) via YACS",
+            UIinfo={"groupes":("Résolution","Dynamique",)},
+
 #IFS
 #=>
          GROUP_MA_IFS     =SIMP(statut='o',typ=grma,max='**'),
@@ -10329,9 +10236,7 @@ CALC_IFS_DNL= MACRO(nom='CALC_IFS_DNL',
            ACCE_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene),
          ),
 #-------------------------------------------------------------------
-         COMP_INCR       =C_COMP_INCR(),
-#-------------------------------------------------------------------
-         COMP_ELAS       =C_COMP_ELAS('DYNA_NON_LINE'),
+         COMPORTEMENT       =C_COMPORTEMENT('DYNA_NON_LINE'),
 #-------------------------------------------------------------------
          b_reuse =BLOC(condition = "reuse",fr="en mode concept reentrant : ETAT_INIT obligatoire",
          ETAT_INIT       =FACT(statut='o',
@@ -10425,8 +10330,6 @@ CALC_IFS_DNL= MACRO(nom='CALC_IFS_DNL',
          SOLVEUR         =C_SOLVEUR('CALC_IFS_DNL'),
 #-------------------------------------------------------------------
          OBSERVATION     =C_OBSERVATION(),
-#-------------------------------------------------------------------
-         ENERGIE         =FACT(statut='f',max=1),
 #-------------------------------------------------------------------
          SUIVI_DDL       =C_SUIVI_DDL(),
 #-------------------------------------------------------------------
@@ -10437,9 +10340,10 @@ CALC_IFS_DNL= MACRO(nom='CALC_IFS_DNL',
          CRIT_STAB      =FACT(statut='f',min=1,max=1,
            NB_FREQ         =SIMP(statut='f',typ='I',max=1,val_min=1,defaut=3),
            COEF_DIM_ESPACE =SIMP(statut='f',typ='I',max=1,val_min=2,defaut=5),
-           CHAR_CRIT       =SIMP(statut='f',typ='R',min=2,max=2,defaut=(-10.0,10.),
-                            fr="Valeur des deux charges critiques délimitant la bande de recherche en HPP"),
            RIGI_GEOM     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+           b_char_crit=BLOC(condition="(RIGI_GEOM=='OUI')",
+              CHAR_CRIT       =SIMP(statut='f',typ='R',min=2,max=2,
+                                    fr="Valeur des deux charges critiques délimitant la bande de recherche en HPP"),),
            MODI_RIGI     =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
            TYPE          =SIMP(statut='f',typ='TXM',defaut="FLAMBEMENT",into=("FLAMBEMENT","STABILITE")),
            PREC_INSTAB   =SIMP(statut='f',typ='R',defaut=1.E-6,max=1,),
@@ -10480,10 +10384,10 @@ CALC_IFS_DNL= MACRO(nom='CALC_IFS_DNL',
          MODE_VIBR     =FACT(statut='f',min=1,max=1,
            MATR_RIGI        =SIMP(statut='f',typ='TXM',defaut="ELASTIQUE",into=("ELASTIQUE","TANGENTE","SECANTE",) ),
            NB_FREQ          =SIMP(statut='f',typ='I',max=1,val_min=1,defaut=3,
-                            fr="Nombre de fréquences propres à calculer"),
+                            fr="Nombre de fréquences propres à calculer"),
            COEF_DIM_ESPACE  =SIMP(statut='f',typ='I',max=1,val_min=2,defaut=5),
            BANDE            =SIMP(statut='f',typ='R',min=2,max=2,
-                            fr="Valeur des deux fréquences délimitant la bande de recherche",),
+                            fr="Valeur des deux fréquences délimitant la bande de recherche",),
            regles         = (EXCLUS('PAS_CALC','LIST_INST','INST'),),
            LIST_INST      = SIMP(statut='f',typ=(listr8_sdaster) ),
            INST           = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
@@ -10498,7 +10402,7 @@ CALC_IFS_DNL= MACRO(nom='CALC_IFS_DNL',
 
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
          b_info=BLOC(condition="(INFO==2)",
-               fr="filtre les messages émis dans le .mess selon le type de message demandé",
+               fr="filtre les messages émis dans le .mess selon le type de message demandé",
                INFO_DBG = SIMP(statut='f',typ='TXM',max='**',validators=NoRepeat(),
                                into=("CONTACT",
                                      "MECA_NON_LINE",
@@ -10509,8 +10413,7 @@ CALC_IFS_DNL= MACRO(nom='CALC_IFS_DNL',
                     ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -10527,9 +10430,9 @@ CALC_IFS_DNL= MACRO(nom='CALC_IFS_DNL',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=interspectre,
-                    fr="Calcul d'une matrice interspectrale à partir d'une fonction du temps",
+                    fr="Calcul d'une matrice interspectrale à partir d'une fonction du temps",
                     reentrant='n',
             UIinfo={"groupes":("Fonctions",)},
          INST_INIT       =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
@@ -10541,8 +10444,7 @@ CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=interspectre,
          TITRE           =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 04/02/2013   AUTEUR PERONY R.PERONY 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -10559,7 +10461,7 @@ CALC_INTE_SPEC=OPER(nom="CALC_INTE_SPEC",op= 120,sd_prod=interspectre,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE FERNANDES R.FERNANDES
+# person_in_charge: romeo.fernandes at edf.fr
 
 
 CALC_MAC3COEUR = MACRO(nom="CALC_MAC3COEUR",
@@ -10588,12 +10490,12 @@ CALC_MAC3COEUR = MACRO(nom="CALC_MAC3COEUR",
                     TYPE_MAINTIEN = SIMP(statut='o',typ='TXM',into=("FORCE","DEPL_PSC"), ),
                     
                     b_maintien_mono_force = BLOC(condition = "TYPE_MAINTIEN == 'FORCE'",
-                                 fr="valeur de l'effort de maintien imposée",
+                                 fr="valeur de l'effort de maintien imposée",
                                  FORCE_MAINTIEN           =SIMP(statut='o',typ='R', max=1),),
                      
                                        ),
                 
-               # choix du maintien dans le cas d'un coeur à plusieurs assemblages
+               # choix du maintien dans le cas d'un coeur à plusieurs assemblages
                b_maintien_coeur = BLOC(condition = "TYPE_COEUR != 'MONO'",
 
                     TYPE_MAINTIEN = SIMP(statut='f',typ='TXM',into=("DEPL_PSC",),defaut="DEPL_PSC" ),
@@ -10604,8 +10506,6 @@ CALC_MAC3COEUR = MACRO(nom="CALC_MAC3COEUR",
 
 );
 
-#& MODIF COMMANDE  DATE 19/05/2011   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -10622,9 +10522,9 @@ CALC_MAC3COEUR = MACRO(nom="CALC_MAC3COEUR",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GREFFET N.GREFFET
+# person_in_charge: nicolas.greffet at edf.fr
 CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
-                    fr="Calcul des matrices de masse, d'amortissement ou de rigidité ajoutés",
+                    fr="Calcul des matrices de masse, d'amortissement ou de rigidité ajoutés",
                     reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
          regles=(EXCLUS('MODE_MECA','CHAM_NO','MODELE_GENE'),
@@ -10650,8 +10550,7 @@ CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
          SOLVEUR         =C_SOLVEUR('CALC_MATR_AJOU'),
 #-------------------------------------------------------------------
 )  ;
-#& MODIF COMMANDE  DATE 07/08/2012   AUTEUR TORKHANI M.TORKHANI 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -10668,7 +10567,7 @@ CALC_MATR_AJOU=OPER(nom="CALC_MATR_AJOU",op= 152,sd_prod=matr_asse_gene_r,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 def calc_matr_elem_prod(OPTION,**args):
   if OPTION == "RIGI_MECA"        : return matr_elem_depl_r
   if OPTION == "RIGI_FLUI_STRU"   : return matr_elem_depl_r
@@ -10684,7 +10583,6 @@ def calc_matr_elem_prod(OPTION,**args):
   if OPTION == "AMOR_MECA_ABSO"   : return matr_elem_depl_r
   if OPTION == "RIGI_MECA_HYST"   : return matr_elem_depl_c
   if OPTION == "RIGI_THER"        : return matr_elem_temp_r
-  if OPTION == "MASS_THER"        : return matr_elem_temp_r
   if OPTION == "MASS_MECA_DIAG"   : return matr_elem_depl_r
   if OPTION == "RIGI_ACOU"        : return matr_elem_pres_c
   if OPTION == "MASS_ACOU"        : return matr_elem_pres_c
@@ -10692,18 +10590,18 @@ def calc_matr_elem_prod(OPTION,**args):
   raise AsException("type de concept resultat non prevu")
 
 CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op=   9,sd_prod=calc_matr_elem_prod
-                    ,fr="Calcul des matrices élémentaires",reentrant='n',
+                    ,fr="Calcul des matrices élémentaires",reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
 
          OPTION          =SIMP(statut='o',typ='TXM',
                                into=("RIGI_MECA","MASS_MECA","RIGI_GEOM",
-                                     "AMOR_MECA","RIGI_THER","MASS_THER","IMPE_MECA",
+                                     "AMOR_MECA","RIGI_THER","IMPE_MECA",
                                      "ONDE_FLUI","AMOR_MECA_ABSO","MASS_FLUI_STRU","RIGI_FLUI_STRU",
                                      "RIGI_ROTA","MECA_GYRO","RIGI_GYRO","MASS_MECA_DIAG","RIGI_ACOU",
                                      "MASS_ACOU","AMOR_ACOU","RIGI_MECA_HYST") ),
          MODELE            =SIMP(statut='o',typ=modele_sdaster ),
 
-         # mots clés facultatifs que l'on a du mal à mettre dans les blocs
+         # mots clés facultatifs que l'on a du mal à mettre dans les blocs
          # sans gener MACRO_MATR_ASSE :
          #------------------------------------------------------------------
          INST=SIMP(statut='f',typ='R',defaut= 0.E+0 ),
@@ -10736,14 +10634,14 @@ CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op=   9,sd_prod=calc_matr_elem_prod
          ),
 
          b_meca_gyro = BLOC( condition = "OPTION=='MECA_GYRO'",
-           CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
-           CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
+           CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
+           CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
            CHARGE          =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**' ),
          ),
 
          b_rigi_gyro = BLOC( condition = "OPTION=='RIGI_GYRO'",
-           CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
-           CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
+           CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
+           CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
            CHARGE          =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**' ),
          ),
 
@@ -10781,12 +10679,6 @@ CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op=   9,sd_prod=calc_matr_elem_prod
            CHARGE            =SIMP(statut='f',typ=char_ther,validators=NoRepeat(),max='**' ),
          ),
 
-         b_mass_ther       =BLOC(condition = "OPTION=='MASS_THER'",
-           CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
-           CARA_ELEM         =SIMP(statut='f',typ=cara_elem ),
-           CHARGE            =SIMP(statut='f',typ=char_ther ,validators=NoRepeat(),max='**' ),
-         ),
-
          b_rigi_acou       =BLOC(condition = "OPTION=='RIGI_ACOU'",
            CHAM_MATER        =SIMP(statut='o',typ=cham_mater ),
            CHARGE            =SIMP(statut='f',typ=char_acou ,validators=NoRepeat(),max='**' ),
@@ -10814,8 +10706,7 @@ CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op=   9,sd_prod=calc_matr_elem_prod
            CHARGE            =SIMP(statut='o',typ=char_meca,validators=NoRepeat(),max='**' ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 17/04/2012   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -10832,10 +10723,10 @@ CALC_MATR_ELEM=OPER(nom="CALC_MATR_ELEM",op=   9,sd_prod=calc_matr_elem_prod
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BARGELLINI R.BARGELLINI
+# person_in_charge: renaud.bargellini at edf.fr
 CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,reentrant='o',
             UIinfo={"groupes":("Post-traitements","Thermique",)},
-               fr="Calcule l'évolution métallurgique à partir du résultat d'un calcul thermique",
+               fr="Calcule l'évolution métallurgique à partir du résultat d'un calcul thermique",
 
      regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),),
 
@@ -10847,9 +10738,9 @@ CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,reentrant='o',
 
      TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
      GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
-                           fr="le calcul ne sera effectué que sur ces mailles là"),
+                           fr="le calcul ne sera effectué que sur ces mailles là"),
      MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**',
-                           fr="le calcul ne sera effectué que sur ces mailles là"),
+                           fr="le calcul ne sera effectué que sur ces mailles là"),
 
      b_meta =BLOC(condition= "au_moins_un(OPTION, ('META_ELNO','META_NOEU'))",
        ETAT_INIT       =FACT(statut='o',
@@ -10870,7 +10761,7 @@ CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,reentrant='o',
           ),
        ),
 
-       COMP_INCR       =FACT(statut='o',max=1,
+       COMPORTEMENT      =FACT(statut='o',max=1,
          RELATION        =SIMP(statut='o',typ='TXM',into=("ACIER","ZIRC",) ),
          ACIER           =SIMP(statut='c',typ='I',defaut=7,into=(7,) ),
          ZIRC            =SIMP(statut='c',typ='I',defaut=4,into=(4,) ),
@@ -10882,8 +10773,7 @@ CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,reentrant='o',
                              ),
                  ),
 )  ;
-#& MODIF COMMANDE  DATE 22/04/2013   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -10900,10 +10790,10 @@ CALC_META=OPER(nom="CALC_META",op=194,sd_prod=evol_ther,reentrant='o',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 def calc_miss_sdprod(self, TYPE_RESU, **kwargs):
-    """Typage des structures de données produites"""
+    """Typage des structures de données produites"""
     if TYPE_RESU in ('TABLE', 'TABLE_CONTROL'):
         return table_sdaster
     elif TYPE_RESU == 'HARM_GENE':
@@ -10916,29 +10806,29 @@ def calc_miss_sdprod(self, TYPE_RESU, **kwargs):
 CALC_MISS = MACRO(nom="CALC_MISS",
                   op=OPS('Macro.calc_miss_ops.calc_miss_ops'),
                   sd_prod=calc_miss_sdprod,
-                  fr="Préparation des données, exécution du logiciel Miss3D, et post-traitement",
-                  UIinfo={"groupes":("Résolution","Outils-métier",)},
+                  fr="Préparation des données, exécution du logiciel Miss3D, et post-traitement",
+                  UIinfo={"groupes":("Résolution","Outils-métier",)},
 
     TYPE_RESU   = SIMP(statut='o', typ='TXM',
                        into=('HARM_GENE', 'TRAN_GENE', 'TABLE', 'TABLE_CONTROL',
                              'FICHIER', 'FICHIER_TEMPS'),
-                       fr="Type de résultat produit en post-traitement. FICHIER : pas de post-traitement"),
+                       fr="Type de résultat produit en post-traitement. FICHIER : pas de post-traitement"),
     PROJET      = SIMP(statut='f', typ='TXM', defaut='MODELE',
-                       fr="Nom de l'étude Miss"),
+                       fr="Nom de l'étude Miss"),
     REPERTOIRE  = SIMP(statut='f', typ='TXM',
-                       fr="Répertoire de travail de Miss"),
+                       fr="Répertoire de travail de Miss"),
     VERSION     = SIMP(statut='f', typ='TXM', into=("V6.6","V6.5"), defaut="V6.6",
-                       fr="Version de Miss utilisée"),
+                       fr="Version de Miss utilisée"),
 
     TABLE_SOL   = SIMP(statut='o', typ=table_sdaster,
-                       fr="Table des propriétés du sol"),
+                       fr="Table des propriétés du sol"),
 
     # pas de post-traitement
     b_basic   = BLOC(condition="TYPE_RESU in ('FICHIER', 'TABLE_CONTROL')",
                        regles=(UN_PARMI('MACR_ELEM_DYNA', 'BASE_MODALE'),
                                ENSEMBLE('GROUP_MA_FLU_STR', 'GROUP_MA_FLU_SOL', 'GROUP_MA_SOL_SOL'),),
         MACR_ELEM_DYNA  = SIMP(statut='f', typ=macr_elem_dyna,
-                               fr="Macro élément produit en amont"),
+                               fr="Macro élément produit en amont"),
         BASE_MODALE     = SIMP(statut='f', typ=mode_meca,
                                fr="Base de modes"),
         b_base_modale = BLOC(condition="BASE_MODALE is not None",
@@ -10955,11 +10845,11 @@ CALC_MISS = MACRO(nom="CALC_MISS",
         GROUP_MA_SOL_SOL = SIMP(statut='f', typ=grma, max='**',
                                fr="Groupe de mailles sol-sol"),
         UNITE_IMPR_ASTER = SIMP(statut='f', typ='I',
-                                fr="Unité des résultats transmis par Code_Aster à Miss"),
+                                fr="Unité des résultats transmis par Code_Aster à Miss"),
         UNITE_RESU_IMPE  = SIMP(statut='f', typ='I',
-                                fr="Unité logique des impédances écrites par Miss"),
+                                fr="Unité logique des impédances écrites par Miss"),
         UNITE_RESU_FORC  = SIMP(statut='f', typ='I',
-                                fr="Unité logique des forces sismiques écrites par Miss"),
+                                fr="Unité logique des forces sismiques écrites par Miss"),
     ),
     # post-traitement : passage du domaine de Laplace au domaine temporel
     b_fichier_temps   = BLOC(condition="TYPE_RESU == 'FICHIER_TEMPS'",
@@ -10968,7 +10858,7 @@ CALC_MISS = MACRO(nom="CALC_MISS",
                                PRESENT_PRESENT('UNITE_RESU_AMOR', 'MATR_GENE'),
                                PRESENT_PRESENT('UNITE_RESU_MASS', 'MATR_GENE'),),
         MACR_ELEM_DYNA  = SIMP(statut='f', typ=macr_elem_dyna,
-                               fr="Macro élément produit en amont"),
+                               fr="Macro élément produit en amont"),
         BASE_MODALE     = SIMP(statut='f', typ=mode_meca,
                                fr="Base de modes"),
         b_base_modale = BLOC(condition="BASE_MODALE is not None",
@@ -10979,7 +10869,7 @@ CALC_MISS = MACRO(nom="CALC_MISS",
         GROUP_MA_INTERF = SIMP(statut='o', typ=grma, max='**',
                                fr="Groupe de mailles de l'interface"),
         UNITE_IMPR_ASTER = SIMP(statut='f', typ='I',
-                                fr="Unité des résultats transmis par Code_Aster à Miss"),
+                                fr="Unité des résultats transmis par Code_Aster à Miss"),
         UNITE_RESU_RIGI =SIMP(statut='f',typ='I'),
         UNITE_RESU_AMOR =SIMP(statut='f',typ='I'),
         UNITE_RESU_MASS =SIMP(statut='f',typ='I'),
@@ -11006,7 +10896,7 @@ CALC_MISS = MACRO(nom="CALC_MISS",
         EXCIT_SOL       =FACT(statut='f', max = 1,
                           regles = (AU_MOINS_UN('CHAM_X','CHAM_Y','CHAM_Z'),),
                                UNITE_RESU_FORC  =SIMP(statut='o',typ='I',
-                                                      fr="Unité logique des forces sismiques écrites par Miss"),
+                                                      fr="Unité logique des forces sismiques écrites par Miss"),
                                NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut='DEPL',
                                                      into=('ACCE','VITE','DEPL') ),
                                CHAM_X    = SIMP(statut='f', typ=fonction_sdaster,),
@@ -11019,7 +10909,7 @@ CALC_MISS = MACRO(nom="CALC_MISS",
                        regles=(ENSEMBLE('GROUP_MA_FLU_STR', 'GROUP_MA_FLU_SOL', 'GROUP_MA_SOL_SOL'),
                                UN_PARMI('MATR_AMOR', 'AMOR_REDUIT'),),
         MACR_ELEM_DYNA  = SIMP(statut='f', typ=macr_elem_dyna,
-                               fr="Macro élément produit en amont"),
+                               fr="Macro élément produit en amont"),
         BASE_MODALE     = SIMP(statut='o', typ=mode_meca,
                                fr="Base de modes"),
         MATR_RIGI       = SIMP(statut='o', typ=(matr_asse_depl_r, matr_asse_depl_c),),
@@ -11035,13 +10925,13 @@ CALC_MISS = MACRO(nom="CALC_MISS",
         GROUP_MA_SOL_SOL = SIMP(statut='f', typ=grma, max='**',
                                fr="Groupe de mailles sol-sol"),
         UNITE_IMPR_ASTER = SIMP(statut='f', typ='I',
-                                fr="Unité des résultats transmis par Code_Aster à Miss"),
+                                fr="Unité des résultats transmis par Code_Aster à Miss"),
         UNITE_RESU_IMPE  = SIMP(statut='f', typ='I',
-                                fr="Unité logique des impédances à relire."),
+                                fr="Unité logique des impédances à relire."),
         UNITE_RESU_FORC  = SIMP(statut='f', typ='I',
-                                fr="Unité logique des forces sismiques à relire"),
+                                fr="Unité logique des forces sismiques à relire"),
     ),
-    # Paramètres du calcul Miss
+    # Paramètres du calcul Miss
     PARAMETRE   = FACT(statut='o',
                        regles=(PRESENT_PRESENT('OFFSET_MAX', 'OFFSET_NB'),
                                PRESENT_PRESENT('FREQ_MIN', 'FREQ_MAX','FREQ_PAS'),
@@ -11104,7 +10994,7 @@ CALC_MISS = MACRO(nom="CALC_MISS",
         DEPL_Z         = SIMP(statut='f', typ=fonction_sdaster,),
         INST_FIN       = SIMP(statut='f', typ='R', fr="Instant final du calcul"),
         PAS_INST       = SIMP(statut='f', typ='R', fr="Pas de temps du calcul"),
-        # identique à EXCIT de DYNA_LINE_HARM au type attendu pour VECT_ASSE près
+        # identique à EXCIT de DYNA_LINE_HARM au type attendu pour VECT_ASSE près
         EXCIT_HARMO    = FACT(statut='f', max='**',
                               regles=(UN_PARMI('VECT_ASSE', 'CHARGE'),
                                       UN_PARMI('FONC_MULT', 'FONC_MULT_C', 'COEF_MULT', 'COEF_MULT_C'),),
@@ -11134,7 +11024,7 @@ CALC_MISS = MACRO(nom="CALC_MISS",
         AMOR_SPEC_OSCI      = SIMP(statut='o', typ='R', max='**',
                                    fr="Amortissement du spectre d'oscillateur"),
         LIST_FREQ_SPEC_OSCI = SIMP(statut='f', typ=listr8_sdaster,
-                                   fr="Fréquences utilisées pour le calcul du spectre d'oscillateur"),
+                                   fr="Fréquences utilisées pour le calcul du spectre d'oscillateur"),
     ),
 
     # Post-traitement type 3 - points de controle
@@ -11144,7 +11034,7 @@ CALC_MISS = MACRO(nom="CALC_MISS",
                                   PRESENT_PRESENT('ACCE_Z', 'INST_FIN'),
                                   ENSEMBLE('INST_FIN', 'PAS_INST', 'NORME', 'AMOR_SPEC_OSCI'),),
         GROUP_MA_CONTROL = SIMP(statut='f', typ=grma, max='**',
-                                fr="Groupe de mailles des points de contrôle"),
+                                fr="Groupe de mailles des points de contrôle"),
         ACCE_X         = SIMP(statut='f', typ=fonction_sdaster,),
         ACCE_Y         = SIMP(statut='f', typ=fonction_sdaster,),
         ACCE_Z         = SIMP(statut='f', typ=fonction_sdaster,),
@@ -11155,14 +11045,12 @@ CALC_MISS = MACRO(nom="CALC_MISS",
         AMOR_SPEC_OSCI      = SIMP(statut='f', typ='R', max='**',
                                    fr="Amortissement du spectre d'oscillateur"),
         LIST_FREQ_SPEC_OSCI = SIMP(statut='f', typ=listr8_sdaster,
-                                   fr="Fréquences utilisées pour le calcul du spectre d'oscillateur"),
+                                   fr="Fréquences utilisées pour le calcul du spectre d'oscillateur"),
     ),
 
     INFO        = SIMP(statut='f', typ='I', defaut=1, into=(1,2)),
 )
 
-#& MODIF COMMANDE  DATE 17/12/2012   AUTEUR BRIE N.BRIE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -11179,7 +11067,7 @@ CALC_MISS = MACRO(nom="CALC_MISS",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE NISTOR I.NISTOR
+# person_in_charge: nicolas.brie at edf.fr
 
 
 def calc_modal_prod(self,AMORTISSEMENT,**args):
@@ -11190,7 +11078,7 @@ def calc_modal_prod(self,AMORTISSEMENT,**args):
 
 CALC_MODAL=MACRO(nom="CALC_MODAL",
                  op=OPS('Macro.calc_modal_ops.calc_modal_ops'),
-                 UIinfo={"groupes":("Résolution","Dynamique",)},
+                 UIinfo={"groupes":("Résolution","Dynamique",)},
                  sd_prod=calc_modal_prod,
                  fr="Calcul des modes propres reels ou complexes dans une seule commande",
          MODELE          =SIMP(statut='o',typ=modele_sdaster),
@@ -11216,36 +11104,36 @@ CALC_MODAL=MACRO(nom="CALC_MODAL",
          b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
-           PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
+           PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717),
          ),
          b_qz =BLOC(condition = "METHODE == 'QZ'",
            TYPE_QZ      =SIMP(statut='f',typ='TXM',defaut="QZ_SIMPLE",into=("QZ_QR","QZ_SIMPLE","QZ_EQUI") ),
          ),
          MODE_RIGIDE          =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
-                               fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
+                               fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
          CALC_FREQ       =FACT(statut='d',min=0,
              OPTION      =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","PLUS_GRANDE","BANDE","CENTRE","TOUT"),
-                                   fr="Choix de l option et par conséquent du shift du problème modal" ),
-             b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites fréquences propres",
+                                   fr="Choix de l option et par conséquent du shift du problème modal" ),
+             b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites fréquences propres",
                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut=10,val_min=0 ),
              ),
-             b_plus_grande =BLOC(condition = "OPTION == 'PLUS_GRANDE'",fr="Recherche des plus grandes fréquences propres",
+             b_plus_grande =BLOC(condition = "OPTION == 'PLUS_GRANDE'",fr="Recherche des plus grandes fréquences propres",
                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut=1,val_min=0 ),
              ),
              b_centre       =BLOC(condition = "OPTION == 'CENTRE'",
-                                  fr="Recherche des fréquences propres les plus proches d une valeur donnée",
+                                  fr="Recherche des fréquences propres les plus proches d une valeur donnée",
                FREQ            =SIMP(statut='o',typ='R',
-                                     fr="Fréquence autour de laquelle on cherche les fréquences propres"),
+                                     fr="Fréquence autour de laquelle on cherche les fréquences propres"),
                AMOR_REDUIT     =SIMP(statut='f',typ='R',),
                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
              ),
              b_bande         =BLOC(condition = "(OPTION == 'BANDE')",
-                                   fr="Recherche des fréquences propres dans une bande donnée",
+                                   fr="Recherche des fréquences propres dans une bande donnée",
                FREQ            =SIMP(statut='o',typ='R',min=2,validators=NoRepeat(),max=2,
-                                     fr="Valeurs des deux fréquences délimitant la bande de recherche"),
+                                     fr="Valeurs des deux fréquences délimitant la bande de recherche"),
              ),
              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG","COMPLEXE"),
-                                   fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
+                                   fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
@@ -11266,8 +11154,7 @@ CALC_MODAL=MACRO(nom="CALC_MODAL",
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
 )  ;
-#& MODIF COMMANDE  DATE 26/09/2012   AUTEUR LEBOUVIER F.LEBOUVIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -11284,16 +11171,16 @@ CALC_MODAL=MACRO(nom="CALC_MODAL",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE TORKHANI M.TORKHANI
+# person_in_charge: mohamed.torkhani at edf.fr
 
 
 CALC_MODE_ROTATION=MACRO(nom="CALC_MODE_ROTATION",
                          op=OPS('Macro.calc_mode_rotation_ops.calc_mode_rotation_ops'),
                          sd_prod=table_container,
                          reentrant='n',
-                         fr="calculer les fréquences et modes d'un système en fonction des " \
+                         fr="calculer les fréquences et modes d'un système en fonction des " \
                             "vitesses de rotation",
-                         UIinfo={"groupes":("Résolution","Dynamique",)},
+                         UIinfo={"groupes":("Résolution","Dynamique",)},
 
                   MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
                   MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r ),
@@ -11306,14 +11193,14 @@ CALC_MODE_ROTATION=MACRO(nom="CALC_MODE_ROTATION",
 
                   CALC_FREQ       =FACT(statut='d',min=0,
                          OPTION      =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","CENTRE",),
-                                           fr="Choix de l option et par conséquent du shift du problème modal" ),
+                                           fr="Choix de l option et par conséquent du shift du problème modal" ),
                   b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
                               NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
                               ),
                   b_centre       =BLOC(condition = "OPTION == 'CENTRE'",
-                                fr="Recherche des valeurs propres les plus proches d une valeur donnée",
+                                fr="Recherche des valeurs propres les plus proches d une valeur donnée",
                               FREQ            =SIMP(statut='o',typ='R',
-                                                     fr="Fréquence autour de laquelle on cherche les fréquences propres"),
+                                                     fr="Fréquence autour de laquelle on cherche les fréquences propres"),
                               AMOR_REDUIT     =SIMP(statut='f',typ='R',),
                               NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
                               ),
@@ -11325,8 +11212,7 @@ CALC_MODE_ROTATION=MACRO(nom="CALC_MODE_ROTATION",
                   PREC_SHIFT      =SIMP(statut='f',typ='R',defaut= 5.E-3 ),
                   STURM           =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),),
 );
-#& MODIF COMMANDE  DATE 08/10/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -11343,13 +11229,12 @@ CALC_MODE_ROTATION=MACRO(nom="CALC_MODE_ROTATION",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PROIX J-M.PROIX
+# person_in_charge: jean-michel.proix at edf.fr
 CALC_POINT_MAT=OPER(nom="CALC_POINT_MAT",op=33,sd_prod=table_sdaster,reentrant='f',
-            UIinfo={"groupes":("Résolution",)},
-            fr="Intégrer une loi de comportement",
+            UIinfo={"groupes":("Résolution",)},
+            fr="Intégrer une loi de comportement",
      MATER           =SIMP(statut='o',typ=mater_sdaster,max=1),
-     COMP_INCR       =C_COMP_INCR(),
-     COMP_ELAS       =C_COMP_ELAS('CALC_POINT_MAT'),
+     COMPORTEMENT    =C_COMPORTEMENT('CALC_POINT_MAT'),
      INCREMENT       =C_INCREMENT('MECANIQUE'),
      NEWTON          =C_NEWTON(),
      CONVERGENCE     =C_CONVERGENCE(),
@@ -11360,7 +11245,7 @@ CALC_POINT_MAT=OPER(nom="CALC_POINT_MAT",op=33,sd_prod=table_sdaster,reentrant='
          ANGL_REP        =SIMP(statut='f',typ='R',min=1,max=3),
          ANGL_EULER      =SIMP(statut='f',typ='R',min=1,max=3),
       ),
-    ## ANGLE : rotation de ANGLE autour de Z uniquement, et seulement pour les déformations imposées.
+    ## ANGLE : rotation de ANGLE autour de Z uniquement, et seulement pour les déformations imposées.
      ANGLE      =SIMP(statut='f',typ='R',max=1, defaut=0.),
      INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2)),
 
@@ -11445,8 +11330,8 @@ CALC_POINT_MAT=OPER(nom="CALC_POINT_MAT",op=33,sd_prod=table_sdaster,reentrant='
                            ),
 
 
-     # on permet certaines variables de commandes scalaires, définies par une fonction du temps
-     # un mot clé caché qui ne sert qu'à boucler sur les VARC possibles :
+     # on permet certaines variables de commandes scalaires, définies par une fonction du temps
+     # un mot clé caché qui ne sert qu'à boucler sur les VARC possibles :
      LIST_NOM_VARC =SIMP(statut='c',typ='TXM', defaut=("TEMP","CORR","IRRA","HYDR","SECH","EPSA",
                                                            "M_ACIER","M_ZIRC","NEUT1","NEUT2")),
 
@@ -11455,7 +11340,7 @@ CALC_POINT_MAT=OPER(nom="CALC_POINT_MAT",op=33,sd_prod=table_sdaster,reentrant='
                                                         "EPSA","NEUT1","NEUT2")),
       VALE_FONC   = SIMP(statut='o',typ=(fonction_sdaster,formule) ),
 
-      # VALE_REF est nécessaire pour certaines VARC :
+      # VALE_REF est nécessaire pour certaines VARC :
       B_VALE_REF          =BLOC(condition="NOM_VARC in ('TEMP', 'SECH')",
            VALE_REF          =SIMP(statut='o',typ='R'),
       ),
@@ -11465,8 +11350,6 @@ CALC_POINT_MAT=OPER(nom="CALC_POINT_MAT",op=33,sd_prod=table_sdaster,reentrant='
 
      );
 
-#& MODIF COMMANDE  DATE 31/07/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -11483,14 +11366,14 @@ CALC_POINT_MAT=OPER(nom="CALC_POINT_MAT",op=33,sd_prod=table_sdaster,reentrant='
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE MICHEL S.MICHEL
+# person_in_charge: sylvie.michel-ponnelle at edf.fr
 
 
 CALC_PRECONT=MACRO(nom="CALC_PRECONT",
                    op=OPS('Macro.calc_precont_ops.calc_precont_ops'),
                    sd_prod=evol_noli,
-                   fr="Imposer la tension définie par le BPEL dans les cables",
-                   reentrant='f',UIinfo={"groupes":("Modélisation",)},
+                   fr="Imposer la tension définie par le BPEL dans les cables",
+                   reentrant='f',UIinfo={"groupes":("Modélisation",)},
          reuse =SIMP(statut='f',typ='evol_noli'),
          MODELE           =SIMP(statut='o',typ=modele_sdaster),
          CHAM_MATER       =SIMP(statut='o',typ=cham_mater),
@@ -11524,6 +11407,9 @@ CALC_PRECONT=MACRO(nom="CALC_PRECONT",
          b_meth_newton = BLOC(condition = "METHODE == 'NEWTON'",
                            NEWTON = C_NEWTON(),
                         ),
+         ENERGIE         =FACT(statut='f',max=1,
+           CALCUL          =SIMP(statut='f',typ='TXM',into=("OUI",),defaut="OUI",),
+         ),
 #-------------------------------------------------------------------
 #        Catalogue commun SOLVEUR
          SOLVEUR         =C_SOLVEUR('CALC_PRECONT'),
@@ -11535,10 +11421,9 @@ CALC_PRECONT=MACRO(nom="CALC_PRECONT",
            CHARGE          =SIMP(statut='o',typ=char_meca),
          ),
 
-         COMP_INCR       =C_COMP_INCR(),
+         COMPORTEMENT       =C_COMPORTEMENT(),
   )  ;
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -11556,7 +11441,7 @@ CALC_PRECONT=MACRO(nom="CALC_PRECONT",
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
 
-# RESPONSABLE CORUS M.CORUS
+# person_in_charge: mathieu.corus at edf.fr
 
 
 CALC_SPEC=MACRO(nom="CALC_SPEC",
@@ -11599,8 +11484,56 @@ CALC_SPEC=MACRO(nom="CALC_SPEC",
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 );
-#& MODIF COMMANDE  DATE 11/09/2012   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
+# 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 2 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, WRITE TO EDF R&D CODE_ASTER,         
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
+# ======================================================================
+CALC_STABILITE=MACRO(nom="CALC_STABILITE",sd_prod=table_container,
+               op=OPS('Macro.calc_stabilite_ops.calc_stabilite_ops'),
+               fr="post-traitement modes non-linéaires : filtre resultats et calcul de stabilité",
+               reentrant='f',
+               UIinfo={"groupes":("Résolution","Dynamique",)},
+
+               reuse =SIMP(statut='f',typ='table_container'),
+
+               MODE_NON_LINE = SIMP(statut='o',typ=table_container,max=1),
+               SCHEMA_TEMPS = FACT(statut='d',max=1,
+                                   SCHEMA = SIMP(statut='f',typ='TXM',into=('NEWMARK',),defaut='NEWMARK'),
+                                   b_newmark= BLOC(condition="SCHEMA=='NEWMARK'",
+                                                NB_INST = SIMP(statut='f',typ='I',defaut= 1000 ),
+                                                ),
+                                  ),
+               TOLERANCE  = SIMP(statut='f',typ='R',defaut= 1.E-2 ),
+
+               FILTRE = FACT(statut='f',max=1,regles=(UN_PARMI('NUME_ORDRE','FREQ_MIN',),),
+                             NUME_ORDRE = SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
+                             FREQ_MIN = SIMP(statut='f',typ='R' ),
+                             b_freq_min = BLOC(condition = "FREQ_MIN != None",
+                                               FREQ_MAX = SIMP(statut='o',typ='R' ),
+                                               PRECISION = SIMP(statut='f',typ='R',defaut= 1.E-3 ),
+                                               ),
+                             ),
+
+               INFO = SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
+
+)  ;
+
+
+
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -11617,9 +11550,7 @@ CALC_SPEC=MACRO(nom="CALC_SPEC",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# -*- coding: iso-8859-1 -*-
-# RESPONSABLE COURTOIS M.COURTOIS
-
+# person_in_charge: mathieu.courtois at edf.fr
 def calc_table_prod(self, TABLE, ACTION, **kargs):
    """Typage du concept produit.
    """
@@ -11628,29 +11559,29 @@ def calc_table_prod(self, TABLE, ACTION, **kargs):
       dmc = mcf.cree_dict_valeurs(mcf.mc_liste)
       if dmc.get('TABLE') != None:
          l_typ.append(AsType(dmc['TABLE']))
-   # une table_fonction étant une table
+   # une table_fonction étant une table
    if table_fonction in l_typ:
       return table_fonction
+   elif table_container in l_typ:
+      return table_container
    else:
       return table_sdaster
 
-
-
 CALC_TABLE=MACRO(nom="CALC_TABLE",
                  op=OPS('Macro.calc_table_ops.calc_table_ops'),
                  sd_prod=calc_table_prod,
-                 fr="Opérations sur une table",
+                 fr="Opérations sur une table",
                  UIinfo={"groupes":("Tables",)},
                  reentrant='f',
    TABLE  = SIMP(statut='o',typ=table_sdaster),
    ACTION = FACT(statut='o', max='**',
-                    fr = "Suite des opérations à effectuer sur la table",
+                    fr = "Suite des opérations à effectuer sur la table",
       OPERATION = SIMP(statut='o', typ='TXM',
                   into=('FILTRE', 'EXTR', 'RENOMME', 'TRI', 'COMB', 'AJOUT_LIGNE',
                         'OPER', 'SUPPRIME', 'AJOUT_COLONNE')),
 
       b_filtre = BLOC(condition="OPERATION == 'FILTRE'",
-                      fr="Sélectionne les lignes de la table vérifiant un critère",
+                      fr="Sélectionne les lignes de la table vérifiant un critère",
          NOM_PARA  = SIMP(statut='o',typ='TXM'),
          CRIT_COMP = SIMP(statut='f',typ='TXM',defaut="EQ",
                           into=('EQ','NE','GT','LT','GE','LE','REGEXP',
@@ -11674,60 +11605,63 @@ CALC_TABLE=MACRO(nom="CALC_TABLE",
       b_extr = BLOC(condition="OPERATION ==  'EXTR'",
                     fr="Extrait une ou plusieurs colonnes de la table",
          NOM_PARA = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
-                         fr="Noms des colonnes à extraire"),
+                         fr="Noms des colonnes à extraire"),
       ),
 
       b_suppr = BLOC(condition="OPERATION ==  'SUPPRIME'",
                     fr="Supprime une ou plusieurs colonnes de la table",
          NOM_PARA = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
-                         fr="Noms des colonnes à supprimer"),
+                         fr="Noms des colonnes à supprimer"),
       ),
 
       b_renomme = BLOC(condition="OPERATION == 'RENOMME'",
-                       fr="Renomme un ou plusieurs paramètres de la table",
+                       fr="Renomme un ou plusieurs paramètres de la table",
          NOM_PARA = SIMP(statut='o', typ='TXM', validators=NoRepeat(), min=2, max=2,
-                         fr="Couple (ancien nom du paramètre, nouveau nom du paramètre)",),
+                         fr="Couple (ancien nom du paramètre, nouveau nom du paramètre)",),
       ),
 
       b_tri = BLOC(condition="OPERATION == 'TRI'",
-                   fr="Ordonne les lignes de la table selon les valeurs d'un ou plusieurs paramètres",
+                   fr="Ordonne les lignes de la table selon les valeurs d'un ou plusieurs paramètres",
          NOM_PARA = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**'),
          ORDRE    = SIMP(statut='f',typ='TXM',defaut="CROISSANT",
                          into=("CROISSANT","DECROISSANT") ),
       ),
 
       b_comb = BLOC(condition="OPERATION == 'COMB'",
-                    fr="Combine deux tables ayant éventuellement des paramètres communs",
+                    fr="Combine deux tables ayant éventuellement des paramètres communs",
          TABLE    = SIMP(statut='o',typ=table_sdaster,
                          fr="Table dont les colonnes vont venir surcharger la table initiale"),
          NOM_PARA = SIMP(statut='f',typ='TXM',max='**',
-                         fr="Noms des paramètres dont les valeurs doivent etre identiques dans les deux tables "\
-                            "pour que les colonnes soient combinées"),
+                         fr="Noms des paramètres dont les valeurs doivent etre identiques dans les deux tables "\
+                            "pour que les colonnes soient combinées"),
          RESTREINT = SIMP(statut='f', typ='TXM', into=('OUI', 'NON'), defaut='NON',
-                          fr="Restreint la fusion uniquement aux lignes où les NOM_PARA sont communs"),
+                          fr="Restreint la fusion uniquement aux lignes où les NOM_PARA sont communs"),
+         FORMAT_R       =SIMP(statut='f',typ='TXM'),
       ),
 
       b_ajout_lig = BLOC(condition="OPERATION == 'AJOUT_LIGNE'",
-                    fr="Ajoute une ligne à la table initiale",
+                    fr="Ajoute une ligne à la table initiale",
          NOM_PARA = SIMP(statut='o',typ='TXM',max='**',
-                         fr="Noms des paramètres dont les valeurs sont fournies sous VALE"),
-         VALE     = SIMP(statut='o',typ=not_checked,max='**', fr='Valeurs des paramètres'),
+                         fr="Noms des paramètres dont les valeurs sont fournies sous VALE"),
+         VALE     = SIMP(statut='o',typ=not_checked,max='**', fr='Valeurs des paramètres'),
       ),
 
       b_ajout_col = BLOC(condition="OPERATION == 'AJOUT_COLONNE'",
-                    fr="Ajoute une colonne constante à la table initiale",
+                    fr="Ajoute une colonne constante à la table initiale",
          NOM_PARA = SIMP(statut='o',typ='TXM',max='**',
-                         fr="Noms des paramètres des colonnes à ajouter"),
+                         fr="Noms des paramètres des colonnes à ajouter"),
          VALE   = SIMP(statut='o', typ=not_checked, max='**',
                        fr="Valeur constante pour chaque colonne"),
       ),
 
       b_oper = BLOC(condition="OPERATION == 'OPER'",
-                    fr="Applique une formule dans laquelle les variables sont les paramètres de la table",
+                    fr="Applique une formule dans laquelle les variables sont les paramètres de la table",
          FORMULE  = SIMP(statut='o',typ=formule,
-                         fr="Formule à appliquer aux colonnes de la table"),
+                         fr="Formule à appliquer aux colonnes de la table"),
          NOM_PARA = SIMP(statut='o',typ='TXM',
                          fr="Nom de la nouvelle colonne"),
+         NOM_COLONNE = SIMP(statut='f',typ='TXM', max='**',
+                         fr="Nom des colonnes à utiliser en tant que paramètres de la formule"),
       ),
    ),
 
@@ -11735,8 +11669,7 @@ CALC_TABLE=MACRO(nom="CALC_TABLE",
                 fr="Titre de la table produite"),
    INFO  = SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )
-#& MODIF COMMANDE  DATE 07/01/2013   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -11753,12 +11686,12 @@ CALC_TABLE=MACRO(nom="CALC_TABLE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,reentrant='n',
             UIinfo={"groupes":("Post-traitements","Rupture",)},
-                fr="Définir un champ theta pour le calcul du taux de restitution d'énergie"
-                    +" ou des facteurs d'intensité de contraintes",
+                fr="Définir un champ theta pour le calcul du taux de restitution d'énergie"
+                    +" ou des facteurs d'intensité de contraintes",
          regles=(UN_PARMI('THETA_2D','THETA_3D'),
                  PRESENT_ABSENT('THETA_2D','DIRE_THETA'),
                  EXCLUS('DIRECTION','DIRE_THETA'),),
@@ -11794,8 +11727,7 @@ CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,reentrant='n',
            FORMAT          =SIMP(statut='f',typ='TXM',defaut="EXCEL",into=("EXCEL","AGRAF") ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -11812,30 +11744,28 @@ CALC_THETA=OPER(nom="CALC_THETA",op=54,sd_prod=theta_geom,reentrant='n',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 def calc_vect_elem_prod(OPTION,**args):
   if OPTION == "CHAR_MECA" :      return vect_elem_depl_r
   if OPTION == "CHAR_THER" :      return vect_elem_temp_r
   if OPTION == "CHAR_ACOU" :      return vect_elem_pres_c
-  if OPTION == "FORC_NODA" :      return vect_elem_depl_r
   raise AsException("type de concept resultat non prevu")
 
 CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
-                    fr="Calcul des seconds membres élémentaires",
-         OPTION          =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU",
-                                                           "FORC_NODA") ),
+                    fr="Calcul des seconds membres élémentaires",
+         OPTION          =SIMP(statut='o',typ='TXM',into=("CHAR_MECA","CHAR_THER","CHAR_ACOU") ),
          b_char_meca     =BLOC(condition = "OPTION=='CHAR_MECA'",
            regles=(AU_MOINS_UN('CHARGE','MODELE'),),
            CHARGE          =SIMP(statut='f',typ=char_meca,validators=NoRepeat(),max='**'),
            MODELE          =SIMP(statut='f',typ=modele_sdaster),
-           b_charge     =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
+           b_charge     =BLOC(condition = "CHARGE != None", fr="modèle ne contenant pas de sous-structure",
               CHAM_MATER   =SIMP(statut='f',typ=cham_mater),
               CARA_ELEM    =SIMP(statut='f',typ=cara_elem),
               INST         =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
               MODE_FOURIER =SIMP(statut='f',typ='I',defaut= 0 ),
            ),
-           b_modele     =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
+           b_modele     =BLOC(condition = "(MODELE != None)",fr="modèle contenant une sous-structure",
               SOUS_STRUC      =FACT(statut='o',min=01,
                 regles=(UN_PARMI('TOUT','SUPER_MAILLE'),),
                 CAS_CHARGE  =SIMP(statut='o',typ='TXM' ),
@@ -11854,15 +11784,8 @@ CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,reentr
            CHAM_MATER        =SIMP(statut='o',typ=cham_mater),
            CHARGE            =SIMP(statut='o',typ=char_acou,validators=NoRepeat(),max='**'),
          ),
-
-         b_forc_noda     =BLOC(condition = "OPTION=='FORC_NODA'",
-           SIEF_ELGA         =SIMP(statut='o',typ=cham_elem),
-           CARA_ELEM         =SIMP(statut='f',typ=cara_elem),
-           MODELE            =SIMP(statut='f',typ=modele_sdaster),
-         ),
 ) ;
-#& MODIF COMMANDE  DATE 07/12/2010   AUTEUR GENIAUT S.GENIAUT 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2007  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -11879,13 +11802,13 @@ CALC_VECT_ELEM=OPER(nom="CALC_VECT_ELEM",op=8,sd_prod=calc_vect_elem_prod,reentr
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ABBAS M.ABBAS
+# person_in_charge: mickael.abbas at edf.fr
 
 CALCUL=OPER(nom="CALCUL",op=26,sd_prod=table_container,reentrant='f',
-            UIinfo={"groupes":("Résolution",)},
-            fr="Calculer des objets élémentaires comme une matrice tangente, intégrer une loi de comportement, etc...",
+            UIinfo={"groupes":("Résolution",)},
+            fr="Calculer des objets élémentaires comme une matrice tangente, intégrer une loi de comportement, etc...",
      OPTION          =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',defaut="COMPORTEMENT",
-                           into=( "COMPORTEMENT","MATR_TANG_ELEM","FORC_INT_ELEM"),),
+                           into=( "COMPORTEMENT","MATR_TANG_ELEM","FORC_INTE_ELEM","FORC_NODA_ELEM"),),
      MODELE          =SIMP(statut='o',typ=modele_sdaster),
      CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
      CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
@@ -11904,13 +11827,10 @@ CALCUL=OPER(nom="CALCUL",op=26,sd_prod=table_container,reentrant='f',
      INCREMENT       =FACT(statut='o',
           LIST_INST       =SIMP(statut='o',typ=listr8_sdaster),
           NUME_ORDRE      =SIMP(statut='o',typ='I'),),
-     COMP_INCR       =C_COMP_INCR(),
-     COMP_ELAS       =C_COMP_ELAS('CALCUL'),
+     COMPORTEMENT       =C_COMPORTEMENT('CALCUL'),
      INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 ) ;
 
-#& MODIF COMMANDE  DATE 11/10/2011   AUTEUR MEUNIER S.MEUNIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -11927,7 +11847,7 @@ CALCUL=OPER(nom="CALCUL",op=26,sd_prod=table_container,reentrant='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE GRANET S.GRANET
+# person_in_charge: sylvie.granet at edf.fr
 #from Macro.chainage_thm_ops import chainage_thm_ops
 
 def chainage_thm_prod(self,TYPE_CHAINAGE,TYPE_RESU = None,**args) :
@@ -11956,20 +11876,20 @@ CHAINAGE_THM=MACRO(nom="CHAINAGE_THM",
                    op=OPS('Macro.chainage_thm_ops.chainage_thm_ops'),
                    sd_prod=chainage_thm_prod,
                    reentrant='n',
-                   UIinfo={"groupes":("Résultats et champs",)},
+                   UIinfo={"groupes":("Résultats et champs",)},
                    docu="Ux.xx.xx",
-                   fr="Calcul des variables de commande pour le chaînage THM",
+                   fr="Calcul des variables de commande pour le chaînage THM",
 
          TYPE_CHAINAGE  = SIMP(statut='o',typ='TXM',
                                into=("HYDR_MECA","MECA_HYDR","INIT",),
-                               fr="Sens du chaînage ou initialisation des matrices de projection"),
+                               fr="Sens du chaînage ou initialisation des matrices de projection"),
 
          # Cas HYDR_MECA :
 
-         b_hydr_meca    = BLOC(condition = "TYPE_CHAINAGE == 'HYDR_MECA'",fr="Chaînage hydraulique vers mécanique",
+         b_hydr_meca    = BLOC(condition = "TYPE_CHAINAGE == 'HYDR_MECA'",fr="Chaînage hydraulique vers mécanique",
 
-             RESU_HYDR       = SIMP(statut='o',typ=resultat_sdaster,fr="Résultat hydraulique à chaîner" ),
-             MODELE_MECA     = SIMP(statut='o',typ=modele_sdaster  ,fr="Modèle d'arrivée mécanique"),
+             RESU_HYDR       = SIMP(statut='o',typ=resultat_sdaster,fr="Résultat hydraulique à chaîner" ),
+             MODELE_MECA     = SIMP(statut='o',typ=modele_sdaster  ,fr="Modèle d'arrivée mécanique"),
              TYPE_RESU       = SIMP(statut='f',typ='TXM',into=("EVOL_VARC","CHAM_NO"),defaut="EVOL_VARC", ),
              MATR_HM1        = SIMP(statut='o',typ=corresp_2_mailla,),
              MATR_HM2        = SIMP(statut='o',typ=corresp_2_mailla,),
@@ -11981,10 +11901,10 @@ CHAINAGE_THM=MACRO(nom="CHAINAGE_THM",
 
          # Cas MECA_HYDR :
 
-         b_meca_hydr    = BLOC(condition = "TYPE_CHAINAGE == 'MECA_HYDR'",fr="Chaînage mécanique vers hydraulique",
+         b_meca_hydr    = BLOC(condition = "TYPE_CHAINAGE == 'MECA_HYDR'",fr="Chaînage mécanique vers hydraulique",
 
-             RESU_MECA       = SIMP(statut='o',typ=resultat_sdaster,fr="Résultat mécanique à chaîner" ),
-             MODELE_HYDR     = SIMP(statut='o',typ=modele_sdaster  ,fr="Modèle d'arrivée hydraulique"),
+             RESU_MECA       = SIMP(statut='o',typ=resultat_sdaster,fr="Résultat mécanique à chaîner" ),
+             MODELE_HYDR     = SIMP(statut='o',typ=modele_sdaster  ,fr="Modèle d'arrivée hydraulique"),
 
              MATR_MH         = SIMP(statut='o',typ=corresp_2_mailla,),
              INST            = SIMP(statut='o',typ='R',validators=NoRepeat(),min=1,max=1),
@@ -11994,8 +11914,8 @@ CHAINAGE_THM=MACRO(nom="CHAINAGE_THM",
 
          b_init    = BLOC(condition = "TYPE_CHAINAGE == 'INIT'",fr="Calcul des matrices de projection",
 
-             MODELE_MECA     = SIMP(statut='o',typ=modele_sdaster  ,fr="Modèle mécanique"),
-             MODELE_HYDR     = SIMP(statut='o',typ=modele_sdaster  ,fr="Modèle hydraulique"),
+             MODELE_MECA     = SIMP(statut='o',typ=modele_sdaster  ,fr="Modèle mécanique"),
+             MODELE_HYDR     = SIMP(statut='o',typ=modele_sdaster  ,fr="Modèle hydraulique"),
 
              MATR_MH         = SIMP(statut='o',typ=CO,),
              MATR_HM1        = SIMP(statut='o',typ=CO,),
@@ -12006,9 +11926,6 @@ CHAINAGE_THM=MACRO(nom="CHAINAGE_THM",
 
 ) ;
 
-
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -12025,17 +11942,16 @@ CHAINAGE_THM=MACRO(nom="CHAINAGE_THM",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: xavier.desroches at edf.fr
 COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
-                  reentrant='n',fr="Recombiner les modes de Fourier d'une SD Résultat dans des directions particulières",
+                  reentrant='n',fr="Recombiner les modes de Fourier d'une SD Résultat dans des directions particulières",
             UIinfo={"groupes":("Post-traitements",)},
          RESULTAT        =SIMP(statut='o',typ=(fourier_elas,fourier_ther),),
          ANGLE           =SIMP(statut='o',typ='R',max='**'),
          NOM_CHAM        =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=6,into=("DEPL","REAC_NODA",
                                "SIEF_ELGA","EPSI_ELNO","SIGM_ELNO","TEMP","FLUX_ELNO"),),
 ) ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -12052,7 +11968,7 @@ COMB_FOURIER=OPER(nom="COMB_FOURIER",op= 161,sd_prod=comb_fourier,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE SELLENET N.SELLENET
+# person_in_charge: nicolas.sellenet at edf.fr
 def comb_matr_asse_prod(COMB_R,COMB_C,CALC_AMOR_GENE,**args):
   if COMB_C != None:
     type_mat = AsType(COMB_C[0]['MATR_ASSE'])
@@ -12070,7 +11986,7 @@ def comb_matr_asse_prod(COMB_R,COMB_C,CALC_AMOR_GENE,**args):
   raise AsException("type de concept resultat non prevu")
 
 COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op=  31,sd_prod=comb_matr_asse_prod,
-                    fr="Effectuer la combinaison linéaire de matrices assemblées",
+                    fr="Effectuer la combinaison linéaire de matrices assemblées",
                     reentrant='f',
             UIinfo={"groupes":("Matrices et vecteurs",)},
          regles=(UN_PARMI('COMB_R','COMB_C','CALC_AMOR_GENE' ),),
@@ -12096,8 +12012,7 @@ COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op=  31,sd_prod=comb_matr_asse_prod,
          ),
          SANS_CMP        =SIMP(statut='f',typ='TXM',into=("LAGR",) ),
 )  ;
-#& MODIF COMMANDE  DATE 06/02/2012   AUTEUR CHANSARD F.CHANSARD 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -12114,9 +12029,9 @@ COMB_MATR_ASSE=OPER(nom="COMB_MATR_ASSE",op=  31,sd_prod=comb_matr_asse_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE AUDEBERT S.AUDEBERT
+# person_in_charge: sylvie.audebert at edf.fr
 COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_meca,
-                     fr="Réponse sismique par recombinaison modale par une méthode spectrale",
+                     fr="Réponse sismique par recombinaison modale par une méthode spectrale",
                      reentrant='n',
             UIinfo={"groupes":("Post-traitements","Dynamique",)},
          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','FREQ','NUME_MODE','LIST_FREQ','LIST_ORDRE'),
@@ -12134,6 +12049,7 @@ COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_meca,
            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
          ),
          MODE_CORR       =SIMP(statut='f',typ=mode_meca ),
+         FREQ_COUP = SIMP(statut='f',typ='R',min=1,max=1),
 
          AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
          LIST_AMOR       =SIMP(statut='f',typ=listr8_sdaster ),
@@ -12167,9 +12083,9 @@ COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_meca,
            GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),)
          ),
          MONO_APPUI      =SIMP(statut='f',typ='TXM',into=("OUI",),
-                                 fr="excitation imposée unique" ),
+                                 fr="excitation imposée unique" ),
          MULTI_APPUI      =SIMP(statut='f',typ='TXM',position='global',into=("DECORRELE","CORRELE"),
-                                 fr="excitation imposée unique" ),
+                                 fr="excitation imposée unique" ),
          b_decorrele     =BLOC(condition = "MULTI_APPUI == 'DECORRELE' ",
            GROUP_APPUI     =FACT(statut='f',max='**',
            regles=(UN_PARMI('NOEUD','GROUP_NO' ),),
@@ -12228,8 +12144,7 @@ COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_meca,
          ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 19/12/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -12246,7 +12161,7 @@ COMB_SISM_MODAL=OPER(nom="COMB_SISM_MODAL",op= 109,sd_prod=mode_meca,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 def copier_prod(CONCEPT,**args):
    return AsType(CONCEPT)
@@ -12273,8 +12188,7 @@ COPIER=OPER(nom="COPIER",op= 185,sd_prod=copier_prod,reentrant='f',
             CONCEPT = SIMP(statut='o',typ=copier_ltyp,),
             INFO   = SIMP(statut='f', typ='I', into=(1, 2), defaut=1, ),
 )
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -12291,7 +12205,7 @@ COPIER=OPER(nom="COPIER",op= 185,sd_prod=copier_prod,reentrant='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 def crea_champ_prod(TYPE_CHAM,**args):
   if TYPE_CHAM[0:5] == "CART_" :
@@ -12305,11 +12219,11 @@ def crea_champ_prod(TYPE_CHAM,**args):
 
 
 CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
-                fr="Création d'un champ ",reentrant='f',
-            UIinfo={"groupes":("Résultats et champs",)},
+                fr="Création d'un champ ",reentrant='f',
+            UIinfo={"groupes":("Résultats et champs",)},
 
        # TYPE_CHAM doit etre de la forme : CART_xx, NOEU_xx, ELEM_xx, ELGA_xx ou ELNO_xx
-       # ou xx est le nom d'une grandeur définie dans le catalogue des grandeurs
+       # ou xx est le nom d'une grandeur définie dans le catalogue des grandeurs
          TYPE_CHAM       =SIMP(statut='o',typ='TXM',into=C_TYPE_CHAM_INTO()),
 
 #        SI CREATION D'UN CHAM_NO, POUR IMPOSER LA NUMEROTATION DES DDLS :
@@ -12324,7 +12238,7 @@ CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
 #        CE MOT CLE N'A DE SENS QUE DANS 2 CAS DE FIGURE :
 #          - POUR LES CHAM_ELEM (AVEC LE MOT CLE MODELE)
 #          - POUR LES CHAM_NO SI ON IMPOSE LEUR NUMEROTATION
-         b_prol_zero  =BLOC(condition = "NUME_DDL != None or CHAM_NO != None or TYPE_CHAM[0:2] == 'EL'",
+         b_prol_zero  =BLOC(condition = "NUME_DDL != None or CHAM_NO != None or (TYPE_CHAM != None and TYPE_CHAM[0:2] == 'EL')",
                  PROL_ZERO       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON",)),),
 
 
@@ -12334,6 +12248,14 @@ CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
          OPTION         =SIMP(statut='f',typ='TXM',validators=NoRepeat(),),
 
 
+#        Si creation d'un cham_elem avec sous-points, pour que tous les sous-points
+#        soient affectes : on duplique la valeur sur tous les sous-points
+#        ------------------------------------------------------------------
+         AFFE_SP         =FACT(statut='f',max=1,
+             CARA_ELEM          =SIMP(statut='o',typ=cara_elem,min=1,max=1),
+                             ),
+
+
 #        LE MOT-CLE OPERATION EST OBLIGATOIRE. IL PERMET LE BON AIGUILLAGE.
 #        ------------------------------------------------------------------
          OPERATION       =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","EVAL","EXTR","DISC","NORMALE","R2C","C2R","COMB") ),
@@ -12388,7 +12310,7 @@ CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
                              ),
 #        ------------------------------------------------------------------
          b_comb          =BLOC(condition = "OPERATION == 'COMB'",
-                               fr="Pour faire une combinaison linéaire de cham_no ayant meme profil",
+                               fr="Pour faire une combinaison linéaire de cham_no ayant meme profil",
              COMB            =FACT(statut='o',max='**',
                 CHAM_GD         =SIMP(statut='o',typ=cham_no_sdaster),
                 COEF_R          =SIMP(statut='o',typ='R'),
@@ -12463,7 +12385,7 @@ CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
                  NOM_CHAM        =SIMP(statut='o',typ='TXM',validators=NoRepeat(),into=C_NOM_CHAM_INTO()),
                  TYPE_MAXI       =SIMP(statut='f',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS","NORM_TRAN",) ),
 
-                 # si TYPE_MAXI, on spécifie en général plusieurs numéros d'ordre :
+                 # si TYPE_MAXI, on spécifie en général plusieurs numéros d'ordre :
                  b_type_maxi =BLOC(condition = "TYPE_MAXI != None",
                       TYPE_RESU       =SIMP(statut='o',typ='TXM',defaut="VALE",into=("VALE","INST",) ),
 
@@ -12481,7 +12403,7 @@ CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
                       ANGLE           =SIMP(statut='f',typ='R',max='**'),
                  ),
 
-                 # si .not. TYPE_MAXI, on ne doit spécifier qu'un seul numéro d'ordre :
+                 # si .not. TYPE_MAXI, on ne doit spécifier qu'un seul numéro d'ordre :
                  b_non_type_maxi =BLOC(condition = "TYPE_MAXI == None",
                       regles=(EXCLUS('NUME_ORDRE','INST','FREQ','NUME_MODE','NOEUD_CMP','NOM_CAS','ANGLE'),),
                       NUME_ORDRE      =SIMP(statut='f',typ='I'),
@@ -12510,8 +12432,7 @@ CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
 )  ;
-#& MODIF COMMANDE  DATE 16/01/2012   AUTEUR ANDRIAM H.ANDRIAMBOLOLONA 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -12528,7 +12449,7 @@ CREA_CHAMP=OPER(nom="CREA_CHAMP",op= 195,sd_prod=crea_champ_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ANDRIAM H.ANDRIAMBOLOLONA
+# person_in_charge: harinaivo.andriambololona at edf.fr
 
 def crea_elem_ssd_prod(self,NUME_DDL,**args):
     if NUME_DDL:
@@ -12607,8 +12528,7 @@ CREA_ELEM_SSD=MACRO(nom="CREA_ELEM_SSD",
 
 
 )  ;
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -12625,9 +12545,9 @@ CREA_ELEM_SSD=MACRO(nom="CREA_ELEM_SSD",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage_sdaster,
-            reentrant='n',fr="Crée un maillage à partir d'un maillage existant",
+            reentrant='n',fr="Crée un maillage à partir d'un maillage existant",
             UIinfo={"groupes":("Maillage",)},
          regles=(UN_PARMI('COQU_VOLU', 'CREA_FISS', 'CREA_GROUP_MA', 'CREA_MAILLE', 'CREA_POI1',
                         'DETR_GROUP_MA', 'ECLA_PG', 'HEXA20_27', 'LINE_QUAD', 'MODI_MAILLE',
@@ -12639,7 +12559,7 @@ CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage_sdaster,
          MAILLAGE        =SIMP(statut='f',typ=maillage_sdaster ),
          GEOM_FIBRE           = SIMP(statut='f',max=1,typ=gfibre_sdaster),
 
-         CREA_POI1       =FACT(statut='f',max='**',fr="Création de mailles de type POI1 à partir de noeuds",
+         CREA_POI1       =FACT(statut='f',max='**',fr="Création de mailles de type POI1 à partir de noeuds",
            regles=(AU_MOINS_UN('TOUT','GROUP_MA','MAILLE','GROUP_NO','NOEUD' ),),
            NOM_GROUP_MA    =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
@@ -12656,7 +12576,7 @@ CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage_sdaster,
            PREF_MAILLE     =SIMP(statut='o',typ='TXM' ),
            PREF_NUME       =SIMP(statut='f',typ='I' ),
          ),
-         CREA_GROUP_MA   =FACT(statut='f',max='**',fr="Duplication de mailles et création de groupes de mailles",
+         CREA_GROUP_MA   =FACT(statut='f',max='**',fr="Duplication de mailles et création de groupes de mailles",
            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
            NOM             =SIMP(statut='o',typ='TXM'),
            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
@@ -12668,9 +12588,9 @@ CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage_sdaster,
          DETR_GROUP_MA   =FACT(statut='f',fr="Destruction de groupes de mailles",
            GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
            NB_MAILLE       =SIMP(statut='f',typ='I',defaut= 0,
-                                 fr="Nombre minimal de mailles que doit contenir le groupe pour etre détruit",  ),
+                                 fr="Nombre minimal de mailles que doit contenir le groupe pour etre détruit",  ),
          ),
-         RESTREINT   =FACT(statut='f',fr="Restreindre un maillage à des groupes de mailles",max=1,
+         RESTREINT   =FACT(statut='f',fr="Restreindre un maillage à des groupes de mailles",max=1,
            regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),),
            GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
            MAILLE          =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
@@ -12679,7 +12599,7 @@ CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage_sdaster,
            TOUT_GROUP_NO   =SIMP(statut='f',typ='TXM',defaut='NON',into=('OUI','NON'),),
          ),
          COQU_VOLU   =FACT(statut='f',
-                           fr="Creation de mailles volumiques à partir de mailles surfaciques",
+                           fr="Creation de mailles volumiques à partir de mailles surfaciques",
            NOM             =SIMP(statut='o',typ='TXM'),
            GROUP_MA        =SIMP(statut='o',typ=grma,validators=NoRepeat(),max ='**'),
            EPAIS           =SIMP(statut='o',typ='R' ),
@@ -12707,14 +12627,14 @@ CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage_sdaster,
              PREF_NUME       =SIMP(statut='f',typ='I',defaut= 1 ),
            ),
          ),
-         CREA_FISS = FACT(statut='f',max='**',fr="Creation d'une fissure potentielle avec elts de joint ou elts à disc",
+         CREA_FISS = FACT(statut='f',max='**',fr="Creation d'une fissure potentielle avec elts de joint ou elts à disc",
            NOM             =SIMP(statut='o',typ='TXM'),
            GROUP_NO_1      =SIMP(statut='o',typ=grno),
            GROUP_NO_2      =SIMP(statut='o',typ=grno),
            PREF_MAILLE     =SIMP(statut='o',typ='TXM'),
            PREF_NUME       =SIMP(statut='f',typ='I',defaut=1 ),
          ),
-         LINE_QUAD     =FACT(statut='f',fr="Passage linéaire -> quadratique",
+         LINE_QUAD     =FACT(statut='f',fr="Passage linéaire -> quadratique",
            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
            MAILLE          =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
@@ -12738,21 +12658,21 @@ CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage_sdaster,
            PREF_NOEUD      =SIMP(statut='f',typ='TXM',defaut="NS"),
            PREF_NUME       =SIMP(statut='f',typ='I',defaut= 1 ),
          ),
-         QUAD_LINE     =FACT(statut='f',fr="Passage quadratique -> linéaire",
+         QUAD_LINE     =FACT(statut='f',fr="Passage quadratique -> linéaire",
            regles=(AU_MOINS_UN('TOUT','MAILLE','GROUP_MA' ),),
            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
            MAILLE          =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
            GROUP_MA        =SIMP(statut='f',typ=grma  ,validators=NoRepeat(),max='**'),
          ),
          REPERE          =FACT(statut='f',max='**',
-                               fr="changement de repère servant à déterminer les caractéristiques d'une section de poutre",
+                               fr="changement de repère servant à déterminer les caractéristiques d'une section de poutre",
            TABLE           =SIMP(statut='o',typ=table_sdaster,
-                                 fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
-           NOM_ORIG        =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
-           NOM_ROTA        =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére"  ),
+                                 fr="Nom de la table contenant les caractéristiques de la section de poutre" ),
+           NOM_ORIG        =SIMP(statut='f',typ='TXM',into=("CDG","TORSION"),fr="Origine du nouveau repère" ),
+           NOM_ROTA        =SIMP(statut='f',typ='TXM',into=("INERTIE",),fr="Direction du repére"  ),
            b_cdg =BLOC(condition = "NOM_ORIG == 'CDG'",
              GROUP_MA        =SIMP(statut='f',typ=grma,
-                                   fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
+                                   fr="Nom du groupe de mailles dont le centre de gravité sera l origine du nouveau repère"),
            ),
          ),
          ECLA_PG         =FACT(statut='f',
@@ -12761,16 +12681,15 @@ CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage_sdaster,
            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
            MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
            GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
-           SHRINK          =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
-           TAILLE_MIN      =SIMP(statut='f',typ='R',defaut= 0.0, fr="Taille minimale d'un coté" ),
+           SHRINK          =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
+           TAILLE_MIN      =SIMP(statut='f',typ='R',defaut= 0.0, fr="Taille minimale d'un coté" ),
            NOM_CHAM        =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',into=C_NOM_CHAM_INTO('ELGA'),),
          ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 #
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -12787,7 +12706,7 @@ CREA_MAILLAGE=OPER(nom="CREA_MAILLAGE",op= 167,sd_prod=maillage_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 def crea_resu_prod(TYPE_RESU,**args):
   if TYPE_RESU == "EVOL_ELAS"    : return evol_elas
   if TYPE_RESU == "EVOL_NOLI"    : return evol_noli
@@ -12808,14 +12727,32 @@ CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,reentrant='f',
 
          OPERATION =SIMP(statut='o',typ='TXM',into=("AFFE","ASSE","ECLA_PG","PERM_CHAM","PROL_RTZ","PREP_VRC1","PREP_VRC2",),
                          fr="choix de la fonction a activer",),
+                         
+         TYPE_RESU    =SIMP(statut='o',position='global',typ='TXM',
+                            into=(
+                                  # pour bloc AFFE                         
+                                    "MODE_MECA","MULT_ELAS","EVOL_ELAS","EVOL_NOLI","DYNA_HARMO","DYNA_TRANS",
+                                    "FOURIER_ELAS","EVOL_THER","EVOL_VARC","EVOL_CHAR","FOURIER_THER"
+                                  # pour bloc ASSE 
+                                  # "EVOL_THER "
+                                  # pour bloc ECLA_PG
+                                  # "EVOL_ELAS","EVOL_NOLI","EVOL_THER" 
+                                  # pour bloc PERM_CHAM
+                                  # "EVOL_NOLI"
+                                  # pour bloc PROL_RTZ
+                                  # "EVOL_THER"
+                                  # pour bloc PREP_VRC1
+                                  # "EVOL_THER"
+                                  # pour bloc PREP_VRC2
+                                  # "EVOL_THER"
+                                  ),
+                           ),
 
 
          # Creation par affectation de champs :
          #-------------------------------------
          b_affe       =BLOC(condition = "OPERATION == 'AFFE'",
 
-           TYPE_RESU    =SIMP(statut='o',position='global',typ='TXM',into=("MODE_MECA","MULT_ELAS","EVOL_ELAS","EVOL_NOLI",
-                              "DYNA_HARMO","DYNA_TRANS","FOURIER_ELAS","EVOL_THER","EVOL_VARC","EVOL_CHAR","FOURIER_THER") ),
            b_type_resu    =BLOC(condition = "TYPE_RESU == 'EVOL_CHAR'",
              NOM_CHAM     =SIMP(statut='o',typ='TXM',validators=NoRepeat(),into=("PRES",
                                     "FSUR_2D","FSUR_3D","FVOL_2D","FVOL_3D","VITE_VENT")),
@@ -12828,14 +12765,50 @@ CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,reentrant='f',
            b_mode       =BLOC(condition = "au_moins_un(TYPE_RESU, ('MODE_MECA', 'DYNA_HARMO', 'DYNA_TRANS'))",
              MATR_RIGI     =SIMP(statut='f',typ=matr_asse_depl_r,),
              MATR_MASS     =SIMP(statut='f',typ=matr_asse_depl_r,),
+           ),          
+#
+#  pour ajouter un comportement dans la SD
+#                
+           COMPORTEMENT     =C_COMPORTEMENT(),
+#
+#  pour ajouter une charge dans la SD
+#     
+           b_evol_elas  = BLOC(condition="TYPE_RESU=='EVOL_ELAS'",
+           EXCIT           =FACT(statut='f',max='**',
+             CHARGE          =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
+             FONC_MULT       =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE",into=("FIXE",) ),),
+            ),
+      
+           b_evol_ther  = BLOC(condition="TYPE_RESU=='EVOL_THER'",
+           EXCIT           =FACT(statut='f',max='**',
+             CHARGE          =SIMP(statut='o',typ=(char_ther,char_cine_ther)),
+             FONC_MULT       =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),),
+            ),
+      
+           b_evol_noli  = BLOC(condition="TYPE_RESU=='EVOL_NOLI'",
+           EXCIT           =FACT(statut='f',max='**',
+            CHARGE          =SIMP(statut='o',typ=(char_meca,char_cine_meca)),
+            FONC_MULT       =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+            TYPE_CHARGE     =SIMP(statut='f',typ='TXM',defaut="FIXE_CSTE",
+                                  into=("FIXE_CSTE","FIXE_PILO","SUIV","DIDI")),
+            DEPL            =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+            ACCE            =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+            VITE            =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+            MULT_APPUI      =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
+            DIRECTION       =SIMP(statut='f',typ='R',max='**'),
+            NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
+            GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),),
            ),
 
+
            AFFE         =FACT(statut='o',max='**',
              CHAM_GD       =SIMP(statut='o',typ=(cham_gd_sdaster)),
              MODELE        =SIMP(statut='f',typ=modele_sdaster),
              CHAM_MATER    =SIMP(statut='f',typ=cham_mater),
              CARA_ELEM     =SIMP(statut='f',typ=cara_elem),
 
+#
              b_mult_elas     =BLOC(condition = "TYPE_RESU == 'MULT_ELAS' ",
                 NOM_CAS         =SIMP(statut='f',typ='TXM' ),
                 CHARGE          =SIMP(statut='f',typ=(char_meca),max='**'),
@@ -12877,7 +12850,6 @@ CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,reentrant='f',
          # Creation par assemblage d'evol_ther :
          #-----------------------------------------
          b_asse       =BLOC(condition = "OPERATION == 'ASSE'",
-           TYPE_RESU    =SIMP(statut='o',position='global',typ='TXM',into=("EVOL_THER",) ),
            ASSE         =FACT(statut='o',max='**',
              RESULTAT       =SIMP(statut='o',typ=evol_ther),
              TRANSLATION    =SIMP(statut='f',typ='R',defaut= 0. ),
@@ -12887,8 +12859,6 @@ CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,reentrant='f',
 
          b_ecla_pg    =BLOC(condition = "OPERATION == 'ECLA_PG'",
 
-           TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_ELAS","EVOL_NOLI","EVOL_THER"), ),
-
            ECLA_PG         =FACT(statut='o',
              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
              NOM_CHAM        =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=C_NOM_CHAM_INTO('ELGA'),),
@@ -12914,7 +12884,6 @@ CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,reentrant='f',
 
          b_perm_cham =BLOC(condition = "OPERATION == 'PERM_CHAM'",
 
-           TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_NOLI",) ),
            NOM_CHAM        =SIMP(statut='f',typ='TXM',into=("DEPL","SIEF_ELGA","VARI_ELGA","STRX_ELGA"),
                                  validators=NoRepeat(),max='**'),
            RESU_INIT       =SIMP(statut='o',typ=evol_noli),
@@ -12937,8 +12906,6 @@ CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,reentrant='f',
 
          b_prol_rtz   =BLOC(condition = "OPERATION == 'PROL_RTZ'",
 
-           TYPE_RESU       =SIMP(statut='o',typ='TXM',into=("EVOL_THER",) ),
-
            PROL_RTZ        =FACT(statut='o',
               regles=(EXCLUS('INST','LIST_INST'),),
               MAILLAGE_FINAL  =SIMP(statut='o',typ=maillage_sdaster,),
@@ -12964,8 +12931,6 @@ CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,reentrant='f',
            # calculer la temperature dans les couches des coques multicouche a partir d'un champ de fonctions
            # de fonctions du temps et de l'espace (epaisseur)
 
-           TYPE_RESU    =SIMP(statut='o',position='global',typ='TXM',into=( "EVOL_THER",) ),
-
            PREP_VRC1        =FACT(statut='o',max=1,
              CHAM_GD       =SIMP(statut='o',typ=(cham_gd_sdaster)), # carte de fonctions du temps et de l'epaisseur
              MODELE        =SIMP(statut='o',typ=modele_sdaster),    # modele mecanique contenant les coques multicouche
@@ -12978,17 +12943,19 @@ CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,reentrant='f',
            # calculer la temperature dans les couches des coques multicouche a partir d'un evol_ther "coque"
            # contenant TEMP_MIL/TEMP_INF/TEMP_SUP
 
-           TYPE_RESU    =SIMP(statut='o',position='global',typ='TXM',into=( "EVOL_THER",) ),
-
            PREP_VRC2        =FACT(statut='o',max=1,
              EVOL_THER     =SIMP(statut='o',typ=(evol_ther)),       # evol_ther de type "coque" (TEMP_MIL/TEMP_INF/TEMP_SUP)
              MODELE        =SIMP(statut='o',typ=modele_sdaster),    # modele mecanique contenant les coques multicouche
              CARA_ELEM     =SIMP(statut='o',typ=cara_elem),         # CARA_ELEM pour connaitre EPAIS et COQU_NCOU
+
+             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
+             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
+             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
+
            ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 20/06/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -13005,10 +12972,10 @@ CREA_RESU=OPER(nom="CREA_RESU",op=124,sd_prod=crea_resu_prod,reentrant='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 def crea_table_prod(TYPE_TABLE, **args):
-   """Typage du concept résultat
+   """Typage du concept résultat
    """
    if TYPE_TABLE == 'TABLE_FONCTION':
       return table_fonction
@@ -13018,7 +12985,7 @@ def crea_table_prod(TYPE_TABLE, **args):
       return table_sdaster
 
 CREA_TABLE=OPER(nom="CREA_TABLE",op=36,sd_prod=crea_table_prod,
-                fr="Création d'une table à partir d'une fonction ou de deux listes",
+                fr="Création d'une table à partir d'une fonction ou de deux listes",
                 reentrant='f',
                 UIinfo={"groupes":("Tables",)},
 
@@ -13085,10 +13052,6 @@ CREA_TABLE=OPER(nom="CREA_TABLE",op=36,sd_prod=crea_table_prod,
            TITRE=SIMP(statut='f',typ='TXM',max='**'),
 )  ;
 
-
-
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2007  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -13105,23 +13068,22 @@ CREA_TABLE=OPER(nom="CREA_TABLE",op=36,sd_prod=crea_table_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 
 DEBUG=PROC(nom="DEBUG",op=137,
             UIinfo={"groupes":("Utilitaires",)},
                fr="Permettre de changer entre 2 commandes quelques variables globales de debug",
 
-     SDVERI          =SIMP(fr="vérifie la conformité des SD produites par les commandes",
+     SDVERI          =SIMP(fr="vérifie la conformité des SD produites par les commandes",
                            statut='f',typ='TXM',into=('OUI','NON')),
-     JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
+     JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
                            statut='f',typ='TXM',into=('OUI','NON')),
-     JEVEUX          =SIMP(fr="force les déchargement sur disque",
+     JEVEUX          =SIMP(fr="force les déchargement sur disque",
                            statut='f',typ='TXM',into=('OUI','NON')),
      IMPR_MACRO      =SIMP(fr="affichage des sous-commandes produites par les macros dans le fichier mess",
                            statut='f',typ='TXM',into=("OUI","NON")),
  );
-#& MODIF COMMANDE  DATE 23/04/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -13138,12 +13100,12 @@ DEBUG=PROC(nom="DEBUG",op=137,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 DEBUT=MACRO(nom="DEBUT",
             op=OPS("Cata.ops.build_debut"),
             repetable='n',
             UIinfo={"groupes":("Gestion du travail",)},
-            fr="Ouverture d'une étude. Allocation des ressources mémoire et disque et fichiers",
+            fr="Ouverture d'une étude. Allocation des ressources mémoire et disque et fichiers",
             sd_prod=ops.DEBUT,
 
          PAR_LOT         =SIMP(fr="mode de traitement des commandes",statut='f',typ='TXM',
@@ -13152,7 +13114,7 @@ DEBUT=MACRO(nom="DEBUT",
                            statut='f',typ='TXM',into=("OUI","NON"),defaut="NON"),
 #         FORMAT_HDF      =SIMP(fr="sauvegarde de la base GLOBALE au format HDF",statut='f',
 #                               typ='TXM',defaut="NON",into=("OUI","NON",) ),
-         BASE            =FACT(fr="définition des paramètres associés aux bases JEVEUX",
+         BASE            =FACT(fr="définition des paramètres associés aux bases JEVEUX",
                                statut='f',min=1,max=2,
            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM',
                                  into=('GLOBALE','VOLATILE'),),
@@ -13160,7 +13122,7 @@ DEBUT=MACRO(nom="DEBUT",
            CAS             =SIMP(statut='f',typ='TXM'),
            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
-           LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
+           LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
          ),
 
          CATALOGUE       =FACT(statut='f',min=1,max=10,
@@ -13168,9 +13130,8 @@ DEBUT=MACRO(nom="DEBUT",
            UNITE           =SIMP(statut='f',typ='I'),
          ),
 
-         CODE            =FACT(fr="définition d'un nom pour l'ensemble d'une étude",
+         CODE            =FACT(fr="paramètres réservés aux cas-tests",
                                statut='f',min=1,max=1,
-           NOM             =SIMP(statut='o',typ='TXM'),
            NIV_PUB_WEB     =SIMP(statut='o',typ='TXM',into=('INTERNET','INTRANET')),
            VISU_EFICAS     =SIMP(statut='f',typ='TXM',into=('OUI','NON'),defaut='OUI'),
          ),
@@ -13179,56 +13140,55 @@ DEBUT=MACRO(nom="DEBUT",
            ERREUR_F        =SIMP(statut='f',typ='TXM',into=('ABORT','EXCEPTION'),),
          ),
 
-         DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
+         DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
                                statut='f',min=1,max=1,
-           JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
+           JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
-           SDVERI          =SIMP(fr="vérifie la conformité des SD produites par les commandes",
+           SDVERI          =SIMP(fr="vérifie la conformité des SD produites par les commandes",
                                  statut='f',typ='TXM',into=('OUI','NON')),
-           JEVEUX          =SIMP(fr="force les déchargement sur disque",
+           JEVEUX          =SIMP(fr="force les déchargement sur disque",
                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
-           ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
+           ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
                                  statut='f',typ='TXM',into=('TEST',)),
-           HIST_ETAPE = SIMP(fr="permet de conserver toutes les étapes du jeu de commandes",
+           HIST_ETAPE = SIMP(fr="permet de conserver toutes les étapes du jeu de commandes",
                              statut='f', typ='TXM', into=('OUI', 'NON'), defaut='NON'),
          ),
 
-         MESURE_TEMPS     =FACT(fr="Pour afficher le temps des principales étapes de calcul",
+         MESURE_TEMPS     =FACT(fr="Pour afficher le temps des principales étapes de calcul",
                                statut='d',min=1,max=1,
-           NIVE_DETAIL      =SIMP(fr="niveau de détail des impressions",
+           NIVE_DETAIL      =SIMP(fr="niveau de détail des impressions",
                                  statut='f',typ='I',into=(0,1,2,3),defaut=1),
                                  # 0 : rien
                                  # 1 : impression en fin de commande des mesures principales
                                  # 2 : impression en fin de commande des mesures principales et secondaires
                                  # 3 : impression des mesures principales et secondaires pour chaque pas de temps
-           MOYENNE     =SIMP(fr="affichage des moyennes et écart-types en parallèle",
-                                  statut='f',typ='TXM',into=('OUI','NON',),defaut='OUI'),
+           MOYENNE     =SIMP(fr="affichage des moyennes et écart-types en parallèle",
+                                  statut='f',typ='TXM',into=('OUI','NON',),defaut='NON'),
          ),
 
-         MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='d',min=1,max=1,
+         MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='d',min=1,max=1,
            TAILLE_BLOC       =SIMP(statut='f',typ='R',defaut=800.),
            TAILLE_GROUP_ELEM =SIMP(statut='f',typ='I',defaut=1000),
          ),
 
          RESERVE_CPU     =FACT(fr="reserve de temps pour terminer une execution",statut='d',max=1,
            regles=(EXCLUS('VALE','POURCENTAGE'),),
-#          par défaut VALE fixée à 10. dans le FORTRAN si CODE présent
+#          par défaut VALE fixée à 10. dans le FORTRAN si CODE présent
            VALE            =SIMP(statut='f',typ='I',val_min=0,),
-#          par défaut 10% dans le FORTRAN
+#          par défaut 10% dans le FORTRAN
            POURCENTAGE     =SIMP(statut='f',typ='R',val_min=0.,val_max=1.0),
-#          valeur en secondes de la réserve maximum bornée à 900 secondes
+#          valeur en secondes de la réserve maximum bornée à 900 secondes
            BORNE           =SIMP(statut='f',typ='I',val_min=0,defaut=900),),
 
-         IGNORE_ALARM = SIMP(statut='f', typ='TXM', max='**', fr="Alarmes que l'utilisateur souhaite délibérément ignorer"),
+         IGNORE_ALARM = SIMP(statut='f', typ='TXM', max='**', fr="Alarmes que l'utilisateur souhaite délibérément ignorer"),
 
          LANG = SIMP(statut='f', typ='TXM',
-                     fr="Permet de choisir la langue utilisée pour les messages (si disponible)",
+                     fr="Permet de choisir la langue utilisée pour les messages (si disponible)",
                      ang="Allows to choose the language used for messages (if available)"),
 
          INFO     = SIMP(statut='f', typ='I', defaut=1, into=(1,2),),
 );
-#& MODIF COMMANDE  DATE 19/05/2011   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -13245,16 +13205,16 @@ DEBUT=MACRO(nom="DEBUT",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE NISTOR I.NISTOR
+# person_in_charge: nicolas.brie at edf.fr
 DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op=  99,sd_prod=mode_meca,
                      reentrant='f',
-                     fr="Définit la base d'une sous-structuration dynamique ou d'une recombinaison modale",
+                     fr="Définit la base d'une sous-structuration dynamique ou d'une recombinaison modale",
             UIinfo={"groupes":("Matrices et vecteurs","Dynamique",)},
          regles=(UN_PARMI('CLASSIQUE','RITZ','DIAG_MASS','ORTHO_BASE'),),
          CLASSIQUE       =FACT(statut='f',
            INTERF_DYNA     =SIMP(statut='o',typ=interf_dyna_clas ),
            MODE_MECA       =SIMP(statut='o',typ=mode_meca,max='**' ),
-           NMAX_MODE       =SIMP(statut='f',typ='I',defaut= 10 ),
+           NMAX_MODE       =SIMP(statut='f',typ='I',defaut=10,max='**' ),
          ),
          RITZ            =FACT(statut='f',max='**',
            regles=(UN_PARMI('MODE_MECA','BASE_MODALE','MODE_INTF'),),
@@ -13292,8 +13252,7 @@ DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op=  99,sd_prod=mode_meca,
         TITRE           =SIMP(statut='f',typ='TXM',max='**'),
         INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -13310,15 +13269,15 @@ DEFI_BASE_MODALE=OPER(nom="DEFI_BASE_MODALE",op=  99,sd_prod=mode_meca,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE MICHEL S.MICHEL
+# person_in_charge: sylvie.michel-ponnelle at edf.fr
 
 
 DEFI_CABLE_BP=MACRO(nom="DEFI_CABLE_BP",
                     op=OPS('Macro.defi_cable_bp_ops.defi_cable_bp_ops'),
                     sd_prod=cabl_precont,
                     fr="Calculer les profils initiaux de tension le long des cables " \
-                       "de précontrainte d'une structure en béton",
-                    reentrant='n',UIinfo={"groupes":("Modélisation",)},
+                       "de précontrainte d'une structure en béton",
+                    reentrant='n',UIinfo={"groupes":("Modélisation",)},
          MODELE          =SIMP(statut='o',typ=modele_sdaster ),
          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
          CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
@@ -13332,31 +13291,36 @@ DEFI_CABLE_BP=MACRO(nom="DEFI_CABLE_BP",
            GROUP_NO_ANCRAGE=SIMP(statut='f',typ=grno,validators=NoRepeat(),max=2),
            TENSION_CT      =SIMP(statut='f',typ=table_sdaster),
          ),
+         ADHERENT        =SIMP(statut='o',typ='TXM',defaut='OUI',into=("OUI","NON") ),
          TYPE_ANCRAGE    =SIMP(statut='o',typ='TXM',min=2,max=2,into=("ACTIF","PASSIF") ),
          TENSION_INIT    =SIMP(statut='o',typ='R',val_min=0.E+0 ),
          RECUL_ANCRAGE   =SIMP(statut='o',typ='R',val_min=0.E+0 ),
-         TYPE_RELAX      =SIMP(statut='o',typ='TXM',into=("SANS","BPEL","ETCC_DIRECT","ETCC_REPRISE"),defaut="SANS",), 
-           b_relax_bpel  =BLOC(condition = "TYPE_RELAX =='BPEL'",
+         b_adherent=BLOC(condition="(ADHERENT=='OUI')",
+            TYPE_RELAX      =SIMP(statut='o',typ='TXM',into=("SANS","BPEL","ETCC_DIRECT","ETCC_REPRISE"),defaut="SANS",),
+                b_relax_bpel  =BLOC(condition = "TYPE_RELAX =='BPEL'",
                        R_J   =SIMP(statut='o',typ='R',val_min=0.E+0),
                                                 ),
-           b_relax_etcc  =BLOC(condition = "((TYPE_RELAX=='ETCC_DIRECT') or (TYPE_RELAX=='ETCC_REPRISE'))",
+                b_relax_etcc  =BLOC(condition = "((TYPE_RELAX=='ETCC_DIRECT') or (TYPE_RELAX=='ETCC_REPRISE'))",
                       NBH_RELAX   =SIMP(statut='o',typ='R',val_min=0.E+0),
                        ),
 #         PERT_ELAS       =SIMP(statut='o',typ='TXM',into=("OUI","NON"),defaut="NON"),
 #           b_pert_elas   =BLOC(condition = "PERT_ELAS=='OUI'",
 #                  EP_BETON  = SIMP(statut='o',typ='R',val_min=0.E+0),
 #                  ESP_CABLE = SIMP(statut='o',typ='R',val_min=0.E+0)
-#                  ) ,                                   
-         CONE            =FACT(statut='f',
-           RAYON             =SIMP(statut='o',typ='R',val_min=0.E+0 ),
-           LONGUEUR          =SIMP(statut='o',typ='R',val_min=0.E+0 ),
-           PRESENT           =SIMP(statut='o',typ='TXM',min=2,max=2,into=("OUI","NON") ),
-         ),
+#                  ) ,
+            CONE            =FACT(statut='f',
+                RAYON             =SIMP(statut='o',typ='R',val_min=0.E+0 ),
+                LONGUEUR          =SIMP(statut='o',typ='R',val_min=0.E+0 ),
+                PRESENT           =SIMP(statut='o',typ='TXM',min=2,max=2,into=("OUI","NON") ),
+              ),
+            ),
+         b_non_adherent=BLOC(condition="(ADHERENT=='NON')",
+            TYPE_RELAX      =SIMP(statut='c',typ='TXM',into=("SANS",),defaut="SANS",),
+            ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -13373,12 +13337,12 @@ DEFI_CABLE_BP=MACRO(nom="DEFI_CABLE_BP",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE MICHEL S.MICHEL
+# person_in_charge: sylvie.michel-ponnelle at edf.fr
 
 DEFI_CABLE_OP=OPER(nom="DEFI_CABLE_OP",op= 180,sd_prod=cabl_precont,reentrant='n',
-            fr="Définit les profils initiaux de tension d'une structure en béton le long des cables de précontrainte"
-               +" (utilisée par la macro DEFI_CABLE_BP)",
-            UIinfo={"groupes":("Modélisation",)},
+            fr="Définit les profils initiaux de tension d'une structure en béton le long des cables de précontrainte"
+               +" (utilisée par la macro DEFI_CABLE_BP)",
+            UIinfo={"groupes":("Modélisation",)},
          MODELE          =SIMP(statut='o',typ=modele_sdaster ),
          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
          CARA_ELEM       =SIMP(statut='o',typ=cara_elem ),
@@ -13393,10 +13357,11 @@ DEFI_CABLE_OP=OPER(nom="DEFI_CABLE_OP",op= 180,sd_prod=cabl_precont,reentrant='n
            GROUP_NO_FUT    =SIMP(statut='f',typ=grno,validators=NoRepeat(),max=2),
            TENSION_CT      =SIMP(statut='f',typ=table_sdaster),
          ),
+         ADHERENT        =SIMP(statut='o',typ='TXM',defaut='OUI',into=("OUI","NON") ),
          TYPE_ANCRAGE    =SIMP(statut='o',typ='TXM',min=2,max=2,into=("ACTIF","PASSIF") ),
          TENSION_INIT    =SIMP(statut='o',typ='R',val_min=0.E+0 ),
          RECUL_ANCRAGE   =SIMP(statut='o',typ='R',val_min=0.E+0 ),
-         TYPE_RELAX      =SIMP(statut='o',typ='TXM',into=("SANS","BPEL","ETCC_DIRECT","ETCC_REPRISE"),defaut="SANS",), 
+         TYPE_RELAX      =SIMP(statut='o',typ='TXM',into=("SANS","BPEL","ETCC_DIRECT","ETCC_REPRISE"),defaut="SANS",),
          R_J             =SIMP(statut='f',typ='R',val_min=0.E+0),
          NBH_RELAX       =SIMP(statut='f',typ='R',val_min=0.E+0),
 #         PERT_ELAS       =SIMP(statut='o',typ='TXM',into=("OUI","NON"),defaut="NON"),
@@ -13410,8 +13375,7 @@ DEFI_CABLE_OP=OPER(nom="DEFI_CABLE_OP",op= 180,sd_prod=cabl_precont,reentrant='n
            PRESENT           =SIMP(statut='o',typ='TXM',min=2,max=2,into=("OUI","NON") ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 29/10/2012   AUTEUR FLEJOU J-L.FLEJOU 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -13428,12 +13392,12 @@ DEFI_CABLE_OP=OPER(nom="DEFI_CABLE_OP",op= 180,sd_prod=cabl_precont,reentrant='n
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PROIX J.M.PROIX
+# person_in_charge: jean-michel.proix at edf.fr
 DEFI_COMPOR=OPER(nom="DEFI_COMPOR",op=59,sd_prod=compor_sdaster,
-                   fr="Définir le comportement d'un monocristal, d'un polycristal ou de groupes de fibres",
+                   fr="Définir le comportement d'un monocristal, d'un polycristal ou de groupes de fibres",
                    reentrant='n',
-            UIinfo={"groupes":("Modélisation",)},
-# on exclut MULTIFBRE de MONOCRISTAL ou POLYCRISTAL car la structure de données n'est pas organisée pareil pour ces cas
+            UIinfo={"groupes":("Modélisation",)},
+# on exclut MULTIFBRE de MONOCRISTAL ou POLYCRISTAL car la structure de données n'est pas organisée pareil pour ces cas
                   regles=(UN_PARMI('MONOCRISTAL','POLYCRISTAL','MULTIFIBRE'),
                  PRESENT_PRESENT('MULTIFIBRE','GEOM_FIBRE','MATER_SECT'),
                          ),
@@ -13442,14 +13406,14 @@ DEFI_COMPOR=OPER(nom="DEFI_COMPOR",op=59,sd_prod=compor_sdaster,
              ECOULEMENT      =SIMP(statut='o', typ='TXM', max=1,
                    into=('MONO_VISC1', 'MONO_VISC2', 'MONO_DD_KR', 'MONO_DD_CFC', 'MONO_DD_CFC_IRRA',
                          'MONO_DD_CC', 'MONO_DD_CC_IRRA', 'MONO_DD_FAT',),
-                   fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écoulement viscoplastique"),
+                   fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écoulement viscoplastique"),
              ELAS            =SIMP(statut='f', typ='TXM', max=1,
-                   fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le comportement élastique (un et un seul)"),
+                   fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le comportement élastique (un et un seul)"),
              b_non_dd =BLOC(condition="ECOULEMENT=='MONO_VISC1' or ECOULEMENT=='MONO_VISC2'",
                    ECRO_ISOT       =SIMP(statut='o', typ='TXM', max=1,
-                   fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écrouissage isotrope"),
+                   fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écrouissage isotrope"),
                    ECRO_CINE       =SIMP(statut='o', typ='TXM', max=1,
-                   fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écrouissage cinématique"),
+                   fr="Donner le nom du mot-clé facteur de DEFI_MATERIAU précisant le type d'écrouissage cinématique"),
                    FAMI_SYST_GLIS  =SIMP(statut='f',typ='TXM', max=1,
                                 into=('OCTAEDRIQUE','BCC24','CUBIQUE1','CUBIQUE2','ZIRCONIUM','UNIAXIAL','UTILISATEUR'),
                                 ),
@@ -13493,14 +13457,14 @@ DEFI_COMPOR=OPER(nom="DEFI_COMPOR",op=59,sd_prod=compor_sdaster,
            regles=(UN_PARMI('ANGL_REP','ANGL_EULER'),),
              MONOCRISTAL     =SIMP(statut='o', typ=compor_sdaster, max=1),
              FRAC_VOL  =SIMP(statut='o', typ='R', max=1,fr="fraction volumique de la phase correspondant au monocristal"),
-             ANGL_REP  =SIMP(statut='f',typ='R',max=3,fr="orientation du monocristal : 3 angles nautiques en degrés"),
-             ANGL_EULER=SIMP(statut='f',typ='R',max=3,fr="orientation du monocristal : 3 angles d'Euler   en degrés"),
+             ANGL_REP  =SIMP(statut='f',typ='R',max=3,fr="orientation du monocristal : 3 angles nautiques en degrés"),
+             ANGL_EULER=SIMP(statut='f',typ='R',max=3,fr="orientation du monocristal : 3 angles d'Euler   en degrés"),
                                 ),
 
 
           b_poly      =BLOC( condition = "POLYCRISTAL!='None'",
           LOCALISATION     =SIMP(statut='f', typ='TXM', max=1, into=('BZ', 'BETA', 'RL',),
-                fr="Donner le nom de la règle de localisation"),
+                fr="Donner le nom de la règle de localisation"),
 
            b_beta      =BLOC( condition = "LOCALISATION=='BETA'",
              DL            =SIMP(statut='o',typ='R',max=1),
@@ -13517,7 +13481,7 @@ DEFI_COMPOR=OPER(nom="DEFI_COMPOR",op=59,sd_prod=compor_sdaster,
           GROUP_FIBRE        =SIMP(statut='o', typ='TXM', max='**'),
              MATER           =SIMP(statut='o', typ=mater_sdaster, max=1,
                                    fr="Donner le nom du materiau pour le groupe de fibres"),
-             RELATION        =SIMP(statut='f', typ='TXM', max=1,defaut="ELAS",into=C_RELATION(),
+             RELATION        =SIMP(statut='f', typ='TXM', max=1,defaut="ELAS",into=C_RELATION('DEFI_COMPOR'),
                                   fr="Donner le nom de la relation incrementale pour le groupe de fibres",
                                   ),
            RELATION_KIT    =SIMP(statut='f',typ='TXM',max='**',validators=NoRepeat(),
@@ -13525,7 +13489,6 @@ DEFI_COMPOR=OPER(nom="DEFI_COMPOR",op=59,sd_prod=compor_sdaster,
 # MECA KIT_DDI
                                        "VMIS_ISOT_TRAC",
                                        "VMIS_ISOT_LINE",
-                                       "VMIS_ISOT_CINE",
                                        "VMIS_ISOT_PUIS",
                                        "GRANGER_FP",
                                        "GRANGER_FP_INDT",
@@ -13538,8 +13501,6 @@ DEFI_COMPOR=OPER(nom="DEFI_COMPOR",op=59,sd_prod=compor_sdaster,
 
                                 ) );
 
-#& MODIF COMMANDE  DATE 30/01/2012   AUTEUR DESROCHE X.DESROCHES 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -13556,12 +13517,11 @@ DEFI_COMPOR=OPER(nom="DEFI_COMPOR",op=59,sd_prod=compor_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: xavier.desroches at edf.fr
 DEFI_COMPOSITE=OPER(nom="DEFI_COMPOSITE",op=56,sd_prod=mater_sdaster,reentrant='n',
-            UIinfo={"groupes":("Modélisation",)},
-                    fr="Déterminer les caractéristiques matériaux homogénéisées d'une coque multicouche à partir"
-                        +" des caractéristiques de chaque couche",
+            UIinfo={"groupes":("Modélisation",)},
+                    fr="Déterminer les caractéristiques matériaux homogénéisées d'une coque multicouche à partir"
+                        +" des caractéristiques de chaque couche",
          COUCHE          =FACT(statut='o',max='**',
            EPAIS           =SIMP(statut='o',typ='R',val_min=0.E+0 ),
            MATER           =SIMP(statut='o',typ=(mater_sdaster) ),
@@ -13572,8 +13532,7 @@ DEFI_COMPOSITE=OPER(nom="DEFI_COMPOSITE",op=56,sd_prod=mater_sdaster,reentrant='
            UNITE           =SIMP(statut='f',typ='I',defaut=8),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -13590,17 +13549,16 @@ DEFI_COMPOSITE=OPER(nom="DEFI_COMPOSITE",op=56,sd_prod=mater_sdaster,reentrant='
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op=   2,sd_prod=fonction_sdaster,
-                    fr="Définir la valeur d'une grandeur invariante",
+                    fr="Définir la valeur d'une grandeur invariante",
                     reentrant='n',
             UIinfo={"groupes":("Fonctions",)},
          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
          VALE            =SIMP(statut='o',typ='R',),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 07/05/2013   AUTEUR DESOZA T.DESOZA 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -13617,15 +13575,15 @@ DEFI_CONSTANTE=OPER(nom="DEFI_CONSTANTE",op=   2,sd_prod=fonction_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ABBAS M.ABBAS
+# person_in_charge: mickael.abbas at edf.fr
 #
 DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                   op        = 30,
                   sd_prod   = char_contact,
-                  fr        = "Définit les zones soumises à des conditions de contact unilatéral avec ou sans frottement",
+                  fr        = "Définit les zones soumises à des conditions de contact unilatéral avec ou sans frottement",
                   #en        = "Allows the definition of contact surfaces as well as unilateral conditions",
                   reentrant = 'n',
-                  UIinfo    = {"groupes":("Modélisation",)},
+                  UIinfo    = {"groupes":("Modélisation",)},
 
 # MODELE
 
@@ -13637,7 +13595,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
          FORMULATION     =SIMP(statut='o',
                                position='global',
                                typ='TXM',
-                               fr="Choix d'une formulation de contact ou de liaisons unilatérales",
+                               fr="Choix d'une formulation de contact ou de liaisons unilatérales",
                                defaut="DISCRETE",
                                into=("DISCRETE","CONTINUE","XFEM","LIAISON_UNIL",),),
 
@@ -13646,7 +13604,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
          FROTTEMENT      =SIMP(statut='f',
                                position='global',
                                typ='TXM',
-                               fr="Choix d'un modèle de frottement (uniquement pour les formulations de contact)",
+                               fr="Choix d'un modèle de frottement (uniquement pour les formulations de contact)",
                                defaut="SANS",
                                into=("COULOMB","SANS",)),
 
@@ -13656,7 +13614,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
 #          ARRET DU CALCUL POUR LE MODE SANS RESOLUTION DU CONTACT
            STOP_INTERP   = SIMP(statut='f',
                                 typ='TXM',
-                                fr="Arrête le calcul dès qu'une interpénétration est détectée en mode RESOLUTION='NON'",
+                                fr="Arrête le calcul dès qu'une interpénétration est détectée en mode RESOLUTION='NON'",
                                 defaut="NON",
                                 into=("OUI","NON")),
 #          LISSAGE DES NORMALES PAR MOYENNATION AUX NOEUDS
@@ -13668,7 +13626,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
 #          VERIFICATION DE L'ORIENTATION ET DE LA COHERENCE DES NORMALES
            VERI_NORM       =SIMP(statut='f',
                                  typ='TXM',
-                                 fr="Vérification de l'orientation (sortante) des normales aux surfaces",
+                                 fr="Vérification de l'orientation (sortante) des normales aux surfaces",
                                  defaut="OUI",
                                  into=("OUI","NON"),),
            ),
@@ -13786,8 +13744,13 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                   b_algo_reso_frotNE = BLOC(condition = "ALGO_RESO_FROT=='NEWTON'",
 
                                     RESI_FROT      = SIMP(statut='f',typ='R',defaut=0.0001),
+                                    ADAPT_COEF     = SIMP(statut='f',
+                                                          typ='TXM',
+                                                          defaut="NON",
+                                                          into=("OUI","NON")),
                                   ),
-                                  ),
+                              ),
+
 
 # PARAMETRE GENERAL : BOUCLE DE FROTTEMENT - Cas XFEM
 
@@ -13802,39 +13765,39 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
 #                                 ## METHODES DE DUALISATION ##
                                   STOP_SINGULIER= SIMP(statut='f',
                                                        typ='TXM',
-                                                       fr="Tient compte de la singularité de la matrice de contact",
+                                                       fr="Tient compte de la singularité de la matrice de contact",
                                                        defaut="OUI",
                                                        into=("OUI","NON"),),
                                   NB_RESOL      = SIMP(statut='f',
                                                        typ='I',
-                                                fr="Nombre de résolutions simultanées pour la construction du complément de Schur",
+                                                fr="Nombre de résolutions simultanées pour la construction du complément de Schur",
                                                        defaut=10,),
 #                                 ## GCP ##
                                   RESI_ABSO     = SIMP(statut='f',
                                                        typ='R',
-                                                  fr="Critère de convergence (niveau d'interpénétration autorisé pour 'GCP')",),
+                                                  fr="Critère de convergence (niveau d'interpénétration autorisé pour 'GCP')",),
                                   ITER_GCP_MAXI = SIMP(statut='f',
                                                        typ='I',
-                                                       fr="Nombre d'itérations maximal ('GCP')",
+                                                       fr="Nombre d'itérations maximal ('GCP')",
                                                        defaut=0,),
                                   RECH_LINEAIRE = SIMP(statut='f',
                                                        typ='TXM',
-                                                  fr="Autorisation de sortie du domaine admissible lors de la recherche linéaire",
+                                                  fr="Autorisation de sortie du domaine admissible lors de la recherche linéaire",
                                                        defaut="ADMISSIBLE",
                                                        into=("ADMISSIBLE","NON_ADMISSIBLE"),),
                                   PRE_COND      = SIMP(statut='f',
                                                        typ='TXM',
-                                                       fr="Choix d'un préconditionneur (accélère la convergence de 'GCP')",
+                                                       fr="Choix d'un préconditionneur (accélère la convergence de 'GCP')",
                                                        defaut="SANS",
                                                        into=("DIRICHLET","SANS"),),
                                   b_dirichlet   = BLOC (condition = "PRE_COND == 'DIRICHLET'",
                                      COEF_RESI     = SIMP(statut='f',
                                                           typ='R',
-                                                   fr="Activation du préconditionneur quand le résidu a été divisé par COEF_RESI",
+                                                   fr="Activation du préconditionneur quand le résidu a été divisé par COEF_RESI",
                                                           defaut = -1.0,),
                                      ITER_PRE_MAXI = SIMP(statut='f',
                                                           typ='I',
-                                                          fr="Nombre d'itérations maximal pour le préconditionneur ('GCP')",
+                                                          fr="Nombre d'itérations maximal pour le préconditionneur ('GCP')",
                                                           defaut=0,),
                                   ),
                                   ),
@@ -13846,7 +13809,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
          b_affe_unil     = BLOC(condition = "FORMULATION == 'LIAISON_UNIL'",
                                 ZONE=FACT(statut='o',
                                           max='**',
-# -- Liaison unilatérale
+# -- Liaison unilatérale
                                           regles=(UN_PARMI('GROUP_MA','MAILLE','GROUP_NO','NOEUD'),),
                                           GROUP_MA        =SIMP(statut='f',typ=grma ,validators=NoRepeat(),max='**'),
                                           MAILLE          =SIMP(statut='f',typ=ma   ,validators=NoRepeat(),max='**'),
@@ -13856,7 +13819,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                           NOM_CMP         =SIMP(statut='o',typ='TXM',max='**'),
                                           COEF_IMPO       =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule),),
                                           COEF_MULT       =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule),max='**'),
-# -- Incompatibilité avec CL
+# -- Incompatibilité avec CL
                                           SANS_NOEUD      =SIMP(statut='f',typ=no   ,validators=NoRepeat(),max='**'),
                                           SANS_GROUP_NO   =SIMP(statut='f',typ=grno ,validators=NoRepeat(),max='**'),
 
@@ -13923,7 +13886,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
 #
                                           TOLE_APPA       =SIMP(statut='f',typ='R'  ,defaut=-1.0),
                                           TOLE_PROJ_EXT   =SIMP(statut='f',typ='R'  ,defaut=0.50),
-# -- Incompatibilité avec CL
+# -- Incompatibilité avec CL
                                           SANS_NOEUD      =SIMP(statut='f',typ=no   ,validators=NoRepeat(),max='**'),
                                           SANS_GROUP_NO   =SIMP(statut='f',typ=grno ,validators=NoRepeat(),max='**'),
                                           SANS_MAILLE     =SIMP(statut='f',typ=ma   ,validators=NoRepeat(),max='**'),
@@ -13933,12 +13896,12 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                           b_verif=BLOC(condition = "RESOLUTION == 'NON' ",
                                             TOLE_INTERP   = SIMP(statut='f',typ='R',defaut = 0.),
                                             ),
-# -- Résolution
+# -- Résolution
                                           ALGO_CONT       =SIMP(statut='o',typ='TXM',defaut="CONTRAINTE",
                                                                 into=("CONTRAINTE","LAGRANGIEN","PENALISATION","GCP"),),
 
                                           b_active=BLOC(condition = "ALGO_CONT == 'CONTRAINTE' ",
-                                                        fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
+                                                        fr="Paramètres de la méthode des contraintes actives (contact uniquement)",
                                                         GLISSIERE=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
                                                         b_glissiere=BLOC(condition = "GLISSIERE == 'OUI' ",
                                                                          ALARME_JEU  =SIMP(statut='f',typ='R',defaut=0.),
@@ -13946,23 +13909,23 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                                         ),
 #
                                           b_penal_contact=BLOC(condition = "ALGO_CONT == 'PENALISATION' ",
-                                                               fr="Paramètres de la méthode pénalisée (contact)",
+                                                               fr="Paramètres de la méthode pénalisée (contact)",
                                                                E_N=SIMP(statut='o',typ='R'),
                                                                ),
 #
                                           b_frottement=BLOC(condition = "FROTTEMENT == 'COULOMB' ",
-                                                            fr="Paramètres du frottement de Coulomb",
+                                                            fr="Paramètres du frottement de Coulomb",
                                                             COULOMB       =SIMP(statut='o',typ='R',),
                                                             COEF_MATR_FROT=SIMP(statut='f',typ='R',defaut=0.E+0),
                                                             ALGO_FROT     =SIMP(statut='o',typ='TXM',defaut="PENALISATION",
                                                                                 into=("PENALISATION","LAGRANGIEN"),),
 #
                                                             b_penal_frot=BLOC(condition = "ALGO_FROT == 'PENALISATION' ",
-                                                                              fr="Paramètres de la méthode pénalisée (frottement)",
+                                                                              fr="Paramètres de la méthode pénalisée (frottement)",
                                                                               E_T=SIMP(statut='o',typ='R'),
                                                                               ),
                                                            ),
-                                          ), #fin mot-clé facteur ZONE
+                                          ), #fin mot-clé facteur ZONE
                                 ), #fin bloc b_affe_discret
 
 # AFFECTATION - CAS CONTINUE
@@ -14026,7 +13989,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
 #
                                           TOLE_APPA       =SIMP(statut='f',typ='R'  ,defaut=-1.0),
                                           TOLE_PROJ_EXT   =SIMP(statut='f',typ='R'  ,defaut=0.50),
-# -- Incompatibilité avec CL
+# -- Incompatibilité avec CL
                                           SANS_NOEUD      =SIMP(statut='f',typ=no   ,validators=NoRepeat(),max='**'),
                                           SANS_GROUP_NO   =SIMP(statut='f',typ=grno ,validators=NoRepeat(),max='**'),
                                           SANS_MAILLE     =SIMP(statut='f',typ=ma   ,validators=NoRepeat(),max='**'),
@@ -14036,12 +13999,12 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                           b_verif=BLOC(condition = "RESOLUTION == 'NON' ",
                                                        TOLE_INTERP   = SIMP(statut='f',typ='R',defaut = 0.),
                                                        ),
-# -- Fonctionnalités spécifiques 'CONTINUE'
+# -- Fonctionnalités spécifiques 'CONTINUE'
 
                                           INTEGRATION     =SIMP(statut='f',typ='TXM',defaut="AUTO",
                                           into=("AUTO","GAUSS","SIMPSON","NCOTES",),),
                                           b_gauss   =BLOC(condition = "INTEGRATION == 'GAUSS' ",
-                                                          fr="Degré du polynôme de Legendre donnant les points de Gauss",
+                                                          fr="Degré du polynôme de Legendre donnant les points de Gauss",
                                                           ORDRE_INT = SIMP(statut='f',typ='I',defaut=3,val_min=1,val_max=6),
                                             ),
                                           b_simpson =BLOC(condition = "INTEGRATION == 'SIMPSON' ",
@@ -14049,7 +14012,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                                           ORDRE_INT = SIMP(statut='f',typ='I',defaut=1,val_min=1,val_max=4),
                                             ),
                                           b_ncotes  =BLOC(condition = "INTEGRATION == 'NCOTES' ",
-                                                          fr="Degré du polynôme interpolateur",
+                                                          fr="Degré du polynôme interpolateur",
                                                           ORDRE_INT = SIMP(statut='f',typ='I',defaut=3,val_min=3,val_max=8),
                                             ),
 #
@@ -14062,16 +14025,16 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                                                 into=("STANDARD","PENALISATION"),),
 
                                           b_cont_std=BLOC(condition = "ALGO_CONT == 'STANDARD' ",
-                                                          fr="Paramètres de la formulation Lagrangienne",
+                                                          fr="Paramètres de la formulation Lagrangienne",
                                                           COEF_CONT = SIMP(statut='f',typ='R',defaut=100.E+0),
                                                           ),
                                           b_cont_pena=BLOC(condition = "ALGO_CONT == 'PENALISATION' ",
-                                                            fr="Paramètres de la méthode pénalisée",
+                                                            fr="Paramètres de la méthode pénalisée",
                                                             COEF_PENA_CONT  =SIMP(statut='o',typ='R'),
                                                             ),
 #
                                           b_frottement=BLOC(condition = "FROTTEMENT == 'COULOMB' ",
-                                                            fr="Paramètres du frottement de Coulomb",
+                                                            fr="Paramètres du frottement de Coulomb",
                                                             COULOMB    = SIMP(statut='o',typ='R',),
                                                             SEUIL_INIT = SIMP(statut='f',typ='R',defaut=0.E+0),
 #
@@ -14080,24 +14043,24 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                                   SANS_GROUP_NO_FR =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
                                                             b_sans_group_no_frot=BLOC(condition = " SANS_GROUP_NO_FR != None or \
                                                                                                     SANS_NOEUD_FR != None ",
-                                                            fr="Direction de frottement à exclure (uniquement dans le cas 3D)",
+                                                            fr="Direction de frottement à exclure (uniquement dans le cas 3D)",
                                                             DIRE_EXCL_FROT=SIMP(statut='f',typ='R',min=3,max=3),
                                                             ),
 
                                             ALGO_FROT       =SIMP(statut='f',typ='TXM',defaut="STANDARD",
                                                                   into=("STANDARD","PENALISATION"),),
                                             b_frot_std      =BLOC(condition = "ALGO_FROT == 'STANDARD' ",
-                                                                  fr="Paramètres de la formulation Lagrangienne",
+                                                                  fr="Paramètres de la formulation Lagrangienne",
                                                                   COEF_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
                                                                   ),
 
                                             b_frot_pena     =BLOC(condition = "ALGO_FROT == 'PENALISATION' ",
-                                                                  fr="Paramètres de la méthode pénalisée",
+                                                                  fr="Paramètres de la méthode pénalisée",
                                                                   COEF_PENA_FROT  =SIMP(statut='o',typ='R'),
                                                                   ),
 
                                             ), #fin bloc b_frottement
-                                          ), #fin mot-clé facteur ZONE
+                                          ), #fin mot-clé facteur ZONE
                                 ), #fin bloc b_affe_continue
 
 
@@ -14110,14 +14073,14 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                        FISS_MAIT      = SIMP(statut='o',typ=fiss_xfem,max=1),
                                        TOLE_PROJ_EXT   =SIMP(statut='f',typ='R'  ,defaut=0.50),
 
-# -- Fonctionnalités spécifiques 'XFEM'
+# -- Fonctionnalités spécifiques 'XFEM'
                                        INTEGRATION    = SIMP(statut='f',
                                                              typ='TXM',
                                                              defaut="GAUSS",
 
                                           into=("NOEUD","GAUSS","SIMPSON","NCOTES",),),
                                           b_gauss   =BLOC(condition = "INTEGRATION == 'GAUSS' ",
-                                                          fr="Dégré du polynôme de Legendre donnant les points de Gauss",
+                                                          fr="Dégré du polynôme de Legendre donnant les points de Gauss",
                                                           ORDRE_INT = SIMP(statut='f',typ='I',defaut=6,val_min=1,val_max=6),
                                             ),
                                           b_simpson =BLOC(condition = "INTEGRATION == 'SIMPSON' ",
@@ -14125,7 +14088,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                                           ORDRE_INT = SIMP(statut='f',typ='I',defaut=1,val_min=1,val_max=4),
                                             ),
                                           b_ncotes  =BLOC(condition = "INTEGRATION == 'NCOTES' ",
-                                                          fr="Dégré du polynôme interpolateur",
+                                                          fr="Dégré du polynôme interpolateur",
                                                           ORDRE_INT = SIMP(statut='f',typ='I',defaut=3,val_min=3,val_max=8),
                                             ),
 
@@ -14146,7 +14109,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                                 ),
 
                                        b_cont_pen=BLOC(condition = "ALGO_CONT == 'PENALISATION' ",
-                                                 fr="Paramètre de la méthode pénalisée",
+                                                 fr="Paramètre de la méthode pénalisée",
                                                  COEF_PENA_CONT =SIMP(statut='o',typ='R'),
                                                  ),
 
@@ -14157,7 +14120,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                                 ),
 
                                        b_frottement=BLOC(condition = "FROTTEMENT == 'COULOMB' and  ALGO_CONT != 'CZM' ",
-                                                 fr="Paramètres du frottement",
+                                                 fr="Paramètres du frottement",
                                                  COULOMB      =SIMP(statut='o',typ='R',),
                                                  SEUIL_INIT   =SIMP(statut='f',typ='R',defaut=0.E+0),
                                                  ALGO_FROT    =SIMP(statut='f',typ='TXM',defaut="STANDARD",
@@ -14168,16 +14131,15 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
                                                                   COEF_FROT  =SIMP(statut='f',typ='R',defaut=100.E+0),
                                                                   ),
                                                  b_frot_pen=BLOC(condition = "ALGO_FROT == 'PENALISATION' ",
-                                                                  fr="Paramètre de la méthode pénalisée",
+                                                                  fr="Paramètre de la méthode pénalisée",
                                                                   COEF_PENA_FROT  =SIMP(statut='o',typ='R'),
                                                                   ),
                                                         ), #fin bloc b_frottement
-                                       ), #fin mot-clé facteur ZONE
+                                       ), #fin mot-clé facteur ZONE
                              ), #fin bloc b_affe_xfem
 
                   ) #fin OPER
-#& MODIF COMMANDE  DATE 03/04/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -14194,7 +14156,7 @@ DEFI_CONTACT=OPER(nom       = "DEFI_CONTACT",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 def DEFIC_prod(self,ACTION,UNITE,**args):
   if ACTION == "ASSOCIER" or ACTION == "RESERVER":
     if UNITE != None :
@@ -14211,27 +14173,27 @@ DEFI_FICHIER=MACRO(nom="DEFI_FICHIER",
                    sd_prod=DEFIC_prod,
                    reentrant='n',
                    UIinfo={"groupes":("Gestion du travail",)},
-                   fr="Ouvre ou ferme un fichier associé à un numéro d'unité logique",
+                   fr="Ouvre ou ferme un fichier associé à un numéro d'unité logique",
 
             ACTION        =SIMP(statut='f',typ='TXM',into=("ASSOCIER","LIBERER","RESERVER"),defaut="ASSOCIER"),
 
             b_associer    =BLOC(condition = "ACTION == 'ASSOCIER'",
-                                fr="Paramètres pour l'ouverture du fichier",
+                                fr="Paramètres pour l'ouverture du fichier",
                                 regles=(AU_MOINS_UN('FICHIER','UNITE'),),
                UNITE      =SIMP(statut='f',typ='I' ,val_min=1),
                FICHIER    =SIMP(statut='f',typ='TXM',validators=LongStr(1,255)),
                TYPE       =SIMP(statut='f',typ='TXM',into=("ASCII","BINARY","LIBRE"),defaut="ASCII"),
 
-               b_type_ascii  =BLOC(condition = "TYPE == 'ASCII'",fr="Paramètres pour le type ASCII",
+               b_type_ascii  =BLOC(condition = "TYPE == 'ASCII'",fr="Paramètres pour le type ASCII",
                   ACCES      =SIMP(statut='f',typ='TXM',into=("NEW","APPEND","OLD"),defaut="NEW"),
                ),
-               b_type_autre  =BLOC(condition = "TYPE != 'ASCII'",fr="Paramètres pour les types BINARY et LIBRE",
+               b_type_autre  =BLOC(condition = "TYPE != 'ASCII'",fr="Paramètres pour les types BINARY et LIBRE",
                   ACCES      =SIMP(statut='f',typ='TXM',into=("NEW","OLD"),defaut="NEW"),
                ),
             ),
 
             b_reserver    =BLOC(condition = "ACTION == 'RESERVER'",
-                                fr="Paramètres pour la réservation de l'unité du fichier",
+                                fr="Paramètres pour la réservation de l'unité du fichier",
                                 regles=(AU_MOINS_UN('FICHIER','UNITE'),),
                UNITE      =SIMP(statut='f',typ='I' ,val_min=1),
                FICHIER    =SIMP(statut='f',typ='TXM',validators=LongStr(1,255)),
@@ -14240,7 +14202,7 @@ DEFI_FICHIER=MACRO(nom="DEFI_FICHIER",
             ),
 
             b_liberer    =BLOC(condition = "ACTION == 'LIBERER'",
-                               fr="Paramètres pour la fermeture du fichier",
+                               fr="Paramètres pour la fermeture du fichier",
                                regles=(UN_PARMI('FICHIER','UNITE'),),
                   UNITE         =SIMP(statut='f',typ='I' ,val_min=1),
                   FICHIER   =SIMP(statut='f',typ='TXM',validators=LongStr(1,255)),
@@ -14248,8 +14210,7 @@ DEFI_FICHIER=MACRO(nom="DEFI_FICHIER",
 
            INFO          =SIMP(statut='f',typ='I',into=(1,2) ),
            )
-#& MODIF COMMANDE  DATE 31/07/2012   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -14266,11 +14227,11 @@ DEFI_FICHIER=MACRO(nom="DEFI_FICHIER",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 DEFI_FISS_XFEM=OPER(nom="DEFI_FISS_XFEM",op=  41,sd_prod=fiss_xfem,reentrant='n',
-            UIinfo={"groupes":("Modélisation",)},
-               fr="Définition des caratéristiques d'une fissure ou d'une interface avec X-FEM",
+            UIinfo={"groupes":("Modélisation",)},
+               fr="Définition des caratéristiques d'une fissure ou d'une interface avec X-FEM",
             regles = EXCLUS('MODELE_GRILLE','FISS_GRILLE'),
 
 # ------------------------------------------------------------------------------------------------------------------------
@@ -14321,14 +14282,14 @@ DEFI_FISS_XFEM=OPER(nom="DEFI_FISS_XFEM",op=  41,sd_prod=fiss_xfem,reentrant='n'
       GROUP_MA_FOND       =SIMP(statut='f',typ=grma,min=1,max=1),
       FORM_FISS   =SIMP(statut='f',typ='TXM',into=("ELLIPSE","RECTANGLE","CYLINDRE","DEMI_PLAN",
                                                    "SEGMENT","DEMI_DROITE","DROITE","ENTAILLE") ),
-      b_ellipse           =BLOC(condition = "FORM_FISS == 'ELLIPSE' ",fr="Paramètres de la fissure/interface elliptique",
+      b_ellipse           =BLOC(condition = "FORM_FISS == 'ELLIPSE' ",fr="Paramètres de la fissure/interface elliptique",
            DEMI_GRAND_AXE =SIMP(statut='o',typ='R',val_min=0.),
            DEMI_PETIT_AXE =SIMP(statut='o',typ='R',val_min=0.),
            CENTRE         =SIMP(statut='o',typ='R',min=3,max=3),
            VECT_X         =SIMP(statut='o',typ='R',min=3,max=3),
            VECT_Y         =SIMP(statut='o',typ='R',min=3,max=3),
            COTE_FISS      =SIMP(statut='f',typ='TXM',defaut="IN",into=("IN","OUT",) ),    ),
-      b_rectangle         =BLOC(condition = "FORM_FISS == 'RECTANGLE' ",fr="Paramètres de la fissure/interface rectangulaire",
+      b_rectangle         =BLOC(condition = "FORM_FISS == 'RECTANGLE' ",fr="Paramètres de la fissure/interface rectangulaire",
            DEMI_GRAND_AXE =SIMP(statut='o',typ='R',val_min=0.),
            DEMI_PETIT_AXE =SIMP(statut='o',typ='R',val_min=0.),
            RAYON_CONGE    =SIMP(statut='f',typ='R',val_min=0.,defaut=0.),
@@ -14336,29 +14297,29 @@ DEFI_FISS_XFEM=OPER(nom="DEFI_FISS_XFEM",op=  41,sd_prod=fiss_xfem,reentrant='n'
            VECT_X         =SIMP(statut='o',typ='R',min=3,max=3),
            VECT_Y         =SIMP(statut='o',typ='R',min=3,max=3),
            COTE_FISS      =SIMP(statut='f',typ='TXM',defaut="IN",into=("IN","OUT",) ),    ),
-      b_entaille          =BLOC(condition = "FORM_FISS == 'ENTAILLE' ",fr="Paramètres de l'interface entaille",
+      b_entaille          =BLOC(condition = "FORM_FISS == 'ENTAILLE' ",fr="Paramètres de l'interface entaille",
            DEMI_LONGUEUR  =SIMP(statut='o',typ='R',val_min=0.),
            RAYON_CONGE    =SIMP(statut='o',typ='R',val_min=0.),
            CENTRE         =SIMP(statut='o',typ='R',min=3,max=3),
            VECT_X         =SIMP(statut='o',typ='R',min=3,max=3),  
            VECT_Y         =SIMP(statut='o',typ='R',min=3,max=3),  ),
-      b_cylindre          =BLOC(condition = "FORM_FISS == 'CYLINDRE' ",fr="Paramètres de la fissure cylindrique",
+      b_cylindre          =BLOC(condition = "FORM_FISS == 'CYLINDRE' ",fr="Paramètres de la fissure cylindrique",
            DEMI_GRAND_AXE =SIMP(statut='o',typ='R',val_min=0.),
            DEMI_PETIT_AXE =SIMP(statut='o',typ='R',val_min=0.),
            CENTRE         =SIMP(statut='o',typ='R',min=3,max=3),
            VECT_X         =SIMP(statut='o',typ='R',min=3,max=3),
            VECT_Y         =SIMP(statut='o',typ='R',min=3,max=3),),
-      b_demiplan          =BLOC(condition = "FORM_FISS == 'DEMI_PLAN' ",fr="Paramètres de la fissure plane à front droit",
+      b_demiplan          =BLOC(condition = "FORM_FISS == 'DEMI_PLAN' ",fr="Paramètres de la fissure plane à front droit",
            PFON           =SIMP(statut='o',typ='R',min=3,max=3),
            NORMALE        =SIMP(statut='o',typ='R',min=3,max=3),
            DTAN           =SIMP(statut='o',typ='R',min=3,max=3),),
-      b_segment           =BLOC(condition = "FORM_FISS == 'SEGMENT' ",fr="Paramètres de la fissure 2D segment",
+      b_segment           =BLOC(condition = "FORM_FISS == 'SEGMENT' ",fr="Paramètres de la fissure 2D segment",
            PFON_ORIG      =SIMP(statut='o',typ='R',min=3,max=3),
            PFON_EXTR      =SIMP(statut='o',typ='R',min=3,max=3),),
-      b_demidroite         =BLOC(condition = "FORM_FISS == 'DEMI_DROITE' ",fr="Paramètres de la fissure 2D demi-droite",
+      b_demidroite         =BLOC(condition = "FORM_FISS == 'DEMI_DROITE' ",fr="Paramètres de la fissure 2D demi-droite",
            PFON           =SIMP(statut='o',typ='R',min=3,max=3),
            DTAN           =SIMP(statut='o',typ='R',min=3,max=3),),
-      b_droite            =BLOC(condition = "FORM_FISS == 'DROITE' ",fr="Paramètres de l'interface 2D (fissure traversante)",
+      b_droite            =BLOC(condition = "FORM_FISS == 'DROITE' ",fr="Paramètres de l'interface 2D (fissure traversante)",
            POINT          =SIMP(statut='o',typ='R',min=3,max=3),
            DTAN           =SIMP(statut='o',typ='R',min=3,max=3),),
                             ),
@@ -14385,10 +14346,10 @@ DEFI_FISS_XFEM=OPER(nom="DEFI_FISS_XFEM",op=  41,sd_prod=fiss_xfem,reentrant='n'
       CHAM_DISCONTINUITE  =SIMP(statut='f',typ='TXM',into=("DEPL",),defaut="DEPL" ),
       TYPE_ENRI_FOND      =SIMP(statut='f',typ='TXM',into=("TOPOLOGIQUE","GEOMETRIQUE"),defaut="TOPOLOGIQUE" ),
 
-        b_enri_geom       =BLOC(condition = "TYPE_ENRI_FOND == 'GEOMETRIQUE' ",fr="Paramètres de l enrichissement geometrique",
+        b_enri_geom       =BLOC(condition = "TYPE_ENRI_FOND == 'GEOMETRIQUE' ",fr="Paramètres de l enrichissement geometrique",
            RAYON_ENRI     =SIMP(statut='f',typ='R',val_min=0.E+0),
 
-          b_enri_couches  =BLOC(condition = "(RAYON_ENRI == None) ",fr="Paramètres de l enrichissement à n couches",
+          b_enri_couches  =BLOC(condition = "(RAYON_ENRI == None) ",fr="Paramètres de l enrichissement à n couches",
            NB_COUCHES     =SIMP(statut='f',typ='I',defaut=4,val_min=1),
 
                                ),
@@ -14412,8 +14373,7 @@ DEFI_FISS_XFEM=OPER(nom="DEFI_FISS_XFEM",op=  41,sd_prod=fiss_xfem,reentrant='n'
     INFO                  =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,3,) ),
 
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -14430,10 +14390,10 @@ DEFI_FISS_XFEM=OPER(nom="DEFI_FISS_XFEM",op=  41,sd_prod=fiss_xfem,reentrant='n'
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ADOBES A.ADOBES
+# person_in_charge: andre.adobes at edf.fr
 DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
-                    reentrant='n',fr="Définit les caractéristiques nécessaires à l'étude dynamique d'une structure sous écoulement",
-            UIinfo={"groupes":("Modélisation",)},
+                    reentrant='n',fr="Définit les caractéristiques nécessaires à l'étude dynamique d'une structure sous écoulement",
+            UIinfo={"groupes":("Modélisation",)},
          regles=(  UN_PARMI('FAISCEAU_TRANS','GRAPPE','FAISCEAU_AXIAL','COQUE_COAX',),),
          FAISCEAU_TRANS  =FACT(statut='f',max='**',
            regles=(  ENSEMBLE('CSTE_CONNORS','NB_CONNORS','RHO_TUBE'),),
@@ -14456,7 +14416,7 @@ DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
          GRAPPE          =FACT(statut='f',
            regles=(ENSEMBLE('GRAPPE_2','NOEUD','CARA_ELEM','MODELE','RHO_FLUI',),
                    PRESENT_PRESENT('COEF_MASS_AJOU','GRAPPE_2', ),),
-#  peut on créer un bloc a partir de la valeur de couplage
+#  peut on créer un bloc a partir de la valeur de couplage
            COUPLAGE        =SIMP(statut='o',typ='TXM',into=("OUI","NON") ),
            GRAPPE_2        =SIMP(statut='f',typ='TXM',
                                  into=("ASC_CEN","ASC_EXC","DES_CEN","DES_EXC") ),
@@ -14518,8 +14478,7 @@ DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
          ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -14536,22 +14495,22 @@ DEFI_FLUI_STRU=OPER(nom="DEFI_FLUI_STRU",op= 143,sd_prod=type_flui_stru,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEVY S.LEVY
+# person_in_charge: nicolas.relun at edf.fr
 
 
 DEFI_FONC_ELEC=MACRO(nom="DEFI_FONC_ELEC",
                      op=OPS('Macro.defi_fonc_elec_ops.defi_fonc_elec_ops'),
                      sd_prod=fonction_sdaster,
                      reentrant='n',
-                     UIinfo={"groupes":("Outils-métier",)},
-                     fr="Définir une fonction du temps intervenant dans le calcul des " \
+                     UIinfo={"groupes":("Outils-métier",)},
+                     fr="Définir une fonction du temps intervenant dans le calcul des " \
                         "forces de LAPLACE",
          regles=(UN_PARMI('COUR_PRIN','COUR'),
                  EXCLUS('COUR','COUR_SECO'), ),
          FREQ            =SIMP(statut='f',typ='R',defaut= 50.),
          SIGNAL          =SIMP(statut='f',typ='TXM',defaut="COMPLET",into=("COMPLET","CONTINU") ),
          COUR            =FACT(statut='f',max='**',
-           fr="Définition du courant de court-circuit",
+           fr="Définition du courant de court-circuit",
            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),
                    UN_PARMI('PHI_CC_2','INTC_CC_2'),),
            INTE_CC_1       =SIMP(statut='o',typ='R'),
@@ -14566,7 +14525,7 @@ DEFI_FONC_ELEC=MACRO(nom="DEFI_FONC_ELEC",
            INST_CC_FIN     =SIMP(statut='o',typ='R'),
          ),
          COUR_PRIN       =FACT(statut='f',
-         fr="Définition du courant de court-circuit avec réenclenchement",
+         fr="Définition du courant de court-circuit avec réenclenchement",
            regles=(UN_PARMI('PHI_CC_1','INTC_CC_1'),),
            INTE_CC_1       =SIMP(statut='o',typ='R'),
            TAU_CC_1        =SIMP(statut='o',typ='R'),
@@ -14581,7 +14540,7 @@ DEFI_FONC_ELEC=MACRO(nom="DEFI_FONC_ELEC",
            INST_RENC_FIN   =SIMP(statut='f',typ='R',defaut= 0.0E+0),
          ),
          COUR_SECO       =FACT(statut='f',max='**',
-         fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
+         fr="Définition du courant de court-circuit avec un intervalle de temps différent de celui de COUR_PRIN",
            regles=(UN_PARMI('PHI_CC_2','INTC_CC_2'),),
            INTE_CC_2       =SIMP(statut='o',typ='R'),
            TAU_CC_2        =SIMP(statut='o',typ='R'),
@@ -14594,8 +14553,7 @@ DEFI_FONC_ELEC=MACRO(nom="DEFI_FONC_ELEC",
          ),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -14612,11 +14570,11 @@ DEFI_FONC_ELEC=MACRO(nom="DEFI_FONC_ELEC",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ADOBES A.ADOBES
+# person_in_charge: andre.adobes at edf.fr
 DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction_sdaster,
                     reentrant='n',
-            fr="Définit un profil de vitesse d'écoulement fluide le long d'une poutre",
-            UIinfo={"groupes":("Modélisation","Fonctions",)},
+            fr="Définit un profil de vitesse d'écoulement fluide le long d'une poutre",
+            UIinfo={"groupes":("Modélisation","Fonctions",)},
          MAILLAGE        =SIMP(statut='o',typ=(maillage_sdaster) ),
          NOEUD_INIT      =SIMP(statut='o',typ=no),
          NOEUD_FIN       =SIMP(statut='o',typ=no),
@@ -14634,8 +14592,7 @@ DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction_sdaster,
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 22/04/2013   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -14652,7 +14609,7 @@ DEFI_FONC_FLUI=OPER(nom="DEFI_FONC_FLUI",op= 142,sd_prod=fonction_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,ABSCISSE,**args):
   if VALE       != None  : return fonction_sdaster
   if VALE_C     != None  : return fonction_c
@@ -14662,31 +14619,31 @@ def defi_fonction_prod(VALE,VALE_PARA,VALE_C,NOEUD_PARA,ABSCISSE,**args):
   raise AsException("type de concept resultat non prevu")
 
 DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
-                    ,fr="Définit une fonction réelle ou complexe d'une variable réelle",
+                    ,fr="Définit une fonction réelle ou complexe d'une variable réelle",
                      reentrant='n',
             UIinfo={"groupes":("Fonctions",)},
          regles=(UN_PARMI('VALE','VALE_C','VALE_PARA','NOEUD_PARA','ABSCISSE'),),
          NOM_PARA        =SIMP(statut='o',typ='TXM',into=C_PARA_FONCTION() ),
          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
          VALE            =SIMP(statut='f',typ='R',min=2,max='**',
-                               fr ="Fonction réelle définie par une liste de couples "
-                                   "(abscisse,ordonnée)"),
+                               fr ="Fonction réelle définie par une liste de couples "
+                                   "(abscisse,ordonnée)"),
          ABSCISSE        =SIMP(statut='f',typ='R',min=2,max='**',
-                               fr ="Liste d abscisses d une fonction réelle"),
+                               fr ="Liste d abscisses d une fonction réelle"),
          VALE_C          =SIMP(statut='f',typ='R',min=2,max='**',
-                               fr ="Fonction complexe définie par une liste de triplets "
-                                   "(absc, partie réelle, partie imaginaire)"),
+                               fr ="Fonction complexe définie par une liste de triplets "
+                                   "(absc, partie réelle, partie imaginaire)"),
          VALE_PARA       =SIMP(statut='f',typ=listr8_sdaster,
-                               fr ="Fonction réelle définie par deux concepts de type listr8" ),
+                               fr ="Fonction réelle définie par deux concepts de type listr8" ),
          b_vale_para     =BLOC(condition = "VALE_PARA != None",
            VALE_FONC       =SIMP(statut='o',typ=listr8_sdaster ),
          ),
          b_abscisse      =BLOC(condition = "ABSCISSE != None",
            ORDONNEE        =SIMP(statut='o',typ='R',min=2,max='**',
-                               fr ="Liste d ordonnées d une fonction réelle"),
+                               fr ="Liste d ordonnées d une fonction réelle"),
          ),
          NOEUD_PARA      =SIMP(statut='f',typ=no,max='**',
-                               fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
+                               fr ="Fonction réelle définie par une liste de noeuds et un maillage"),
          b_noeud_para    =BLOC(condition = "NOEUD_PARA != None",
            MAILLAGE        =SIMP(statut='o',typ=maillage_sdaster ),
            VALE_Y          =SIMP(statut='o',typ='R',max='**'),
@@ -14699,8 +14656,7 @@ DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 17/12/2012   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -14717,13 +14673,13 @@ DEFI_FONCTION=OPER(nom="DEFI_FONCTION",op=3,sd_prod=defi_fonction_prod
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",
                     op=55,
                     sd_prod=fond_fiss,
                     reentrant='n',
-                    UIinfo={"groupes":("Modélisation",)},fr="Définition de lèvres et d'un fond de fissure",
+                    UIinfo={"groupes":("Modélisation",)},fr="Définition de lèvres et d'un fond de fissure",
 
     MAILLAGE  = SIMP(statut='o',typ=maillage_sdaster ),
     INFO      =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
@@ -14805,8 +14761,7 @@ DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",
     PREC_NORM    = SIMP(statut='f',typ='R',defaut=0.1),
 
 )  
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2007  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -14823,12 +14778,12 @@ DEFI_FOND_FISS=OPER(nom="DEFI_FOND_FISS",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE FLEJOU J.L.FLEJOU
+# person_in_charge: jean-luc.flejou at edf.fr
 #
 DEFI_GEOM_FIBRE=OPER(nom="DEFI_GEOM_FIBRE",op=  119, sd_prod=gfibre_sdaster,
                     fr="Definition des groupes de fibres pour les elements multifibres",
                     reentrant='n',
-            UIinfo={"groupes":("Modélisation",)},
+            UIinfo={"groupes":("Modélisation",)},
          regles=(AU_MOINS_UN('SECTION','FIBRE'),),
 
          INFO       =SIMP(statut='f',typ='I', defaut= 1 ,into=(1,2) ),
@@ -14857,8 +14812,7 @@ DEFI_GEOM_FIBRE=OPER(nom="DEFI_GEOM_FIBRE",op=  119, sd_prod=gfibre_sdaster,
 
 
 ) ;
-#& MODIF COMMANDE  DATE 16/10/2012   AUTEUR ALARCON A.ALARCON 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -14875,17 +14829,17 @@ DEFI_GEOM_FIBRE=OPER(nom="DEFI_GEOM_FIBRE",op=  119, sd_prod=gfibre_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE SFAYOLLE S.FAYOLLE
+# person_in_charge: sebastien.fayolle at edf.fr
 DEFI_GLRC=OPER(nom="DEFI_GLRC",op=57,sd_prod=mater_sdaster,reentrant='f',
-               UIinfo={"groupes":("Modélisation",)},
-               fr="Déterminer les caractéristiques homogenéisées du béton armé à partir des propriétés du béton et des  "
+               UIinfo={"groupes":("Modélisation",)},
+               fr="Déterminer les caractéristiques homogenéisées du béton armé à partir des propriétés du béton et des  "
                         +" armatures",
                reuse = SIMP(statut='f',typ=mater_sdaster),
                RELATION = SIMP(statut='o',typ='TXM',defaut="GLRC_DAMAGE",
                           into=("GLRC_DM","GLRC_DAMAGE"),),
 
                b_glrc_dm=BLOC(condition = "RELATION == 'GLRC_DM'",
-                              fr="Paramètres de la loi GLRC_DM",
+                              fr="Paramètres de la loi GLRC_DM",
                               BETON = FACT(statut='o',max=1,
                                 MATER = SIMP(statut='o',typ=(mater_sdaster),),
                                 EPAIS = SIMP(statut='o',typ='R',val_min=0.E+0 ),),
@@ -14898,10 +14852,11 @@ DEFI_GLRC=OPER(nom="DEFI_GLRC",op=57,sd_prod=mater_sdaster,reentrant='f',
                               RHO = SIMP(statut='f',typ='R',val_min=0.E+0,),
                               AMOR_ALPHA = SIMP(statut='f',typ='R',val_min=0.E+0,),
                               AMOR_BETA = SIMP(statut='f',typ='R',val_min=0.E+0,),
+                              AMOR_HYST = SIMP(statut='f',typ='R',val_min=0.E+0,),
                               COMPR = SIMP(statut='o',typ='TXM',defaut="GAMMA",
                                            into=("GAMMA","SEUIL")),
                    b_gamma=BLOC(condition = "COMPR == 'GAMMA'",
-                                fr="Paramètre d'endommagement en compression ",
+                                fr="Paramètre d'endommagement en compression ",
                                 GAMMA_C = SIMP(statut='o',typ='R',defaut=1.0E+0,val_min=0.0E+0, val_max=1.0E+0),),
                    b_seuil=BLOC(condition = "COMPR == 'SEUIL'",
                                 fr="Seuil d'endommagement en compression ",
@@ -14909,7 +14864,7 @@ DEFI_GLRC=OPER(nom="DEFI_GLRC",op=57,sd_prod=mater_sdaster,reentrant='f',
                    PENTE = SIMP(statut='o',typ='TXM',defaut="RIGI_ACIER",
                                 into=("PLAS_ACIER","UTIL","RIGI_ACIER")),
                    b_util = BLOC(condition = "PENTE == 'UTIL'",
-                                 fr="Valeur de la déformation maximale de l'élément",
+                                 fr="Valeur de la déformation maximale de l'élément",
                                   EPSI_MEMB = SIMP(statut='o',typ='R',defaut=0.E+0),
                                   KAPPA_FLEX = SIMP(statut='o',typ='R',defaut=0.E+0),),
                    CISAIL = SIMP(statut='o',typ='TXM',defaut="NON",
@@ -14919,7 +14874,7 @@ DEFI_GLRC=OPER(nom="DEFI_GLRC",op=57,sd_prod=mater_sdaster,reentrant='f',
                    INFO = SIMP(statut='f',typ='I',defaut=1,into=(1,2),),
                            ),
            b_glrc_damage=BLOC(condition = "RELATION == 'GLRC_DAMAGE'",
-                            fr="Paramètres de la loi GLRC_DAMAGE",
+                            fr="Paramètres de la loi GLRC_DAMAGE",
                    CISAIL_NL          =FACT(statut='f',max=1,
                      BTD1            =SIMP(statut='o',typ='R'),
                      BTD2            =SIMP(statut='o',typ='R'),
@@ -14989,8 +14944,7 @@ DEFI_GLRC=OPER(nom="DEFI_GLRC",op=57,sd_prod=mater_sdaster,reentrant='f',
                    INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2),),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 08/03/2011   AUTEUR MASSIN P.MASSIN 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -15007,17 +14961,16 @@ DEFI_GLRC=OPER(nom="DEFI_GLRC",op=57,sd_prod=mater_sdaster,reentrant='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 DEFI_GRILLE=OPER(nom="DEFI_GRILLE",op=82,sd_prod=grille_sdaster,reentrant='n',
-                UIinfo={"groupes":("Modélisation",)},
-                fr="Définition d'une grille",
+                UIinfo={"groupes":("Modélisation",)},
+                fr="Définition d'une grille",
     
     MAILLAGE       = SIMP(statut='o',typ=maillage_sdaster),
 
     INFO           = SIMP(statut='f',typ='I',defaut= 0,into=(0,1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 18/02/2013   AUTEUR SELLENET N.SELLENET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -15034,7 +14987,7 @@ DEFI_GRILLE=OPER(nom="DEFI_GRILLE",op=82,sd_prod=grille_sdaster,reentrant='n',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 def defi_group_prod(MAILLAGE,GRILLE,**args):
   if ( MAILLAGE != None ) :
      if AsType(MAILLAGE) == maillage_sdaster : return maillage_sdaster
@@ -15044,7 +14997,7 @@ def defi_group_prod(MAILLAGE,GRILLE,**args):
   raise AsException("type de concept resultat non prevu")
 
 DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
-                fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
+                fr="Définition de nouveaux groupes de noeuds et/ou de mailles dans un concept maillage",
                 reentrant='o',
             UIinfo={"groupes":("Maillage",)},
          regles=(AU_MOINS_UN('CREA_GROUP_MA','CREA_GROUP_NO','DETR_GROUP_NO','DETR_GROUP_MA'),
@@ -15227,13 +15180,13 @@ DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
              NOM             =SIMP(statut='o',typ=grno),
              GROUP_MA        =SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**'),
              # si le groupe de mailles forme une ligne ouverte, on peut choisir le sens de parcours en choissant l'origine:
-             # si le groupe de mailles forme une ligne fermée, il FAUT choisir l'origine et l'extrémité (= origine):
+             # si le groupe de mailles forme une ligne fermée, il FAUT choisir l'origine et l'extrémité (= origine):
              NOEUD_ORIG      =SIMP(statut='f',typ=no),
              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
              NOEUD_EXTR      =SIMP(statut='f',typ=no),
              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
-             # si le groupe de mailles forme une ligne fermée, on peut choisir le sens de parcours :
-             VECT_ORIE       =SIMP(statut='f',typ='R',max=3),  # utilisé seulement si NOEUD_ORIG=NOEUD_EXTR
+             # si le groupe de mailles forme une ligne fermée, on peut choisir le sens de parcours :
+             VECT_ORIE       =SIMP(statut='f',typ='R',max=3),  # utilisé seulement si NOEUD_ORIG=NOEUD_EXTR
 
            ),
            b_tunnel    =BLOC(condition = "OPTION == 'TUNNEL'",
@@ -15252,7 +15205,7 @@ DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
              LONGUEUR        =SIMP(statut='f',typ='R'),
            ),
            b_inclusion         =BLOC(condition = "OPTION == 'INCLUSION'",
-             fr="""crée le groupe des noeuds des mailles de GROUP_MA inclus géométriquement
+             fr="""crée le groupe des noeuds des mailles de GROUP_MA inclus géométriquement
                    dans les mailles de GROUP_MA_INCL""",
              NOM             =SIMP(statut='o',typ=grma),
              CAS_FIGURE      =SIMP(statut='o',typ='TXM',into=("2D","3D","2.5D",)),
@@ -15279,8 +15232,7 @@ DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
          ALARME          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
          INFO            =SIMP(statut='f',typ='I',into=( 1 , 2 ) ),
 )  ;
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -15297,12 +15249,12 @@ DEFI_GROUP=OPER(nom="DEFI_GROUP",op= 104,sd_prod=defi_group_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 
 DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,
                     sd_prod=interspectre,
                     reentrant='n',
-                    fr="Définit une matrice interspectrale",
+                    fr="Définit une matrice interspectrale",
                     UIinfo={"groupes":("Fonctions",)},
 
          DIMENSION       =SIMP(statut='f',typ='I',defaut= 1 ),
@@ -15373,8 +15325,7 @@ DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 29/04/2013   AUTEUR CORUS M.CORUS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -15391,12 +15342,12 @@ DEFI_INTE_SPEC=OPER(nom="DEFI_INTE_SPEC",op= 115,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE CORUS M.CORUS
+# person_in_charge: mathieu.corus at edf.fr
 
 DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op=  98,sd_prod=interf_dyna_clas,
                       reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs","Dynamique",)},
-            fr="Définir les interfaces d'une structure et leur affecter un type",
+            fr="Définir les interfaces d'une structure et leur affecter un type",
          NUME_DDL        =SIMP(statut='o',typ=nume_ddl_sdaster ),
          INTERFACE       =FACT(statut='o',max='**',
            regles=(ENSEMBLE('NOM','TYPE'),
@@ -15412,8 +15363,7 @@ DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op=  98,sd_prod=interf_dyna_clas,
          FREQ            =SIMP(statut='f',typ='R',defaut= 1.),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -15430,16 +15380,16 @@ DEFI_INTERF_DYNA=OPER(nom="DEFI_INTERF_DYNA",op=  98,sd_prod=interf_dyna_clas,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis_sdaster,
-                    fr="Définir une liste d'entiers strictement croissante",
+                    fr="Définir une liste d'entiers strictement croissante",
                     reentrant='n',
             UIinfo={"groupes":("Fonctions",)},
 
          OPERATION    =SIMP(statut='o',typ='TXM',defaut='DEFI',into=('DEFI','NUME_ORDRE',)),
 
 
-         # définition d'une liste d'entiers
+         # définition d'une liste d'entiers
          #----------------------------------
          b_defi       =BLOC(condition = "OPERATION == 'DEFI'",
              regles=(UN_PARMI('VALE','DEBUT'),
@@ -15467,8 +15417,58 @@ DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis_sdaster,
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 15/10/2012   AUTEUR GENIAUT S.GENIAUT 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
+# 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 2 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, WRITE TO EDF R&D CODE_ASTER,
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# ======================================================================
+# person_in_charge: nicolas.brie at edf.fr
+DEFI_LIST_FREQ=MACRO(nom="DEFI_LIST_FREQ",
+                    op=OPS('Macro.defi_list_freq_ops.defi_list_freq_ops'),
+                    sd_prod=listr8_sdaster,
+                    fr="Définir une liste de fréquences strictement croissante",
+                    reentrant='n',
+            UIinfo={"groupes":("Fonctions",)},
+         regles=(UN_PARMI('VALE','DEBUT',),
+                 EXCLUS('VALE','INTERVALLE'),
+                 ENSEMBLE('DEBUT','INTERVALLE')),
+         VALE            =SIMP(statut='f',typ='R',max='**'),
+         DEBUT           =SIMP(statut='f',typ='R'),
+         INTERVALLE      =FACT(statut='f',max='**',
+           regles=(UN_PARMI('NOMBRE','PAS'),),
+           JUSQU_A         =SIMP(statut='o',typ='R'),
+           NOMBRE          =SIMP(statut='f',typ='I'),
+           PAS             =SIMP(statut='f',typ='R'),
+         ),
+         RAFFINEMENT      =FACT(statut='f',
+           LIST_RAFFINE    =SIMP(statut='o',typ='R',max='**'),
+           NB_POINTS       =SIMP(statut='f',typ='I',defaut=5),
+           PAS_MINI        =SIMP(statut='f',typ='R',defaut=0.001),
+           CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU","LARGEUR_3DB")),
+              b_crit_rela_abs=BLOC(condition="(CRITERE=='RELATIF' or CRITERE=='ABSOLU')",
+                 DISPERSION      =SIMP(statut='f',typ='R',defaut=0.01),),
+              b_crit_larg=BLOC(condition="(CRITERE=='LARGEUR_3DB')",
+                 AMOR_MODAL      =FACT(statut='o',
+                    regles = UN_PARMI('AMOR_REDUIT','LIST_AMOR'),
+                    AMOR_REDUIT     =SIMP(statut='f',typ='R',max='**'),
+                    LIST_AMOR       =SIMP(statut='f',typ=listr8_sdaster ),),),
+             ),
+         INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+         TITRE           =SIMP(statut='f',typ='TXM',max='**'),
+)  ;
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -15485,7 +15485,7 @@ DEFI_LIST_ENTI=OPER(nom="DEFI_LIST_ENTI",op=22,sd_prod=listis_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 
 
@@ -15549,7 +15549,7 @@ bloc_auto2  =BLOC(fr                = "Subdivision de type automatique",
 # Bloc pour decoupe du pas de temps
 bloc_deco   =BLOC(fr                = "Action de decoupe du pas temps",
                   condition         = "ACTION == 'DECOUPE' or ACTION == 'REAC_PRECOND' or ACTION == 'AUTRE_PILOTAGE'",
-                  SUBD_METHODE      = SIMP(fr                = "Méthode de subdivision des pas de temps en cas de divergence",
+                  SUBD_METHODE      = SIMP(fr                = "Méthode de subdivision des pas de temps en cas de divergence",
                                            statut            = 'f',
                                            typ               = 'TXM',
                                            max               = 1,
@@ -15564,7 +15564,7 @@ bloc_deco   =BLOC(fr                = "Action de decoupe du pas temps",
 # Bloc pour decoupe du pas de temps - special pour collision
 bloc_deco2  =BLOC(fr                = "Action de decoupe du pas temps",
                   condition         = "ACTION == 'DECOUPE'",
-                  SUBD_METHODE      = SIMP(fr                = "Méthode de subdivision des pas de temps en cas de collision",
+                  SUBD_METHODE      = SIMP(fr                = "Méthode de subdivision des pas de temps en cas de collision",
                                            statut            = 'f',
                                            typ               = 'TXM',
                                            max               = 1,
@@ -15581,14 +15581,14 @@ bloc_deco2  =BLOC(fr                = "Action de decoupe du pas temps",
 # Bloc pour extrapolation du nombre d'iterations de Newton
 bloc_supp   =BLOC(fr                = "Action d'extrapolation du nombre d'iterations de Newton",
                   condition         = "ACTION == 'ITER_SUPPL'",
-                  PCENT_ITER_PLUS   = SIMP(fr                = "Pourcentage d'itérations autorisées en plus",
+                  PCENT_ITER_PLUS   = SIMP(fr                = "Pourcentage d'itérations autorisées en plus",
                                            statut            = 'f',
                                            typ               = 'I',
                                            val_min           = 20,
                                            max               = 1,
                                            defaut            = 50,
                                            ),
-                  SUBD_METHODE      = SIMP(fr                = "Méthode de subdivision des pas de temps en cas de divergence",
+                  SUBD_METHODE      = SIMP(fr                = "Méthode de subdivision des pas de temps en cas de divergence",
                                            statut            = 'f',
                                            typ               = 'TXM',
                                            max               = 1,
@@ -15613,7 +15613,7 @@ bloc_pene   =BLOC(fr                = "Action d' adaptation du coefficient de pe
 
 DEFI_LIST_INST = OPER(nom="DEFI_LIST_INST",op=  28,sd_prod=list_inst,reentrant='n',
                       UIinfo={"groupes":("Fonctions",)},
-                      fr="Définition de la gestion de la liste d'instants",
+                      fr="Définition de la gestion de la liste d'instants",
 
 # ----------------------------------------------------------------------------------------------------------------------------------
 # mot-cle pour la definition a priori de la liste d'instant
@@ -15630,7 +15630,7 @@ DEFI_LIST   =FACT(fr                = "Definition a priori de la liste d'instant
                                            into              = ("MANUEL","AUTO",),
                                            defaut            = "MANUEL",
                                            ),
-                  b_manuel          = BLOC(fr                = "Liste d'instants donnée par l'utilisateur",
+                  b_manuel          = BLOC(fr                = "Liste d'instants donnée par l'utilisateur",
                                            condition         = "METHODE == 'MANUEL' ",
                                            regles=(UN_PARMI('LIST_INST','VALE','RESULTAT'),
                                                    PRESENT_PRESENT('RESULTAT','SUBD_PAS'),),
@@ -15913,8 +15913,6 @@ ADAPTATION  =FACT(fr                = "Parametres de l'evenement declencheur de
 
 )  ;
 
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -15931,9 +15929,9 @@ ADAPTATION  =FACT(fr                = "Parametres de l'evenement declencheur de
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8_sdaster,
-                    fr="Définir une liste de réels strictement croissante",
+                    fr="Définir une liste de réels strictement croissante",
                     reentrant='n',
             UIinfo={"groupes":("Fonctions",)},
          regles=(UN_PARMI('VALE','DEBUT',),
@@ -15950,8 +15948,7 @@ DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8_sdaster,
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -15968,9 +15965,9 @@ DEFI_LIST_REEL=OPER(nom="DEFI_LIST_REEL",op=24,sd_prod=listr8_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op=  88,sd_prod=maillage_sdaster,
-                   fr="Définition d'un nouveau maillage à partir de macro-éléments",
+                   fr="Définition d'un nouveau maillage à partir de macro-éléments",
                    reentrant='n',
             UIinfo={"groupes":("Maillage",)},
          DEFI_SUPER_MAILLE =FACT(statut='o',max='**',
@@ -16019,18 +16016,17 @@ DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op=  88,sd_prod=maillage_sdaster,
                    ENSEMBLE('GROUP_NO_INIT','GROUP_NO_FIN'),),
 #  la regle ancien catalogue AU_MOINS_UN__: ( INDEX , GROUP_NO_FIN ) incoherente avec doc U
            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),
-                                 fr="Création de plusieurs groupes de noeuds" ),
+                                 fr="Création de plusieurs groupes de noeuds" ),
            SUPER_MAILLE    =SIMP(statut='f',typ=ma,
-                                 fr="Création de plusieurs groupes de noeuds"),
+                                 fr="Création de plusieurs groupes de noeuds"),
            GROUP_NO_INIT   =SIMP(statut='f',typ=grno,
-                                 fr="Création d un seul groupe de noeuds"),
+                                 fr="Création d un seul groupe de noeuds"),
            PREFIXE         =SIMP(statut='f',typ='TXM' ),
            INDEX           =SIMP(statut='f',typ='I',max='**'),
            GROUP_NO_FIN    =SIMP(statut='f',typ=grno),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 02/04/2013   AUTEUR PROIX J-M.PROIX 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -16047,60 +16043,80 @@ DEFI_MAILLAGE=OPER(nom="DEFI_MAILLAGE",op=  88,sd_prod=maillage_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE FLEJOU J-L.FLEJOU
-# -*- coding: iso-8859-1 -*-
+# person_in_charge: jean-luc.flejou at edf.fr
 
 DEFI_MATER_GC=MACRO(nom="DEFI_MATER_GC",
    op=OPS('Macro.defi_mater_gc_ops.defi_mater_gc_ops'),
    sd_prod=mater_sdaster,
    reentrant='n',
-   UIinfo={"groupes":("Modélisation",) },
-   fr="Définir des lois matériaux spécifique au Génie Civil",
+   UIinfo={"groupes":("Modélisation",) },
+   fr="Définir des lois matériaux spécifique au Génie Civil",
    #
-   regles = (UN_PARMI('MAZARS','ACIER',), ),
+   regles = (UN_PARMI('MAZARS','ACIER','ENDO_FISS_EXP'), ),
    #
    REGLE =SIMP(statut='f',typ='TXM',     into=('EC2',),     defaut='EC2'),
    # ============================================================================
    MAZARS      =FACT(statut= 'f',max= 1,
-      fr="Paramètres matériaux de MAZARS unilatéral en 1D à partir des caractéristiques du béton",
+      fr="Paramètres matériaux de MAZARS unilatéral en 1D à partir des caractéristiques du béton",
       UNITE_LONGUEUR =SIMP(statut='o',typ='TXM',   into=("M","MM"),
-                           fr="Unité de longueur du problème [M|MM]"),
+                           fr="Unité de longueur du problème [M|MM]"),
       FCJ            =SIMP(statut='o',typ='R',     val_min=0.0E+0,
-                           fr="Contrainte au pic en compression [Unité]"),
+                           fr="Contrainte au pic en compression [Unité]"),
       EIJ            =SIMP(statut='f',typ='R',     val_min=0.0E+0,
-                           fr="Module d'Young [Unité]"),
+                           fr="Module d'Young [Unité]"),
       EPSI_C         =SIMP(statut='f',typ='R',     val_min=0.0E+0,
-                           fr="Déformation au pic en compression"),
+                           fr="Déformation au pic en compression"),
       FTJ            =SIMP(statut='f',typ='R',     val_min=0.0E+0,
-                           fr="Contrainte au pic en traction [Unité]"),
+                           fr="Contrainte au pic en traction [Unité]"),
       NU             =SIMP(statut='f',typ='R',     val_min=0.0E+0, val_max=0.5E+0,
                            fr="Coefficient de poisson"),
       EPSD0          =SIMP(statut='f',typ='R',     val_min=0.0E+0,
-                           fr="Déformation, seuil d'endommagement"),
+                           fr="Déformation, seuil d'endommagement"),
       K              =SIMP(statut='f',typ='R',     val_min=0.0E+0,
                            fr="Asymptote en cisaillement pur"),
       AC             =SIMP(statut='f',typ='R',     val_min=0.E+0,
-                           fr="Paramètre de décroissance post-pic en compression"),
+                           fr="Paramètre de décroissance post-pic en compression"),
       BC             =SIMP(statut='f',typ='R',     val_min=0.0E+0,
-                           fr="Paramètre de décroissance post-pic en compression"),
+                           fr="Paramètre de décroissance post-pic en compression"),
       AT             =SIMP(statut='f',typ='R',     val_min=0.0E+0, val_max=1.0E+0,
-                           fr="Paramètre de décroissance post-pic en traction"),
+                           fr="Paramètre de décroissance post-pic en traction"),
       BT             =SIMP(statut='f',typ='R',     val_min=0.0E+0,
-                           fr="Paramètre de décroissance post-pic en traction"),
+                           fr="Paramètre de décroissance post-pic en traction"),
       # Pour post-traitement ELS et ELU
       SIGM_LIM       =SIMP(statut='f',typ='R',  fr="Contrainte limite, post-traitement"),
-      EPSI_LIM       =SIMP(statut='f',typ='R',  fr="Déformation limite, post-traitement"),
+      EPSI_LIM       =SIMP(statut='f',typ='R',  fr="Déformation limite, post-traitement"),
    ),
    # ============================================================================
    ACIER       =FACT(statut= 'f',max= 1,
-      fr="Définir les paramètres matériaux de l'acier pour le Génie Civil",
+      fr="Définir les paramètres matériaux de l'acier pour le Génie Civil",
       E              =SIMP(statut='o',typ='R',  val_min=0.0E+0,                     fr="Module d'Young"),
-      SY             =SIMP(statut='o',typ='R',                                      fr="Limite élastique"),
+      SY             =SIMP(statut='o',typ='R',                                      fr="Limite élastique"),
       NU             =SIMP(statut='f',typ='R',  val_min=0.0E+0, val_max=0.5E+0,     fr="Coefficient de poisson"),
       D_SIGM_EPSI    =SIMP(statut='f',typ='R',                                      fr="Module plastique"),
       # Pour post-traitement ELS et ELU
       SIGM_LIM       =SIMP(statut='f',typ='R',  fr="Contrainte limite, post-traitement"),
-      EPSI_LIM       =SIMP(statut='f',typ='R',  fr="Déformation limite, post-traitement"),
+      EPSI_LIM       =SIMP(statut='f',typ='R',  fr="Déformation limite, post-traitement"),
+   ),
+   # ============================================================================
+   ENDO_FISS_EXP       =FACT(statut= 'f',max= 1,
+      fr="Définir les paramètres matériaux du béton pour la loi ENDO_FISS_EXP",
+      regles = (
+        UN_PARMI('FT','FT_FENDAGE'),
+        UN_PARMI('P','DSIG_DU'),
+        EXCLUS('Q','Q_REL'),
+        ),
+      E              =SIMP(statut='o',typ='R',  val_min=0.0E+0,                     fr="Module d'Young"),
+      NU             =SIMP(statut='o',typ='R',  val_min=0.0E+0, val_max=0.5E+0,     fr="Coefficient de poisson"),
+      FT             =SIMP(statut='f',typ='R',  val_min=0.0E+0                ,     fr="Limite en traction simple"),
+      FT_FENDAGE     =SIMP(statut='f',typ='R',  val_min=0.0E+0                ,     fr="Limite en traction obtenue via un essai brésilien"),
+      FC             =SIMP(statut='o',typ='R',  val_min=0.0E+0                ,     fr="Limite en compression simple"),
+      GF             =SIMP(statut='o',typ='R',  val_min=0.0E+0                ,     fr="Energie de fissuration"),
+      P              =SIMP(statut='f',typ='R',  val_min=1.0E+0                ,     fr="Parametre dominant de la loi cohésive asymptotique"),
+      DSIG_DU        =SIMP(statut='f',typ='R',  val_min=1.102658              ,     fr="Pente initiale (au signe pres) de la loi cohesive asymptotique"),
+      Q              =SIMP(statut='f',typ='R',  val_min=0.0E+0                ,     fr="Parametre secondaire de la loi cohesive asymptotique"),
+      Q_REL          =SIMP(statut='f',typ='R',  val_min=0.0E+0, val_max=1.0   ,     fr="Parametre Q exprime de maniere relative par rapport a Qmax(P)"),
+      LARG_BANDE     =SIMP(statut='o',typ='R',  val_min=0.0E+0                ,     fr="Largeur de bande d'endommagement (2*D)"),
+      COEF_RIGI_MINI =SIMP(statut='f',typ='R',  val_min=0.0, defaut = 0.0     ,     fr="Rigidite minimale dans la matrice tangente"),
    ),
    # ============================================================================
    INFO        =SIMP(statut='f',typ='I',     into=(1,2,),     defaut=1),
@@ -16110,8 +16126,8 @@ DEFI_MATER_GC=MACRO(nom="DEFI_MATER_GC",
    AMOR_BETA   =SIMP(statut='f',typ='R'),
    AMOR_HYST   =SIMP(statut='f',typ='R'),
 )
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -16128,19 +16144,20 @@ DEFI_MATER_GC=MACRO(nom="DEFI_MATER_GC",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
-                   fr="Définition des paramètres décrivant le comportement d un matériau",
+                   fr="Définition des paramètres décrivant le comportement d un matériau",
                    reentrant='f',
-            UIinfo={"groupes":("Modélisation",)},
+            UIinfo={"groupes":("Modélisation",)},
        regles=(EXCLUS('ELAS','ELAS_FO','ELAS_FLUI','ELAS_ISTR','ELAS_ISTR_FO','ELAS_ORTH',
                       'ELAS_ORTH_FO','ELAS_COQUE','ELAS_COQUE_FO',
-                      'ELAS_HYPER','ELAS_2NDG',),
+                      'ELAS_HYPER','ELAS_2NDG','ELAS_GLRC'),
                EXCLUS('THER','THER_FO','THER_ORTH','THER_NL'),
                EXCLUS('ECRO_LINE','ECRO_LINE_FO','ECRO_PUIS','ECRO_COOK','ECRO_COOK_FO',),
                EXCLUS('ENDO_HETEROGENE'),
                EXCLUS('TAHERI','TAHERI_FO'),
                EXCLUS('ENDO_SCALAIRE','ENDO_SCALAIRE_FO'),
+               EXCLUS('ENDO_FISS_EXP','ENDO_FISS_EXP_FO'),
                EXCLUS('ROUSSELIER','ROUSSELIER_FO'),
                EXCLUS('VISC_SINH','VISC_SINH_FO'),
                PRESENT_PRESENT('ROUSSELIER','TRACTION'),
@@ -16160,6 +16177,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 
                EXCLUS('RCCM','RCCM_FO'),
                EXCLUS('WEIBULL','WEIBULL_FO'),
+               PRESENT_PRESENT('DHRC','DHRC_SEUILS'),
                PRESENT_PRESENT('LAIGLE','ELAS'),
                PRESENT_PRESENT('LETK','ELAS'),
                PRESENT_PRESENT('DRUCK_PRAGER','ELAS'),
@@ -16169,10 +16187,12 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
                EXCLUS('MAZARS','MAZARS_FO'),
                PRESENT_PRESENT('JOINT_BA','ELAS'),
                PRESENT_PRESENT('CABLE','ELAS'),
+               PRESENT_PRESENT('MOHR_COULOMB','ELAS'),
+               PRESENT_PRESENT('ELAS_GLRC','GLRC_DM'),
                ),
            MATER      =SIMP(statut='f',typ=mater_sdaster),
 #
-# comportement élastique
+# comportement élastique
 #
            ELAS            =FACT(statut='f',
              E               =SIMP(statut='o',typ='R',val_min=0.E+0),
@@ -16283,12 +16303,12 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
            ELAS_HYPER      =FACT(statut='f',
                                  regles=(UN_PARMI('K','NU'),),
              C10             =SIMP(statut='o',typ='R',
-                                   fr="Si C10 est le seul coefficient fourni, alors le matériau est Néo-Hookéen."),
+                                   fr="Si C10 est le seul coefficient fourni, alors le matériau est Néo-Hookéen."),
              C01             =SIMP(statut='f',typ='R',defaut=0.0,
-                                   fr="Si l'on fournit C01 en plus de C10, on obtient un matériau de type Mooney-Rivlin."),
+                                   fr="Si l'on fournit C01 en plus de C10, on obtient un matériau de type Mooney-Rivlin."),
              C20             =SIMP(statut='f',typ='R',defaut=0.0,
-                                   fr="Si l'on fournit C20 en plus de C10 et C01, on obtient un matériau de type Signorini."),
-             K               =SIMP(statut='f',typ='R',fr="Module de compressibilité."),
+                                   fr="Si l'on fournit C20 en plus de C10 et C01, on obtient un matériau de type Signorini."),
+             K               =SIMP(statut='f',typ='R',fr="Module de compressibilité."),
              NU              =SIMP(statut='f',typ='R',val_min=-1.E+0,val_max=0.5E+0,fr="Coefficient de Poisson."),
              RHO             =SIMP(statut='f',typ='R',defaut=0.0,fr="Masse volumique."),
            ),
@@ -16420,12 +16440,42 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              A4              =SIMP(statut='f',typ='R'),
              A5              =SIMP(statut='f',typ='R'),
            ),
+           ELAS_GLRC        =FACT(statut='f',
+             regles=(PRESENT_PRESENT('BT1','BT2'),),
+             E_M             =SIMP(statut='o',typ='R',val_min=0.E+0),
+             NU_M            =SIMP(statut='o',typ='R',val_min=0.E+0,val_max=0.5+0),
+             E_F             =SIMP(statut='f',typ='R',val_min=0.E+0),
+             NU_F            =SIMP(statut='f',typ='R',val_min=0.E+0,val_max=0.5+0),
+             BT1             =SIMP(statut='f',typ='R',val_min=0.E+0),
+             BT2             =SIMP(statut='f',typ='R',val_min=0.E+0,val_max=0.5+0),
+             RHO             =SIMP(statut='f',typ='R',val_min=0.E+0),
+             ALPHA           =SIMP(statut='f',typ='R'),
+             AMOR_ALPHA      =SIMP(statut='f',typ='R'),
+             AMOR_BETA       =SIMP(statut='f',typ='R'),
+             AMOR_HYST       =SIMP(statut='f',typ='R'),
+           ),
+           ELAS_GLRC_FO     =FACT(statut='f',
+             regles=(PRESENT_PRESENT('ALPHA','TEMP_DEF_ALPHA'),
+                     PRESENT_PRESENT('BT1','BT2'),),
+             E_M             =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             NU_M            =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             E_F             =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             NU_F            =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             BT1             =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             BT2             =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             RHO             =SIMP(statut='f',typ='R'),
+             TEMP_DEF_ALPHA  =SIMP(statut='f',typ='R'),
+             ALPHA           =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             AMOR_ALPHA      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             AMOR_BETA       =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             AMOR_HYST       =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+           ),
            CABLE           =FACT(statut='f',
              EC_SUR_E        =SIMP(statut='f',typ='R',defaut= 1.E-4 ),
            ),
 #
-# comportements mécanique non linéaire
-# vérification du domaine de validité
+# comportements mécanique non linéaire
+# vérification du domaine de validité
            VERI_BORNE      =FACT(statut='f',
              regles=(ENSEMBLE('TEMP_MAXI','TEMP_MINI'),
                      ),
@@ -16592,11 +16642,11 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
            CIN2_CHAB  =FACT(statut='f',
              R_0             =SIMP(statut='o',typ='R'),
              R_I             =SIMP(statut='f',typ='R'),
-             B               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+             B               =SIMP(statut='f',typ='R',defaut= 0.E+0),
              C1_I            =SIMP(statut='o',typ='R'),
              C2_I            =SIMP(statut='o',typ='R'),
              K               =SIMP(statut='f',typ='R',defaut= 1.),
-             W               =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
+             W               =SIMP(statut='f',typ='R',defaut= 0.E+0),
              G1_0            =SIMP(statut='o',typ='R'),
              G2_0            =SIMP(statut='o',typ='R'),
              A_I             =SIMP(statut='f',typ='R',defaut= 1.E+0 ),
@@ -16861,6 +16911,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
            ENDO_SCALAIRE   =FACT(statut='f',
              K               =SIMP(statut='o',typ='R',val_min=0.0),
              P               =SIMP(statut='o',typ='R',val_min=1.0),
+             Q               =SIMP(statut='f',typ='R',defaut=0.0),
              M               =SIMP(statut='o',typ='R',),
              C_COMP          =SIMP(statut='f',typ='R',defaut=0.0),
              C_VOLU          =SIMP(statut='f',typ='R',defaut=1.0,val_min=0.0),
@@ -16869,11 +16920,32 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
            ENDO_SCALAIRE_FO =FACT(statut='f',
              K               =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
              P               =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             Q               =SIMP(statut='f',typ='R',defaut=0.0),
              M               =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
              C_COMP          =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
              C_VOLU          =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
              COEF_RIGI_MINI  =SIMP(statut='f',typ='R',defaut=1.E-5),
            ),
+           ENDO_FISS_EXP    =FACT(statut='f',
+             K               =SIMP(statut='o',typ='R',val_min=0.0),
+             P               =SIMP(statut='o',typ='R',val_min=1.0),
+             Q               =SIMP(statut='f',typ='R',defaut=0.0),
+             M               =SIMP(statut='o',typ='R',),
+             TAU             =SIMP(statut='o',typ='R'),
+             SIG0            =SIMP(statut='o',typ='R'),
+             BETA            =SIMP(statut='f',typ='R',defaut=0.1),
+             COEF_RIGI_MINI  =SIMP(statut='f',typ='R',defaut=1.E-5),
+           ),
+           ENDO_FISS_EXP_FO =FACT(statut='f',
+             K               =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             P               =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             Q               =SIMP(statut='f',typ='R',defaut=0.0),
+             M               =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             TAU             =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             SIG0            =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             BETA            =SIMP(statut='f',typ='R',defaut=0.1),
+             COEF_RIGI_MINI  =SIMP(statut='f',typ='R',defaut=1.E-5),
+           ),
            DIS_GRICRA    =FACT(statut='f',
              KN_AX       =SIMP(statut='o',typ='R' ),
              KT_AX       =SIMP(statut='o',typ='R' ),
@@ -16911,17 +16983,6 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              ECRO_COMP_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","PARABOLE") ),
              ECRO_TRAC_P_PIC =SIMP(statut='f',typ='TXM',defaut="LINEAIRE",into=("LINEAIRE","EXPONENT") ),
            ),
-           LABORD_1D=FACT(statut='f',min=0 ,
-             Y01             =SIMP(statut='o',typ='R'),
-             Y02             =SIMP(statut='o',typ='R'),
-             A1              =SIMP(statut='o',typ='R'),
-             A2              =SIMP(statut='o',typ='R'),
-             B1              =SIMP(statut='o',typ='R'),
-             B2              =SIMP(statut='o',typ='R'),
-             BETA1           =SIMP(statut='o',typ='R'),
-             BETA2           =SIMP(statut='o',typ='R'),
-             SIGF            =SIMP(statut='o',typ='R'),
-           ),
          MAZARS=FACT(statut='f',min=0 ,
              EPSD0           =SIMP(statut='o',typ='R'),
              K               =SIMP(statut='o',typ='R'),
@@ -17031,14 +17092,19 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
            ),
           ETCC_ACIER      =FACT(statut='f',
             regles=(PRESENT_PRESENT('RELAX_1000','F_PRG',),),
-             F_PRG           =SIMP(statut='f',typ='R',val_min=0.E+0),             
+             F_PRG           =SIMP(statut='f',typ='R',val_min=0.E+0),
              COEF_FROT       =SIMP(statut='f',typ='R',defaut=0.E+0,val_min=0.E+0),
-             PERT_LIGNE     =SIMP(statut='f',typ='R',defaut=0.E+0,val_min=0.E+0), 
-             RELAX_1000      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),                         
+             PERT_LIGNE     =SIMP(statut='f',typ='R',defaut=0.E+0,val_min=0.E+0),
+             RELAX_1000      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
 
 
            ),
-           
+           MOHR_COULOMB  =FACT(statut='f',
+               PHI         =SIMP(statut='o',typ='R',val_min=0.E+0,val_max=60.E+0,),
+               ANGDIL      =SIMP(statut='o',typ='R',val_min=0.E+0,val_max=60.E+0,),
+               COHESION    =SIMP(statut='o',typ='R',val_min=0.E+0,),
+             ),
+
            CAM_CLAY      =FACT(statut='f',
              MU              =SIMP(statut='o',typ='R'),
              PORO            =SIMP(statut='o',typ='R'),
@@ -17207,17 +17273,283 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              PARA_CIN        =SIMP(statut='o',typ='R'),
              ENR_AC_G        =SIMP(statut='o',typ='R'),
            ),
-           GLRC_DM         =FACT(statut='f',min=0,max=1,
+           GLRC_DM         =FACT(statut='f',max=1,
              GAMMA_T         =SIMP(statut='o',typ='R',val_min=-1.E+0,val_max=1.E+0),
              GAMMA_C         =SIMP(statut='f',typ='R',val_min=-1.E+0,val_max=1.E+0),
              GAMMA_F         =SIMP(statut='o',typ='R',val_min=-1.E+0,val_max=1.E+0),
              NYT             =SIMP(statut='o',typ='R',val_min=0.E+0),
              NYC             =SIMP(statut='f',typ='R'),
              MYF             =SIMP(statut='o',typ='R',val_min=0.E+0),
-             EF              =SIMP(statut='f',typ='R',val_min=0.E+0),
-             NUF             =SIMP(statut='f',typ='R',val_min=0.E+0,val_max=0.5+0),
              ALPHA_C         =SIMP(statut='d',typ='R',val_min=1.E+0,defaut=1.E+0),
            ),
+           DHRC_SEUILS         =FACT(statut='f',
+             SYD           =SIMP(statut='o',typ='R',),
+             SCRIT         =SIMP(statut='o',typ='R',),
+             K0MICR        =SIMP(statut='o',typ='R',),
+             A011          =SIMP(statut='o',typ='R',),
+             A012          =SIMP(statut='o',typ='R',),
+             A013          =SIMP(statut='o',typ='R',),
+             A014          =SIMP(statut='o',typ='R',),
+             A015          =SIMP(statut='o',typ='R',),
+             A016          =SIMP(statut='o',typ='R',),
+             A022          =SIMP(statut='o',typ='R',),
+             A023          =SIMP(statut='o',typ='R',),
+             A024          =SIMP(statut='o',typ='R',),
+             A025          =SIMP(statut='o',typ='R',),
+             A026          =SIMP(statut='o',typ='R',),
+             A033          =SIMP(statut='o',typ='R',),
+             A034          =SIMP(statut='o',typ='R',),
+             A035          =SIMP(statut='o',typ='R',),
+             A036          =SIMP(statut='o',typ='R',),
+             A044          =SIMP(statut='o',typ='R',),
+             A045          =SIMP(statut='o',typ='R',),
+             A046          =SIMP(statut='o',typ='R',),
+             A055          =SIMP(statut='o',typ='R',),
+             A056          =SIMP(statut='o',typ='R',),
+             A066          =SIMP(statut='o',typ='R',),
+           ),
+           DHRC            =FACT(statut='f',
+             AAC111        =SIMP(statut='o',typ='R',),
+             AAC121        =SIMP(statut='o',typ='R',),
+             AAC131        =SIMP(statut='o',typ='R',),
+             AAC141        =SIMP(statut='o',typ='R',),
+             AAC151        =SIMP(statut='o',typ='R',),
+             AAC161        =SIMP(statut='o',typ='R',),
+             AAC221        =SIMP(statut='o',typ='R',),
+             AAC231        =SIMP(statut='o',typ='R',),
+             AAC241        =SIMP(statut='o',typ='R',),
+             AAC251        =SIMP(statut='o',typ='R',),
+             AAC261        =SIMP(statut='o',typ='R',),
+             AAC331        =SIMP(statut='o',typ='R',),
+             AAC341        =SIMP(statut='o',typ='R',),
+             AAC351        =SIMP(statut='o',typ='R',),
+             AAC361        =SIMP(statut='o',typ='R',),
+             AAC441        =SIMP(statut='o',typ='R',),
+             AAC451        =SIMP(statut='o',typ='R',),
+             AAC461        =SIMP(statut='o',typ='R',),
+             AAC551        =SIMP(statut='o',typ='R',),
+             AAC561        =SIMP(statut='o',typ='R',),
+             AAC661        =SIMP(statut='o',typ='R',),
+             AAC112        =SIMP(statut='o',typ='R',),
+             AAC122        =SIMP(statut='o',typ='R',),
+             AAC132        =SIMP(statut='o',typ='R',),
+             AAC142        =SIMP(statut='o',typ='R',),
+             AAC152        =SIMP(statut='o',typ='R',),
+             AAC162        =SIMP(statut='o',typ='R',),
+             AAC222        =SIMP(statut='o',typ='R',),
+             AAC232        =SIMP(statut='o',typ='R',),
+             AAC242        =SIMP(statut='o',typ='R',),
+             AAC252        =SIMP(statut='o',typ='R',),
+             AAC262        =SIMP(statut='o',typ='R',),
+             AAC332        =SIMP(statut='o',typ='R',),
+             AAC342        =SIMP(statut='o',typ='R',),
+             AAC352        =SIMP(statut='o',typ='R',),
+             AAC362        =SIMP(statut='o',typ='R',),
+             AAC442        =SIMP(statut='o',typ='R',),
+             AAC452        =SIMP(statut='o',typ='R',),
+             AAC462        =SIMP(statut='o',typ='R',),
+             AAC552        =SIMP(statut='o',typ='R',),
+             AAC562        =SIMP(statut='o',typ='R',),
+             AAC662        =SIMP(statut='o',typ='R',),
+             AAT111        =SIMP(statut='o',typ='R',),
+             AAT121        =SIMP(statut='o',typ='R',),
+             AAT131        =SIMP(statut='o',typ='R',),
+             AAT141        =SIMP(statut='o',typ='R',),
+             AAT151        =SIMP(statut='o',typ='R',),
+             AAT161        =SIMP(statut='o',typ='R',),
+             AAT221        =SIMP(statut='o',typ='R',),
+             AAT231        =SIMP(statut='o',typ='R',),
+             AAT241        =SIMP(statut='o',typ='R',),
+             AAT251        =SIMP(statut='o',typ='R',),
+             AAT261        =SIMP(statut='o',typ='R',),
+             AAT331        =SIMP(statut='o',typ='R',),
+             AAT341        =SIMP(statut='o',typ='R',),
+             AAT351        =SIMP(statut='o',typ='R',),
+             AAT361        =SIMP(statut='o',typ='R',),
+             AAT441        =SIMP(statut='o',typ='R',),
+             AAT451        =SIMP(statut='o',typ='R',),
+             AAT461        =SIMP(statut='o',typ='R',),
+             AAT551        =SIMP(statut='o',typ='R',),
+             AAT561        =SIMP(statut='o',typ='R',),
+             AAT661        =SIMP(statut='o',typ='R',),
+             AAT112        =SIMP(statut='o',typ='R',),
+             AAT122        =SIMP(statut='o',typ='R',),
+             AAT132        =SIMP(statut='o',typ='R',),
+             AAT142        =SIMP(statut='o',typ='R',),
+             AAT152        =SIMP(statut='o',typ='R',),
+             AAT162        =SIMP(statut='o',typ='R',),
+             AAT222        =SIMP(statut='o',typ='R',),
+             AAT232        =SIMP(statut='o',typ='R',),
+             AAT242        =SIMP(statut='o',typ='R',),
+             AAT252        =SIMP(statut='o',typ='R',),
+             AAT262        =SIMP(statut='o',typ='R',),
+             AAT332        =SIMP(statut='o',typ='R',),
+             AAT342        =SIMP(statut='o',typ='R',),
+             AAT352        =SIMP(statut='o',typ='R',),
+             AAT362        =SIMP(statut='o',typ='R',),
+             AAT442        =SIMP(statut='o',typ='R',),
+             AAT452        =SIMP(statut='o',typ='R',),
+             AAT462        =SIMP(statut='o',typ='R',),
+             AAT552        =SIMP(statut='o',typ='R',),
+             AAT562        =SIMP(statut='o',typ='R',),
+             AAT662        =SIMP(statut='o',typ='R',),
+             GAC111        =SIMP(statut='o',typ='R',),
+             GAC121        =SIMP(statut='o',typ='R',),
+             GAC131        =SIMP(statut='o',typ='R',),
+             GAC141        =SIMP(statut='o',typ='R',),
+             GAC151        =SIMP(statut='o',typ='R',),
+             GAC161        =SIMP(statut='o',typ='R',),
+             GAC221        =SIMP(statut='o',typ='R',),
+             GAC231        =SIMP(statut='o',typ='R',),
+             GAC241        =SIMP(statut='o',typ='R',),
+             GAC251        =SIMP(statut='o',typ='R',),
+             GAC261        =SIMP(statut='o',typ='R',),
+             GAC331        =SIMP(statut='o',typ='R',),
+             GAC341        =SIMP(statut='o',typ='R',),
+             GAC351        =SIMP(statut='o',typ='R',),
+             GAC361        =SIMP(statut='o',typ='R',),
+             GAC441        =SIMP(statut='o',typ='R',),
+             GAC451        =SIMP(statut='o',typ='R',),
+             GAC461        =SIMP(statut='o',typ='R',),
+             GAC551        =SIMP(statut='o',typ='R',),
+             GAC561        =SIMP(statut='o',typ='R',),
+             GAC661        =SIMP(statut='o',typ='R',),
+             GAC112        =SIMP(statut='o',typ='R',),
+             GAC122        =SIMP(statut='o',typ='R',),
+             GAC132        =SIMP(statut='o',typ='R',),
+             GAC142        =SIMP(statut='o',typ='R',),
+             GAC152        =SIMP(statut='o',typ='R',),
+             GAC162        =SIMP(statut='o',typ='R',),
+             GAC222        =SIMP(statut='o',typ='R',),
+             GAC232        =SIMP(statut='o',typ='R',),
+             GAC242        =SIMP(statut='o',typ='R',),
+             GAC252        =SIMP(statut='o',typ='R',),
+             GAC262        =SIMP(statut='o',typ='R',),
+             GAC332        =SIMP(statut='o',typ='R',),
+             GAC342        =SIMP(statut='o',typ='R',),
+             GAC352        =SIMP(statut='o',typ='R',),
+             GAC362        =SIMP(statut='o',typ='R',),
+             GAC442        =SIMP(statut='o',typ='R',),
+             GAC452        =SIMP(statut='o',typ='R',),
+             GAC462        =SIMP(statut='o',typ='R',),
+             GAC552        =SIMP(statut='o',typ='R',),
+             GAC562        =SIMP(statut='o',typ='R',),
+             GAC662        =SIMP(statut='o',typ='R',),
+             GAT111        =SIMP(statut='o',typ='R',),
+             GAT121        =SIMP(statut='o',typ='R',),
+             GAT131        =SIMP(statut='o',typ='R',),
+             GAT141        =SIMP(statut='o',typ='R',),
+             GAT151        =SIMP(statut='o',typ='R',),
+             GAT161        =SIMP(statut='o',typ='R',),
+             GAT221        =SIMP(statut='o',typ='R',),
+             GAT231        =SIMP(statut='o',typ='R',),
+             GAT241        =SIMP(statut='o',typ='R',),
+             GAT251        =SIMP(statut='o',typ='R',),
+             GAT261        =SIMP(statut='o',typ='R',),
+             GAT331        =SIMP(statut='o',typ='R',),
+             GAT341        =SIMP(statut='o',typ='R',),
+             GAT351        =SIMP(statut='o',typ='R',),
+             GAT361        =SIMP(statut='o',typ='R',),
+             GAT441        =SIMP(statut='o',typ='R',),
+             GAT451        =SIMP(statut='o',typ='R',),
+             GAT461        =SIMP(statut='o',typ='R',),
+             GAT551        =SIMP(statut='o',typ='R',),
+             GAT561        =SIMP(statut='o',typ='R',),
+             GAT661        =SIMP(statut='o',typ='R',),
+             GAT112        =SIMP(statut='o',typ='R',),
+             GAT122        =SIMP(statut='o',typ='R',),
+             GAT132        =SIMP(statut='o',typ='R',),
+             GAT142        =SIMP(statut='o',typ='R',),
+             GAT152        =SIMP(statut='o',typ='R',),
+             GAT162        =SIMP(statut='o',typ='R',),
+             GAT222        =SIMP(statut='o',typ='R',),
+             GAT232        =SIMP(statut='o',typ='R',),
+             GAT242        =SIMP(statut='o',typ='R',),
+             GAT252        =SIMP(statut='o',typ='R',),
+             GAT262        =SIMP(statut='o',typ='R',),
+             GAT332        =SIMP(statut='o',typ='R',),
+             GAT342        =SIMP(statut='o',typ='R',),
+             GAT352        =SIMP(statut='o',typ='R',),
+             GAT362        =SIMP(statut='o',typ='R',),
+             GAT442        =SIMP(statut='o',typ='R',),
+             GAT452        =SIMP(statut='o',typ='R',),
+             GAT462        =SIMP(statut='o',typ='R',),
+             GAT552        =SIMP(statut='o',typ='R',),
+             GAT562        =SIMP(statut='o',typ='R',),
+             GAT662        =SIMP(statut='o',typ='R',),
+             AB111         =SIMP(statut='o',typ='R',),
+             AB121         =SIMP(statut='o',typ='R',),
+             AB211         =SIMP(statut='o',typ='R',),
+             AB221         =SIMP(statut='o',typ='R',),
+             AB311         =SIMP(statut='o',typ='R',),
+             AB321         =SIMP(statut='o',typ='R',),
+             AB411         =SIMP(statut='o',typ='R',),
+             AB421         =SIMP(statut='o',typ='R',),
+             AB511         =SIMP(statut='o',typ='R',),
+             AB521         =SIMP(statut='o',typ='R',),
+             AB611         =SIMP(statut='o',typ='R',),
+             AB621         =SIMP(statut='o',typ='R',),
+             AB112         =SIMP(statut='o',typ='R',),
+             AB122         =SIMP(statut='o',typ='R',),
+             AB212         =SIMP(statut='o',typ='R',),
+             AB222         =SIMP(statut='o',typ='R',),
+             AB312         =SIMP(statut='o',typ='R',),
+             AB322         =SIMP(statut='o',typ='R',),
+             AB412         =SIMP(statut='o',typ='R',),
+             AB422         =SIMP(statut='o',typ='R',),
+             AB512         =SIMP(statut='o',typ='R',),
+             AB522         =SIMP(statut='o',typ='R',),
+             AB612         =SIMP(statut='o',typ='R',),
+             AB622         =SIMP(statut='o',typ='R',),
+             GB111         =SIMP(statut='o',typ='R',),
+             GB121         =SIMP(statut='o',typ='R',),
+             GB211         =SIMP(statut='o',typ='R',),
+             GB221         =SIMP(statut='o',typ='R',),
+             GB311         =SIMP(statut='o',typ='R',),
+             GB321         =SIMP(statut='o',typ='R',),
+             GB411         =SIMP(statut='o',typ='R',),
+             GB421         =SIMP(statut='o',typ='R',),
+             GB511         =SIMP(statut='o',typ='R',),
+             GB521         =SIMP(statut='o',typ='R',),
+             GB611         =SIMP(statut='o',typ='R',),
+             GB621         =SIMP(statut='o',typ='R',),
+             GB112         =SIMP(statut='o',typ='R',),
+             GB122         =SIMP(statut='o',typ='R',),
+             GB212         =SIMP(statut='o',typ='R',),
+             GB222         =SIMP(statut='o',typ='R',),
+             GB312         =SIMP(statut='o',typ='R',),
+             GB322         =SIMP(statut='o',typ='R',),
+             GB412         =SIMP(statut='o',typ='R',),
+             GB422         =SIMP(statut='o',typ='R',),
+             GB512         =SIMP(statut='o',typ='R',),
+             GB522         =SIMP(statut='o',typ='R',),
+             GB612         =SIMP(statut='o',typ='R',),
+             GB622         =SIMP(statut='o',typ='R',),
+             C0111         =SIMP(statut='o',typ='R',),
+             C0211         =SIMP(statut='o',typ='R',),
+             C0121         =SIMP(statut='o',typ='R',),
+             C0221         =SIMP(statut='o',typ='R',),
+             C0212         =SIMP(statut='o',typ='R',),
+             C0112         =SIMP(statut='o',typ='R',),
+             C0122         =SIMP(statut='o',typ='R',),
+             C0222         =SIMP(statut='o',typ='R',),
+             AC111         =SIMP(statut='o',typ='R',),
+             AC211         =SIMP(statut='o',typ='R',),
+             AC121         =SIMP(statut='o',typ='R',),
+             AC221         =SIMP(statut='o',typ='R',),
+             AC112         =SIMP(statut='o',typ='R',),
+             AC212         =SIMP(statut='o',typ='R',),
+             AC122         =SIMP(statut='o',typ='R',),
+             AC222         =SIMP(statut='o',typ='R',),
+             GC111         =SIMP(statut='o',typ='R',),
+             GC211         =SIMP(statut='o',typ='R',),
+             GC121         =SIMP(statut='o',typ='R',),
+             GC221         =SIMP(statut='o',typ='R',),
+             GC112         =SIMP(statut='o',typ='R',),
+             GC212         =SIMP(statut='o',typ='R',),
+             GC122         =SIMP(statut='o',typ='R',),
+             GC222         =SIMP(statut='o',typ='R',),
+           ),
            GATT_MONERIE    =FACT(statut='f',min=0,max=1,
              D_GRAIN         =SIMP(statut='o',typ='R',val_min=0.E+0),
              PORO_INIT       =SIMP(statut='o',typ='R',val_min=0.E+0),
@@ -17230,9 +17562,29 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              ECRO_M           =SIMP(statut='o',typ='R'),
              SY              =SIMP(statut='o',typ='R'),
              ),
-# Discrets non-linéaires : début
+           CABLE_GAINE_FROT=FACT(statut='f',min=0 ,max=1,
+             TYPE = SIMP(statut='o',typ='TXM',into=("FROTTANT","GLISSANT","ADHERENT")),
+             b_glissant =BLOC(condition="TYPE=='GLISSANT'",
+                                    fr="Loi cable gaine glissante",
+                     FROT_LINE         =SIMP(statut='c',typ='R',defaut= 0.0,),
+                     FROT_COURB       =SIMP(statut='c',typ='R',defaut= 0.0,),
+             ),
+             b_adherent =BLOC(condition="TYPE=='ADHERENT'",
+                                    fr="Loi cable gaine adherent",
+                     FROT_LINE         =SIMP(statut='c',typ='R',defaut= -1.0,),
+                     FROT_COURB       =SIMP(statut='c',typ='R',defaut= 0.0,),
+             ),
+             b_frottant =BLOC(condition="TYPE=='FROTTANT'",
+                                    fr="Loi cable gaine frottant",
+                     FROT_LINE         =SIMP(statut='o',typ='R',defaut= 0.0,),
+                     FROT_COURB       =SIMP(statut='o',typ='R',defaut= 0.0,),
+             ),
+             PENA_LAGR       =SIMP(statut='o',typ='R',val_min=0.E+0),
+             ),
+
+# Discrets non-linéaires : début
          DIS_ECRO_CINE  =FACT(statut='f',
-            fr="Loi pour les discrets avec écrouissage cinématique.",
+            fr="Loi pour les discrets avec écrouissage cinématique.",
             regles=(PRESENT_PRESENT('LIMY_DX','KCIN_DX',),PRESENT_PRESENT('PUIS_DX','LIMU_DX',),
                     PRESENT_PRESENT('LIMY_DY','KCIN_DY',),PRESENT_PRESENT('PUIS_DY','LIMU_DY',),
                     PRESENT_PRESENT('LIMY_DZ','KCIN_DZ',),PRESENT_PRESENT('PUIS_DZ','LIMU_DZ',),
@@ -17240,113 +17592,101 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
                     PRESENT_PRESENT('LIMY_RY','KCIN_RY',),PRESENT_PRESENT('PUIS_RY','LIMU_RY',),
                     PRESENT_PRESENT('LIMY_RZ','KCIN_RZ',),PRESENT_PRESENT('PUIS_RZ','LIMU_RZ',),),
             LIMY_DX =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Effort limite élastique suivant l'axe local x de l'élément."),
+               fr="Effort limite élastique suivant l'axe local x de l'élément."),
             LIMY_DY =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Effort limite élastique suivant l'axe local y de l'élément."),
+               fr="Effort limite élastique suivant l'axe local y de l'élément."),
             LIMY_DZ =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Effort limite élastique suivant l'axe local z de l'élément."),
+               fr="Effort limite élastique suivant l'axe local z de l'élément."),
             LIMY_RX =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Moment limite élastique suivant l'axe local x de l'élément."),
+               fr="Moment limite élastique suivant l'axe local x de l'élément."),
             LIMY_RY =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Moment limite élastique suivant l'axe local y de l'élément."),
+               fr="Moment limite élastique suivant l'axe local y de l'élément."),
             LIMY_RZ =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Moment limite élastique suivant l'axe local z de l'élément."),
+               fr="Moment limite élastique suivant l'axe local z de l'élément."),
             KCIN_DX =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Raideur suivant l'axe local x de l'élément."),
+               fr="Raideur suivant l'axe local x de l'élément."),
             KCIN_DY =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Raideur suivant l'axe local y de l'élément."),
+               fr="Raideur suivant l'axe local y de l'élément."),
             KCIN_DZ =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Raideur suivant l'axe local z de l'élément."),
+               fr="Raideur suivant l'axe local z de l'élément."),
             KCIN_RX =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Raideur suivant l'axe local Rx de l'élément."),
+               fr="Raideur suivant l'axe local Rx de l'élément."),
             KCIN_RY =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Raideur suivant l'axe local Ry de l'élément."),
+               fr="Raideur suivant l'axe local Ry de l'élément."),
             KCIN_RZ =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Raideur suivant l'axe local Rz de l'élément."),
+               fr="Raideur suivant l'axe local Rz de l'élément."),
             LIMU_DX =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Effort limite suivant l'axe local x de l'élément."),
+               fr="Effort limite suivant l'axe local x de l'élément."),
             LIMU_DY =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Effort limite suivant l'axe local y de l'élément."),
+               fr="Effort limite suivant l'axe local y de l'élément."),
             LIMU_DZ =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Effort limite suivant l'axe local z de l'élément."),
+               fr="Effort limite suivant l'axe local z de l'élément."),
             LIMU_RX =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Moment limite suivant l'axe local x de l'élément."),
+               fr="Moment limite suivant l'axe local x de l'élément."),
             LIMU_RY =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Moment limite suivant l'axe local y de l'élément."),
+               fr="Moment limite suivant l'axe local y de l'élément."),
             LIMU_RZ =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Moment limite suivant l'axe local z de l'élément."),
+               fr="Moment limite suivant l'axe local z de l'élément."),
             PUIS_DX =SIMP(statut='f',typ='R',val_min = 1.0,
-               fr="Coefficient de non-linéarité suivant l'axe local x de l'élément."),
+               fr="Coefficient de non-linéarité suivant l'axe local x de l'élément."),
             PUIS_DY =SIMP(statut='f',typ='R',val_min = 1.0,
-               fr="Coefficient de non-linéarité suivant l'axe local y de l'élément."),
+               fr="Coefficient de non-linéarité suivant l'axe local y de l'élément."),
             PUIS_DZ =SIMP(statut='f',typ='R',val_min = 1.0,
-               fr="Coefficient de non-linéarité suivant l'axe local z de l'élément."),
+               fr="Coefficient de non-linéarité suivant l'axe local z de l'élément."),
             PUIS_RX =SIMP(statut='f',typ='R',val_min = 1.0,
-               fr="Coefficient de non-linéarité suivant l'axe local Rx de l'élément."),
+               fr="Coefficient de non-linéarité suivant l'axe local Rx de l'élément."),
             PUIS_RY =SIMP(statut='f',typ='R',val_min = 1.0,
-               fr="Coefficient de non-linéarité suivant l'axe local Ry de l'élément."),
+               fr="Coefficient de non-linéarité suivant l'axe local Ry de l'élément."),
             PUIS_RZ =SIMP(statut='f',typ='R',val_min = 1.0,
-               fr="Coefficient de non-linéarité suivant l'axe local Rz de l'élément."),
-         ),
-         DIS_VISC  =FACT(statut='f',
-            fr="Loi pour un discret de type amortisseur visqueux.",
-            regles=(PRESENT_PRESENT('PUIS_DX','COEF_DX',),
-                    PRESENT_PRESENT('PUIS_DY','COEF_DY',),
-                    PRESENT_PRESENT('PUIS_DZ','COEF_DZ',),
-                    PRESENT_PRESENT('PUIS_RX','COEF_RX',),
-                    PRESENT_PRESENT('PUIS_RY','COEF_RY',),
-                    PRESENT_PRESENT('PUIS_RZ','COEF_RZ',),
-                    ),
-            PUIS_DX =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Puissance dans la direction locale Dx de l'élément."),
-            PUIS_DY =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Puissance dans la direction locale Dy de l'élément."),
-            PUIS_DZ =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Puissance dans la direction locale Dz de l'élément."),
-            PUIS_RX =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Puissance autour de la direction locale Rx de l'élément."),
-            PUIS_RY =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Puissance autour de la direction locale Ry de l'élément."),
-            PUIS_RZ =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Puissance autour de la direction locale Rz de l'élément."),
-            COEF_DX =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Coefficient C dans la direction locale Dx de l'élément."),
-            COEF_DY =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Coefficient C dans la direction locale Dy de l'élément."),
-            COEF_DZ =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Coefficient C dans la direction locale Dz de l'élément."),
-            COEF_RX =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Coefficient C autour de la direction locale Rx de l'élément."),
-            COEF_RY =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Coefficient C autour de la direction locale Ry de l'élément."),
-            COEF_RZ =SIMP(statut='f',typ='R',val_min = 0.0,
-               fr="Coefficient C autour de la direction locale Rz de l'élément."),
+               fr="Coefficient de non-linéarité suivant l'axe local Rz de l'élément."),
+         ),
+         DIS_VISC =FACT(statut='f',
+            fr="Loi pour un discret de type visqueux : Zener Généralisé.",
+            regles=(UN_PARMI('K1','UNSUR_K1'),
+                    UN_PARMI('K2','UNSUR_K2'),
+                    UN_PARMI('K3','UNSUR_K3'), ),
+            K1          =SIMP(statut='f',typ='R',val_min = 1.0E-08,
+               fr="Raideur en série avec les 2 autres branches."),
+            K2          =SIMP(statut='f',typ='R',val_min = 0.0,
+               fr="Raideur en parallèle de la branche visqueuse."),
+            K3          =SIMP(statut='f',typ='R',val_min = 1.0E-08,
+               fr="Raideur dans la branche visqueuse."),
+            UNSUR_K1    =SIMP(statut='f',typ='R',val_min = 0.0,
+               fr="Souplesse en série avec les 2 autres branches."),
+            UNSUR_K2    =SIMP(statut='f',typ='R',val_min = 1.0E-08,
+               fr="Souplesse en parallèle de la branche visqueuse."),
+            UNSUR_K3    =SIMP(statut='f',typ='R',val_min = 0.0,
+               fr="Souplesse dans la branche visqueuse."),
+            C           =SIMP(statut='o',typ='R',val_min = 1.0E-08,
+               fr="'Raideur' de la partie visqueuse."),
+            PUIS_ALPHA  =SIMP(statut='o',typ='R',val_min = 1.0E-08, val_max=1.0, defaut=0.5,
+               fr="Puissance de la loi visqueuse ]0.0, 1.0] ."),
          ),
          DIS_BILI_ELAS  =FACT(statut='f',
-            fr="Loi bi-linéaire pour les discrets.",
+            fr="Loi bi-linéaire pour les discrets.",
             regles=(PRESENT_PRESENT('KDEB_DX','KFIN_DX','FPRE_DX',),
                     PRESENT_PRESENT('KDEB_DY','KFIN_DY','FPRE_DY',),
                     PRESENT_PRESENT('KDEB_DZ','KFIN_DZ','FPRE_DZ',),),
             KDEB_DX =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),
-               fr="Raideur début suivant l'axe local x de l'élément."),
+               fr="Raideur début suivant l'axe local x de l'élément."),
             KDEB_DY =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),
-               fr="Raideur début suivant l'axe local y de l'élément."),
+               fr="Raideur début suivant l'axe local y de l'élément."),
             KDEB_DZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),
-               fr="Raideur début  suivant l'axe local z de l'élément."),
+               fr="Raideur début  suivant l'axe local z de l'élément."),
             KFIN_DX =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),
-               fr="Raideur fin l'axe local x de l'élément."),
+               fr="Raideur fin l'axe local x de l'élément."),
             KFIN_DY =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),
-               fr="Raideur fin l'axe local y de l'élément."),
+               fr="Raideur fin l'axe local y de l'élément."),
             KFIN_DZ =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),
-               fr="Raideur fin l'axe local z de l'élément."),
+               fr="Raideur fin l'axe local z de l'élément."),
             FPRE_DX =SIMP(statut='f',typ='R',
-               fr="Effort de préserrage suivant l'axe local x de l'élément."),
+               fr="Effort de préserrage suivant l'axe local x de l'élément."),
             FPRE_DY =SIMP(statut='f',typ='R',
-               fr="Effort de préserrage suivant l'axe local y de l'élément."),
+               fr="Effort de préserrage suivant l'axe local y de l'élément."),
             FPRE_DZ =SIMP(statut='f',typ='R',
-               fr="Effort de préserrage suivant l'axe local z de l'élément."),
+               fr="Effort de préserrage suivant l'axe local z de l'élément."),
          ),
-# Discrets non-linéaires : fin
+# Discrets non-linéaires : fin
 #
 # comportement thermique
 #
@@ -17432,7 +17772,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              FONCTION        =SIMP(statut='o',typ=(nappe_sdaster,formule)),
            ),
 #
-# comportement métallurgique
+# comportement métallurgique
 #
            META_ACIER      =FACT(statut='f',
              TRC             =SIMP(statut='o',typ=(table_sdaster) ),
@@ -17616,7 +17956,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- THM_INIT, THM_DIFFU, THM_LIQU -----------------------------------------------
 # =================================================================================
            b_liqusatu      = BLOC(condition = "COMP_THM == 'LIQU_SATU' ",
-                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_SATU",
+                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_SATU",
 # =================================================================================
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
@@ -17645,11 +17985,48 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
                              THM_DIFFU  = FACT(statut='o',
+                                  regles = (EXCLUS('BIOT_COEF','BIOT_N',),
+                                            PRESENT_PRESENT('BIOT_N','BIOT_L',),
+                                            PRESENT_PRESENT('BIOT_T','BIOT_L','BIOT_N',),
+
+                                            EXCLUS('PERM_IN','PERM_END','PERMIN_L',),
+                                            PRESENT_ABSENT('PERMIN_N','PERMIN_T',),
+                                            PRESENT_PRESENT('PERMIN_N','PERMIN_L',),
+                                            PRESENT_PRESENT('PERMIN_T','PERMIN_L',),
+
+
+                                            EXCLUS('LAMB_T','LAMB_TL',),
+                                            PRESENT_ABSENT('LAMB_TN','LAMB_TT',),
+                                            PRESENT_PRESENT('LAMB_TN','LAMB_TL',),
+                                            PRESENT_PRESENT('LAMB_TT','LAMB_TL',),
+
+
+                                            EXCLUS('D_LB_T','D_LB_TL',),
+                                            PRESENT_ABSENT('D_LB_TN','D_LB_TT',),
+                                            PRESENT_PRESENT('D_LB_TN','D_LB_TL',),
+
+                                            EXCLUS('LAMB_CT','LAMB_C_L',),
+                                            PRESENT_ABSENT('LAMB_C_N','LAMB_C_T',),
+                                            PRESENT_PRESENT('LAMB_C_N','LAMB_C_L',),
+                                            PRESENT_PRESENT('LAMB_C_T','LAMB_C_L',),
+
+                                            EXCLUS('PERMIN_L','BIOT_COEF'),
+                                            EXCLUS('PERMIN_L','LAMB_T'),
+                                            PRESENT_PRESENT('BIOT_L','PERMIN_L',),
+                                            PRESENT_PRESENT('BIOT_T','PERMIN_T',),
+                                            PRESENT_PRESENT('LAMB_TN','PERMIN_N',),
+                                            PRESENT_PRESENT('LAMB_TL','PERMIN_L',),
+                                            PRESENT_PRESENT('LAMB_TT','PERMIN_T',),
+
+                                            ),
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES OBLIGATOIRE   -------------------------------------
 # ---------------------------------------------------------------------------------
                                            RHO           = SIMP(statut='o',typ='R'),
-                                           BIOT_COEF     = SIMP(statut='o',typ='R'),
+                                           BIOT_COEF     = SIMP(statut='f',typ='R'),
+                                           BIOT_L        = SIMP(statut='f',typ='R'),
+                                           BIOT_N        = SIMP(statut='f',typ='R'),
+                                           BIOT_T        = SIMP(statut='f',typ='R'),
                                            PESA_X        = SIMP(statut='o',typ='R'),
                                            PESA_Y        = SIMP(statut='o',typ='R'),
                                            PESA_Z        = SIMP(statut='o',typ='R'),
@@ -17660,24 +18037,28 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES NECESSAIRE SI THERMIQUE   -------------------------
 # ---------------------------------------------------------------------------------
-                                           CP            = SIMP(statut='f',typ='R'),
-                                           PERM_IN       = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERM_END      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                                           regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
-                                                            PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',), ),
-                                           PERMIN_X      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Y      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Z      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINXY      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINYZ      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINZX      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           CP          = SIMP(statut='f',typ='R'),
+                                           PERM_IN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_L    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_N    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_T    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERM_END    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           LAMB_CT   = SIMP(statut='f',typ='R'),
+                                           LAMB_CT     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_L   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_N   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_T   = SIMP(statut='f',typ='R'),
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES INUTILES   ----------------------------------------
 # ---------------------------------------------------------------------------------
@@ -17745,7 +18126,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- THM_INIT, THM_DIFFU, THM_LIQU, THM_GAZ --------------------------------------
 # =================================================================================
            b_liqugaz      = BLOC(condition = "COMP_THM == 'LIQU_GAZ' ",
-                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_GAZ",
+                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_GAZ",
 # =================================================================================
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
@@ -17774,12 +18155,47 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
                              THM_DIFFU  = FACT(statut='o',
+                                  regles = (EXCLUS('BIOT_COEF','BIOT_N',),
+                                            PRESENT_PRESENT('BIOT_N','BIOT_L',),
+                                            PRESENT_PRESENT('BIOT_T','BIOT_L','BIOT_N',),
+                                            EXCLUS('PERM_IN','PERM_END','PERMIN_L',),
+                                            PRESENT_ABSENT('PERMIN_N','PERMIN_T',),
+                                            PRESENT_PRESENT('PERMIN_N','PERMIN_L',),
+                                            PRESENT_PRESENT('PERMIN_T','PERMIN_L',),
+                                            EXCLUS('LAMB_T','LAMB_TL',),
+                                            PRESENT_ABSENT('LAMB_TN','LAMB_TT',),
+                                            PRESENT_PRESENT('LAMB_TN','LAMB_TL',),
+                                            PRESENT_PRESENT('LAMB_TT','LAMB_TL',),
+                                            EXCLUS('D_LB_T','D_LB_TL',),
+                                            PRESENT_ABSENT('D_LB_TN','D_LB_TT',),
+                                            PRESENT_PRESENT('D_LB_TN','D_LB_TL',),
+                                            PRESENT_PRESENT('D_LB_TT','D_LB_TL',),
+                                            EXCLUS('LAMB_CT','LAMB_C_L',),
+                                            PRESENT_ABSENT('LAMB_C_N','LAMB_C_T',),
+                                            PRESENT_PRESENT('LAMB_C_N','LAMB_C_L',),
+                                            PRESENT_PRESENT('LAMB_C_T','LAMB_C_L',),
+
+                                            EXCLUS('PERMIN_L','BIOT_COEF'),
+                                            EXCLUS('PERMIN_L','LAMB_T'),
+                                            PRESENT_PRESENT('BIOT_L','PERMIN_L',),
+                                            PRESENT_PRESENT('BIOT_T','PERMIN_T',),
+                                            PRESENT_PRESENT('LAMB_TN','PERMIN_N',),
+                                            PRESENT_PRESENT('LAMB_TL','PERMIN_L',),
+                                            PRESENT_PRESENT('LAMB_TT','PERMIN_T',),
+                                           ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
+                                                            'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
+                                           ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
+                                           UN_PARMI('VG_N','SATU_PRES'),
+                                           ),
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES OBLIGATOIRE   -------------------------------------
 # ---------------------------------------------------------------------------------
                                            R_GAZ            = SIMP(statut='o',typ='R'),
                                            RHO              = SIMP(statut='o',typ='R'),
-                                           BIOT_COEF        = SIMP(statut='o',typ='R'),
+                                           BIOT_COEF        = SIMP(statut='f',typ='R'),
+                                           BIOT_L           = SIMP(statut='f',typ='R'),
+                                           BIOT_N           = SIMP(statut='f',typ='R'),
+                                           BIOT_T           = SIMP(statut='f',typ='R'),
                                            PESA_X           = SIMP(statut='o',typ='R'),
                                            PESA_Y           = SIMP(statut='o',typ='R'),
                                            PESA_Z           = SIMP(statut='o',typ='R'),
@@ -17805,31 +18221,28 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES NECESSAIRE SI THERMIQUE   -------------------------
 # ---------------------------------------------------------------------------------
-                                           CP               = SIMP(statut='f',typ='R'),
-                                           PERM_IN          = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERM_END         = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_X      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Y      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Z      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINXY      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINYZ      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINZX      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           CP          = SIMP(statut='f',typ='R'),
+                                           PERM_IN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_L    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_N    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_T    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERM_END    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           LAMB_CT   = SIMP(statut='f',typ='R'),
-#
-                                  regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
-                                            PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
-                                            ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
-                                                            'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
-                                            ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
-                                            UN_PARMI('VG_N','SATU_PRES'),
-                                           ),
-
+                                           LAMB_CT     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_L   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_N   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_T   = SIMP(statut='f',typ='R'),
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES INUTILES   ----------------------------------------
 # ---------------------------------------------------------------------------------
@@ -17895,7 +18308,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- THM_INIT, THM_DIFFU, THM_GAZ ------------------------------------------------
 # =================================================================================
            b_gaz          = BLOC(condition = "COMP_THM == 'GAZ' ",
-                                 fr="Paramètres nécessaires pour une loi de couplage de type GAZ",
+                                 fr="Paramètres nécessaires pour une loi de couplage de type GAZ",
 # =================================================================================
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
@@ -17921,12 +18334,42 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
                              THM_DIFFU  = FACT(statut='o',
+                                  regles = (EXCLUS('BIOT_COEF','BIOT_N',),
+                                            PRESENT_PRESENT('BIOT_N','BIOT_L',),
+                                            PRESENT_PRESENT('BIOT_T','BIOT_L','BIOT_N',),
+                                            EXCLUS('PERM_IN','PERM_END','PERMIN_L',),
+                                            PRESENT_ABSENT('PERMIN_N','PERMIN_T',),
+                                            PRESENT_PRESENT('PERMIN_N','PERMIN_L',),
+                                            PRESENT_PRESENT('PERMIN_T','PERMIN_L',),
+                                            EXCLUS('LAMB_T','LAMB_TL',),
+                                            PRESENT_ABSENT('LAMB_TN','LAMB_TT',),
+                                            PRESENT_PRESENT('LAMB_TN','LAMB_TL',),
+                                            PRESENT_PRESENT('LAMB_TT','LAMB_TL',),
+                                            EXCLUS('D_LB_T','D_LB_TL',),
+                                            PRESENT_ABSENT('D_LB_TN','D_LB_TT',),
+                                            PRESENT_PRESENT('D_LB_TN','D_LB_TL',),
+                                            PRESENT_PRESENT('D_LB_TT','D_LB_TL',),
+                                            EXCLUS('LAMB_CT','LAMB_C_L',),
+                                            PRESENT_ABSENT('LAMB_C_N','LAMB_C_T',),
+                                            PRESENT_PRESENT('LAMB_C_N','LAMB_C_L',),
+                                            PRESENT_PRESENT('LAMB_C_T','LAMB_C_L',),
+                                            EXCLUS('PERMIN_L','BIOT_COEF'),
+                                            EXCLUS('PERMIN_L','LAMB_T'),
+                                            PRESENT_PRESENT('BIOT_L','PERMIN_L',),
+                                            PRESENT_PRESENT('BIOT_T','PERMIN_T',),
+                                            PRESENT_PRESENT('LAMB_TN','PERMIN_N',),
+                                            PRESENT_PRESENT('LAMB_TL','PERMIN_L',),
+                                            PRESENT_PRESENT('LAMB_TT','PERMIN_T',),
+                                            ),
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES OBLIGATOIRE   -------------------------------------
 # ---------------------------------------------------------------------------------
                                            R_GAZ            = SIMP(statut='o',typ='R'),
                                            RHO              = SIMP(statut='o',typ='R'),
-                                           BIOT_COEF        = SIMP(statut='o',typ='R'),
+                                           BIOT_COEF        = SIMP(statut='f',typ='R'),
+                                           BIOT_L           = SIMP(statut='f',typ='R'),
+                                           BIOT_N           = SIMP(statut='f',typ='R'),
+                                           BIOT_T           = SIMP(statut='f',typ='R'),
                                            PESA_X           = SIMP(statut='o',typ='R'),
                                            PESA_Y           = SIMP(statut='o',typ='R'),
                                            PESA_Z           = SIMP(statut='o',typ='R'),
@@ -17937,21 +18380,28 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES NECESSAIRE SI THERMIQUE   -------------------------
 # ---------------------------------------------------------------------------------
-                                           CP               = SIMP(statut='f',typ='R'),
-                                           PERM_IN          = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERM_END         = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                                           regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
-                                                            PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',), ),
-                                           PERMIN_X      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Y      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Z      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           CP          = SIMP(statut='f',typ='R'),
+                                           PERM_IN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_L    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_N    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_T    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERM_END    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           LAMB_CT   = SIMP(statut='f',typ='R'),
+                                           LAMB_CT     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_L   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_N   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_T   = SIMP(statut='f',typ='R'),
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES INUTILES   ----------------------------------------
 # ---------------------------------------------------------------------------------
@@ -18019,7 +18469,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- THM_INIT, THM_DIFFU, THM_LIQU, THM_GAZ --------------------------------------
 # =================================================================================
            b_liqugazatm   = BLOC(condition = "COMP_THM == 'LIQU_GAZ_ATM' ",
-                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_GAZ_ATM",
+                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_GAZ_ATM",
 # =================================================================================
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
@@ -18048,11 +18498,41 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
                              THM_DIFFU  = FACT(statut='o',
+                                  regles = (EXCLUS('BIOT_COEF','BIOT_N',),
+                                            PRESENT_PRESENT('BIOT_N','BIOT_L',),
+                                            PRESENT_PRESENT('BIOT_T','BIOT_L','BIOT_N',),
+                                            EXCLUS('PERM_IN','PERM_END','PERMIN_L',),
+                                            PRESENT_ABSENT('PERMIN_N','PERMIN_T',),
+                                            PRESENT_PRESENT('PERMIN_N','PERMIN_L',),
+                                            PRESENT_PRESENT('PERMIN_T','PERMIN_L',),
+                                            EXCLUS('LAMB_T','LAMB_TL',),
+                                            PRESENT_ABSENT('LAMB_TN','LAMB_TT',),
+                                            PRESENT_PRESENT('LAMB_TN','LAMB_TL',),
+                                            PRESENT_PRESENT('LAMB_TT','LAMB_TL',),
+                                            EXCLUS('D_LB_T','D_LB_TL',),
+                                            PRESENT_ABSENT('D_LB_TN','D_LB_TT',),
+                                            PRESENT_PRESENT('D_LB_TN','D_LB_TL',),
+                                            PRESENT_PRESENT('D_LB_TT','D_LB_TL',),
+                                            EXCLUS('LAMB_CT','LAMB_C_L',),
+                                            PRESENT_ABSENT('LAMB_C_N','LAMB_C_T',),
+                                            PRESENT_PRESENT('LAMB_C_N','LAMB_C_L',),
+                                            PRESENT_PRESENT('LAMB_C_T','LAMB_C_L',),
+                                            EXCLUS('PERMIN_L','BIOT_COEF'),
+                                            EXCLUS('PERMIN_L','LAMB_T'),
+                                            PRESENT_PRESENT('BIOT_L','PERMIN_L',),
+                                            PRESENT_PRESENT('BIOT_T','PERMIN_T',),
+                                            PRESENT_PRESENT('LAMB_TN','PERMIN_N',),
+                                            PRESENT_PRESENT('LAMB_TL','PERMIN_L',),
+                                            PRESENT_PRESENT('LAMB_TT','PERMIN_T',),
+                                            ),
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES OBLIGATOIRE   -------------------------------------
 # ---------------------------------------------------------------------------------
                                            RHO              = SIMP(statut='o',typ='R'),
-                                           BIOT_COEF        = SIMP(statut='o',typ='R'),
+                                           BIOT_COEF        = SIMP(statut='f',typ='R'),
+                                           BIOT_L           = SIMP(statut='f',typ='R'),
+                                           BIOT_N           = SIMP(statut='f',typ='R'),
+                                           BIOT_T           = SIMP(statut='f',typ='R'),
                                            PESA_X           = SIMP(statut='o',typ='R'),
                                            PESA_Y           = SIMP(statut='o',typ='R'),
                                            PESA_Z           = SIMP(statut='o',typ='R'),
@@ -18067,21 +18547,28 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES NECESSAIRE SI THERMIQUE   -------------------------
 # ---------------------------------------------------------------------------------
-                                           CP               = SIMP(statut='f',typ='R'),
-                                           PERM_IN          = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERM_END         = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                                           regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
-                                                            PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',), ),
-                                           PERMIN_X      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Y      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Z      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           CP          = SIMP(statut='f',typ='R'),
+                                           PERM_IN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_L    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_N    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_T    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERM_END    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           LAMB_CT   = SIMP(statut='f',typ='R'),
+                                           LAMB_CT     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_L   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_N   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_T   = SIMP(statut='f',typ='R'),
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES INUTILES   ----------------------------------------
 # ---------------------------------------------------------------------------------
@@ -18146,7 +18633,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- THM_INIT, THM_DIFFU, THM_LIQU, THM_GAZ,  THM_AIR_DISSOUS---------
 # =================================================================================
            b_liquadgaz  = BLOC(condition = "COMP_THM == 'LIQU_AD_GAZ' ",
-                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_AD_GAZ",
+                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_AD_GAZ",
 # =================================================================================
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
@@ -18175,12 +18662,46 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
                              THM_DIFFU  = FACT(statut='o',
+                                  regles = (EXCLUS('BIOT_COEF','BIOT_N',),
+                                            PRESENT_PRESENT('BIOT_N','BIOT_L',),
+                                            PRESENT_PRESENT('BIOT_T','BIOT_L','BIOT_N',),
+                                            EXCLUS('PERM_IN','PERM_END','PERMIN_L',),
+                                            PRESENT_ABSENT('PERMIN_N','PERMIN_T',),
+                                            PRESENT_PRESENT('PERMIN_N','PERMIN_L',),
+                                            PRESENT_PRESENT('PERMIN_T','PERMIN_L',),
+                                            EXCLUS('LAMB_T','LAMB_TL',),
+                                            PRESENT_ABSENT('LAMB_TN','LAMB_TT',),
+                                            PRESENT_PRESENT('LAMB_TN','LAMB_TL',),
+                                            PRESENT_PRESENT('LAMB_TT','LAMB_TL',),
+                                            EXCLUS('D_LB_T','D_LB_TL',),
+                                            PRESENT_ABSENT('D_LB_TN','D_LB_TT',),
+                                            PRESENT_PRESENT('D_LB_TN','D_LB_TL',),
+                                            PRESENT_PRESENT('D_LB_TT','D_LB_TL',),
+                                            EXCLUS('LAMB_CT','LAMB_C_L',),
+                                            PRESENT_ABSENT('LAMB_C_N','LAMB_C_T',),
+                                            PRESENT_PRESENT('LAMB_C_N','LAMB_C_L',),
+                                            PRESENT_PRESENT('LAMB_C_T','LAMB_C_L',),
+                                            EXCLUS('PERMIN_L','BIOT_COEF'),
+                                            EXCLUS('PERMIN_L','LAMB_T'),
+                                            PRESENT_PRESENT('BIOT_L','PERMIN_L',),
+                                            PRESENT_PRESENT('BIOT_T','PERMIN_T',),
+                                            PRESENT_PRESENT('LAMB_TN','PERMIN_N',),
+                                            PRESENT_PRESENT('LAMB_TL','PERMIN_L',),
+                                            PRESENT_PRESENT('LAMB_TT','PERMIN_T',),
+                                           ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
+                                                            'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
+                                           ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
+                                           UN_PARMI('VG_N','SATU_PRES'),
+                                           ),
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES OBLIGATOIRE   -------------------------------------
 # ---------------------------------------------------------------------------------
                                            R_GAZ            = SIMP(statut='o',typ='R'),
                                            RHO              = SIMP(statut='o',typ='R'),
-                                           BIOT_COEF        = SIMP(statut='o',typ='R'),
+                                           BIOT_COEF        = SIMP(statut='f',typ='R'),
+                                           BIOT_L           = SIMP(statut='f',typ='R'),
+                                           BIOT_N           = SIMP(statut='f',typ='R'),
+                                           BIOT_T           = SIMP(statut='f',typ='R'),
                                            PESA_X           = SIMP(statut='o',typ='R'),
                                            PESA_Y           = SIMP(statut='o',typ='R'),
                                            PESA_Z           = SIMP(statut='o',typ='R'),
@@ -18207,30 +18728,28 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES NECESSAIRE SI THERMIQUE   -------------------------
 # ---------------------------------------------------------------------------------
-                                           CP               = SIMP(statut='f',typ='R'),
-                                           PERM_IN          = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERM_END         = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_X      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Y      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Z      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINXY      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINYZ      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINZX      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           CP          = SIMP(statut='f',typ='R'),
+                                           PERM_IN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_L    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_N    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_T    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERM_END    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           LAMB_CT   = SIMP(statut='f',typ='R'),
-#
-                                  regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
-                                            PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
-                                            ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
-                                                            'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
-                                            ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
-                                            UN_PARMI('VG_N','SATU_PRES'),
-                                           ),
+                                           LAMB_CT     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_L     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_N     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_T     = SIMP(statut='f',typ='R'),
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES FACULTATIVES   ------------------------------------
 # ---------------------------------------------------------------------------------
@@ -18321,7 +18840,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- THM_INIT, THM_DIFFU, THM_LIQU, THM_GAZ, THM_VAPE_GAZ ------------------------
 # =================================================================================
            b_liquvapegaz  = BLOC(condition = "COMP_THM == 'LIQU_VAPE_GAZ' ",
-                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_VAPE_GAZ",
+                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_VAPE_GAZ",
 # =================================================================================
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
@@ -18355,7 +18874,10 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ---------------------------------------------------------------------------------
                                            R_GAZ            = SIMP(statut='o',typ='R'),
                                            RHO              = SIMP(statut='o',typ='R'),
-                                           BIOT_COEF        = SIMP(statut='o',typ='R'),
+                                           BIOT_COEF        = SIMP(statut='f',typ='R'),
+                                           BIOT_L           = SIMP(statut='f',typ='R'),
+                                           BIOT_N           = SIMP(statut='f',typ='R'),
+                                           BIOT_T           = SIMP(statut='f',typ='R'),
                                            PESA_X           = SIMP(statut='o',typ='R'),
                                            PESA_Y           = SIMP(statut='o',typ='R'),
                                            PESA_Z           = SIMP(statut='o',typ='R'),
@@ -18382,25 +18904,56 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES NECESSAIRE SI THERMIQUE   -------------------------
 # ---------------------------------------------------------------------------------
-                                           CP               = SIMP(statut='f',typ='R'),
-                                           PERM_IN          = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERM_END         = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_X      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Y      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Z      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINXY      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINYZ      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINZX      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           CP          = SIMP(statut='f',typ='R'),
+                                           PERM_IN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_L    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_N    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_T    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERM_END    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           LAMB_CT   = SIMP(statut='f',typ='R'),
-#
-                                  regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
-                                            PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
+                                           LAMB_CT     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_L     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_N     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_T     = SIMP(statut='f',typ='R'),
+#
+                                  regles = (EXCLUS('BIOT_COEF','BIOT_N',),
+                                            PRESENT_PRESENT('BIOT_N','BIOT_L',),
+                                            PRESENT_PRESENT('BIOT_T','BIOT_L','BIOT_N',),
+                                            EXCLUS('PERM_IN','PERM_END','PERMIN_L',),
+                                            PRESENT_ABSENT('PERMIN_N','PERMIN_T',),
+                                            PRESENT_PRESENT('PERMIN_N','PERMIN_L',),
+                                            PRESENT_PRESENT('PERMIN_T','PERMIN_L',),
+                                            EXCLUS('LAMB_T','LAMB_TL',),
+                                            PRESENT_ABSENT('LAMB_TN','LAMB_TT',),
+                                            PRESENT_PRESENT('LAMB_TN','LAMB_TL',),
+                                            PRESENT_PRESENT('LAMB_TT','LAMB_TL',),
+                                            EXCLUS('D_LB_T','D_LB_TL',),
+                                            PRESENT_ABSENT('D_LB_TN','D_LB_TT',),
+                                            PRESENT_PRESENT('D_LB_TN','D_LB_TL',),
+                                            PRESENT_PRESENT('D_LB_TT','D_LB_TL',),
+                                            EXCLUS('LAMB_CT','LAMB_C_L',),
+                                            PRESENT_ABSENT('LAMB_C_N','LAMB_C_T',),
+                                            PRESENT_PRESENT('LAMB_C_N','LAMB_C_L',),
+                                            PRESENT_PRESENT('LAMB_C_T','LAMB_C_L',),
+                                            EXCLUS('PERMIN_L','BIOT_COEF'),
+                                            EXCLUS('PERMIN_L','LAMB_T'),
+                                            PRESENT_PRESENT('BIOT_L','PERMIN_L',),
+                                            PRESENT_PRESENT('BIOT_T','PERMIN_T',),
+                                            PRESENT_PRESENT('LAMB_TN','PERMIN_N',),
+                                            PRESENT_PRESENT('LAMB_TL','PERMIN_L',),
+                                            PRESENT_PRESENT('LAMB_TT','PERMIN_T',),
+
                                             ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
                                                             'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
                                             ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
@@ -18476,7 +19029,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- THM_INIT, THM_DIFFU, THM_LIQU, THM_GAZ, THM_VAPE_GAZ THM_AIR_DISSOUS---------
 # =================================================================================
            b_liquadvape  = BLOC(condition = "COMP_THM == 'LIQU_AD_GAZ_VAPE' ",
-                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_AD_GAZ_VAPE",
+                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_AD_GAZ_VAPE",
 # =================================================================================
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
@@ -18510,7 +19063,10 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ---------------------------------------------------------------------------------
                                            R_GAZ            = SIMP(statut='o',typ='R'),
                                            RHO              = SIMP(statut='o',typ='R'),
-                                           BIOT_COEF        = SIMP(statut='o',typ='R'),
+                                           BIOT_COEF        = SIMP(statut='f',typ='R'),
+                                           BIOT_L           = SIMP(statut='f',typ='R'),
+                                           BIOT_N           = SIMP(statut='f',typ='R'),
+                                           BIOT_T           = SIMP(statut='f',typ='R'),
                                            PESA_X           = SIMP(statut='o',typ='R'),
                                            PESA_Y           = SIMP(statut='o',typ='R'),
                                            PESA_Z           = SIMP(statut='o',typ='R'),
@@ -18537,25 +19093,56 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES NECESSAIRE SI THERMIQUE   -------------------------
 # ---------------------------------------------------------------------------------
-                                           CP               = SIMP(statut='f',typ='R'),
-                                           PERM_IN          = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERM_END         = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_X      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Y      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Z      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINXY      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINYZ      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINZX      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           CP          = SIMP(statut='f',typ='R'),
+                                           PERM_IN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_L    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_N    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_T    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERM_END    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           LAMB_CT   = SIMP(statut='f',typ='R'),
-#
-                                  regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
-                                            PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
+                                           LAMB_CT     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_L   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_N   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_T   = SIMP(statut='f',typ='R'),
+#
+                                  regles = (EXCLUS('BIOT_COEF','BIOT_N',),
+                                            PRESENT_PRESENT('BIOT_N','BIOT_L',),
+                                            PRESENT_PRESENT('BIOT_T','BIOT_L','BIOT_N',),
+                                            EXCLUS('PERM_IN','PERM_END','PERMIN_L',),
+         PRESENT_ABSENT('PERMIN_N','PERMIN_T',),
+                                            PRESENT_PRESENT('PERMIN_N','PERMIN_L',),
+                                            PRESENT_PRESENT('PERMIN_T','PERMIN_L',),
+                                            EXCLUS('LAMB_T','LAMB_TL',),
+         PRESENT_PRESENT('LAMB_TT','PERMIN_T',),
+         PRESENT_ABSENT('LAMB_TN','LAMB_TT',),
+                                            PRESENT_PRESENT('LAMB_TN','LAMB_TL',),
+                                            PRESENT_PRESENT('LAMB_TT','LAMB_TL',),
+                                            EXCLUS('D_LB_T','D_LB_TL',),
+         PRESENT_ABSENT('D_LB_TN','D_LB_TT',),
+                                            PRESENT_PRESENT('D_LB_TN','D_LB_TL',),
+                                            PRESENT_PRESENT('D_LB_TT','D_LB_TL',),
+                                            EXCLUS('LAMB_CT','LAMB_C_L',),
+         PRESENT_ABSENT('LAMB_C_N','LAMB_C_T',),
+                                            PRESENT_PRESENT('LAMB_C_N','LAMB_C_L',),
+                                            PRESENT_PRESENT('LAMB_C_T','LAMB_C_L',),
+                                            EXCLUS('PERMIN_L','BIOT_COEF'),
+                                            EXCLUS('PERMIN_L','LAMB_T'),
+         PRESENT_PRESENT('BIOT_L','PERMIN_L',),
+         PRESENT_PRESENT('BIOT_T','PERMIN_T',),
+                                            PRESENT_PRESENT('LAMB_TN','PERMIN_N',),
+                                            PRESENT_PRESENT('LAMB_TL','PERMIN_L',),
+                                            PRESENT_PRESENT('LAMB_TT','PERMIN_T',),
                                             ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
                                                             'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
                                             ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
@@ -18638,7 +19225,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # --- THM_INIT, THM_DIFFU, THM_LIQU, THM_VAPE_GAZ ---------------------------------
 # =================================================================================
            b_liquvape  = BLOC(condition = "COMP_THM == 'LIQU_VAPE' ",
-                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_VAPE",
+                                 fr="Paramètres nécessaires pour une loi de couplage de type LIQU_VAPE",
 # =================================================================================
 # --- MOT-CLE OBLIGATOIRE ---------------------------------------------------------
 # =================================================================================
@@ -18672,7 +19259,10 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ---------------------------------------------------------------------------------
                                            R_GAZ            = SIMP(statut='o',typ='R'),
                                            RHO              = SIMP(statut='o',typ='R'),
-                                           BIOT_COEF        = SIMP(statut='o',typ='R'),
+                                           BIOT_COEF        = SIMP(statut='f',typ='R'),
+                                           BIOT_L           = SIMP(statut='f',typ='R'),
+                                           BIOT_N           = SIMP(statut='f',typ='R'),
+                                           BIOT_T           = SIMP(statut='f',typ='R'),
                                            PESA_X           = SIMP(statut='o',typ='R'),
                                            PESA_Y           = SIMP(statut='o',typ='R'),
                                            PESA_Z           = SIMP(statut='o',typ='R'),
@@ -18697,25 +19287,56 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ---------------------------------------------------------------------------------
 # -------------------   DONNEES NECESSAIRE SI THERMIQUE   -------------------------
 # ---------------------------------------------------------------------------------
-                                           CP               = SIMP(statut='f',typ='R'),
-                                           PERM_IN          = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERM_END         = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_X      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Y      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMIN_Z      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINXY      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINYZ      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           PERMINZX      =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           CP          = SIMP(statut='f',typ='R'),
+                                           PERM_IN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_L    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_N    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERMIN_T    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           PERM_END    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_PHI    = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           LAMB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_T      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TL     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TN     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+                                           D_LB_TT     = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            LAMB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
                                            D_LB_S      = SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
-                                           LAMB_CT   = SIMP(statut='f',typ='R'),
-#
-                                  regles = (EXCLUS('PERM_IN','PERM_END','PERMIN_X',),
-                                            PRESENT_PRESENT('PERMIN_X','PERMIN_Y','PERMIN_Z',),
+                                           LAMB_CT     = SIMP(statut='f',typ='R'),
+                                           LAMB_C_L   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_N   = SIMP(statut='f',typ='R'),
+                                           LAMB_C_T   = SIMP(statut='f',typ='R'),
+#
+                                  regles = (EXCLUS('BIOT_COEF','BIOT_N',),
+                                            PRESENT_PRESENT('BIOT_N','BIOT_L',),
+                                            PRESENT_PRESENT('BIOT_T','BIOT_L','BIOT_N',),
+                                            EXCLUS('PERM_IN','PERM_END','PERMIN_L',),
+                                            PRESENT_ABSENT('PERMIN_N','PERMIN_T',),
+                                            PRESENT_PRESENT('PERMIN_N','PERMIN_L',),
+                                            PRESENT_PRESENT('PERMIN_T','PERMIN_L',),
+                                            EXCLUS('LAMB_T','LAMB_TL',),
+                                            PRESENT_ABSENT('LAMB_TN','LAMB_TT',),
+                                            PRESENT_PRESENT('LAMB_TN','LAMB_TL',),
+                                            PRESENT_PRESENT('LAMB_TT','LAMB_TL',),
+                                            EXCLUS('D_LB_T','D_LB_TL',),
+                                            PRESENT_ABSENT('D_LB_TN','D_LB_TT',),
+                                            PRESENT_PRESENT('D_LB_TN','D_LB_TL',),
+                                            PRESENT_PRESENT('D_LB_TT','D_LB_TL',),
+                                            EXCLUS('LAMB_CT','LAMB_C_L',),
+                                            PRESENT_ABSENT('LAMB_C_N','LAMB_C_T',),
+                                            PRESENT_PRESENT('LAMB_C_N','LAMB_C_L',),
+                                            PRESENT_PRESENT('LAMB_C_T','LAMB_C_L',),
+                                            EXCLUS('PERMIN_L','BIOT_COEF'),
+                                            EXCLUS('PERMIN_L','LAMB_T'),
+                                            PRESENT_PRESENT('BIOT_L','PERMIN_L',),
+                                            PRESENT_PRESENT('BIOT_T','PERMIN_T',),
+                                            PRESENT_PRESENT('LAMB_TN','PERMIN_N',),
+                                            PRESENT_PRESENT('LAMB_TL','PERMIN_L',),
+                                            PRESENT_PRESENT('LAMB_TT','PERMIN_T',),
+
                                             ENSEMBLE('SATU_PRES','D_SATU_PRES','PERM_LIQU','D_PERM_LIQU_SATU',
                                                             'PERM_GAZ','D_PERM_SATU_GAZ','D_PERM_PRES_GAZ',),
                                             ENSEMBLE('VG_N','VG_SR','VG_PR','VG_SMAX','VG_SATUR',),
@@ -18776,7 +19397,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              D_VISC_TEMP     =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
            ),
                                  ),
-# courbes et coefficients associés à la fatigue et au dommage
+# courbes et coefficients associés à la fatigue et au dommage
 #
            FATIGUE         =FACT(statut='f',
              regles=(PRESENT_ABSENT('WOHLER','A_BASQUIN','BETA_BASQUIN'),
@@ -18813,21 +19434,21 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
                                                             ) ),
 
              b_critere_matake =BLOC(condition="CRITERE=='MATAKE_MODI_AC' or CRITERE=='MATAKE_MODI_AV'",
-                         fr="Cisaillement plan critique critère de matake pour les cas amplitude constante et amplitude variable",
+                         fr="Cisaillement plan critique critère de matake pour les cas amplitude constante et amplitude variable",
                MATAKE_A         =SIMP(statut='o',typ='R'),
                MATAKE_B         =SIMP(statut='o',typ='R'),
                COEF_FLEX_TORS   =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
              ),
 
              b_critere_dang_van =BLOC(condition="(CRITERE=='DANG_VAN_MODI_AC' or CRITERE=='DANG_VAN_MODI_AV')",
-                                 fr="Critère de Dang Van modifié pour les cas amplitude constante et amplitude variable",
+                                 fr="Critère de Dang Van modifié pour les cas amplitude constante et amplitude variable",
                D_VAN_A            =SIMP(statut='o',typ='R'),
                D_VAN_B            =SIMP(statut='o',typ='R'),
                COEF_CISA_TRAC     =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
              ),
 
              b_critere_fate_soci =BLOC(condition="CRITERE=='FATESOCI_MODI_AV'",
-                               fr="Critère de Fatemi et Socie, en élasticité ou élastoplasticité, pour le cas amplitude variable",
+                               fr="Critère de Fatemi et Socie, en élasticité ou élastoplasticité, pour le cas amplitude variable",
                FATSOC_A           =SIMP(statut='o',typ='R'),
                COEF_CISA_TRAC     =SIMP(statut='o',typ='R',val_min=1.0E0,val_max=1.7321E0),
              ),
@@ -18896,12 +19517,14 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
            ),
            JOINT_MECA_RUPT  =FACT(statut='f',
              regles=(EXCLUS('PRES_FLUIDE','PRES_CLAVAGE'),
+                     EXCLUS('PRES_FLUIDE','SCIAGE'),
                      PRESENT_PRESENT('RHO_FLUIDE','VISC_FLUIDE','OUV_MIN'),
                      PRESENT_ABSENT('PRES_FLUIDE','RHO_FLUIDE','VISC_FLUIDE','OUV_MIN'),
                      PRESENT_ABSENT('PRES_CLAVAGE','RHO_FLUIDE','VISC_FLUIDE','OUV_MIN'),
-                     PRESENT_ABSENT('RHO_FLUIDE','PRES_FLUIDE','PRES_CLAVAGE'),
-                     PRESENT_ABSENT('VISC_FLUIDE','PRES_FLUIDE','PRES_CLAVAGE'),
-                     PRESENT_ABSENT('OUV_MIN','PRES_FLUIDE','PRES_CLAVAGE'),
+                     PRESENT_ABSENT('SCIAGE','RHO_FLUIDE','VISC_FLUIDE','OUV_MIN'),
+                     PRESENT_ABSENT('RHO_FLUIDE','PRES_FLUIDE','PRES_CLAVAGE','SCIAGE'),
+                     PRESENT_ABSENT('VISC_FLUIDE','PRES_FLUIDE','PRES_CLAVAGE','SCIAGE'),
+                     PRESENT_ABSENT('OUV_MIN','PRES_FLUIDE','PRES_CLAVAGE','SCIAGE'),
                      ),
              K_N             =SIMP(statut='o',typ='R',val_min=1.E-12),
              K_T             =SIMP(statut='f',typ='R',val_min=1.E-12),
@@ -18911,28 +19534,32 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              PENA_CONTACT    =SIMP(statut='f',typ='R',defaut=1.,val_min=1.E-12),
              PRES_FLUIDE     =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
              PRES_CLAVAGE    =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             SCIAGE          =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
              RHO_FLUIDE      =SIMP(statut='f',typ='R',val_min=0.),
              VISC_FLUIDE     =SIMP(statut='f',typ='R',val_min=1.E-20),
-             OUV_MIN         =SIMP(statut='f',typ='R',val_min=1.E-15), 
+             OUV_MIN         =SIMP(statut='f',typ='R',val_min=1.E-15),
            ),
            JOINT_MECA_FROT   =FACT(statut='f',
              regles=(
+                     EXCLUS('PRES_FLUIDE','SCIAGE'),
                      PRESENT_PRESENT('RHO_FLUIDE','VISC_FLUIDE','OUV_MIN'),
                      PRESENT_ABSENT('PRES_FLUIDE','RHO_FLUIDE','VISC_FLUIDE','OUV_MIN'),
+                     PRESENT_ABSENT('SCIAGE','RHO_FLUIDE','VISC_FLUIDE','OUV_MIN'),
                      PRESENT_ABSENT('RHO_FLUIDE','PRES_FLUIDE'),
                      PRESENT_ABSENT('VISC_FLUIDE','PRES_FLUIDE'),
                      PRESENT_ABSENT('OUV_MIN','PRES_FLUIDE'),
                      ),
              K_N             =SIMP(statut='o',typ='R',val_min=1.E-12),
              K_T             =SIMP(statut='f',typ='R',val_min=1.E-12),
-             MU              =SIMP(statut='o',typ='R',val_min=1.E-3),             
+             MU              =SIMP(statut='o',typ='R',val_min=1.E-3),
              PENA_TANG       =SIMP(statut='f',typ='R',val_min=0.),
              ADHESION        =SIMP(statut='f',typ='R',defaut=0., val_min=0.),
              PRES_FLUIDE     =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
+             SCIAGE          =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
              RHO_FLUIDE      =SIMP(statut='f',typ='R',val_min=0.),
              VISC_FLUIDE     =SIMP(statut='f',typ='R',val_min=1.E-20),
-             OUV_MIN         =SIMP(statut='f',typ='R',val_min=1.E-15), 
-           ),           
+             OUV_MIN         =SIMP(statut='f',typ='R',val_min=1.E-15),
+           ),
            RCCM            =FACT(statut='f',
              regles=(ENSEMBLE('A_AMORC','B_AMORC','D_AMORC','R_AMORC'),),
              SY_02           =SIMP(statut='f',typ='R'),
@@ -18979,31 +19606,31 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
            LETK          =FACT(statut='f',
              PA         =SIMP(statut='o',typ='R',fr="pression atmospherique"),
              NELAS      =SIMP(statut='o',typ='R',fr="exposant de la loi de variation des modules K et G"),
-             SIGMA_C    =SIMP(statut='o',typ='R',fr="résistance en compression simple "),
-             H0_EXT     =SIMP(statut='o',typ='R',fr="parametre pilotant la résistance en extension"),
-             GAMMA_CJS  =SIMP(statut='o',typ='R',fr="parametre de forme du critere ds le plan déviatoire entre 0 et 1."),
-             XAMS       =SIMP(statut='o',typ='R',fr="parametre non nul intervenant dans les lois d'écrouissage pre pic"),
-             ETA        =SIMP(statut='o',typ='R',fr="parametre non nul intervenant dans les lois d'écrouissage post pic"),
-             A_0        =SIMP(statut='o',typ='R',fr="a de la limite d'élasticité initiale"),
-             A_E        =SIMP(statut='o',typ='R',fr="a de la limite de clivage ou seuil intermédiaire"),
+             SIGMA_C    =SIMP(statut='o',typ='R',fr="résistance en compression simple "),
+             H0_EXT     =SIMP(statut='o',typ='R',fr="parametre pilotant la résistance en extension"),
+             GAMMA_CJS  =SIMP(statut='o',typ='R',fr="parametre de forme du critere ds le plan déviatoire entre 0 et 1."),
+             XAMS       =SIMP(statut='o',typ='R',fr="parametre non nul intervenant dans les lois d'écrouissage pre pic"),
+             ETA        =SIMP(statut='o',typ='R',fr="parametre non nul intervenant dans les lois d'écrouissage post pic"),
+             A_0        =SIMP(statut='o',typ='R',fr="a de la limite d'élasticité initiale"),
+             A_E        =SIMP(statut='o',typ='R',fr="a de la limite de clivage ou seuil intermédiaire"),
              A_PIC      =SIMP(statut='o',typ='R',fr="a du seuil de pic"),
-             S_0        =SIMP(statut='o',typ='R',fr="s de la limite d'élasticité initiale"),
-             M_0        =SIMP(statut='o',typ='R',fr="m de la limite d'élasticité initiale"),
-             M_E        =SIMP(statut='o',typ='R',fr="m de la limite de clivage ou seuil intermédiaire"),
+             S_0        =SIMP(statut='o',typ='R',fr="s de la limite d'élasticité initiale"),
+             M_0        =SIMP(statut='o',typ='R',fr="m de la limite d'élasticité initiale"),
+             M_E        =SIMP(statut='o',typ='R',fr="m de la limite de clivage ou seuil intermédiaire"),
              M_PIC      =SIMP(statut='o',typ='R',fr="m du seuil de pic"),
              M_ULT      =SIMP(statut='o',typ='R',fr="m du seuil residuel"),
-             XI_ULT     =SIMP(statut='o',typ='R',fr="niveau d écrouissage pour atteindre le seuil résiduel"),
-             XI_E       =SIMP(statut='o',typ='R',fr="niveau d écrouissage pour atteindre le seuil de clivage"),
-             XI_PIC     =SIMP(statut='o',typ='R',fr="niveau d écrouissage pour atteindre le seuil de pic"),
+             XI_ULT     =SIMP(statut='o',typ='R',fr="niveau d écrouissage pour atteindre le seuil résiduel"),
+             XI_E       =SIMP(statut='o',typ='R',fr="niveau d écrouissage pour atteindre le seuil de clivage"),
+             XI_PIC     =SIMP(statut='o',typ='R',fr="niveau d écrouissage pour atteindre le seuil de pic"),
              MV_MAX     =SIMP(statut='o',typ='R',fr="m du seuil viscoplastique maximal"),
-             XIV_MAX    =SIMP(statut='o',typ='R',fr="niveau d écrouissage pour atteindre le seuil viscoplastique maximal"),
+             XIV_MAX    =SIMP(statut='o',typ='R',fr="niveau d écrouissage pour atteindre le seuil viscoplastique maximal"),
              A          =SIMP(statut='o',typ='R',fr="parametre carcaterisant l amplitude de la vitesse de fluage"),
              N          =SIMP(statut='o',typ='R',fr="parametre intervenant dans la formule pilotant la cinetique de fluage"),
              SIGMA_P1   =SIMP(statut='o',typ='R',fr="SIG min de l intersection du seuil de pic et intermediaire "),
-             MU0_V      =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance des mecanismes pre pic et viscoplastique"),
-             XI0_V      =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance des mecanismes pre pic et viscoplastique"),
-             MU1        =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance du mecanisme post pic "),
-             XI1        =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance du mecanisme post pic "),
+             MU0_V      =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance des mecanismes pre pic et viscoplastique"),
+             XI0_V      =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance des mecanismes pre pic et viscoplastique"),
+             MU1        =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance du mecanisme post pic "),
+             XI1        =SIMP(statut='o',typ='R',fr="relatif à l angle de dilatance du mecanisme post pic "),
            ),
            DRUCK_PRAGER  =FACT(statut='f',
              ALPHA           =SIMP(statut='o',typ='R'),
@@ -19047,15 +19674,15 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              N          =SIMP(statut='o',typ='R',fr="parametre intervenant dans la formule pilotant la cinetique de fluage"),
              P_PIC      =SIMP(statut='o',typ='R',fr="niveau d ecrouissage pour atteindre le seuil de pic"),
              P_ULT      =SIMP(statut='o',typ='R',fr="niveau d ecrouissage pour atteindre le seuil utime"),
-             ALPHA_0    =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la cohesion au seuil d elasticite"),
-             ALPHA_PIC  =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la cohesion au seuil de pic"),
-             ALPHA_ULT  =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la cohesion au seuil ultime"),
+             ALPHA_0    =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la cohesion au seuil d elasticite"),
+             ALPHA_PIC  =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la cohesion au seuil de pic"),
+             ALPHA_ULT  =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la cohesion au seuil ultime"),
              R_0        =SIMP(statut='o',typ='R',fr="parametre d ecrouissage correspondant au seuil d'elasticite"),
              R_PIC      =SIMP(statut='o',typ='R',fr="parametre d ecrouissage correspondant au seuil de pic"),
              R_ULT      =SIMP(statut='o',typ='R',fr="parametre d ecrouissage correspondant au seuil ultime"),
-             BETA_0     =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la dilatance au seuil d elasticite"),
-             BETA_PIC   =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la dilatance au seuil de pic"),
-             BETA_ULT   =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la dilatance au seuil ultime"),
+             BETA_0     =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la dilatance au seuil d elasticite"),
+             BETA_PIC   =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la dilatance au seuil de pic"),
+             BETA_ULT   =SIMP(statut='o',typ='R',fr="parametre d ecrouissage relatif à la dilatance au seuil ultime"),
            ),
              HOEK_BROWN          =FACT(statut='f',
              GAMMA_RUP       =SIMP(statut='o',typ='R'),
@@ -19150,15 +19777,15 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
                       ),
             # TYPE_PARA       =SIMP(statut='f',typ='TXM',into=("ECOU_VISC",),),
              K               =SIMP(statut='o',typ='R',fr="Constante de Boltzmann, en eV/K"),
-             TAUR            =SIMP(statut='o',typ='R',fr="Contraintes de cisaillement à T=0K, en unite de contraintes"),
+             TAUR            =SIMP(statut='o',typ='R',fr="Contraintes de cisaillement à T=0K, en unite de contraintes"),
              TAU0            =SIMP(statut='o',typ='R',fr="Contraintes critique initiale de cisaillement, en unite de contraintes"),
              GAMMA0          =SIMP(statut='o',typ='R',fr="Vitesse d ecoulement initiale"),
              DELTAG0         =SIMP(statut='o',typ='R',fr="Gain d energie lie au franchissement d obstacle"),
              BSD             =SIMP(statut='o',typ='R',fr="fonction de la taille du grain B/D"),
              GCB             =SIMP(statut='o',typ='R',fr="distance critique d'annihilation GC/B"),
-             KDCS            =SIMP(statut='o',typ='R',fr="Parametre relatif à la direction principale de la dislocation"),
-             P               =SIMP(statut='o',typ='R',fr="Parametre materiau dépendant de la forme de l'obstacle"),
-             Q               =SIMP(statut='o',typ='R',fr="Parametre materiau dépendant de la forme de l'obstacle"),
+             KDCS            =SIMP(statut='o',typ='R',fr="Parametre relatif à la direction principale de la dislocation"),
+             P               =SIMP(statut='o',typ='R',fr="Parametre materiau dépendant de la forme de l'obstacle"),
+             Q               =SIMP(statut='o',typ='R',fr="Parametre materiau dépendant de la forme de l'obstacle"),
              H               =SIMP(statut='f',typ='R'),
              H1              =SIMP(statut='f',typ='R'),
              H2              =SIMP(statut='f',typ='R'),
@@ -19175,13 +19802,13 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              #TYPE_PARA       =SIMP(statut='f',typ='TXM',into=("ECOU_VISC",),),
              GAMMA0          =SIMP(statut='f',typ='R',defaut=0.001,fr="Vitesse d ecoulement initiale en s**-1"),
              TAU_F           =SIMP(statut='o',typ='R',fr="Contraintes , en unite de contraintes ex 20 MPa"),
-             A               =SIMP(statut='f',typ='R',defaut=0.13,fr="paramètre A, sans unité"),
-             B               =SIMP(statut='f',typ='R',defaut=0.005,fr="paramètre B, sans unité"),
-             N               =SIMP(statut='f',typ='R',defaut=200.,fr="paramètre n, sans unité"),
-             Y               =SIMP(statut='o',typ='R',fr="paramète Y, en unité de longueur ex 2.5 A"),
-             ALPHA           =SIMP(statut='f',typ='R',defaut=0.35,fr="ecrouissage, paramètre alpha"),
-             BETA            =SIMP(statut='o',typ='R',fr="ecrouissage, paramètre b, en unite de longueur"),
-             RHO_REF         =SIMP(statut='o',typ='R',fr="ecrouissage, paramètre rho_ref, en unité de longueur **-2"),
+             A               =SIMP(statut='f',typ='R',defaut=0.13,fr="paramètre A, sans unité"),
+             B               =SIMP(statut='f',typ='R',defaut=0.005,fr="paramètre B, sans unité"),
+             N               =SIMP(statut='f',typ='R',defaut=200.,fr="paramètre n, sans unité"),
+             Y               =SIMP(statut='o',typ='R',fr="paramète Y, en unité de longueur ex 2.5 A"),
+             ALPHA           =SIMP(statut='f',typ='R',defaut=0.35,fr="ecrouissage, paramètre alpha"),
+             BETA            =SIMP(statut='o',typ='R',fr="ecrouissage, paramètre b, en unite de longueur"),
+             RHO_REF         =SIMP(statut='o',typ='R',fr="ecrouissage, paramètre rho_ref, en unité de longueur **-2"),
              H               =SIMP(statut='f',typ='R'),
              H1              =SIMP(statut='f',typ='R',defaut=0.124,fr="matrice d'interaction, terme a*",),
              H2              =SIMP(statut='f',typ='R',defaut=0.625,fr="matrice d'interaction, terme a_colineaire",),
@@ -19198,13 +19825,13 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              #TYPE_PARA       =SIMP(statut='f',typ='TXM',into=("ECOU_VISC",),),
              GAMMA0          =SIMP(statut='f',typ='R',defaut=0.001,fr="Vitesse d ecoulement initiale en s**-1"),
              TAU_F           =SIMP(statut='o',typ='R',fr="Contraintes , en unite de contraintes ex 20 MPa"),
-             A               =SIMP(statut='f',typ='R',defaut=0.13,fr="paramètre A, sans unité"),
-             B               =SIMP(statut='f',typ='R',defaut=0.005,fr="paramètre B, sans unité"),
-             N               =SIMP(statut='f',typ='R',defaut=200.,fr="paramètre n, sans unité"),
-             Y               =SIMP(statut='o',typ='R',fr="paramète Y, en unité de longueur ex 2.5 A"),
-             ALPHA           =SIMP(statut='f',typ='R',defaut=0.35,fr="ecrouissage, paramètre alpha"),
-             BETA            =SIMP(statut='o',typ='R',fr="ecrouissage, paramètre b, en unite de longueur"),
-             RHO_REF         =SIMP(statut='o',typ='R',fr="ecrouissage, paramètre rho_ref, en unité de longueur **-2"),
+             A               =SIMP(statut='f',typ='R',defaut=0.13,fr="paramètre A, sans unité"),
+             B               =SIMP(statut='f',typ='R',defaut=0.005,fr="paramètre B, sans unité"),
+             N               =SIMP(statut='f',typ='R',defaut=200.,fr="paramètre n, sans unité"),
+             Y               =SIMP(statut='o',typ='R',fr="paramète Y, en unité de longueur ex 2.5 A"),
+             ALPHA           =SIMP(statut='f',typ='R',defaut=0.35,fr="ecrouissage, paramètre alpha"),
+             BETA            =SIMP(statut='o',typ='R',fr="ecrouissage, paramètre b, en unite de longueur"),
+             RHO_REF         =SIMP(statut='o',typ='R',fr="ecrouissage, paramètre rho_ref, en unité de longueur **-2"),
              H               =SIMP(statut='f',typ='R'),
              H1              =SIMP(statut='f',typ='R',defaut=0.124,fr="matrice d'interaction, terme a*",),
              H2              =SIMP(statut='f',typ='R',defaut=0.625,fr="matrice d'interaction, terme a_colineaire",),
@@ -19231,11 +19858,11 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              #TYPE_PARA       =SIMP(statut='f',typ='TXM',into=("ECOU_VISC",),),
              GAMMA0          =SIMP(statut='o',typ='R',fr="Vitesse d ecoulement initiale en s**-1"),
              TAU_F           =SIMP(statut='o',typ='R',fr="Contraintes , en unite de contraintes ex 20 MPa"),
-             BETA            =SIMP(statut='o',typ='R',fr="ecrouissage, paramètre b, en unite de longueur"),
-             N               =SIMP(statut='o',typ='R',fr="paramètre n, sans unite"),
-             UN_SUR_D        =SIMP(statut='o',typ='R',fr="paramètre 1/D, en unite de 1/longueur"),
-             GC0             =SIMP(statut='o',typ='R',fr="paramètre GC0, en unite de longueur"),
-             K               =SIMP(statut='o',typ='R',fr="paramètre K, sans unite"),
+             BETA            =SIMP(statut='o',typ='R',fr="ecrouissage, paramètre b, en unite de longueur"),
+             N               =SIMP(statut='o',typ='R',fr="paramètre n, sans unite"),
+             UN_SUR_D        =SIMP(statut='o',typ='R',fr="paramètre 1/D, en unite de 1/longueur"),
+             GC0             =SIMP(statut='o',typ='R',fr="paramètre GC0, en unite de longueur"),
+             K               =SIMP(statut='o',typ='R',fr="paramètre K, sans unite"),
              H               =SIMP(statut='f',typ='R'),
              H1              =SIMP(statut='f',typ='R',defaut=0.124,fr="matrice d'interaction, terme a*",),
              H2              =SIMP(statut='f',typ='R',defaut=0.625,fr="matrice d'interaction, terme a_colineaire",),
@@ -19707,7 +20334,7 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
              C197 =SIMP(statut='f',typ=(fonction_sdaster,formule)),
            ),
 ### UMAT
-### CRITERE DE RUPTURE 
+### CRITERE DE RUPTURE
            CRIT_RUPT      =FACT(statut='f',
              SIGM_C           =SIMP(statut='o',typ='R',fr="contrainte critique"),
              COEF             =SIMP(statut='o',typ='R',fr="E=E/COEF,si la contrainte principale max est atteinte dans l'element"),
@@ -19717,8 +20344,6 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
            INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )  ;
 
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR NISTOR I.NISTOR 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -19735,10 +20360,10 @@ DEFI_MATERIAU=OPER(nom="DEFI_MATERIAU",op=5,sd_prod=mater_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE BODEL C.BODEL
+# person_in_charge: mathieu.corus at edf.fr
 DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
                       reentrant='n',
-            fr="Créer la structure globale à partir des sous-structures en sous-structuration dynamique", 
+            fr="Créer la structure globale à partir des sous-structures en sous-structuration dynamique", 
             UIinfo={"groupes":("Matrices et vecteurs",)},
          SOUS_STRUC      =FACT(statut='o',max='**',
            NOM             =SIMP(statut='o',typ='TXM' ),
@@ -19767,8 +20392,7 @@ DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
          ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 10/09/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -19785,9 +20409,9 @@ DEFI_MODELE_GENE=OPER(nom="DEFI_MODELE_GENE",op= 126,sd_prod=modele_gene,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op=4,sd_prod=nappe_sdaster,
-                fr="Définir une fonction réelle de deux variables réelles",
+                fr="Définir une fonction réelle de deux variables réelles",
                 reentrant='n',UIinfo={"groupes":("Fonctions",)},
          regles=(UN_PARMI('FONCTION','DEFI_FONCTION'),
                  EXCLUS('FONCTION','NOM_PARA_FONC',),
@@ -19800,20 +20424,19 @@ DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op=4,sd_prod=nappe_sdaster,
          DEFI_FONCTION   =FACT(statut='f',max='**',
            VALE            =SIMP(statut='o',typ='R',max='**'),
            INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG"),
-                                 fr="Type d'interpolation pour les abscisses et les ordonnées de la fonction."),
+                                 fr="Type d'interpolation pour les abscisses et les ordonnées de la fonction."),
            PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
            PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
          ),
          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG"),
-                               fr="Type d'interpolation pour le paramètre de la nappe"),
+                               fr="Type d'interpolation pour le paramètre de la nappe"),
          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1, 2) ),
          VERIF           =SIMP(statut='f',typ='TXM',into=("CROISSANT",) ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -19830,46 +20453,21 @@ DEFI_NAPPE=OPER(nom="DEFI_NAPPE",op=4,sd_prod=nappe_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE KHAM M.KHAM
+# person_in_charge: marc.kham at edf.fr
 DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op=  73,sd_prod=table_fonction,
-                   fr="Définition d'un obstacle plan perpendiculaire à une structure filaire",
+                   fr="Définition d'un obstacle plan perpendiculaire à une structure filaire",
                    reentrant='n',
-         UIinfo={"groupes":("Modélisation",)},
+         UIinfo={"groupes":("Modélisation",)},
          TYPE            =SIMP(statut='o',typ='TXM',defaut="CERCLE",
                              into=("CERCLE","PLAN_Y","PLAN_Z","DISCRET",
                              "BI_CERCLE","BI_PLAN_Y","BI_PLAN_Z","BI_CERC_INT",
-                             "CRAYON_900","CRAYON_1300","GUID_A_CARTE_900",
-                             "GUID_B_CARTE_900","GUID_C_CARTE_900",
-                             "GUID_D_CARTE_900","GUID_E_CARTE_900",
-                             "GUID_F_CARTE_900","GUID_A_CARTE_1300",
-                             "GUID_B_CARTE_1300","GUID_C_CARTE_1300",
-                             "GUID_D_CARTE_1300","GUID_E_CARTE_1300",
-                             "GUID_F_CARTE_1300","GUID_A_CARSP_900",
-                             "GUID_B_CARSP_900","GUID_C_CARSP_900",
-                             "GUID_D_CARSP_900","GUID_E_CARSP_900",
-                             "GUID_F_CARSP_900","GUID_A_CARSP_1300",
-                             "GUID_B_CARSP_1300","GUID_C_CARSP_1300",
-                             "GUID_D_CARSP_1300","GUID_E_CARSP_1300",
-                             "GUID_F_CARSP_1300","GUID_A_GCONT_900",
-                             "GUID_B_GCONT_900","GUID_C_GCONT_900",
-                             "GUID_D_GCONT_900","GUID_E_GCONT_900",
-                             "GUID_F_GCONT_900","GUID_A_GCONT_1300",
-                             "GUID_B_GCONT_1300","GUID_C_GCONT_1300",
-                             "GUID_D_GCONT_1300","GUID_E_GCONT_1300",
-                             "GUID_F_GCONT_1300","GUID_A_GCOMB_900",
-                             "GUID_B_GCOMB_900","GUID_C_GCOMB_900",
-                             "GUID_D_GCOMB_900","GUID_E_GCOMB_900",
-                             "GUID_F_GCOMB_900","GUID_A_GCOMB_1300",
-                             "GUID_B_GCOMB_1300","GUID_C_GCOMB_1300",
-                             "GUID_D_GCOMB_1300","GUID_E_GCOMB_1300",
-                             "GUID_F_GCOMB_1300",) ),
+                             ) ),
          VALE            =SIMP(statut='f',typ='R',max='**'),
          VERIF           =SIMP(statut='f',typ='TXM',defaut="FERME"),
 )  ;
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
-# COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
+# COPYRIGHT (C) 1991 - 2004  EDF R&D                  WWW.CODE-ASTER.ORG
 # 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 2 OF THE LICENSE, OR
@@ -19884,21 +20482,50 @@ DEFI_OBSTACLE=OPER(nom="DEFI_OBSTACLE",op=  73,sd_prod=table_fonction,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ASSIRE A.ASSIRE
+# person_in_charge: aimery.assire at edf.fr
 
+DEFI_PART_OPS=OPER(nom="DEFI_PART_OPS",op=21,sd_prod=sd_partit,
+                    fr="Creation partitionnement en sous-domaines",
+                    docu="U4.23.05",reentrant='n',
+                    UIinfo={"groupes":("Modélisation",)},
+         MODELE          =SIMP(statut='o',typ=(modele_sdaster) ),
+         MAILLAGE        =SIMP(statut='f',typ=(maillage_sdaster) ),
+         NOM             =SIMP(statut='f',typ='TXM',defaut='SD'),
+         INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2,3,4) ),
+         DEFI          =FACT(statut='f',max='**',
+           GROUP_MA        =SIMP(statut='o',typ=grma),
+           GROUP_MA_BORD   =SIMP(statut='f',typ=grma),
+         ),
+         EXCIT           =FACT(statut='f',max='**',
+           CHARGE          =SIMP(statut='f',typ=(char_meca,char_cine_meca)),
+         ),
+);
 
-DEFI_PART_FETI=MACRO(nom="DEFI_PART_FETI",
-                     op=OPS('Macro.defi_part_feti_ops.defi_part_feti_ops'),
-                     sd_prod=sd_feti_sdaster,
-                     reentrant='n',UIinfo={"groupes":("Modélisation",)},
-                     fr="Creation partitionnement en sous-domaines pour FETI",
-         regles=(UN_PARMI('MAILLAGE','MODELE'),PRESENT_PRESENT('MODELE','EXCIT'),),
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2005  EDF R&D                  WWW.CODE-ASTER.ORG
+# 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 2 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, WRITE TO EDF R&D CODE_ASTER,
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# ======================================================================
+# person_in_charge: aimery.assire at edf.fr
 
-         NB_PART         =SIMP(statut='o',typ='I',val_min=2),
-         MAILLAGE        =SIMP(statut='f',typ=maillage_sdaster),
-         MODELE          =SIMP(statut='f',typ=modele_sdaster),
-         EXCIT           =FACT(statut='f',max='**',
-           CHARGE          =SIMP(statut='f',typ=(char_meca,char_cine_meca)),),
+DEFI_PART_PA_OPS=PROC(nom="DEFI_PART_PA_OPS",op=29,
+                    fr="Creation partitionnement en sous-domaines",
+                    docu="U4.00.00",
+                    UIinfo={"groupes":("Modélisation",)},
+         MAILLAGE        =SIMP(statut='o',typ=(maillage_sdaster,squelette) ),
+         MODELE          =SIMP(statut='f',typ=(modele_sdaster)),
+         NB_PART         =SIMP(statut='o',typ='I',),
 
          # Methode de partitionnement
          METHODE         =SIMP(statut='f',typ='TXM',into=("PMETIS","SCOTCH","KMETIS",), defaut="KMETIS" ),
@@ -19915,62 +20542,25 @@ DEFI_PART_FETI=MACRO(nom="DEFI_PART_FETI",
          # Permet d'appliquer des poids sur certaines mailles
          POIDS_MAILLES   =FACT(statut='f',max='**',
            GROUP_MA       =SIMP(statut='o',typ=grma,),
-           POIDS          =SIMP(statut='f',typ='I',val_min=2),
+           POIDS          =SIMP(statut='f',typ='I'),
                           ),
          # Prefixe pour le nom des group_ma definissant les sous-domaines
          NOM_GROUP_MA    =SIMP(statut='f',typ='TXM',defaut='SD' ),
 
          # Traiter les mailles de bords (elles sont enlevees du graphe puis reinjectees)
          TRAITER_BORDS   =SIMP(statut='f',typ='TXM',defaut='OUI',into=('OUI','NON') ),
-
-         # Si le mot-clé suivant est renseigné, crée de nouveau group_ma a partir des bords
-         # Note : le calcul FETI sera impossible
-         b_traiter_bords =BLOC(condition="TRAITER_BORDS == 'OUI'", fr="Crée t on des nouveaux group_ma",
-           NOM_GROUP_MA_BORD  =SIMP(statut='f',typ='TXM'),
-             ),
-
-         INFO            =SIMP(statut='f',typ='I',into=(1, 2), defaut=1),
-);
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2004  EDF R&D                  WWW.CODE-ASTER.ORG
-# 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 2 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, WRITE TO EDF R&D CODE_ASTER,
-#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
-# ======================================================================
-# RESPONSABLE ASSIRE A.ASSIRE
-
-DEFI_PART_OPS=OPER(nom="DEFI_PART_OPS",op=21,sd_prod=sd_feti_sdaster,
-                    fr="Creation partitionnement en sous-domaines pour FETI",
-                    docu="U4.23.05",reentrant='n',
-                    UIinfo={"groupes":("Modélisation",)},
-         MODELE          =SIMP(statut='o',typ=(modele_sdaster) ),
-         MAILLAGE        =SIMP(statut='f',typ=(maillage_sdaster) ),
-         NOM             =SIMP(statut='f',typ='TXM',defaut='SD'),
-         INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2,3,4) ),
-         DEFI          =FACT(statut='f',max='**',
-           GROUP_MA        =SIMP(statut='o',typ=grma),
-           GROUP_MA_BORD   =SIMP(statut='f',typ=grma),
-         ),
-         EXCIT           =FACT(statut='f',max='**',
-           CHARGE          =SIMP(statut='f',typ=(char_meca,char_cine_meca)),
-         ),
+
+         # Si le mot-clé suivant est renseigné, crée de nouveau group_ma a partir des bords
+         b_traiter_bords =BLOC(condition="TRAITER_BORDS == 'OUI'", fr="Crée t on des nouveaux group_ma",
+           NOM_GROUP_MA_BORD  =SIMP(statut='f',typ='TXM'),
+             ),
+
+         INFO            =SIMP(statut='f',typ='I',into=(1, 2), defaut=1),
+
 );
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
-# COPYRIGHT (C) 1991 - 2005  EDF R&D                  WWW.CODE-ASTER.ORG
+# COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # 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 2 OF THE LICENSE, OR
@@ -19985,15 +20575,21 @@ DEFI_PART_OPS=OPER(nom="DEFI_PART_OPS",op=21,sd_prod=sd_feti_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ASSIRE A.ASSIRE
+# person_in_charge: aimery.assire at edf.fr
 
-DEFI_PART_PA_OPS=PROC(nom="DEFI_PART_PA_OPS",op=29,
-                    fr="Creation partitionnement en sous-domaines pour FETI",
-                    docu="U4.00.00",
-                    UIinfo={"groupes":("Modélisation",)},
-         MAILLAGE        =SIMP(statut='o',typ=(maillage_sdaster,squelette) ),
-         MODELE          =SIMP(statut='f',typ=(modele_sdaster)),
-         NB_PART         =SIMP(statut='o',typ='I',),
+
+DEFI_PARTITION=MACRO(nom="DEFI_PARTITION",
+                     op=OPS('Macro.defi_partition_ops.defi_partition_ops'),
+                     sd_prod=sd_partit,
+                     reentrant='n',UIinfo={"groupes":("Modélisation",)},
+                     fr="Creation partitionnement en sous-domaines",
+         regles=(UN_PARMI('MAILLAGE','MODELE'),PRESENT_PRESENT('MODELE','EXCIT'),),
+
+         NB_PART         =SIMP(statut='o',typ='I',val_min=2),
+         MAILLAGE        =SIMP(statut='f',typ=maillage_sdaster),
+         MODELE          =SIMP(statut='f',typ=modele_sdaster),
+         EXCIT           =FACT(statut='f',max='**',
+           CHARGE          =SIMP(statut='f',typ=(char_meca,char_cine_meca)),),
 
          # Methode de partitionnement
          METHODE         =SIMP(statut='f',typ='TXM',into=("PMETIS","SCOTCH","KMETIS",), defaut="KMETIS" ),
@@ -20010,7 +20606,7 @@ DEFI_PART_PA_OPS=PROC(nom="DEFI_PART_PA_OPS",op=29,
          # Permet d'appliquer des poids sur certaines mailles
          POIDS_MAILLES   =FACT(statut='f',max='**',
            GROUP_MA       =SIMP(statut='o',typ=grma,),
-           POIDS          =SIMP(statut='f',typ='I'),
+           POIDS          =SIMP(statut='f',typ='I',val_min=2),
                           ),
          # Prefixe pour le nom des group_ma definissant les sous-domaines
          NOM_GROUP_MA    =SIMP(statut='f',typ='TXM',defaut='SD' ),
@@ -20018,17 +20614,14 @@ DEFI_PART_PA_OPS=PROC(nom="DEFI_PART_PA_OPS",op=29,
          # Traiter les mailles de bords (elles sont enlevees du graphe puis reinjectees)
          TRAITER_BORDS   =SIMP(statut='f',typ='TXM',defaut='OUI',into=('OUI','NON') ),
 
-         # Si le mot-clé suivant est renseigné, crée de nouveau group_ma a partir des bords
-         # Note : le calcul FETI sera impossible
-         b_traiter_bords =BLOC(condition="TRAITER_BORDS == 'OUI'", fr="Crée t on des nouveaux group_ma",
+         # Si le mot-clé suivant est renseigné, crée de nouveau group_ma a partir des bords
+         b_traiter_bords =BLOC(condition="TRAITER_BORDS == 'OUI'", fr="Crée t on des nouveaux group_ma",
            NOM_GROUP_MA_BORD  =SIMP(statut='f',typ='TXM'),
              ),
 
          INFO            =SIMP(statut='f',typ='I',into=(1, 2), defaut=1),
-
 );
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -20045,38 +20638,36 @@ DEFI_PART_PA_OPS=PROC(nom="DEFI_PART_PA_OPS",op=29,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 DEFI_SOL_MISS = MACRO(nom="DEFI_SOL_MISS",
                       op=OPS('Macro.defi_sol_miss_ops.defi_sol_miss_ops'),
                       sd_prod=table_sdaster,
-                      fr="Définition des données de sol pour Miss",
+                      fr="Définition des données de sol pour Miss",
                       reentrant='n',
-                      UIinfo={"groupes":("Modélisation","Outils-métier",)},
+                      UIinfo={"groupes":("Modélisation","Outils-métier",)},
    MATERIAU = FACT(statut='o', max='**',
-            fr="Définition des matériaux",
+            fr="Définition des matériaux",
       E         = SIMP(statut='o', typ='R', fr="Module d'Young"),
       NU        = SIMP(statut='o', typ='R', fr="Coefficient de Poisson"),
       RHO       = SIMP(statut='o', typ='R', fr="Masse volumique"),
       AMOR_HYST = SIMP(statut='o', typ='R', fr="Coefficient d'amortissement"),
    ),
    COUCHE = FACT(statut='o', max='**',
-                 fr="Définition des couches",
+                 fr="Définition des couches",
       regles=(AU_MOINS_UN('EPAIS','SUBSTRATUM'),),
       SUBSTRATUM= SIMP(statut='f', typ='TXM', into=("OUI","NON"),),
       EPAIS     = SIMP(statut='f', typ='R', fr="Epaisseur de la couche"),
       RECEPTEUR = SIMP(statut='f', typ='TXM', defaut="NON", into=("OUI", "NON"),),
       SOURCE    = SIMP(statut='f', typ='TXM', defaut="NON", into=("OUI", "NON"),),
-      NUME_MATE = SIMP(statut='o', typ='I', fr="Numéro du matériau"),
+      NUME_MATE = SIMP(statut='o', typ='I', fr="Numéro du matériau"),
    ),
    TITRE = SIMP(statut='f', typ='TXM', max='**',
                 fr="Titre de la table produite"),
    INFO  = SIMP(statut='f', typ='I', defaut=1, into=(1,2)),
 )
 
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -20093,7 +20684,7 @@ DEFI_SOL_MISS = MACRO(nom="DEFI_SOL_MISS",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ADOBES A.ADOBES
+# person_in_charge: andre.adobes at edf.fr
 DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre_sdaster,
                     fr="Definition d'un spectre d'excitation turbulente",
                     reentrant='n',
@@ -20187,8 +20778,7 @@ DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre_sdaster,
          ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 );
-#& MODIF COMMANDE  DATE 25/01/2011   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -20205,9 +20795,9 @@ DEFI_SPEC_TURB=OPER(nom="DEFI_SPEC_TURB",op= 145,sd_prod=spectre_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BODEL C.BODEL
+# person_in_charge: mathieu.corus at edf.fr
 DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
-                    fr="Définit un maillage pour visualiser les résultats d'une sous-structuration dynamique",
+                    fr="Définit un maillage pour visualiser les résultats d'une sous-structuration dynamique",
                     reentrant='n',
             UIinfo={"groupes":("Maillage","Dynamique",)},
          regles=(UN_PARMI('CYCLIQUE','MODELE_GENE','MAILLAGE'),
@@ -20265,8 +20855,7 @@ DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
          ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -20283,11 +20872,11 @@ DEFI_SQUELETTE=OPER(nom="DEFI_SQUELETTE",op= 110,sd_prod=squelette,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE CANO V.CANO
+# person_in_charge: renaud.bargellini at edf.fr
 DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=table_sdaster,reentrant='n',
-            UIinfo={"groupes":("Modélisation","Thermique",)},
-              fr="Définir d'un diagramme de transformations en refroidissement continu (TRC) de référence d'un acier"
-                +" pour les calculs métallurgiques.",
+            UIinfo={"groupes":("Modélisation","Thermique",)},
+              fr="Définir d'un diagramme de transformations en refroidissement continu (TRC) de référence d'un acier"
+                +" pour les calculs métallurgiques.",
          HIST_EXP        =FACT(statut='o',max='**',
            VALE            =SIMP(statut='o',typ='R',max='**'),
          ),
@@ -20302,8 +20891,7 @@ DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=table_sdaster,reentrant='n',
            A              =SIMP(statut='f',typ='R'),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -20320,7 +20908,7 @@ DEFI_TRC=OPER(nom="DEFI_TRC",op=94,sd_prod=table_sdaster,reentrant='n',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 def depl_interne_prod(DEPL_GLOBAL,**args ):
     if AsType(DEPL_GLOBAL)     == cham_no_sdaster: return cham_no_sdaster
     if AsType(DEPL_GLOBAL)     == evol_elas      : return evol_elas
@@ -20332,13 +20920,12 @@ def depl_interne_prod(DEPL_GLOBAL,**args ):
 
 DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=depl_interne_prod,reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
-                  fr="Calculer le champ de déplacement à l'intérieur d'une sous-structure statique",
+                  fr="Calculer le champ de déplacement à l'intérieur d'une sous-structure statique",
          DEPL_GLOBAL     =SIMP(statut='o',typ=(cham_no_sdaster,mode_meca,mode_meca_c,evol_elas,dyna_trans,dyna_harmo),),
          SUPER_MAILLE    =SIMP(statut='o',typ=ma,),
          NOM_CAS         =SIMP(statut='f',typ='TXM',defaut=" "),
 )  ;
-#& MODIF COMMANDE  DATE 20/06/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -20355,11 +20942,11 @@ DEPL_INTERNE=OPER(nom="DEPL_INTERNE",op=89,sd_prod=depl_interne_prod,reentrant='
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 DETRUIRE=MACRO(nom="DETRUIRE",
                op=OPS("Cata.ops.DETRUIRE"),
                UIinfo={"groupes":("Gestion du travail",)},
-               fr="Détruit des concepts utilisateurs dans la base GLOBALE ou des objets JEVEUX",
+               fr="Détruit des concepts utilisateurs dans la base GLOBALE ou des objets JEVEUX",
                op_init=ops.build_detruire,
     regles=(UN_PARMI('CONCEPT', 'OBJET',),),
 
@@ -20373,8 +20960,7 @@ DETRUIRE=MACRO(nom="DETRUIRE",
     ),
     INFO   = SIMP(statut='f', typ='I', into=(1, 2), defaut=2, ),
 )
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -20391,11 +20977,11 @@ DETRUIRE=MACRO(nom="DETRUIRE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=interspectre,
-                     fr="Calcul de la réponse spectrale d'une structure linéaire sous une excitation connue par sa DSP",
+                     fr="Calcul de la réponse spectrale d'une structure linéaire sous une excitation connue par sa DSP",
                      reentrant='n',
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+            UIinfo={"groupes":("Résolution","Dynamique",)},
          BASE_MODALE     =FACT(statut='o',
            regles=(UN_PARMI('NUME_ORDRE','BANDE'),),
            MODE_MECA       =SIMP(statut='o',typ=mode_meca ),
@@ -20476,8 +21062,7 @@ DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=interspectre,
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 16/10/2012   AUTEUR DEVESA G.DEVESA 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -20494,7 +21079,7 @@ DYNA_ALEA_MODAL=OPER(nom="DYNA_ALEA_MODAL",op= 131,sd_prod=interspectre,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 
 def dyna_iss_vari_prod(self, FONC_SIGNAL,**args):
    if FONC_SIGNAL !=None :
@@ -20506,10 +21091,10 @@ def dyna_iss_vari_prod(self, FONC_SIGNAL,**args):
 DYNA_ISS_VARI=MACRO(nom="DYNA_ISS_VARI",
                     op=OPS('Macro.dyna_iss_vari_ops.dyna_iss_vari_ops'),
                     sd_prod=dyna_iss_vari_prod,
-                    fr="Calcul du spectre de réponse ou de la reponse temporelle " \
+                    fr="Calcul du spectre de réponse ou de la reponse temporelle " \
                        "sismique incoherente par decomposition spectrale",
                     reentrant='n',
-                    UIinfo={"groupes":("Outils métier",)},
+                    UIinfo={"groupes":("Outils métier",)},
          regles=(UN_PARMI('FONC_SIGNAL','NB_FREQ'),),
          FONC_SIGNAL     =SIMP(statut='f',typ=(fonction_sdaster) ),
          NB_FREQ       =SIMP(statut='f',typ='I' ),
@@ -20555,8 +21140,7 @@ DYNA_ISS_VARI=MACRO(nom="DYNA_ISS_VARI",
 
 
          )  ;
-#& MODIF COMMANDE  DATE 09/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -20573,7 +21157,7 @@ DYNA_ISS_VARI=MACRO(nom="DYNA_ISS_VARI",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ANDRIAM H.ANDRIAMBOLOLONA
+# person_in_charge: harinaivo.andriambololona at edf.fr
 def dyna_line_harm_prod(MATR_RIGI,**args):
    if (AsType(MATR_RIGI) == matr_asse_depl_r) : return dyna_harmo
    elif (AsType(MATR_RIGI) == matr_asse_depl_c) : return dyna_harmo
@@ -20583,9 +21167,9 @@ def dyna_line_harm_prod(MATR_RIGI,**args):
    raise AsException("type de concept resultat non prevu")
 
 DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op=  60,sd_prod=dyna_line_harm_prod,
-                    fr="Calcul de la réponse dynamique complexe d'un système à une excitation harmonique",
+                    fr="Calcul de la réponse dynamique complexe d'un système à une excitation harmonique",
                     reentrant='f',
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+            UIinfo={"groupes":("Résolution","Dynamique",)},
          regles=(PRESENT_ABSENT('MATR_AMOR','AMOR_MODAL'),
                  UN_PARMI('FREQ','LIST_FREQ'),),
          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
@@ -20646,8 +21230,7 @@ DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op=  60,sd_prod=dyna_line_harm_prod,
 
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 20/06/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -20664,11 +21247,11 @@ DYNA_LINE_HARM=OPER(nom="DYNA_LINE_HARM",op=  60,sd_prod=dyna_line_harm_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BOYERE E.BOYERE
+# person_in_charge: emmanuel.boyere at edf.fr
 DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op=  48,sd_prod=dyna_trans,
-                    fr="Calcul de la réponse dynamique transitoire à une excitation temporelle quelconque",
+                    fr="Calcul de la réponse dynamique transitoire à une excitation temporelle quelconque",
                     reentrant='f',
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+            UIinfo={"groupes":("Résolution","Dynamique",)},
          MODELE          =SIMP(statut='f',typ=modele_sdaster ),
          CHAM_MATER      =SIMP(statut='f',typ=cham_mater ),
          CARA_ELEM       =SIMP(statut='f',typ=cara_elem ),
@@ -20769,7 +21352,9 @@ DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op=  48,sd_prod=dyna_trans,
            NMAX_ITER_PAS   =SIMP(statut='f',typ='I',defaut= 16 ),
            PAS_MINI         =SIMP(statut='f',typ='R' ),
          ),
-         ENERGIE         =FACT(statut='f',max=1),
+         ENERGIE         =FACT(statut='f',max=1,
+           CALCUL          =SIMP(statut='f',typ='TXM',into=("OUI",),defaut="OUI",),
+         ),
          ARCHIVAGE       =FACT(statut='f',max=1,
            regles         = (EXCLUS('PAS_ARCH','LIST_INST','INST'),),
            LIST_INST      = SIMP(statut='f',typ=(listr8_sdaster) ),
@@ -20785,8 +21370,7 @@ DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op=  48,sd_prod=dyna_trans,
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 31/07/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -20803,12 +21387,11 @@ DYNA_LINE_TRAN=OPER(nom="DYNA_LINE_TRAN",op=  48,sd_prod=dyna_trans,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GREFFET N.GREFFET
+# person_in_charge: nicolas.greffet at edf.fr
 #
 DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
-            fr="Calcul de l'évolution dynamique d'une structure dont le matériau ou la géométrie ont un comportement non linéaire",
-            UIinfo={"groupes":("Résolution","Dynamique",)},
-         regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS',)),
+            fr="Calcul de l'évolution dynamique d'une structure dont le matériau ou la géométrie ont un comportement non linéaire",
+            UIinfo={"groupes":("Résolution","Dynamique",)},
          MODELE          =SIMP(statut='o',typ=modele_sdaster),
          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
          MODE_STAT       =SIMP(statut='f',typ=mode_meca),
@@ -20864,9 +21447,7 @@ DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
            ACCE_INIT_GENE  =SIMP(statut='f',typ=vect_asse_gene),
          ),
 #-------------------------------------------------------------------
-         COMP_INCR       =C_COMP_INCR(),
-#-------------------------------------------------------------------
-         COMP_ELAS       =C_COMP_ELAS('DYNA_NON_LINE'),
+         COMPORTEMENT       =C_COMPORTEMENT('DYNA_NON_LINE'),
 #-------------------------------------------------------------------
          b_reuse =BLOC(condition = "reuse",fr="en mode concept reentrant : ETAT_INIT obligatoire",
          ETAT_INIT       =FACT(statut='o',
@@ -20962,7 +21543,9 @@ DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
 #-------------------------------------------------------------------
          OBSERVATION     =C_OBSERVATION(),
 #-------------------------------------------------------------------
-         ENERGIE         =FACT(statut='f',max=1),
+         ENERGIE         =FACT(statut='f',max=1,
+           CALCUL          =SIMP(statut='f',typ='TXM',into=("OUI",),defaut="OUI",),
+         ),
 #-------------------------------------------------------------------
          SUIVI_DDL       =C_SUIVI_DDL(),
 #-------------------------------------------------------------------
@@ -20973,10 +21556,11 @@ DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
          CRIT_STAB      =FACT(statut='f',min=1,max=1,
            NB_FREQ         =SIMP(statut='f',typ='I',max=1,val_min=1,defaut=3),
            COEF_DIM_ESPACE =SIMP(statut='f',typ='I',max=1,val_min=2,defaut=5),
-           CHAR_CRIT       =SIMP(statut='f',typ='R',min=2,max=2,defaut=(-10.0,10.),
-                            fr="Valeur des deux charges critiques délimitant la bande de recherche en HPP"),
            RIGI_GEOM     =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
            MODI_RIGI     =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
+           bloc_char_crit=BLOC(condition="(RIGI_GEOM=='OUI')",
+              CHAR_CRIT       =SIMP(statut='f',typ='R',min=2,max=2,
+                               fr="Valeur des deux charges critiques délimitant la bande de recherche en HPP"),),
            TYPE          =SIMP(statut='f',typ='TXM',defaut="FLAMBEMENT",into=("FLAMBEMENT","STABILITE")),
            PREC_INSTAB   =SIMP(statut='f',typ='R',defaut=1.E-6,max=1,),
            SIGNE         =SIMP(statut='f',typ='TXM',defaut=("POSITIF_NEGATIF"),into=("NEGATIF","POSITIF","POSITIF_NEGATIF"),max=1,),
@@ -21016,10 +21600,10 @@ DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
          MODE_VIBR     =FACT(statut='f',min=1,max=1,
            MATR_RIGI        =SIMP(statut='f',typ='TXM',defaut="ELASTIQUE",into=("ELASTIQUE","TANGENTE","SECANTE",) ),
            NB_FREQ          =SIMP(statut='f',typ='I',max=1,val_min=1,defaut=3,
-                            fr="Nombre de fréquences propres à calculer"),
+                            fr="Nombre de fréquences propres à calculer"),
            COEF_DIM_ESPACE  =SIMP(statut='f',typ='I',max=1,val_min=2,defaut=5),
            BANDE            =SIMP(statut='f',typ='R',min=2,max=2,
-                            fr="Valeur des deux fréquences délimitant la bande de recherche",),
+                            fr="Valeur des deux fréquences délimitant la bande de recherche",),
            regles         = (EXCLUS('PAS_CALC','LIST_INST','INST'),),
            LIST_INST      = SIMP(statut='f',typ=(listr8_sdaster) ),
            INST           = SIMP(statut='f',typ='R',validators=NoRepeat(),max='**' ),
@@ -21033,7 +21617,7 @@ DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
 #-------------------------------------------------------------------
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
          b_info=BLOC(condition="(INFO==2)",
-               fr="filtre les messages émis dans le .mess selon le type de message demandé",
+               fr="filtre les messages émis dans le .mess selon le type de message demandé",
                INFO_DBG = SIMP(statut='f',typ='TXM',max='**',validators=NoRepeat(),
                                into=("CONTACT",
                                      "MECA_NON_LINE",
@@ -21044,8 +21628,7 @@ DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
                     ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -21062,11 +21645,11 @@ DYNA_NON_LINE=OPER(nom="DYNA_NON_LINE",op= 70,sd_prod=evol_noli,reentrant='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE ADOBES A.ADOBES
+# person_in_charge: andre.adobes at edf.fr
 DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=interspectre,
-                     fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
+                     fr="Calcul de la réponse par recombinaison modale d'une structure linéaire pour une excitation aléatoire",
                      reentrant='n',
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+            UIinfo={"groupes":("Résolution","Dynamique",)},
          BASE_ELAS_FLUI  =SIMP(statut='o',typ=melasflu_sdaster ),
          VITE_FLUI      =SIMP(statut='o',typ='R'),
          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3 ),
@@ -21076,8 +21659,7 @@ DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=interspectre,
          OPTION          =SIMP(statut='f',typ='TXM',defaut="TOUT",into=("TOUT","DIAG") ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 05/02/2013   AUTEUR ALARCON A.ALARCON 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -21094,7 +21676,7 @@ DYNA_SPEC_MODAL=OPER(nom="DYNA_SPEC_MODAL",op= 147,sd_prod=interspectre,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BOYERE E.BOYERE
+# person_in_charge: emmanuel.boyere at edf.fr
 DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op=  74,sd_prod=tran_gene,
                      fr="Calcul de la reponse dynamique transitoire d'un systeme amorti ou non en coordonees generalisees"
                         +" par superposition modale ou par sous structuration",
@@ -21292,19 +21874,7 @@ DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op=  74,sd_prod=tran_gene,
            b_coulomb_stat_dyna  =BLOC(condition="FROTTEMENT=='COULOMB_STAT_DYNA'",
                COULOMB_STAT    =SIMP(statut='o',typ='R' ),
                COULOMB_DYNA    =SIMP(statut='o',typ='R' ),),
-           LAME_FLUIDE     =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
-           b_lame          =BLOC(condition="LAME_FLUIDE=='OUI'",
-               ALPHA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
-               BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
-               CHI             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
-               DELTA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
-
-           ),
          ),
-         PARA_LAME_FLUI =FACT(statut='d',
-           NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 20 ),
-           RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
-           LAMBDA          =SIMP(statut='f',typ='R',defaut= 10. ),),
          VERI_CHOC       =FACT(statut='f',
            STOP_CRITERE    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.5 ),
@@ -21349,12 +21919,6 @@ DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op=  74,sd_prod=tran_gene,
            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
            RELATION        =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
          ),
-         RELA_TRANSIS    =FACT(statut='f',max='**',
-           NOEUD           =SIMP(statut='o',typ=no),
-           SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
-           NOM_CMP         =SIMP(statut='f',typ='TXM' ),
-           RELATION        =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
-         ),
          RELA_EFFO_VITE  =FACT(statut='f',max='**',
            NOEUD           =SIMP(statut='o',typ=no),
            SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
@@ -21378,8 +21942,7 @@ DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op=  74,sd_prod=tran_gene,
 
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
  )  ;
-#& MODIF COMMANDE  DATE 05/02/2013   AUTEUR ALARCON A.ALARCON 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -21396,8 +21959,7 @@ DYNA_TRAN_MODAL=OPER(nom="DYNA_TRAN_MODAL",op=  74,sd_prod=tran_gene,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-
-# RESPONSABLE NISTOR I.NISTOR
+# person_in_charge: albert.alarcon at edf.fr
 
 #choix de structure de donnees de sortie en fonction de BASE_CALCUL et TYPE_CALCUL
 def dyna_vibra_prod(self,BASE_CALCUL,TYPE_CALCUL,MATR_RIGI,**args):
@@ -21600,8 +22162,10 @@ regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
 
 #calcul des energies
         bloc_ener       =BLOC(condition="TYPE_CALCUL == 'TRAN' and BASE_CALCUL == 'PHYS'",
-        ENERGIE         =FACT(statut='f',max=1),
+         ENERGIE         =FACT(statut='f',max=1,
+           CALCUL          =SIMP(statut='f',typ='TXM',into=("OUI",),defaut="OUI",),
          ),
+        ),
 
 #definition du chargement
         b_excit_harm    =BLOC(condition="TYPE_CALCUL == 'HARM'",
@@ -21728,18 +22292,7 @@ regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
            b_coulomb_stat_dyna  =BLOC(condition="FROTTEMENT=='COULOMB_STAT_DYNA'",
                COULOMB_STAT    =SIMP(statut='o',typ='R' ),
                COULOMB_DYNA    =SIMP(statut='o',typ='R' ),),
-           LAME_FLUIDE     =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
-           b_lame          =BLOC(condition="LAME_FLUIDE=='OUI'",
-               ALPHA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
-               BETA            =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
-               CHI             =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
-               DELTA           =SIMP(statut='f',typ='R',defaut= 0.E+0 ),
-            ),
            ),
-        PARA_LAME_FLUI =FACT(statut='d',
-           NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 20 ),
-           RESI_RELA       =SIMP(statut='f',typ='R',defaut= 1.0E-3 ),
-           LAMBDA          =SIMP(statut='f',typ='R',defaut= 10. ),),
         VERI_CHOC       =FACT(statut='f',
            STOP_CRITERE    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
            SEUIL           =SIMP(statut='f',typ='R',defaut= 0.5 ),
@@ -21804,12 +22357,6 @@ regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
            NOM_CMP         =SIMP(statut='f',typ='TXM' ),
            RELATION        =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
          ),
-         RELA_TRANSIS    =FACT(statut='f',max='**',
-           NOEUD           =SIMP(statut='o',typ=no),
-           SOUS_STRUC      =SIMP(statut='f',typ='TXM' ),
-           NOM_CMP         =SIMP(statut='f',typ='TXM' ),
-           RELATION        =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster,formule) ),
-         ),
 #non-linearite effort-vitesse
         RELA_EFFO_VITE  =FACT(statut='f',max='**',
            NOEUD           =SIMP(statut='o',typ=no),
@@ -21848,13 +22395,42 @@ regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
          ),
         );
 
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
+# 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 2 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, WRITE TO EDF R&D CODE_ASTER,
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
+# ======================================================================
+# person_in_charge: jacques.pellet at edf.fr
+
+def elim_lagr_prod(MATR_RIGI,**args):
+  if AsType(MATR_RIGI) == matr_asse_depl_r : return matr_asse_depl_r
+  raise AsException("type de concept resultat non prevu")
+
+ELIM_LAGR=OPER(nom="ELIM_LAGR",op=69,sd_prod=elim_lagr_prod,
+               fr="Créer une matrice en ayant éliminé les condition cinématiques dualisées.",
+               reentrant='f', UIinfo={"groupes":("Résolution",)},
 
+         # Matrice de "rigidité" (celle qui contient les équations dualisées) :
+         MATR_RIGI       =SIMP(statut='o',typ=(matr_asse_depl_r,) ),
 
+         # Matrice à réduire (si ce n'est pas la matrice de rigidité) :
+         MATR_ASSE       =SIMP(statut='f',typ=(matr_asse_depl_r,) ),
 
 
+         INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
+)  ;
 
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -21871,10 +22447,10 @@ regles=(ENSEMBLE('BASE_ELAS_FLUI','NUME_VITE_FLUI'),),
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,
                    UIinfo={"groupes":("Impression","Utilitaires",)},
-                   fr="Engendre des tests pour la non régression du code (pour développeurs)",
+                   fr="Engendre des tests pour la non régression du code (pour développeurs)",
          UNITE           =SIMP(statut='f',typ='I',defaut=8),
          FORMAT          =SIMP(statut='f',typ='TXM',into=("OBJET",) ),
          FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE20.13"),
@@ -21893,8 +22469,7 @@ ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,
             TYPE_TEST       =SIMP(statut='f',typ='TXM',defaut="SOMME",into=("SOMME",) ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 14/02/2011   AUTEUR GREFFET N.GREFFET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -21911,13 +22486,13 @@ ENGENDRE_TEST=PROC(nom="ENGENDRE_TEST",op=178,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE GREFFET N.GREFFET
+# person_in_charge: nicolas.greffet at edf.fr
 # 
 #  ENVOI DES CHAMPS CINEMATIQUES VIA YACS POUR COUPLAGE IFS 
 #
 ENV_CINE_YACS=PROC(nom             = "ENV_CINE_YACS",
                    op              = 111,
-                   UIinfo          = {"groupes":("Résultats et champs",)},
+                   UIinfo          = {"groupes":("Résultats et champs",)},
                    fr              = "Envoi des champs de deplacement et vitesse via YACS pour Couplage de Code_Aster et Saturne",
                    regles          = (EXCLUS('ETAT_INIT','RESULTAT',),),
                    MATR_PROJECTION = SIMP(statut='o', typ=corresp_2_mailla,),
@@ -21936,8 +22511,7 @@ ENV_CINE_YACS=PROC(nom             = "ENV_CINE_YACS",
                    NUME_ORDRE_YACS = SIMP(statut='o', typ='I',),
                    INFO            = SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 ) ;
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -21954,7 +22528,7 @@ ENV_CINE_YACS=PROC(nom             = "ENV_CINE_YACS",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 
 def exec_logiciel_prod(self, MAILLAGE, **args):
    if MAILLAGE != None:
@@ -21965,8 +22539,8 @@ def exec_logiciel_prod(self, MAILLAGE, **args):
 EXEC_LOGICIEL = MACRO(nom="EXEC_LOGICIEL",
                       op=OPS('Macro.exec_logiciel_ops.exec_logiciel_ops'),
                       sd_prod=exec_logiciel_prod,
-                      fr="Exécute un logiciel ou une commande système depuis Aster",
-                      UIinfo={"groupes":("Gestion du travail","Outils-métier",)},
+                      fr="Exécute un logiciel ou une commande système depuis Aster",
+                      UIinfo={"groupes":("Gestion du travail","Outils-métier",)},
 
       regles = ( AU_MOINS_UN('LOGICIEL', 'MAILLAGE', 'SALOME'),
                  EXCLUS('MACHINE_DISTANTE','MAILLAGE'),
@@ -21979,7 +22553,7 @@ EXEC_LOGICIEL = MACRO(nom="EXEC_LOGICIEL",
 
       MACHINE_DISTANTE = FACT(statut='f',
         SSH_ADRESSE  = SIMP(statut='o', typ='TXM', val_min=1, val_max=255,
-                           fr="Adresse IP ou nom de la machine sur laquelle le logiciel/script sera exécuté via SSH"),
+                           fr="Adresse IP ou nom de la machine sur laquelle le logiciel/script sera exécuté via SSH"),
         SSH_LOGIN    = SIMP(statut='f', typ='TXM', val_min=1, val_max=255,
                            fr="Nom d'utilisateur sur la machine distante"),
         SSH_PORT     = SIMP(statut='f', typ='I', val_min=1, val_max=65535, defaut=22,
@@ -21990,9 +22564,9 @@ EXEC_LOGICIEL = MACRO(nom="EXEC_LOGICIEL",
       MAILLAGE = FACT(statut='f',
          FORMAT     = SIMP(statut='o', typ='TXM', into=("GMSH", "GIBI", "SALOME")),
          UNITE_GEOM = SIMP(statut='f', typ='I', val_min=10, val_max=90, defaut=16,
-                           fr="Unité logique définissant le fichier (fort.N) contenant les données géométriques (datg)"),
+                           fr="Unité logique définissant le fichier (fort.N) contenant les données géométriques (datg)"),
          UNITE      = SIMP(statut='f', typ='I', val_min=10, val_max=90, defaut=19,
-                           fr="Unité logique définissant le fichier (fort.N) produit par le mailleur"),
+                           fr="Unité logique définissant le fichier (fort.N) produit par le mailleur"),
          MAILLAGE   = SIMP(statut='o', typ=CO),
       ),
 
@@ -22003,30 +22577,29 @@ EXEC_LOGICIEL = MACRO(nom="EXEC_LOGICIEL",
          CHEMIN_SCRIPT     = SIMP(statut='f', typ='TXM',
                                fr="Chemin du script Salome"),
          UNITE_SCRIPT      = SIMP(statut='f', typ='I', val_min=80, val_max=99,
-                               fr="Unité logique du script Salome"),
+                               fr="Unité logique du script Salome"),
          SALOME_HOST       = SIMP(statut='f', typ='TXM', defaut='localhost',
                                fr="Machine sur laquelle tourne Salome"),
          SALOME_PORT       = SIMP(statut='f', typ='I', val_min=2800, val_max=2900, defaut=2810,
-                               fr="Port de l'instance Salome (2810 ou supérieur)"),
+                               fr="Port de l'instance Salome (2810 ou supérieur)"),
          SALOME_RUNAPPLI   = SIMP(statut='f', typ='TXM',
                                fr="Chemin vers le script de lancement runAppli de Salome"),
          FICHIERS_ENTREE   = SIMP(statut='f', typ='TXM', validators=NoRepeat(),max='**',
-                               fr="Liste des fichiers d'entrée du script Salome"),
+                               fr="Liste des fichiers d'entrée du script Salome"),
          FICHIERS_SORTIE   = SIMP(statut='f', typ='TXM', validators=NoRepeat(),max='**',
-                               fr="Liste des fichiers générés par le script Salome"),
+                               fr="Liste des fichiers générés par le script Salome"),
          NOM_PARA          = SIMP(statut='f',typ='TXM',max='**',validators=NoRepeat(),
-                               fr="Liste des noms des paramètres à modifier dans le script Salome"),
+                               fr="Liste des noms des paramètres à modifier dans le script Salome"),
          VALE              = SIMP(statut='f',typ='TXM',max='**',
-                               fr="Valeur des paramètres à) modifier dans le script Salome"),
+                               fr="Valeur des paramètres à) modifier dans le script Salome"),
       ),
 
       CODE_RETOUR_MAXI = SIMP(statut='f', typ='I', defaut=0, val_min=-1,
-                              fr="Valeur maximale du code retour toléré (-1 pour l'ignorer)"),
+                              fr="Valeur maximale du code retour toléré (-1 pour l'ignorer)"),
 
       INFO     = SIMP(statut='f', typ='I', defaut=2, into=(1,2),),
 )
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22043,7 +22616,7 @@ EXEC_LOGICIEL = MACRO(nom="EXEC_LOGICIEL",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE NISTOR I.NISTOR
+# person_in_charge: nicolas.brie at edf.fr
 
 def extr_mode_prod(FILTRE_MODE,**args):
   vale=FILTRE_MODE[0]['MODE']
@@ -22053,8 +22626,8 @@ def extr_mode_prod(FILTRE_MODE,**args):
   raise AsException("type de concept resultat non prevu")
 
 EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
-               reentrant='n',fr="Extraire séléctivement des modes des structures de données modales",
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+               reentrant='n',fr="Extraire séléctivement des modes des structures de données modales",
+            UIinfo={"groupes":("Résolution","Dynamique",)},
          FILTRE_MODE     =FACT(statut='o',max='**',
            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','NUME_MODE','NUME_MODE_EXCLU','FREQ_MIN','CRIT_EXTR',),),
            MODE            =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_gene ) ),
@@ -22082,8 +22655,7 @@ EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",into=("MASS_EFFE_UN","MASS_GENE") ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22100,7 +22672,7 @@ EXTR_MODE=OPER(nom="EXTR_MODE",op= 168,sd_prod=extr_mode_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 
 def extr_resu_prod(RESULTAT,**args):
   if AsType(RESULTAT) == evol_elas    : return evol_elas
@@ -22118,8 +22690,8 @@ def extr_resu_prod(RESULTAT,**args):
   raise AsException("type de concept resultat non prevu")
 
 EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,reentrant='f',
-            UIinfo={"groupes":("Résultats et champs",)},
-            fr="Extraire des champs au sein d'une SD Résultat",
+            UIinfo={"groupes":("Résultats et champs",)},
+            fr="Extraire des champs au sein d'une SD Résultat",
          RESULTAT        =SIMP(statut='o',typ=(evol_elas,dyna_trans,dyna_harmo,acou_harmo,mode_meca,
                                                mode_acou,evol_ther,evol_noli,evol_varc,
                                                mult_elas,fourier_elas,fourier_ther ) ),
@@ -22151,7 +22723,7 @@ EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,reentrant='f',
                                ),
 
          RESTREINT   =FACT(statut='f', max=1,
-            fr="Pour réduire une ou plusieurs sd_resultat sur un maillage ou un modèle réduit",
+            fr="Pour réduire une ou plusieurs sd_resultat sur un maillage ou un modèle réduit",
             regles=(UN_PARMI('MAILLAGE','MODELE'),),
             MAILLAGE        =SIMP(statut='f',typ=maillage_sdaster),
             MODELE          =SIMP(statut='f',typ=modele_sdaster),
@@ -22159,8 +22731,7 @@ EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,reentrant='f',
 
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
 )  ;
-#& MODIF COMMANDE  DATE 28/01/2013   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22177,7 +22748,7 @@ EXTR_RESU=OPER(nom="EXTR_RESU",op=176,sd_prod=extr_resu_prod,reentrant='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 def extr_table_prod(TYPE_RESU,**args):
   defs = globals()
@@ -22190,14 +22761,14 @@ EXTR_TABLE=OPER(nom="EXTR_TABLE",
                 op=173,
                 sd_prod=extr_table_prod,
                 reentrant='n',
-                UIinfo={"groupes":("Résultats et champs","Tables")},
+                UIinfo={"groupes":("Résultats et champs","Tables")},
                 fr="Extraire d'une table des concepts Code_Aster",
          TYPE_RESU       =SIMP(statut='o',typ='TXM',
                                into=('MATR_ASSE_GENE_R', 'MATR_ELEM_DEPL_R',
                                      'VECT_ELEM_DEPL_R',
                                      'CHAM_GD_SDASTER', 'CHAM_NO_SDASTER',
                                      'CARTE_SDASTER', 'CHAM_ELEM',
-                                     'MODE_MECA',
+                                     'MODE_MECA','TABLE_SDASTER',
                                      'FONCTION_SDASTER', 'FONCTION_C', 'NAPPE_SDASTER',
                                      'ENTIER', 'REEL'),),
 
@@ -22223,8 +22794,7 @@ EXTR_TABLE=OPER(nom="EXTR_TABLE",
 
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
 )  ;
-#& MODIF COMMANDE  DATE 16/10/2012   AUTEUR ALARCON A.ALARCON 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22241,7 +22811,7 @@ EXTR_TABLE=OPER(nom="EXTR_TABLE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 def factoriser_prod(MATR_ASSE,**args):
   if AsType(MATR_ASSE) == matr_asse_depl_r : return matr_asse_depl_r
@@ -22253,50 +22823,49 @@ def factoriser_prod(MATR_ASSE,**args):
   raise AsException("type de concept resultat non prevu")
 
 FACTORISER=OPER(nom="FACTORISER",op=14,sd_prod=factoriser_prod,
-               fr="Factoriser une matrice assemblée en un produit de deux matrices triangulaires"+
-                  "ou construire une matrice de préconditionnement pour une résolution par gradient conjugué",
-               reentrant='f', UIinfo={"groupes":("Résolution",)},
+               fr="Factoriser une matrice assemblée en un produit de deux matrices triangulaires"+
+                  "ou construire une matrice de préconditionnement pour une résolution par gradient conjugué",
+               reentrant='f', UIinfo={"groupes":("Résolution",)},
          regles=(EXCLUS('BLOC_DEBUT','DDL_DEBUT'),
                  EXCLUS('BLOC_FIN','DDL_FIN'),),
          MATR_ASSE       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
 
-         # mots clés pour solveur LDLT et MULT_FRONT et MUMPS:
+         # mots clés pour solveur LDLT et MULT_FRONT et MUMPS:
          STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
          NPREC           =SIMP(statut='f',typ='I',defaut=8),
 
-         # mots clés pour solveur LDLT :
+         # mots clés pour solveur LDLT :
          BLOC_DEBUT      =SIMP(statut='f',typ='I',val_min=1,),
          DDL_DEBUT       =SIMP(statut='f',typ='I',val_min=1,),
          BLOC_FIN        =SIMP(statut='f',typ='I',val_min=1,),
          DDL_FIN         =SIMP(statut='f',typ='I',val_min=1,),
 
-         # mots clés pour solveur MUMPS :
+         # mots clés pour solveur MUMPS :
          TYPE_RESOL      =SIMP(statut='f',typ='TXM',defaut='AUTO',into=('NONSYM','SYMGEN','SYMDEF','AUTO')),
          PRETRAITEMENTS  =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO")),
          PCENT_PIVOT     =SIMP(statut='f',typ='I',defaut=20,),
-         ELIM_LAGR2      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
+         ELIM_LAGR       =SIMP(statut='f',typ='TXM',defaut="LAGR2",into=("LAGR2","NON")),
          GESTION_MEMOIRE =SIMP(statut='f',typ='TXM',defaut="IN_CORE",into=("IN_CORE","OUT_OF_CORE","EVAL")),
 
-         # mots clés pour solveur GCPC et PETSc :
+         # mots clés pour solveur GCPC et PETSc :
          PRE_COND        =SIMP(statut='f',typ='TXM',into=("LDLT_INC","JACOBI","SOR","LDLT_SP"),defaut="LDLT_INC" ),
          b_ldlt_inc     =BLOC(condition = "PRE_COND == 'LDLT_INC' ",
            NIVE_REMPLISSAGE = SIMP(statut='f',typ='I',defaut= 0 ),
            REMPLISSAGE      = SIMP(statut='f',typ='R',defaut= 1.0),
          ),
-         b_ldlt_sp      =BLOC(condition = "PRE_COND == 'LDLT_SP' ", fr="Paramètres de la factorisation simple précision",
+         b_ldlt_sp      =BLOC(condition = "PRE_COND == 'LDLT_SP' ", fr="Paramètres de la factorisation simple précision",
            REAC_PRECOND        =SIMP(statut='f',typ='I',defaut=30, ),
          ),
          b_jacobi_sor   =BLOC(condition = "PRE_COND == 'JACOBI' or PRE_COND == 'SOR'",
-                                                                         fr="Paramètres des préconditionneurs JACOBI et SOR",
+                                                                         fr="Paramètres des préconditionneurs JACOBI et SOR",
            RENUM               =SIMP(statut='f',typ='TXM',defaut="SANS",into=("SANS","RCMK") ),
          ),
 
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22313,25 +22882,24 @@ FACTORISER=OPER(nom="FACTORISER",op=14,sd_prod=factoriser_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
-FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude, fin du travail engagé par une des commandes DEBUT ou POURSUITE",
+# person_in_charge: j-pierre.lefebvre at edf.fr
+FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une étude, fin du travail engagé par une des commandes DEBUT ou POURSUITE",
             UIinfo={"groupes":("Gestion du travail",)},
 #
-# FIN est appelé prématurément en cas d'exception ("SIGUSR1", ArretCPUError,
-# NonConvergenceError..., erreurs <S> ou erreurs <F> récupérées).
-# En cas d'ArretCPUError, on limite au maximum le travail à faire dans FIN.
-# Pour cela, on force certains mots-clés dans Execution/E_JDC.py.
+# FIN est appelé prématurément en cas d'exception ("SIGUSR1", ArretCPUError,
+# NonConvergenceError..., erreurs <S> ou erreurs <F> récupérées).
+# En cas d'ArretCPUError, on limite au maximum le travail à faire dans FIN.
+# Pour cela, on force certains mots-clés dans Execution/E_JDC.py.
 # 
          FORMAT_HDF      =SIMP(fr="sauvegarde de la base GLOBALE au format HDF",statut='f',
                                typ='TXM',defaut="NON",into=("OUI","NON",) ), 
          RETASSAGE       =SIMP(fr="provoque le retassage de la base GLOBALE",
                                statut='f',typ='TXM',defaut="NON",into=("OUI","NON",) ),
-         INFO_RESU       =SIMP(fr="provoque l'impression des informations sur les structures de données",
+         INFO_RESU       =SIMP(fr="provoque l'impression des informations sur les structures de données",
                                statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",) ),
          UNITE           =SIMP(statut='f',typ='I',defaut=6),  
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22348,14 +22916,13 @@ FIN=PROC(nom="FIN",op=9999,repetable='n',fr="Fin d'une 
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE ADOBES A.ADOBES
+# person_in_charge: andre.adobes at edf.fr
 FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction_sdaster,
-                    reentrant='n',fr="Crée une fonction constante paramétrée par l'abscisse curviligne",
+                    reentrant='n',fr="Crée une fonction constante paramétrée par l'abscisse curviligne",
             UIinfo={"groupes":("Fonctions",)},
          TYPE_FLUI_STRU  =SIMP(statut='o',typ=(type_flui_stru) ),
 )  ;
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22372,7 +22939,7 @@ FONC_FLUI_STRU=OPER(nom="FONC_FLUI_STRU",op= 169,sd_prod=fonction_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 def formule_prod(self, VALE, VALE_C, **args):
     if VALE != None:
         return formule
@@ -22384,31 +22951,30 @@ FORMULE=FORM(nom="FORMULE",
              op=-5,
              sd_prod=formule_prod,
              UIinfo={"groupes":("Fonctions",)},
-             fr="Définit une formule réelle ou complexe à partir de son expression mathématique",
+             fr="Définit une formule réelle ou complexe à partir de son expression mathématique",
     regles = (UN_PARMI('VALE', 'VALE_C',),),
     VALE     = SIMP(statut='f', typ='TXM'),
     VALE_C   = SIMP(statut='f', typ='TXM'),
     NOM_PARA = SIMP(statut='o', typ='TXM', max='**'),
 )
-#& MODIF COMMANDE  DATE 06/08/2012   AUTEUR ZENTNER I.ZENTNER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
-# 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 2 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, WRITE TO EDF R&D CODE_ASTER,         
-#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
+# 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 2 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, WRITE TO EDF R&D CODE_ASTER,
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 GENE_ACCE_SEISME=MACRO(nom="GENE_ACCE_SEISME",
                      op=OPS('Macro.gene_acce_seisme_ops.gene_acce_seisme_ops'),
                      sd_prod=table_fonction,
@@ -22419,37 +22985,69 @@ GENE_ACCE_SEISME=MACRO(nom="GENE_ACCE_SEISME",
          INIT_ALEA       =SIMP(statut='f',typ='I'),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
-         PAS_INST       =SIMP(statut='o',typ='R' ),
+         PAS_INST        =SIMP(statut='o',typ='R' ),
          NB_POIN           =SIMP(statut='f',typ='I',fr="nombre de points" ),
-         PESANTEUR       =SIMP(statut='o', typ='R', fr="constante de normalisation de ACCE_MAX, ECART_TYPE et INTE_ARIAS (g)" ),
-
-         DSP        = FACT(statut='o',max='**',
+         PESANTEUR         =SIMP(statut='o', typ='R', fr="constante de normalisation de ACCE_MAX, ECART_TYPE et INTE_ARIAS (g) ou le spectre" ),
+         DUREE_PHASE_FORTE =SIMP(statut='o',typ='R',fr="durée phase forte du signal" ),
+         NB_TIRAGE        =SIMP(statut='f',typ='I',defaut= 1,fr="nombre accelerogrammes" ),
+         FREQ_FILTRE       =SIMP(statut='f',typ='R',fr="frequence du filtre: corner frequency"),
+#
+         DSP        = FACT(statut='f',max=1,     
             AMOR_REDUIT   =SIMP(statut='o',typ='R'),
-            FREQ_FOND     =SIMP(statut='o',typ='R', fr="frequence fondamentale"),
-            FREQ_PENTE    =SIMP(statut='f',typ='R',  fr="slope fundamental frequency"),),
+            FREQ_FOND     =SIMP(statut='o',typ='R', fr="frequence centrale"),
+            FREQ_PENTE    =SIMP(statut='f',typ='R',  fr="pente pour l'evolution de la frequence centrale"),        
+        ),
+         SPEC_MEDIANE    = FACT(statut='f',max=1,
+        regles=(ENSEMBLE('ERRE_ZPA','ERRE_MAX','ERRE_RMS'),EXCLUS('FREQ_PAS','LIST_FREQ'),),
+            SPEC_OSCI       =SIMP(statut='o',typ=(fonction_sdaster),),
+            AMOR_REDUIT     =SIMP(statut='o', typ='R', val_min=0., val_max=1.),
+            FREQ_PAS      =SIMP(statut='f',typ='R' , fr="pas"),      
+            LIST_FREQ       =SIMP(statut='f', typ=listr8_sdaster ),            
+            NB_ITER      =SIMP(statut='f',typ='I' ,defaut=0, val_min=0,fr="nombre d'iterations pour fitter le spectre"  ,),
+            ERRE_ZPA      =SIMP(statut='f',typ='R' ,defaut=(1.,0.2), min=1,max=2,  fr="coef et erreur maxi ZPA",),
+            ERRE_MAX      =SIMP(statut='f',typ='R' ,defaut=(0.5,0.2), min=1,max=2,  fr="coef et erreur maxi global",),
+            ERRE_RMS      =SIMP(statut='f',typ='R' ,defaut=(0.5,0.2), min=1,max=2,  fr="coef et erreur maxi rms",),
+            FREQ_PENTE    =SIMP(statut='f',typ='R',  fr="pente pour l'evolution de la frequence centrale"), 
+            METHODE         =SIMP(statut='f',typ='TXM',defaut="HARMO",into=("NIGAM","HARMO") ),            
+        ),
+         SPEC_UNIQUE    = FACT(statut='f',max=1,
+        regles=(ENSEMBLE('ERRE_ZPA','ERRE_MAX','ERRE_RMS'),EXCLUS('FREQ_PAS','LIST_FREQ'),),
+            ERRE_ZPA      =SIMP(statut='f',typ='R' ,defaut=(1.,0.2), min=1,max=2,  fr="coef et erreur maxi ZPA",),
+            ERRE_MAX      =SIMP(statut='f',typ='R' ,defaut=(0.5,0.2), min=1,max=2,  fr="coef et erreur maxi global",),
+            ERRE_RMS      =SIMP(statut='f',typ='R' ,defaut=(0.5,0.2), min=1,max=2,  fr="coef et erreur maxi rms",),
+            SPEC_OSCI       =SIMP(statut='o',typ=(fonction_sdaster),),
+            AMOR_REDUIT     =SIMP(statut='o', typ='R', val_min=0., val_max=1.),
+            FREQ_PAS      =SIMP(statut='f',typ='R' , fr="pas"),
+            LIST_FREQ       =SIMP(statut='f', typ=listr8_sdaster ),
+            NB_ITER      =SIMP(statut='f',typ='I' ,defaut=0, val_min=0,fr="nombre d'iterations pour fitter le spectre" ,),
+            METHODE         =SIMP(statut='f',typ='TXM',defaut="HARMO",into=("NIGAM","HARMO") ),    
+        ),
+#       
+         SPEC_FRACTILE    = FACT(statut='f',max=1,
+        regles=(ENSEMBLE('ERRE_ZPA','ERRE_MAX','ERRE_RMS'), EXCLUS('FREQ_PAS','LIST_FREQ'),),
+            SPEC_OSCI       =SIMP(statut='o',typ=(fonction_sdaster),),
+            SPEC_1_SIGMA       =SIMP(statut='o',typ=(fonction_sdaster),),  
+            AMOR_REDUIT     =SIMP(statut='o', typ='R', val_min=0., val_max=1.),
+            FREQ_PAS      =SIMP(statut='f',typ='R' , fr="pas"),    
+            LIST_FREQ       =SIMP(statut='f', typ=listr8_sdaster ),               
+           FREQ_PENTE    =SIMP(statut='f',typ='R',  fr="pente pour l'evolution de la frequence centrale"),           
+        ),
+
 
-         MODULATION      = FACT(statut='o',max='**',
-            regles=(UN_PARMI('ACCE_MAX','INTE_ARIAS','ECART_TYPE'),), 
+         regles=(UN_PARMI('DSP','SPEC_MEDIANE','SPEC_UNIQUE','SPEC_FRACTILE'),),    
+         MODULATION      = FACT(statut='o',max=1, 
+            regles=(EXCLUS('ACCE_MAX','INTE_ARIAS','ECART_TYPE'),),         
             TYPE         = SIMP(statut='o',typ='TXM' , into=("GAMMA","JENNINGS_HOUSNER","CONSTANT")),
             ACCE_MAX     = SIMP(statut='f',typ='R',fr="PGA: acceleration max au sol (g)" ),
             ECART_TYPE   = SIMP(statut='f',typ='R',fr="ecart-type" ),
             INTE_ARIAS   = SIMP(statut='f',typ='R',fr="intensite d'Arias" ),
-#            INST_INI     = SIMP(statut='f',typ='R',fr="debut phase forte",defaut= 0.0 ), 
-#           DUREE_PHASE_FORTE=SIMP(statut='o',typ='R',fr="durée phase forte du signal" ),
-            a_type_mod = BLOC(condition="TYPE=='CONSTANT' ",
-                         DUREE_PHASE_FORTE=SIMP(statut='f',typ='R',fr="durée phase forte du signal" ),),
-            b_type_mod = BLOC(condition="TYPE=='JENNINGS_HOUSNER' ",
-                         PARA  =SIMP(statut='o',typ='R',min=2,max=2,fr="parametres alpha, beta"),
-                         INST_INI     = SIMP(statut='o',typ='R',fr="instant debut phase forte" ),
-                         DUREE_PHASE_FORTE=SIMP(statut='o',typ='R',fr="durée phase forte du signal" ),),
-            c_type_mod = BLOC(condition="TYPE=='GAMMA' ",
-                         INST_INI     = SIMP(statut='o',typ='R',fr="instant debut phase forte" ),
-                         DUREE_PHASE_FORTE=SIMP(statut='o',typ='R',fr="durée phase forte du signal" ),),
-#         NB_TRAJ        =SIMP(statut='f',typ='I',defaut= 1,,fr="nombre accelerogrammes" ),
-),)  ;
+              c_type_mod   = BLOC(condition="TYPE=='GAMMA' ",
+                           INST_INI     = SIMP(statut='o',typ='R',fr="instant debut phase forte" ),
+                            ),
+            ),
+)  ;
  
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22466,9 +23064,9 @@ GENE_ACCE_SEISME=MACRO(nom="GENE_ACCE_SEISME",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=table_fonction,
-                    fr="Génération de la fonction temporelle à partir d une matrice interspectrale",
+                    fr="Génération de la fonction temporelle à partir d une matrice interspectrale",
                     reentrant='n',
             UIinfo={"groupes":("Fonctions",)},
          INTE_SPEC       =SIMP(statut='o',typ=interspectre),
@@ -22485,25 +23083,24 @@ GENE_FONC_ALEA=OPER(nom="GENE_FONC_ALEA",op= 118,sd_prod=table_fonction,
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2002  EDF R&D                  WWW.CODE-ASTER.ORG
-# 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 2 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, WRITE TO EDF R&D CODE_ASTER,         
-#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
+# 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 2 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, WRITE TO EDF R&D CODE_ASTER,
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 def gene_matr_alea_prod(MATR_MOYEN,**args ):
   if (AsType(MATR_MOYEN) == matr_asse_gene_r )  : return matr_asse_gene_r
   if (AsType(MATR_MOYEN) == macr_elem_dyna) : return macr_elem_dyna
@@ -22512,17 +23109,17 @@ def gene_matr_alea_prod(MATR_MOYEN,**args ):
 GENE_MATR_ALEA=OPER(nom="GENE_MATR_ALEA",op=  27,
 #sd_prod=matr_asse_gene_r,
 sd_prod=gene_matr_alea_prod,
-               fr="Générer une réalisation d'une matrice aléatoire réelle sym. déf. positive ou d'un macro élément dynamique",
+               fr="Générer une réalisation d'une matrice aléatoire réelle sym. déf. positive ou d'un macro élément dynamique",
                reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
    MATR_MOYEN   = SIMP(statut='o', typ=(matr_asse_gene_r,macr_elem_dyna)),
 
-#    cas matrice generalisee 
+#    cas matrice generalisee
    b_matr =BLOC( condition = "AsType(MATR_MOYEN) in (matr_asse_gene_r,)",
            COEF_VAR     = SIMP(statut='f', typ='R', defaut=0.1, val_min=0.E+0 ,
                                 fr="coefficient de variation de la matrice a generer" ),
            ),
-#    cas macr_elem_dyna 
+#    cas macr_elem_dyna
    b_macr =BLOC( condition = "AsType(MATR_MOYEN) in (macr_elem_dyna,)",
            fr="cas macr_elem_dyna (sous-structuratio)",
            COEF_VAR_RIGI     = SIMP(statut='f', typ='R', defaut=0.1, val_min=0.E+0 ,
@@ -22534,9 +23131,7 @@ sd_prod=gene_matr_alea_prod,
 
    INIT_ALEA    =SIMP(statut='f',typ='I'),
 ) ;
-   
-#& MODIF COMMANDE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22553,15 +23148,15 @@ sd_prod=gene_matr_alea_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 
 GENE_VARI_ALEA=MACRO(nom="GENE_VARI_ALEA",
                      op_init=ops.build_gene_vari_alea,
                      op=EMPTY_OPS,
                      sd_prod=reel,
                      reentrant='n',
-                     fr="Générer une réalisation d'une variable aléatoire réelle " \
-                        "de loi de probabilité donnée (Gamma ou Exponentielle)",
+                     fr="Générer une réalisation d'une variable aléatoire réelle " \
+                        "de loi de probabilité donnée (Gamma ou Exponentielle)",
                      UIinfo={"groupes":("Fonctions",)},
    TYPE       = SIMP(statut='f', typ='TXM', into=("EXP_TRONQUEE", "EXPONENTIELLE", "GAMMA"), defaut="GAMMA"),
    b_gamma    =BLOC(condition = "TYPE == 'GAMMA' ",fr="Parametres loi gamma",
@@ -22580,8 +23175,7 @@ GENE_VARI_ALEA=MACRO(nom="GENE_VARI_ALEA",
              ),
    INIT_ALEA       =SIMP(statut='f',typ='I'),
 )
-#& MODIF COMMANDE  DATE 20/06/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22598,10 +23192,10 @@ GENE_VARI_ALEA=MACRO(nom="GENE_VARI_ALEA",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 IMPR_CO=PROC(nom="IMPR_CO",op=17,
             UIinfo={"groupes":("Impression","Utilitaires",)},
-             fr="Imprimer tous les objets JEVEUX qui constituent un concept utilisateur existant (pour les développeurs)",
+             fr="Imprimer tous les objets JEVEUX qui constituent un concept utilisateur existant (pour les développeurs)",
          regles=(UN_PARMI('CONCEPT','CHAINE','TOUT' ),),
 
          UNITE           =SIMP(statut='f',typ='I',defaut=8),
@@ -22615,8 +23209,7 @@ IMPR_CO=PROC(nom="IMPR_CO",op=17,
          POSITION        =SIMP(statut='f',typ='I',defaut=1),
          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 )  ;
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22633,13 +23226,13 @@ IMPR_CO=PROC(nom="IMPR_CO",op=17,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE Mohamed TORKHANI
+#
 
 
 IMPR_DIAG_CAMPBELL=MACRO(nom="IMPR_DIAG_CAMPBELL",
                          op=OPS('Macro.impr_diag_campbell_ops.impr_diag_campbell_ops'),
-                         fr="Tracé du Diagramme de Campbell",
-                         UIinfo={"groupes":("Impression","Outils-métier",)},
+                         fr="Tracé du Diagramme de Campbell",
+                         UIinfo={"groupes":("Impression","Outils-métier",)},
             MAILLAGE        =SIMP(statut='o',typ=maillage_sdaster),
             MODES           =SIMP(statut='o',typ=table_container),
             NFREQ_CAMP      =SIMP(statut='o',typ='I' ),
@@ -22652,8 +23245,7 @@ IMPR_DIAG_CAMPBELL=MACRO(nom="IMPR_DIAG_CAMPBELL",
             UNIT_INT        =SIMP(statut='o',typ='I' ,val_min=1),
             L_S             =SIMP(statut='f',typ='R', defaut= 1., max='**'),
 );
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22670,129 +23262,128 @@ IMPR_DIAG_CAMPBELL=MACRO(nom="IMPR_DIAG_CAMPBELL",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 IMPR_FONCTION=MACRO(nom="IMPR_FONCTION",
                     op=OPS('Macro.impr_fonction_ops.impr_fonction_ops'),
                     sd_prod=None,
                     fr="Imprime le contenu d'objets de type fonction ou liste de " \
-                       "réels dans un fichier destiné à un traceur de courbe",
+                       "réels dans un fichier destiné à un traceur de courbe",
                     UIinfo={"groupes":("Impression","Fonctions",)},
          FORMAT          =SIMP(statut='o',typ='TXM',position='global',defaut='TABLEAU',
                                into=("TABLEAU","AGRAF","XMGRACE",),),
          b_pilote = BLOC(condition = "FORMAT == 'XMGRACE'",
-                        fr="Mots-clés propres à XMGRACE",
+                        fr="Mots-clés propres à XMGRACE",
            PILOTE          =SIMP(statut='f',typ='TXM',defaut='',
                                  into=('','POSTSCRIPT','EPS','MIF','SVG','PNM','PNG','JPEG','PDF','INTERACTIF'),
                             fr="Pilote de sortie, PNG/JPEG/PDF ne sont pas disponibles sur toutes les installations de xmgrace"),
            UNITE           =SIMP(statut='f',typ='I',val_min=10,val_max=90,defaut=29,
-                                 fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
+                                 fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
          ),
          b_agraf = BLOC(condition = "FORMAT == 'AGRAF'",
-                        fr="Mots-clés propres à AGRAF",
+                        fr="Mots-clés propres à AGRAF",
            UNITE           =SIMP(statut='o',typ='I',defaut=25,
-                                 fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
+                                 fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
            UNITE_DIGR      =SIMP(statut='o',typ='I',defaut=26,
-                                 fr="Unité logique définissant le fichier dans lequel on écrit les directives Agraf"),
+                                 fr="Unité logique définissant le fichier dans lequel on écrit les directives Agraf"),
          ),
-         # unite pour TABLEAU dans le bloc de mise en forme spécifique
+         # unite pour TABLEAU dans le bloc de mise en forme spécifique
 
-         COURBE          =FACT(statut='o',max='**',fr="Définition de la fonction à tracer",
+         COURBE          =FACT(statut='o',max='**',fr="Définition de la fonction à tracer",
            regles=(UN_PARMI('FONCTION','LIST_RESU','FONC_X','ABSCISSE'),),
            FONCTION        =SIMP(statut='f',typ=(fonction_sdaster, formule, fonction_c, nappe_sdaster),
-                                 fr="Fonction réelle ou complexe", ),
+                                 fr="Fonction réelle ou complexe", ),
            LIST_RESU       =SIMP(statut='f',typ=listr8_sdaster,
-                                 fr="Liste des ordonnees d'une fonction réelle définie par deux listes", ),
+                                 fr="Liste des ordonnees d'une fonction réelle définie par deux listes", ),
            FONC_X          =SIMP(statut='f',typ=(fonction_sdaster,formule),
-                                 fr="Fonction abscisses d'une fonction paramétrique",),
+                                 fr="Fonction abscisses d'une fonction paramétrique",),
            ABSCISSE        =SIMP(statut='f',typ='R',max='**',
                                  fr="Valeurs des abscisses", ),
            b_fonction      =BLOC(condition = "FONCTION != None",
              LIST_PARA       =SIMP(statut='f',typ=listr8_sdaster ),
            ),
            b_fonction_c  =BLOC(condition = "AsType(FONCTION) in (fonction_c, formule_c)",
-                                 fr="Fonction complexe définie par le mot-clé fonction",
+                                 fr="Fonction complexe définie par le mot-clé fonction",
              PARTIE          =SIMP(statut='f',typ='TXM',into=("REEL","IMAG") ),
            ),
            b_list_resu     =BLOC(condition = "LIST_RESU != None",
              LIST_PARA       =SIMP(statut='o',typ=listr8_sdaster ),
            ),
            b_fonc_x        =BLOC(condition = "FONC_X != None",
-             FONC_Y          =SIMP(statut='o',typ=(fonction_sdaster,formule),fr="Fonction ordonnées d une fonction paramétrique" ),
+             FONC_Y          =SIMP(statut='o',typ=(fonction_sdaster,formule),fr="Fonction ordonnées d une fonction paramétrique" ),
              LIST_PARA       =SIMP(statut='f',typ=listr8_sdaster ),
            ),
            b_vale_resu     =BLOC(condition = "ABSCISSE != None",
              ORDONNEE      =SIMP(statut='o',typ='R',max='**',
-                                 fr="Valeurs des ordonnées"),
+                                 fr="Valeurs des ordonnées"),
            ),
 
-           # mots-clés utilisant uniquement aux formats autres que TABLEAU
-           # mais ce serait trop pénible de devoir les supprimer quand on change de format
+           # mots-clés utilisant uniquement aux formats autres que TABLEAU
+           # mais ce serait trop pénible de devoir les supprimer quand on change de format
            # donc on ne les met pas dans un bloc
            # "pseudo" bloc mise en forme :
                LEGENDE         =SIMP(statut='f',typ='TXM',
-                                    fr="Légende associée à la fonction" ),
+                                    fr="Légende associée à la fonction" ),
                STYLE           =SIMP(statut='f',typ='I',val_min=0,
-                                    fr="Style de la ligne représentant la fonction",),
+                                    fr="Style de la ligne représentant la fonction",),
                COULEUR         =SIMP(statut='f',typ='I',val_min=0,
-                                    fr="Couleur associée à la fonction",),
+                                    fr="Couleur associée à la fonction",),
                MARQUEUR        =SIMP(statut='f',typ='I',val_min=0,
-                                    fr="Type du marqueur associé à la fonction",),
+                                    fr="Type du marqueur associé à la fonction",),
                FREQ_MARQUEUR   =SIMP(statut='f',typ='I',defaut=0,
-                                    fr="Fréquence d impression du marqueur associé à la fonction", ),
+                                    fr="Fréquence d impression du marqueur associé à la fonction", ),
            # fin bloc mise en forme
 
            TRI             =SIMP(statut='f',typ='TXM',defaut="N",
-                                 fr="Choix du tri effectué sur les abscisses ou sur les ordonnées",
+                                 fr="Choix du tri effectué sur les abscisses ou sur les ordonnées",
                                  into=("N","X","Y","XY","YX") ),
          ),
          # Mise en page du tableau ou du graphique
          b_tableau = BLOC(condition = "FORMAT == 'TABLEAU'",
-                          fr="Mots-clés propres au format Tableau",
+                          fr="Mots-clés propres au format Tableau",
            UNITE           =SIMP(statut='o',typ='I',defaut=8,
-                                 fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
+                                 fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
            TITRE           =SIMP(statut='f',typ='TXM',
-                                 fr="Titre associé au graphique" ),
+                                 fr="Titre associé au graphique" ),
            SOUS_TITRE      =SIMP(statut='f',typ='TXM',
                                  fr="Sous-titre du graphique" ),
            SEPARATEUR      =SIMP(statut='f',typ='TXM',defaut=' ',
-                                 fr="Séparateur des colonnes du tableau (ex : ' ', ';'...)"),
+                                 fr="Séparateur des colonnes du tableau (ex : ' ', ';'...)"),
            COMMENTAIRE     =SIMP(statut='f',typ='TXM',defaut='#',
-                                 fr="Caractère indiquant au traceur de fonction que la ligne peut etre ignorée"),
+                                 fr="Caractère indiquant au traceur de fonction que la ligne peut etre ignorée"),
            COMM_PARA       =SIMP(statut='f',typ='TXM',defaut='',
-                                 fr="Caractère utilisé pour commentariser la ligne des labels de colonnes"),
+                                 fr="Caractère utilisé pour commentariser la ligne des labels de colonnes"),
            DEBUT_LIGNE     =SIMP(statut='f',typ='TXM',defaut='',
-                                 fr="Caractère de debut de ligne"),
+                                 fr="Caractère de debut de ligne"),
            FIN_LIGNE       =SIMP(statut='f',typ='TXM',defaut='\n',
-                                 fr="Caractère de fin de ligne"),
+                                 fr="Caractère de fin de ligne"),
          ),
          b_graphique = BLOC(condition = "FORMAT != 'TABLEAU'",
                         fr="Mise en page du graphique",
            TITRE           =SIMP(statut='f',typ='TXM',
-                                 fr="Titre associé au graphique" ),
+                                 fr="Titre associé au graphique" ),
            SOUS_TITRE      =SIMP(statut='f',typ='TXM',
                                  fr="Sous-titre du graphique" ),
            BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,
                                  fr="Intervalles de variation des abscisses"),
            BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,
-                                 fr="Intervalles de variation des ordonnées"),
+                                 fr="Intervalles de variation des ordonnées"),
            ECHELLE_X       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),
-                                 fr="Type d'échelle pour les abscisses" ),
+                                 fr="Type d'échelle pour les abscisses" ),
            ECHELLE_Y       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),
-                                 fr="Type d'échelle pour les ordonnées" ),
+                                 fr="Type d'échelle pour les ordonnées" ),
            GRILLE_X        =SIMP(statut='f',typ='R',max=1,val_min=0.,
                                  fr="Pas du quadrillage vertical" ),
            GRILLE_Y        =SIMP(statut='f',typ='R',max=1,val_min=0.,
                                  fr="Pas du quadrillage horizontal" ),
            LEGENDE_X       =SIMP(statut='f',typ='TXM',
-                                 fr="Légende associée à l'axe des abscisses" ),
+                                 fr="Légende associée à l'axe des abscisses" ),
            LEGENDE_Y       =SIMP(statut='f',typ='TXM',
-                                 fr="Légende associée à l'axe des ordonnées" ),
+                                 fr="Légende associée à l'axe des ordonnées" ),
          ),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 17/10/2011   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22809,9 +23400,9 @@ IMPR_FONCTION=MACRO(nom="IMPR_FONCTION",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE BOYERE E.BOYERE
+# person_in_charge: emmanuel.boyere at edf.fr
 IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
-            fr="Imprimer le résultat d'un calcul dynamique en variables généralisées au format RESULTAT",
+            fr="Imprimer le résultat d'un calcul dynamique en variables généralisées au format RESULTAT",
             UIinfo={"groupes":("Impression","Dynamique",)},
          FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",into=("RESULTAT",) ),
          UNITE           =SIMP(statut='f',typ='I',defaut=8),  
@@ -22853,8 +23444,7 @@ IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
            INFO_GENE       =SIMP(statut='f',typ='TXM',into=("OUI","NON") ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22871,16 +23461,16 @@ IMPR_GENE=PROC(nom="IMPR_GENE",op= 157,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,
             UIinfo={"groupes":("Impression","Utilitaires",)},
-                 fr="Imprimer le contenu des objets créés par JEVEUX (pour développeur)",
+                 fr="Imprimer le contenu des objets créés par JEVEUX (pour développeur)",
          ENTITE          =SIMP(fr="choix de l'observation",statut='o',typ='TXM',
                                into=("DISQUE","MEMOIRE","REPERTOIRE",    
                                      "OBJET","ATTRIBUT","SYSTEME","ENREGISTREMENT") ),
          b_objet      =BLOC(condition = "(ENTITE=='OBJET')",
             NOMOBJ          =SIMP(fr="nom d'objet",statut='f',typ='TXM' ),  
-            NUMOC           =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),  
+            NUMOC           =SIMP(fr="numéro d objet de collection",statut='f',typ='I' ),  
             NOMOC           =SIMP(fr="nom d'objet de collection",statut='f',typ='TXM' ),  
          ),
          b_attribut   =BLOC(condition = "(ENTITE=='ATTRIBUT')",
@@ -22914,8 +23504,7 @@ IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,
          ),
          COMMENTAIRE     =SIMP(statut='f',typ='TXM' ),  
 )  ;
-#& MODIF COMMANDE  DATE 01/03/2011   AUTEUR CORUS M.CORUS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -22932,11 +23521,11 @@ IMPR_JEVEUX=PROC(nom="IMPR_JEVEUX",op=16,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE CORUS M.CORUS
+# person_in_charge: mathieu.corus at edf.fr
 
 IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
-                    UIinfo={"groupes":("Impression","Outils-métier",)},
-         fr="Impression d'une structure de données MACR_ELEM_DYNA au format IDEAS MISS3D PLEXUS ou CADYRO",
+                    UIinfo={"groupes":("Impression","Outils-métier",)},
+         fr="Impression d'une structure de données MACR_ELEM_DYNA au format IDEAS MISS3D",
          MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",
                                into=("MISS_3D","IDEAS") ),
@@ -22946,11 +23535,6 @@ IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
            VERSION          =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
          ),             
 
-#         b_plexus         =BLOC(condition = "FORMAT == 'PLEXUS'",
-#           UNITE           =SIMP(statut='f',typ='I',defaut=30),
-#           VERSION         =SIMP(statut='f',typ='I',defaut= 5,into=( 5 ,) ),
-#         ),                      
-
          b_miss_3d       =BLOC(condition = "FORMAT == 'MISS_3D'",
            regles=(EXCLUS('AMOR_REDUIT','LIST_AMOR'),),
            UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
@@ -22967,18 +23551,9 @@ IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
            IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
          ),
 
-#         b_cadyro        =BLOC(condition = "FORMAT == 'CADYRO'",
-#           SQUELETTE       =SIMP(statut='f',typ=squelette ),
-#           UNITE_MODE_MECA =SIMP(statut='f',typ='I',defaut= 26 ),
-#           UNITE_MODE_STAT =SIMP(statut='f',typ='I',defaut= 27 ),
-#           UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut= 28 ),
-#           IMPR_MODE_MECA  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
-#           IMPR_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
-#         ),
 
 )  ;
-#& MODIF COMMANDE  DATE 14/02/2011   AUTEUR GREFFET N.GREFFET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -22995,7 +23570,7 @@ IMPR_MACR_ELEM=PROC(nom="IMPR_MACR_ELEM",op= 160,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE GREFFET N.GREFFET
+# person_in_charge: nicolas.greffet at edf.fr
 #
 # RECUPERATION DES MAILLAGES IFS VENANT DE SATURNE VIA YACS
 #
@@ -23006,66 +23581,7 @@ IMPR_MAIL_YACS=PROC(nom="IMPR_MAIL_YACS",op=43,
          TYPE_MAILLAGE = SIMP(statut='o',typ='TXM',into=("SOMMET","MILIEU")),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
 )  ;
-#& MODIF COMMANDE  DATE 29/03/2011   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
-# 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 2 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, WRITE TO EDF R&D CODE_ASTER,       
-#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
-# ======================================================================
-# RESPONSABLE DEVESA G.DEVESA
-IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,
-            UIinfo={"groupes":("Impression","Outils-métier",)},
-         fr="Impression des données d'entrée pour une étude sismique avec MISS3D",
-         regles=(UN_PARMI('INST_INIT','FREQ_INIT'),
-                 PRESENT_PRESENT('INST_INIT','INST_FIN'),
-                 PRESENT_PRESENT('FREQ_INIT','FREQ_FIN'),),
-         MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
-         EXCIT           =FACT(statut='f',max='**',
-           regles=(UN_PARMI('FONC_MULT','COEF_MULT' ),),
-           VECT_ASSE       =SIMP(statut='f',typ=cham_no_sdaster),
-           FONC_MULT       =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),),
-           COEF_MULT       =SIMP(statut='f',typ='R' ),
-         ),
-         EXCIT_SOL       =FACT(statut='f',max='**',
-           DIRECTION       =SIMP(statut='o',typ='R',min=3,max=3),
-           FONC_SIGNAL     =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule) ),
-           NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE","FORC",),),
-         ),
-         SOURCE_SOL      =FACT(statut='f',max='**',
-           POINT           =SIMP(statut='o',typ='R',min=3,max=3),
-           DIRECTION       =SIMP(statut='o',typ='R',min=3,max=3),
-           FONC_SIGNAL     =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),),
-           NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE","FORC",),),
-         ),
-         SOURCE_FLUIDE   =FACT(statut='f',max='**',
-           POINT           =SIMP(statut='o',typ='R',min=3,max=3),
-           FONC_SIGNAL     =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),),
-           NOM_CHAM        =SIMP(statut='f',typ='TXM',defaut="DEPL",into=("DEPL","VITE","ACCE","FORC",),),
-         ),
-         DIRE_ONDE       =SIMP(statut='f',typ='R',min=3,max=3),
-         INST_INIT       =SIMP(statut='f',typ='R' ),
-         INST_FIN        =SIMP(statut='f',typ='R' ),
-         FREQ_INIT       =SIMP(statut='f',typ='R' ),
-         FREQ_FIN        =SIMP(statut='f',typ='R' ),
-         PAS             =SIMP(statut='o',typ='R' ),
-         UNITE           =SIMP(statut='f',typ='I',defaut= 26 ),
-         INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
-         TITRE           =SIMP(statut='f',typ='TXM',max='**'),
-)  ;
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -23082,13 +23598,13 @@ IMPR_MISS_3D=PROC(nom="IMPR_MISS_3D",op= 162,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE FOURNIER I.FOURNIER
+# person_in_charge: isabelle.fournier at edf.fr
 #
 IMPR_OAR =MACRO(nom="IMPR_OAR",
                 op=OPS('Macro.impr_oar_ops.impr_oar_ops'),
                 sd_prod=None,
                 fr="Impression au format OAR",
-                UIinfo={"groupes":("Impression","Outils-métier",)},
+                UIinfo={"groupes":("Impression","Outils-métier",)},
    TYPE_CALC = SIMP(statut='o', typ='TXM',into=('COMPOSANT', 'MEF', 'TUYAUTERIE')),
    b_composant =BLOC(condition = "TYPE_CALC == 'COMPOSANT' ",
       regles = (AU_MOINS_UN('RESU_MECA','RESU_THER')),
@@ -23135,8 +23651,7 @@ IMPR_OAR =MACRO(nom="IMPR_OAR",
    UNITE = SIMP(statut='f',typ='I',defaut=38),
    AJOUT = SIMP(statut='f', typ='TXM', defaut='NON', into=('OUI', 'NON')),
    );
-#& MODIF COMMANDE  DATE 23/04/2013   AUTEUR SELLENET N.SELLENET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -23153,41 +23668,41 @@ IMPR_OAR =MACRO(nom="IMPR_OAR",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE SELLENET N.SELLENET
+# person_in_charge: nicolas.sellenet at edf.fr
 IMPR_RESU=PROC(nom="IMPR_RESU",op=39,
-            UIinfo={"groupes":("Impression","Résultats et champs",)},
-               fr="Imprimer un maillage et/ou les résultats d'un calcul (différents formats)",
+            UIinfo={"groupes":("Impression","Résultats et champs",)},
+               fr="Imprimer un maillage et/ou les résultats d'un calcul (différents formats)",
 
          FORMAT          =SIMP(statut='f',typ='TXM',position='global',defaut="RESULTAT",
                                  into=("RESULTAT","IDEAS","ASTER","CASTEM","MED","GMSH") ),
 
-         b_modele =BLOC(condition="FORMAT!='MED'",fr="Modèle",
+         b_modele =BLOC(condition="FORMAT!='MED'",fr="Modèle",
            MODELE          =SIMP(statut='f',typ=modele_sdaster),
          ),
 
-         b_format_resultat  =BLOC(condition="FORMAT=='RESULTAT'",fr="unité logique d'impression au format RESULTAT",
+         b_format_resultat  =BLOC(condition="FORMAT=='RESULTAT'",fr="unité logique d'impression au format RESULTAT",
            UNITE           =SIMP(statut='f',typ='I',defaut=8),
          ),
 
-         b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="unité logique d'impression et version IDEAS",
+         b_format_ideas  =BLOC(condition="FORMAT=='IDEAS'",fr="unité logique d'impression et version IDEAS",
            UNITE           =SIMP(statut='f',typ='I',defaut=30),
            VERSION         =SIMP(statut='f',typ='I',defaut=5,into=(4,5)),
          ),
 
-         b_format_aster  =BLOC(condition="FORMAT=='ASTER'",fr="unité logique d'impression au format ASTER",
+         b_format_aster  =BLOC(condition="FORMAT=='ASTER'",fr="unité logique d'impression au format ASTER",
            UNITE           =SIMP(statut='f',typ='I',defaut=26),
          ),
 
-         b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="unité logique d'impression et version CASTEM",
+         b_format_castem =BLOC(condition="FORMAT=='CASTEM'",fr="unité logique d'impression et version CASTEM",
            UNITE           =SIMP(statut='f',typ='I',defaut=37),
            NIVE_GIBI       =SIMP(statut='f',typ='I',defaut=10,into=(3,10)),
          ),
 
-         b_format_med  =BLOC(condition="FORMAT=='MED'",fr="unité logique d'impression au format MED",
+         b_format_med  =BLOC(condition="FORMAT=='MED'",fr="unité logique d'impression au format MED",
            UNITE           =SIMP(statut='f',typ='I',defaut=80),
          ),
 
-         b_format_gmsh  =BLOC(condition="FORMAT=='GMSH'",fr="unité logique d'impression et version GMSH",
+         b_format_gmsh  =BLOC(condition="FORMAT=='GMSH'",fr="unité logique d'impression et version GMSH",
            UNITE           =SIMP(statut='f',typ='I',defaut=37),
            VERSION         =SIMP(statut='f',typ='R',defaut=1.2,into=(1.0,1.2)),
          ),
@@ -23196,7 +23711,7 @@ IMPR_RESU=PROC(nom="IMPR_RESU",op=39,
 
          b_restreint  =BLOC(condition="FORMAT=='MED'",fr="Seulement pour les fichiers MED",
             RESTREINT   =FACT(statut='f', max=1,
-            fr="Pour réduire une ou plusieurs sd_resultat sur un ensemble de mailles",
+            fr="Pour réduire une ou plusieurs sd_resultat sur un ensemble de mailles",
             regles=(AU_MOINS_UN('GROUP_MA','MAILLE',),),
             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
             MAILLE          =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**'),
@@ -23207,7 +23722,7 @@ IMPR_RESU=PROC(nom="IMPR_RESU",op=39,
          ),
 
          CONCEPT          =FACT(statut='f',max='**',
-           fr='Pour imprimer les champs de "données" à des fins de visualisation (controle des affectations).',
+           fr='Pour imprimer les champs de "données" à des fins de visualisation (controle des affectations).',
            # (valide pour les format RESULTAT et MED)
            regles=(UN_PARMI('CHAM_MATER','CARA_ELEM','CHARGE'),),
            CHAM_MATER      =SIMP(statut='f',typ=cham_mater),
@@ -23283,7 +23798,7 @@ IMPR_RESU=PROC(nom="IMPR_RESU",op=39,
 ###
            b_cmp=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
            ((FORMAT == 'CASTEM')or(FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS')or(FORMAT == 'MED'))""",
-                                fr="sélection des composantes",
+                                fr="sélection des composantes",
              regles=(EXCLUS('TOUT_CMP','NOM_CMP'),),
              TOUT_CMP        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
              NOM_CMP         =SIMP(statut='f',typ='TXM',max='**'),
@@ -23298,7 +23813,7 @@ IMPR_RESU=PROC(nom="IMPR_RESU",op=39,
            ),
 ###
            b_gmsh=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and((FORMAT == 'GMSH'))""",
-                                fr="sélection des composantes et des entités toplogiques",
+                                fr="sélection des composantes et des entités toplogiques",
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
              TYPE_CHAM       =SIMP(statut='f',typ='TXM',defaut="SCALAIRE",
@@ -23317,7 +23832,7 @@ IMPR_RESU=PROC(nom="IMPR_RESU",op=39,
 ###
            b_topologie=BLOC(condition="""((CHAM_GD != None)or(RESULTAT != None))and\
            ((FORMAT == 'RESULTAT')or(FORMAT == 'IDEAS')or(FORMAT == 'MED'))""",
-                                fr="sélection des entités topologiques",
+                                fr="sélection des entités topologiques",
              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
              NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
              GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
@@ -23326,7 +23841,7 @@ IMPR_RESU=PROC(nom="IMPR_RESU",op=39,
            ),
 ###
            b_valeurs=BLOC(condition="(FORMAT == 'RESULTAT')",
-                               fr="sélection sur les valeurs",
+                               fr="sélection sur les valeurs",
              VALE_MAX        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
              VALE_MIN        =SIMP(statut='f',typ='TXM',into=("OUI",) ),
              BORNE_SUP       =SIMP(statut='f',typ='R'),
@@ -23335,7 +23850,7 @@ IMPR_RESU=PROC(nom="IMPR_RESU",op=39,
            ),
 
            b_format_r=BLOC(condition="""((FORMAT == 'RESULTAT')or(FORMAT == 'ASTER'))""",
-                           fr="Format des nombres réels",
+                           fr="Format des nombres réels",
              FORMAT_R        =SIMP(statut='f',typ='TXM',defaut="1PE21.14"),
            ),
 
@@ -23343,8 +23858,7 @@ IMPR_RESU=PROC(nom="IMPR_RESU",op=39,
          ),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 ) ;
-#& MODIF COMMANDE  DATE 11/09/2012   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -23361,7 +23875,7 @@ IMPR_RESU=PROC(nom="IMPR_RESU",op=39,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 IMPR_TABLE=MACRO(nom="IMPR_TABLE",
                  op=OPS('Macro.impr_table_ops.impr_table_ops'),
@@ -23372,16 +23886,16 @@ IMPR_TABLE=MACRO(nom="IMPR_TABLE",
    FORMAT         =SIMP(statut='f',typ='TXM',defaut="TABLEAU",
                          into=("TABLEAU","ASTER","TABLEAU_CROISE","AGRAF","XMGRACE",),),
    b_pilote       =BLOC(condition = "FORMAT == 'XMGRACE'",
-                        fr="Mots-clés propres à XMGRACE",
+                        fr="Mots-clés propres à XMGRACE",
       PILOTE         =SIMP(statut='f',typ='TXM',defaut='',
                            into=('','POSTSCRIPT','EPS','MIF','SVG','PNM','PNG','JPEG','PDF','INTERACTIF'),
                       fr="Pilote de sortie, PNG/JPEG/PDF ne sont pas disponibles sur toutes les installations de xmgrace"),
       UNITE          =SIMP(statut='f',typ='I',val_min=10,val_max=90,defaut=29,
-                           fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
+                           fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
    ),
    b_unite        =BLOC(condition = "FORMAT != 'XMGRACE'",
       UNITE          =SIMP(statut='f',typ='I',defaut=8,
-                           fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
+                           fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
    ),
    FILTRE         =FACT(statut='f',max='**',
       NOM_PARA       =SIMP(statut='o',typ='TXM'),
@@ -23412,57 +23926,56 @@ IMPR_TABLE=MACRO(nom="IMPR_TABLE",
 
    # Mise en page du tableau ou du graphique
    b_tableau = BLOC(condition = "FORMAT == 'TABLEAU'",
-                    fr="Mots-clés propres au format Tableau",
+                    fr="Mots-clés propres au format Tableau",
       SEPARATEUR      =SIMP(statut='f',typ='TXM',defaut=' ',
-                            fr="Séparateur des colonnes du tableau (ex : ' ', ';'...)"),
+                            fr="Séparateur des colonnes du tableau (ex : ' ', ';'...)"),
       COMMENTAIRE     =SIMP(statut='f',typ='TXM',defaut='#',
-                            fr="Caractère indiquant au traceur de fonction que la ligne peut etre ignorée"),
+                            fr="Caractère indiquant au traceur de fonction que la ligne peut etre ignorée"),
       COMM_PARA       =SIMP(statut='f',typ='TXM',defaut='',
-                            fr="Caractère utilisé pour commentariser la ligne des labels de colonnes"),
+                            fr="Caractère utilisé pour commentariser la ligne des labels de colonnes"),
       DEBUT_LIGNE     =SIMP(statut='f',typ='TXM',defaut='',
-                            fr="Caractère de debut de ligne"),
+                            fr="Caractère de debut de ligne"),
       FIN_LIGNE       =SIMP(statut='f',typ='TXM',defaut='\n',
-                            fr="Caractère de fin de ligne"),
+                            fr="Caractère de fin de ligne"),
     ),
 
    # mise en forme pour les formats qui passent par Graph
    b_forme         =BLOC(condition = "FORMAT == 'XMGRACE'",
-                         fr="Données de mise en forme du graphique",
+                         fr="Données de mise en forme du graphique",
       # pour la courbe
       LEGENDE         =SIMP(statut='f',typ='TXM',
-                            fr="Légende associée à la fonction" ),
+                            fr="Légende associée à la fonction" ),
       STYLE           =SIMP(statut='f',typ='I',val_min=0,
-                            fr="Style de la ligne représentant la fonction",),
+                            fr="Style de la ligne représentant la fonction",),
       COULEUR         =SIMP(statut='f',typ='I',val_min=0,
-                            fr="Couleur associée à la fonction",),
+                            fr="Couleur associée à la fonction",),
       MARQUEUR        =SIMP(statut='f',typ='I',val_min=0,
-                            fr="Type du marqueur associé à la fonction",),
+                            fr="Type du marqueur associé à la fonction",),
       FREQ_MARQUEUR   =SIMP(statut='f',typ='I',defaut=0,
-                            fr="Fréquence d impression du marqueur associé à la fonction", ),
+                            fr="Fréquence d impression du marqueur associé à la fonction", ),
       # format du graphique
       BORNE_X         =SIMP(statut='f',typ='R',min=2,max=2,
                             fr="Intervalles de variation des abscisses"),
       BORNE_Y         =SIMP(statut='f',typ='R',min=2,max=2,
-                            fr="Intervalles de variation des ordonnées"),
+                            fr="Intervalles de variation des ordonnées"),
       ECHELLE_X       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),
-                            fr="Type d'échelle pour les abscisses" ),
+                            fr="Type d'échelle pour les abscisses" ),
       ECHELLE_Y       =SIMP(statut='f',typ='TXM',defaut="LIN",into=("LIN","LOG"),
-                            fr="Type d'échelle pour les ordonnées" ),
+                            fr="Type d'échelle pour les ordonnées" ),
       GRILLE_X        =SIMP(statut='f',typ='R',max=1,val_min=0.,
                             fr="Pas du quadrillage vertical" ),
       GRILLE_Y        =SIMP(statut='f',typ='R',max=1,val_min=0.,
                             fr="Pas du quadrillage horizontal" ),
       LEGENDE_X       =SIMP(statut='f',typ='TXM',
-                            fr="Légende associée à l'axe des abscisses" ),
+                            fr="Légende associée à l'axe des abscisses" ),
       LEGENDE_Y       =SIMP(statut='f',typ='TXM',
-                            fr="Légende associée à l'axe des ordonnées" ),
+                            fr="Légende associée à l'axe des ordonnées" ),
    ),
 
    TITRE          =SIMP(statut='f',typ='TXM',max='**'),
    INFO           =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )
-#& MODIF COMMANDE  DATE 28/01/2013   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -23479,24 +23992,23 @@ IMPR_TABLE=MACRO(nom="IMPR_TABLE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 INCLUDE=MACRO(nom="INCLUDE",
               op=OPS("Cata.ops.build_include"),
               UIinfo={"groupes":("Gestion du travail",)},
-              fr="Débranchement vers un fichier de commandes secondaires",
+              fr="Débranchement vers un fichier de commandes secondaires",
               sd_prod=ops.INCLUDE,
               op_init=ops.INCLUDE_context,
               fichier_ini=1,
               regles=(UN_PARMI('UNITE', 'DONNEE')),
          UNITE = SIMP(statut='f', typ='I',
-                      fr="Unité logique à inclure"),
-         DONNEE = SIMP(statut='f', typ='TXM',
-                       fr="Nom du fichier de données à inclure"),
+                      fr="Unité logique à inclure"),
+         DONNEE = SIMP(statut='f', typ='Fichier',
+                       fr="Nom du fichier de données à inclure"),
          INFO  = SIMP(statut='f', typ='I', defaut=1, into=(1, 2)),
 );
-#& MODIF COMMANDE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -23513,13 +24025,13 @@ INCLUDE=MACRO(nom="INCLUDE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 INCLUDE_MATERIAU = MACRO(nom="INCLUDE_MATERIAU",
                          op=OPS("Macro.include_materiau_ops.include_materiau_ops"),
                          sd_prod=mater_sdaster,
-            UIinfo={"groupes":("Modélisation", "Gestion du travail", )},
-            fr="Récupérer les caractéristiques d'un matériau dans le Catalogue Materiaux d'Aster ",
+            UIinfo={"groupes":("Modélisation", "Gestion du travail", )},
+            fr="Récupérer les caractéristiques d'un matériau dans le Catalogue Materiaux d'Aster ",
 
          NOM_AFNOR      = SIMP(statut='o', typ='TXM',),
          TYPE_MODELE    = SIMP(statut='o', typ='TXM', into=("REF", "PAR"),),
@@ -23537,8 +24049,7 @@ INCLUDE_MATERIAU = MACRO(nom="INCLUDE_MATERIAU",
          UNITE_LONGUEUR = SIMP(statut='f', typ='TXM', into=("M", "MM"), defaut="M",),
          INFO           = SIMP(statut='f', typ='I', defaut= 1, into=(1, 2),),
 )
-#& MODIF COMMANDE  DATE 07/02/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -23555,9 +24066,9 @@ INCLUDE_MATERIAU = MACRO(nom="INCLUDE_MATERIAU",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 INFO_EXEC_ASTER=OPER(nom="INFO_EXEC_ASTER",op=35,sd_prod=table_sdaster,
-                    fr="Récupère différentes informations propres à l'exécution en cours",
+                    fr="Récupère différentes informations propres à l'exécution en cours",
                     reentrant='n',
                     UIinfo={"groupes":("Gestion du travail",)},
 
@@ -23567,15 +24078,14 @@ INFO_EXEC_ASTER=OPER(nom="INFO_EXEC_ASTER",op=35,sd_prod=table_sdaster,
          b_etat_unite   =BLOC(condition = "au_moins_un(LISTE_INFO, 'ETAT_UNITE')",
             regles=(UN_PARMI('UNITE','FICHIER'),),
             UNITE          =SIMP(statut='f',typ='I',val_min=1,val_max=99,max=1,
-                                 fr="Unité logique dont on veut obtenir l'état",),
+                                 fr="Unité logique dont on veut obtenir l'état",),
             FICHIER        =SIMP(statut='f',typ='TXM',validators=LongStr(1,255),
-                                 fr="Nom du fichier dont on veut obtenir l'état",),
+                                 fr="Nom du fichier dont on veut obtenir l'état",),
          ),
          TITRE          =SIMP(statut='f',typ='TXM',max='**'),
          INFO           =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 03/04/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -23592,7 +24102,7 @@ INFO_EXEC_ASTER=OPER(nom="INFO_EXEC_ASTER",op=35,sd_prod=table_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 def info_fonction_prod(self,ECART_TYPE,RMS,NOCI_SEISME,MAX,NORME, **args):
    if (RMS         != None): return table_sdaster
@@ -23605,7 +24115,7 @@ def info_fonction_prod(self,ECART_TYPE,RMS,NOCI_SEISME,MAX,NORME, **args):
 INFO_FONCTION=MACRO(nom="INFO_FONCTION",
                     op=OPS('Macro.info_fonction_ops.info_fonction_ops'),
                     sd_prod=info_fonction_prod,
-                    fr="Opérations mathématiques sur des concepts de type fonction, " \
+                    fr="Opérations mathématiques sur des concepts de type fonction, " \
                        "fonction_c ou nappe",
                     reentrant='n',
                     UIinfo={"groupes":("Fonctions",)},
@@ -23613,8 +24123,8 @@ INFO_FONCTION=MACRO(nom="INFO_FONCTION",
          RMS             =FACT(statut='f',fr="Valeur RMS d'une fonction",max='**',
            METHODE         =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
            FONCTION        =SIMP(statut='o',typ=fonction_sdaster ),
-           INST_INIT       =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
-           INST_FIN        =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
+           INST_INIT       =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
+           INST_FIN        =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
            CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
            b_prec_rela=BLOC(condition="(CRITERE=='RELATIF')",
               PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0),),
@@ -23656,10 +24166,10 @@ INFO_FONCTION=MACRO(nom="INFO_FONCTION",
                       PRECISION       =SIMP(statut='o',typ='R'),),
            ),
          ),
-         MAX             =FACT(statut='f',fr="Extrémas locaux d'une fonction",
+         MAX             =FACT(statut='f',fr="Extrémas locaux d'une fonction",
            FONCTION        =SIMP(statut='o',typ=(fonction_sdaster,nappe_sdaster),max='**' ),
            INTERVALLE      =SIMP(statut='f',typ='R',min=2,max='**',
-                               fr ="définition des bornes des intervalles sous forme de couples (xi_i1,xs_i1,xi_i2,xs_i2)"),
+                               fr ="définition des bornes des intervalles sous forme de couples (xi_i1,xs_i1,xi_i2,xs_i2)"),
          ),
          NORME           =FACT(statut='f',fr="Norme L2 d'une fonction",
             FONCTION      =SIMP(statut='o', typ=nappe_sdaster),
@@ -23667,8 +24177,8 @@ INFO_FONCTION=MACRO(nom="INFO_FONCTION",
          ECART_TYPE      =FACT(statut='f',fr="Ecart-type d'une fonction",
             METHODE       =SIMP(statut='f',typ='TXM',defaut="TRAPEZE",into=("SIMPSON","TRAPEZE") ),
             FONCTION      =SIMP(statut='o',typ=fonction_sdaster),
-            INST_INIT     =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
-            INST_FIN      =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
+            INST_INIT     =SIMP(statut='f',typ='R',fr="Instant initial définissant le début du signal" ),
+            INST_FIN      =SIMP(statut='f',typ='R',fr="Instant final définissant la fin du signal" ),
             CRITERE       =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",) ),
             b_prec_rela=BLOC(condition="(CRITERE=='RELATIF')",
                 PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-6,val_min=0.E+0),),
@@ -23677,8 +24187,7 @@ INFO_FONCTION=MACRO(nom="INFO_FONCTION",
          ),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )
-#& MODIF COMMANDE  DATE 22/04/2013   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -23695,17 +24204,17 @@ INFO_FONCTION=MACRO(nom="INFO_FONCTION",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE BOITEAU
+# person_in_charge: olivier.boiteau at edf.fr
 INFO_MODE=OPER(nom="INFO_MODE",op=32,sd_prod=table_sdaster,
-                fr="Calculer, imprimer, et sauvegarder le nombre de valeurs propres dans un contour donné",
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+                fr="Calculer, imprimer, et sauvegarder le nombre de valeurs propres dans un contour donné",
+            UIinfo={"groupes":("Résolution","Dynamique",)},
 
          TYPE_MODE       =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",into=("MODE_COMPLEXE","DYNAMIQUE",
                                                                              "MODE_FLAMB",   "GENERAL"),
                                fr="Type d analyse" ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 
-         b_dynamique =BLOC(condition = "TYPE_MODE == 'DYNAMIQUE'",fr="Recherche du nombre de fréquences propres",
+         b_dynamique =BLOC(condition = "TYPE_MODE == 'DYNAMIQUE'",fr="Recherche du nombre de fréquences propres",
            MATR_RIGI       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r,
                                                  matr_asse_depl_c,matr_asse_gene_c) ),
            MATR_MASS       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r) ),
@@ -23735,7 +24244,7 @@ INFO_MODE=OPER(nom="INFO_MODE",op=32,sd_prod=table_sdaster,
                                 ),
          ),         
 
-         b_complexe  =BLOC(condition = "TYPE_MODE == 'MODE_COMPLEXE'",fr="Recherche du nombre de fréquences propres",
+         b_complexe  =BLOC(condition = "TYPE_MODE == 'MODE_COMPLEXE'",fr="Recherche du nombre de fréquences propres",
            MATR_RIGI       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r,
                                                  matr_asse_depl_c,matr_asse_gene_c) ),
            MATR_MASS       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r,matr_asse_gene_r) ),
@@ -23788,8 +24297,7 @@ INFO_MODE=OPER(nom="INFO_MODE",op=32,sd_prod=table_sdaster,
 #-------------------------------------------------------------------
 
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2010  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -23806,15 +24314,14 @@ INFO_MODE=OPER(nom="INFO_MODE",op=32,sd_prod=table_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE SELLENET N.SELLENET
+# person_in_charge: nicolas.sellenet at edf.fr
 INFO_RESU=PROC(nom="INFO_RESU",op=40,
                UIinfo={"groupes":("Impression","Utilitaires",)},
-               fr="Imprimer tous les champs présents dans une structure de données résultat",
+               fr="Imprimer tous les champs présents dans une structure de données résultat",
                RESULTAT=SIMP(statut='f',typ=resultat_sdaster),
                UNITE=SIMP(statut='f',typ='I',defaut=6),
 );
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2010  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -23831,15 +24338,14 @@ INFO_RESU=PROC(nom="INFO_RESU",op=40,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE GREFFET
+# person_in_charge: nicolas.greffet at edf.fr
 INIT_COMPO=PROC(nom="INIT_COMPO",
                 op=  117,
                 UIinfo={"groupes":("Gestion du travail",)},
                 fr="Initialiser adresse component YACS",
            COMPO           =SIMP(statut='o',typ='I',),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -23856,10 +24362,10 @@ INIT_COMPO=PROC(nom="INIT_COMPO",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: xavier.desroches at edf.fr
 INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe_sdaster,
             UIinfo={"groupes":("Post-traitements",)},
-                  fr="Définition d'une courbe dans un maillage 2D",reentrant='n',
+                  fr="Définition d'une courbe dans un maillage 2D",reentrant='n',
 
          MAILLAGE        =SIMP(statut='o',typ=(maillage_sdaster) ),
 
@@ -23920,8 +24426,7 @@ INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe_sdaster,
          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-3),  
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -23938,10 +24443,10 @@ INTE_MAIL_2D=OPER(nom="INTE_MAIL_2D",op=50,sd_prod=courbe_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: xavier.desroches at edf.fr
 INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface_sdaster,
             UIinfo={"groupes":("Post-traitements",)},
-                  fr="Définir un chemin de type segment de droite dans un maillage 3D",reentrant='n',
+                  fr="Définir un chemin de type segment de droite dans un maillage 3D",reentrant='n',
          MAILLAGE        =SIMP(statut='o',typ=maillage_sdaster),
          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
          GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -23959,8 +24464,7 @@ INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface_sdaster,
          PRECISION       =SIMP(statut='f',typ='R',defaut=1.0E-6),  
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
 )  ;
-#& MODIF COMMANDE  DATE 09/10/2012   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -23977,9 +24481,9 @@ INTE_MAIL_3D=OPER(nom="INTE_MAIL_3D",op=96,sd_prod=surface_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE SELLENET N.SELLENET
+# person_in_charge: nicolas.sellenet at edf.fr
 def lire_champ_prod(TYPE_CHAM=None,**args):
-# Remarque : si cette liste évolue, il faut penser à mettre à jour son
+# Remarque : si cette liste évolue, il faut penser à mettre à jour son
 #            homologue dans macr_adap_mail
   if TYPE_CHAM[0:5] == "NOEU_" : return cham_no_sdaster
   if TYPE_CHAM[0:5] == "CART_" : return carte_sdaster
@@ -23987,7 +24491,7 @@ def lire_champ_prod(TYPE_CHAM=None,**args):
   raise AsException("type de concept resultat non prevu")
 
 LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
-                UIinfo={"groupes":("Lecture","Résultats et champs",)},
+                UIinfo={"groupes":("Lecture","Résultats et champs",)},
                 fr="Lire un champ dans un fichier au format MED et le stocker dans un concept.",
                 reentrant='n',
          MAILLAGE        =SIMP(statut='o',typ=maillage_sdaster,),
@@ -24006,23 +24510,23 @@ LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
                fr="Affecte des valeurs nulles la ou le champ n'est pas defini (sinon il y a NaN)"),
             NUME_PT      =SIMP(statut='f',typ='I'  ,validators=NoRepeat(),max='**',),
             NUME_ORDRE   =SIMP(statut='f',typ='I'  ,validators=NoRepeat(),max='**',
-                           fr="Numero d ordre du champ à lire",ang="Rank of the field to be read" ),
-            INST         =SIMP(statut='f',typ='R',fr="Instant associé",ang="Instant" ),
+                           fr="Numero d ordre du champ à lire",ang="Rank of the field to be read" ),
+            INST         =SIMP(statut='f',typ='R',fr="Instant associé",ang="Instant" ),
 #
             b_precision     =BLOC(condition="(INST != None)",
                   CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),
-                  fr="Critère de précision sur le choix de l'instant associé",
+                  fr="Critère de précision sur le choix de l'instant associé",
                   ang="Accuracy criterium over instant choice" ),
                   b_prec_rela=BLOC(condition="(CRITERE=='RELATIF')",
                       PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-6,
-                      fr="Précision sur le choix de l'instant associé",ang="Accuracy over instant choice" ),),
+                      fr="Précision sur le choix de l'instant associé",ang="Accuracy over instant choice" ),),
                   b_prec_abso=BLOC(condition="(CRITERE=='ABSOLU')",
                       PRECISION       =SIMP(statut='o',typ='R',
-                      fr="Précision sur le choix de l'instant associé",ang="Accuracy over instant choice" ),),),
+                      fr="Précision sur le choix de l'instant associé",ang="Accuracy over instant choice" ),),),
 #
             NOM_MAIL_MED =SIMP(statut='f',typ='TXM',),
                   ),
-#        Remarque : si cette liste évolue, il faut penser à mettre à jour son
+#        Remarque : si cette liste évolue, il faut penser à mettre à jour son
 #                   homologue dans macr_adap_mail
          TYPE_CHAM       =SIMP(statut='o',typ='TXM',into=C_TYPE_CHAM_INTO()),
          b_modele =BLOC(condition = "TYPE_CHAM!=None and (TYPE_CHAM[0:2] == 'EL')",
@@ -24030,8 +24534,7 @@ LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
                   ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -24048,7 +24551,7 @@ LIRE_CHAMP=OPER(nom="LIRE_CHAMP",op= 192,sd_prod=lire_champ_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 def lire_fonction_prod(self,TYPE,**args):
@@ -24060,8 +24563,8 @@ def lire_fonction_prod(self,TYPE,**args):
 LIRE_FONCTION=MACRO(nom="LIRE_FONCTION",
                     op=OPS('Macro.lire_fonction_ops.lire_fonction_ops'),
                     sd_prod=lire_fonction_prod,
-                    fr="Lit les valeurs réelles dans un fichier de données représentant une " \
-                       "fonction et crée un concept de type fonction ou nappe",
+                    fr="Lit les valeurs réelles dans un fichier de données représentant une " \
+                       "fonction et crée un concept de type fonction ou nappe",
                     reentrant='n',
                     UIinfo={"groupes":("Lecture","Fonctions",)},
          FORMAT          =SIMP(statut='f',typ='TXM',into=("LIBRE",),defaut="LIBRE"  ),
@@ -24082,7 +24585,7 @@ LIRE_FONCTION=MACRO(nom="LIRE_FONCTION",
            NOM_PARA_FONC   =SIMP(statut='o',typ='TXM',into=C_PARA_FONCTION() ),
            INDIC_ABSCISSE  =SIMP(statut='o',typ='I',min=2,max=2,),
            INTERPOL_FONC   =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG"),
-                                 fr="Type d'interpolation pour les abscisses et les ordonnées de la fonction"),
+                                 fr="Type d'interpolation pour les abscisses et les ordonnées de la fonction"),
            PROL_DROITE_FONC=SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
            PROL_GAUCHE_FONC=SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
            DEFI_FONCTION   =FACT(statut='f',max='**',
@@ -24091,16 +24594,15 @@ LIRE_FONCTION=MACRO(nom="LIRE_FONCTION",
          NOM_PARA        =SIMP(statut='o',typ='TXM',into=C_PARA_FONCTION() ),
          NOM_RESU        =SIMP(statut='f',typ='TXM',defaut="TOUTRESU"),
          INTERPOL        =SIMP(statut='f',typ='TXM',max=2,defaut="LIN",into=("NON","LIN","LOG"),
-                               fr="Type d'interpolation pour les abscisses et les ordonnées de la " \
-                                  "fonction ou bien pour le paramètre de la nappe."),
+                               fr="Type d'interpolation pour les abscisses et les ordonnées de la " \
+                                  "fonction ou bien pour le paramètre de la nappe."),
          PROL_DROITE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
          PROL_GAUCHE     =SIMP(statut='f',typ='TXM',defaut="EXCLU",into=("CONSTANT","LINEAIRE","EXCLU") ),
          VERIF           =SIMP(statut='f',typ='TXM',defaut="CROISSANT",into=("CROISSANT","NON") ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2005  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -24117,11 +24619,11 @@ LIRE_FONCTION=MACRO(nom="LIRE_FONCTION",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE DEVESA G.DEVESA
+# person_in_charge: Georges-cc.devesa at edf.fr
 LIRE_FORC_MISS=OPER(nom="LIRE_FORC_MISS",op= 179,sd_prod=vect_asse_gene,
-                    fr="Création d'un vecteur assemblé à partir d'une base modale",
+                    fr="Création d'un vecteur assemblé à partir d'une base modale",
                     reentrant='n',
-            UIinfo={"groupes":("Matrices et vecteurs","Outils-métier",)},           
+            UIinfo={"groupes":("Matrices et vecteurs","Outils-métier",)},           
          BASE            =SIMP(statut='o',typ=mode_meca),
          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
          FREQ_EXTR       =SIMP(statut='o',typ='R',max=1),
@@ -24133,8 +24635,6 @@ LIRE_FORC_MISS=OPER(nom="LIRE_FORC_MISS",op= 179,sd_prod=vect_asse_gene,
          NOM_RESU_FORC   =SIMP(statut='f',typ='TXM' ),         
 )  ;
 
-#& MODIF COMMANDE  DATE 31/01/2012   AUTEUR IDOUX L.IDOUX 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -24151,11 +24651,11 @@ LIRE_FORC_MISS=OPER(nom="LIRE_FORC_MISS",op= 179,sd_prod=vect_asse_gene,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE DEVESA G.DEVESA
+# person_in_charge: Georges-cc.devesa at edf.fr
 LIRE_IMPE_MISS=OPER(nom="LIRE_IMPE_MISS",op= 164,sd_prod=matr_asse_gene_c,
-                    fr="Création d une matrice assemblée à partir de base modale",
+                    fr="Création d une matrice assemblée à partir de base modale",
                     reentrant='n',
-            UIinfo={"groupes":("Matrices et vecteurs","Outils-métier",)},           
+            UIinfo={"groupes":("Matrices et vecteurs","Outils-métier",)},           
          BASE            =SIMP(statut='o',typ=mode_meca ),
          NUME_DDL_GENE   =SIMP(statut='o',typ=nume_ddl_gene ),
          FREQ_EXTR       =SIMP(statut='f',typ='R',max=1),
@@ -24166,8 +24666,6 @@ LIRE_IMPE_MISS=OPER(nom="LIRE_IMPE_MISS",op= 164,sd_prod=matr_asse_gene_c,
          SYME            =SIMP(statut='f',typ='TXM',defaut="NON",into=("NON","OUI") ),
 )  ;
 
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -24184,14 +24682,14 @@ LIRE_IMPE_MISS=OPER(nom="LIRE_IMPE_MISS",op= 164,sd_prod=matr_asse_gene_c,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 
 
 LIRE_INTE_SPEC=MACRO(nom="LIRE_INTE_SPEC",
                      op=OPS('Macro.lire_inte_spec_ops.lire_inte_spec_ops'),
                      sd_prod=interspectre,
                      fr="Lecture sur un fichier externe de fonctions complexes pour " \
-                        "créer une matrice interspectrale",
+                        "créer une matrice interspectrale",
                      reentrant='n',
             UIinfo={"groupes":("Lecture","Fonctions",)},
          UNITE           =SIMP(statut='o',typ='I' ),
@@ -24207,8 +24705,7 @@ LIRE_INTE_SPEC=MACRO(nom="LIRE_INTE_SPEC",
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 21/01/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -24225,9 +24722,9 @@ LIRE_INTE_SPEC=MACRO(nom="LIRE_INTE_SPEC",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op=   1,sd_prod=maillage_sdaster,
-                   fr="Crée un maillage par lecture d'un fichier au format Aster ou Med",
+                   fr="Crée un maillage par lecture d'un fichier au format Aster ou Med",
                    ang="Readings of a mesh file",
                    reentrant='n',
             UIinfo={"groupes":("Lecture","Maillage",)},
@@ -24248,11 +24745,11 @@ LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op=   1,sd_prod=maillage_sdaster,
          ),
 
          b_format_med =BLOC( condition = " ( FORMAT == 'MED' ) " ,
-                             fr="Informations complémentaires pour la lecture MED.",
+                             fr="Informations complémentaires pour la lecture MED.",
                              ang="Further information for MED readings.",
 
-# Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
-# le maillage y a été enregistré. Par défaut, on va le chercher sous le nom du concept à créer.
+# Pour une lecture dans un fichier MED, on peut préciser le nom sous lequel
+# le maillage y a été enregistré. Par défaut, on va le chercher sous le nom du concept à créer.
             NOM_MED    = SIMP(statut='f',typ='TXM',
                               fr="Nom du maillage dans le fichier MED.",
                               ang="Name of the mesh into the MED file.",),
@@ -24269,42 +24766,7 @@ LIRE_MAILLAGE=OPER(nom="LIRE_MAILLAGE",op=   1,sd_prod=maillage_sdaster,
 
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
-# 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 2 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, WRITE TO EDF R&D CODE_ASTER,       
-#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
-# ======================================================================
-# RESPONSABLE DEVESA G.DEVESA
-def lire_miss_3d_prod(TYPE_RESU,**args):
-  if TYPE_RESU == "TRANS" : return dyna_trans
-  if TYPE_RESU == "HARMO" : return dyna_harmo
-  raise AsException("type de concept resultat non prevu")
 
-LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
-                  fr="Restituer sur base physique une réponse harmonique ou transitoire issue de MISS3D",
-                  reentrant='n',
-            UIinfo={"groupes":("Lecture","Outils-métier",)},
-         MACR_ELEM_DYNA  =SIMP(statut='o',typ=macr_elem_dyna ),
-         UNITE           =SIMP(statut='f',typ='I',defaut= 27 ),
-         NOM             =SIMP(statut='f',typ='TXM' ),
-         TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="TRANS",into=("TRANS","HARMO") ),
-         TITRE           =SIMP(statut='f',typ='TXM',max='**'),
-)  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -24321,12 +24783,12 @@ LIRE_MISS_3D=OPER(nom="LIRE_MISS_3D",op= 163,sd_prod=lire_miss_3d_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE POTAPOV S.POTAPOV
+# person_in_charge: serguei.potapov at edf.fr
 
 LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
-                 fr="Lire le fichier de résultats au format IDEAS produit par le logiciel EUROPLEXUS",
+                 fr="Lire le fichier de résultats au format IDEAS produit par le logiciel EUROPLEXUS",
                  reentrant='n',
-            UIinfo={"groupes":("Lecture","Outils-métier",)},
+            UIinfo={"groupes":("Lecture","Outils-métier",)},
          regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
          UNITE           =SIMP(statut='f',typ='I',defaut= 19 ),
          FORMAT          =SIMP(statut='f',typ='TXM',defaut="IDEAS",into=("IDEAS",)),
@@ -24346,8 +24808,7 @@ LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
                    PRECISION       =SIMP(statut='o',typ='R',),),),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 19/03/2013   AUTEUR BRIE N.BRIE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -24364,7 +24825,7 @@ LIRE_PLEXUS=OPER(nom="LIRE_PLEXUS",op= 184,sd_prod=evol_char,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 
 def lire_resu_prod(TYPE_RESU,**args):
   if TYPE_RESU == "EVOL_CHAR" :  return evol_char
@@ -24378,105 +24839,14 @@ def lire_resu_prod(TYPE_RESU,**args):
   if TYPE_RESU == "EVOL_VARC" :  return evol_varc
   raise AsException("type de concept resultat non prevu")
 
-# pour éviter d'écrire 3 fois cette liste :
-def l_nom_cham_pas_elga(): return (
-     "ACCE",
-     "ACCE_ABSOLU",
-     "CRIT_ELNO",
-     "DERA_ELNO",
-     "DERA_NOEU",
-     "DEDE_ELNO",
-     "DEDE_NOEU",
-     "DEGE_ELNO",
-     "DEGE_NOEU",
-     "DEPL",
-     "DEPL_ABSOLU",
-     "DESI_ELNO",
-     "DESI_NOEU",
-     "DETE_ELNO",
-     "DETE_NOEU",
-     "DURT_ELNO",
-     "DURT_NOEU",
-     "ECIN_ELEM",
-     "EFGE_ELNO",
-     "EFGE_NOEU",
-     "ENDO_ELNO",
-     "ENDO_NOEU",
-     "ENEL_ELNO",
-     "ENEL_NOEU",
-     "EPGR_ELNO",
-     "EPME_ELNO",
-     "EPMG_ELNO",
-     "EPMG_NOEU",
-     "EPOT_ELEM",
-     "EPSA_ELNO",
-     "EPSA_NOEU",
-     "EPSG_ELNO",
-     "EPSG_NOEU",
-     "EPSI_ELNO",
-     "EPSI_NOEU",
-     "EPSP_ELNO",
-     "EPSP_NOEU",
-     "EPMQ_ELNO",
-     "EPEQ_ELNO",
-     "SIEQ_ELNO",
-     "EPMQ_NOEU",
-     "EPEQ_NOEU",
-     "SIEQ_NOEU",
-     "ERRE_ELEM_NOZ1",
-     "ERRE_ELEM_NOZ2",
-     "ERRE_ELNO_ELGA",
-     "ERRE_NOEU_ELGA",
-     "ERTH_ELEM_TEMP",
-     "ERTH_ELNO_ELEM",
-     "ETOT_ELEM",
-     "ETOT_ELNO",
-     "FLUX_ELNO",
-     "FLUX_NOEU",
-     "FORC_NODA",
-     "FSUR_2D",
-     "FSUR_3D",
-     "FVOL_2D",
-     "FVOL_3D",
-     "GRAD_NOEU_THETA",
-     "HYDR_ELNO",
-     "HYDR_NOEU",
-     "INTE_ELNO",
-     "INTE_NOEU",
-     "IRRA",
-     "META_ELNO",
-     "META_NOEU",
-     "PRES",
-     "PRME_ELNO",
-     "PRAC_ELNO",
-     "PRAC_NOEU",
-     "REAC_NODA",
-     "SIEF_ELNO",
-     "SIEF_ELNO",
-     "SIEF_NOEU",
-     "SIEF_NOEU",
-     "SIGM_ELNO",
-     "SIGM_NOEU",
-     "SIZ1_NOEU",
-     "SIZ2_NOEU",
-     "SIPO_ELNO",
-     "SIPO_NOEU",
-     "TEMP",
-     "THETA",
-     "VALE_CONT",
-     "VARI_ELNO",
-     "VARI_ELNO",
-     "VARI_NOEU",
-     "VARI_NOEU",
-     "VITE",
-     "VITE_ABSOLU",
-     "VITE_VENT",
-                           )
+# pour éviter d'écrire 3 fois cette liste :
+def l_nom_cham_pas_elga() :
+     return list(set(C_NOM_CHAM_INTO())-set(C_NOM_CHAM_INTO('ELGA',)))
 
 LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,reentrant='n',
             UIinfo={"groupes":("Lecture","Resultats et champs",)},
                fr="Lire dans un fichier, soit format IDEAS, soit au format ENSIGHT soit au format MED,"
-                 +" des champs et les stocker dans une SD résultat",
+                 +" des champs et les stocker dans une SD résultat",
 
 
 # 0) mots cles generaux :
@@ -24493,7 +24863,7 @@ LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,reentrant='n',
          regles=(UN_PARMI('MAILLAGE','MODELE'),),
          MAILLAGE        =SIMP(statut='f',typ=maillage_sdaster),
          MODELE          =SIMP(statut='f',typ=modele_sdaster),
-         COMP_INCR       =C_COMP_INCR(),
+         COMPORTEMENT       =C_COMPORTEMENT(),
          NB_VARI         =SIMP(statut='f',typ='I' ),
 
          CHAM_MATER      =SIMP(statut='f',typ=cham_mater,),
@@ -24625,8 +24995,7 @@ LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,reentrant='n',
            ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 14/02/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -24643,7 +25012,7 @@ LIRE_RESU=OPER(nom="LIRE_RESU",op=150,sd_prod=lire_resu_prod,reentrant='n',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 
 LIRE_TABLE=MACRO(nom="LIRE_TABLE",
@@ -24660,8 +25029,6 @@ LIRE_TABLE=MACRO(nom="LIRE_TABLE",
          INFO            = SIMP(statut='f', typ='I', into=(1, 2), ),
          )  ;
 
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2005  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -24678,12 +25045,12 @@ LIRE_TABLE=MACRO(nom="LIRE_TABLE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE ANDRIAM H.ANDRIAMBOLOLONA
+# person_in_charge: harinaivo.andriambololona at edf.fr
 
 MAC_MODES=OPER(nom="MAC_MODES",op=  141,sd_prod=table_sdaster,
                fr="Critere orthogonalite de modes propres",
                reentrant='n',
-               UIinfo={"groupes":("Résolution","Dynamique",)},
+               UIinfo={"groupes":("Résolution","Dynamique",)},
                regles=(PRESENT_PRESENT('IERI','MATR_ASSE'),),
          BASE_1     =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_flamb) ),
          BASE_2     =SIMP(statut='o',typ=(mode_meca,mode_meca_c,mode_flamb) ),
@@ -24692,9 +25059,7 @@ MAC_MODES=OPER(nom="MAC_MODES",op=  141,sd_prod=table_sdaster,
          TITRE      =SIMP(statut='f',typ='TXM',max='**'),
          INFO       =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 03/04/2013   AUTEUR NICOLAS G.NICOLAS 
-# -*- coding: iso-8859-1 -*-
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -24711,7 +25076,7 @@ MAC_MODES=OPER(nom="MAC_MODES",op=  141,sd_prod=table_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GNICOLAS G.NICOLAS
+# person_in_charge: gerald.nicolas at edf.fr
 #
 def macr_adap_mail_prod(self, MAJ_CHAM, ADD_CHAM, ADAPTATION, **args):
 #
@@ -24730,7 +25095,7 @@ def macr_adap_mail_prod(self, MAJ_CHAM, ADD_CHAM, ADAPTATION, **args):
 #
   #print "MAJ_CHAM =", MAJ_CHAM
   if MAJ_CHAM is not None :
-# Remarque : la liste qui suit doit etre conforme à son homologue de LIRE_CHAMP
+# Remarque : la liste qui suit doit etre conforme à son homologue de LIRE_CHAMP
     for ch in MAJ_CHAM:
       t=ch['TYPE_CHAM']
       if t[0:5] == "NOEU_":self.type_sdprod(ch['CHAM_MAJ'],cham_no_sdaster)
@@ -24770,14 +25135,14 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 # 2.2.1. Le concept du maillage final (sortie)
 #
     MAILLAGE_NP1 = SIMP(statut='o',typ=CO,
-                        fr="Maillage après adaptation",
+                        fr="Maillage après adaptation",
                         ang="Mesh after adaptation" ),
 #
 # 2.2.2. Eventuellement, on peut produire un maillage annexe
-#      Actuellement, c'est le maillage n+1, mais de degré différent.
+#      Actuellement, c'est le maillage n+1, mais de degré différent.
 #
     MAILLAGE_NP1_ANNEXE = SIMP(statut='f',typ=CO,
-                              fr="Maillage annexe après adaptation",
+                              fr="Maillage annexe après adaptation",
                               ang="Additional mesh after adaptation" ),
 #
   ) ,
@@ -24787,8 +25152,8 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 #  . Raffinement seul, selon un champ
 #  . Deraffinement seul, selon un champ
 #  . Raffinement et deraffinement, selon des zones geometriques
-#  . Raffinement uniforme : toutes les mailles sont divisées
-#  . Deraffinement uniforme : toutes les mailles sont regroupées
+#  . Raffinement uniforme : toutes les mailles sont divisées
+#  . Deraffinement uniforme : toutes les mailles sont regroupées
 #  . Modification : le maillage subit des transformations specifiques
 #  . Rien : le maillage est le meme a la sortie et a l'entree
 #
@@ -24804,12 +25169,12 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
   b_champ = BLOC( condition = " (ADAPTATION == 'RAFF_DERA') or \
                                 (ADAPTATION == 'RAFFINEMENT') or \
                                 (ADAPTATION == 'DERAFFINEMENT') " ,
-                  fr="Pour une adaptation libre, choix du champ définissant la région à raffiner/déraffiner",
+                  fr="Pour une adaptation libre, choix du champ définissant la région à raffiner/déraffiner",
                   ang="For a free adaptation, selection of the field that defines the area for refinment/unrefinement",
 #
     regles=(UN_PARMI('CHAM_GD','RESULTAT_N')),
 #
-# 4.1. Reperage de la région a raffiner a l'aide d'un champ
+# 4.1. Reperage de la région a raffiner a l'aide d'un champ
 #
 # 4.1.1. Sous forme de champ de grandeur
 #
@@ -24820,12 +25185,12 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 # 4.1.2. Sous forme de concept resultat_sdaster
 #
     RESULTAT_N = SIMP(statut='f',typ=(evol_elas,evol_noli,evol_ther) ,
-                      fr="Concept résultat Code_Aster contenant le champ",
+                      fr="Concept résultat Code_Aster contenant le champ",
                       ang="The Code_Aster result with the field" ),
 #
     b_champ_adaptation = BLOC(condition="(RESULTAT_N != None)",
       NOM_CHAM = SIMP(statut='o',typ='TXM',validators=NoRepeat(),into=C_NOM_CHAM_INTO(),
-                        fr="Champ dans le résultat",
+                        fr="Champ dans le résultat",
                         ang="The field in the result structure" ),
     ),
 #
@@ -24835,10 +25200,10 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
                           fr="Liste des composante(s) retenue(s) pour le champ.",
                           ang="List of the selected component(s) for the field." ),
 #
-# 4.1.5. Le paramètre temporel pour le champ
+# 4.1.5. Le paramètre temporel pour le champ
 #
     b_parametre_temporel = BLOC(condition="(RESULTAT_N != None)",
-                                fr="Choix éventuel du paramètre temporel pour le champ",
+                                fr="Choix éventuel du paramètre temporel pour le champ",
                                 ang="Time selection for the field (option)",
 #
       regles=(EXCLUS('NUME_ORDRE','INST'),),
@@ -24846,31 +25211,31 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 # 4.1.5.1. Soit le numero d'ordre
 #
       NUME_ORDRE = SIMP(statut='f',typ='I',
-                        fr="Numéro d ordre",
+                        fr="Numéro d ordre",
                         ang="Rank" ),
 #
 # 4.1.5.2. Soit l'instant
 # 4.1.5.2.1. Sa valeur
 #
       INST       = SIMP(statut='f',typ='R',
-                        fr="Instant associé",
+                        fr="Instant associé",
                         ang="Instant" ),
 #
-# 4.1.5.2.2. La précision du choix de l'instant
+# 4.1.5.2.2. La précision du choix de l'instant
 #
       b_precision = BLOC(condition="(INST != None)",
-                         fr="Choix de la précision du choix de l'instant",
+                         fr="Choix de la précision du choix de l'instant",
                          ang="Precision for the choice of the instant",
         CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF", "ABSOLU",),
-                         fr="Critère de précision sur le choix de l'instant associé",
+                         fr="Critère de précision sur le choix de l'instant associé",
                          ang="Accuracy criterium over the choice of the instant"),
         b_prec_rela=BLOC(condition="(CRITERE=='RELATIF')",
             PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-6,
-                             fr="Précision relative sur le choix de l'instant associé",
+                             fr="Précision relative sur le choix de l'instant associé",
                              ang="Relative accuracy over the choice of the instant"),),
         b_prec_abso=BLOC(condition="(CRITERE=='ABSOLU')",
             PRECISION       =SIMP(statut='o',typ='R',
-                             fr="Précision absolue sur le choix de l'instant associé",
+                             fr="Précision absolue sur le choix de l'instant associé",
                              ang="Absolute accuracy over the choice of the instant"),),
       ),
 #
@@ -24889,11 +25254,11 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
                         fr="Usage du champ : la valeur par maille ou le saut entre mailles voisines",
                         ang="Use of the field: value over every mesh or jump between the neighbours" ),
 #
-# 4.1.8. Initialisation de l'adaptation : raffinement ou déraffinement
+# 4.1.8. Initialisation de l'adaptation : raffinement ou déraffinement
 #
-    ADAP_INIT = SIMP(statut='f',typ='TXM',defaut="GARDER",into=("GARDER", "RAFFINER", "DERAFFINER"),
-                        fr="Initialisation de l'adaptation dans les régions sans indicateur : garder, raffiner ou déraffiner",
-                        ang="Initialization of the adaptation in the areas without indicator: keep, refine or unrefine" ),
+    ADAP_INIT = SIMP(statut='f',typ='TXM',defaut="GARDER",into=("GARDER", "DERAFFINER"),
+                        fr="Initialisation de l'adaptation dans les régions sans indicateur : garder ou déraffiner",
+                        ang="Initialization of the adaptation in the areas without indicator: keep or unrefine" ),
 #
   ) ,
 #
@@ -24903,22 +25268,22 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 #
   b_critere_de_raffinement = BLOC( condition = " (ADAPTATION == 'RAFF_DERA') or \
                                                  (ADAPTATION == 'RAFFINEMENT') " ,
-                                fr="Critère de raffinement.",
+                                fr="Critère de raffinement.",
                                 ang="Refinement threshold.",
 #
     regles=(UN_PARMI ( 'CRIT_RAFF_ABS', 'CRIT_RAFF_REL', 'CRIT_RAFF_PE', 'CRIT_RAFF_MS' ),),
 #
     CRIT_RAFF_ABS = SIMP(statut='f',typ='R',
-                         fr="Critère absolu",
+                         fr="Critère absolu",
                          ang="Absolute threshold" ),
-    CRIT_RAFF_REL = SIMP(statut='f',typ='R',
-                         fr="Critère relatif : fraction réelle entre 0. et 1.",
+    CRIT_RAFF_REL = SIMP(statut='f',typ='R',val_min=0.0,val_max=1.0,
+                         fr="Critère relatif : fraction réelle entre 0. et 1.",
                          ang="Relative threshold : ratio between 0. and 1." ),
-    CRIT_RAFF_PE  = SIMP(statut='f',typ='R',
-                         fr="Pourcentage de mailles : fraction réelle entre 0. et 1.",
+    CRIT_RAFF_PE  = SIMP(statut='f',typ='R',val_min=0.0,val_max=1.0,
+                         fr="Pourcentage de mailles : fraction réelle entre 0. et 1.",
                          ang="Percentage of meshes: ratio between 0. and 1." ),
     CRIT_RAFF_MS  = SIMP(statut='f',typ='R',
-                         fr="Critère absolu valant moyenne + n*sigma, n étant > 0",
+                         fr="Critère absolu valant moyenne + n*sigma, n étant > 0",
                          ang="Absolute threshold: mean + n*sigma, with n > 0" ),
   ) ,
 #
@@ -24926,33 +25291,33 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 #
   b_critere_de_deraffinement = BLOC( condition = " (ADAPTATION == 'RAFF_DERA') or \
                                                    (ADAPTATION == 'DERAFFINEMENT') " ,
-                                     fr="Critère de déraffinement.",
+                                     fr="Critère de déraffinement.",
                                      ang="Unrefinement threshold.",
 #
     regles=(UN_PARMI ( 'CRIT_DERA_ABS', 'CRIT_DERA_REL', 'CRIT_DERA_PE', 'CRIT_DERA_MS' ),),
 #
     CRIT_DERA_ABS = SIMP(statut='f',typ='R' ,
-                         fr="Critère absolu",
+                         fr="Critère absolu",
                          ang="Absolute threshold" ),
-    CRIT_DERA_REL = SIMP(statut='f',typ='R',
-                         fr="Critère relatif : fraction réelle entre 0. et 1.",
+    CRIT_DERA_REL = SIMP(statut='f',typ='R',val_min=0.0,val_max=1.0,
+                         fr="Critère relatif : fraction réelle entre 0. et 1.",
                          ang="Relative threshold: ratio between 0. and 1." ),
-    CRIT_DERA_PE  = SIMP(statut='f',typ='R',
-                         fr="Pourcentage de mailles : fraction réelle entre 0. et 1.",
+    CRIT_DERA_PE  = SIMP(statut='f',typ='R',val_min=0.0,val_max=1.0,
+                         fr="Pourcentage de mailles : fraction réelle entre 0. et 1.",
                          ang="Percentage of meshes: ratio between 0. and 1." ),
     CRIT_DERA_MS  = SIMP(statut='f',typ='R',
-                         fr="Critère absolu valant moyenne - n*sigma, n étant > 0",
+                         fr="Critère absolu valant moyenne - n*sigma, n étant > 0",
                          ang="Absolute threshold: mean - n*sigma, with n > 0" ),
   ) ,
 #
-# 6. Pour de l'adaptation par zone, définitions des zones
+# 6. Pour de l'adaptation par zone, définitions des zones
 #
   b_zone = BLOC( condition = " (ADAPTATION == 'RAFF_DERA_ZONE') " ,
-                 fr="Pour une adaptation selon une zone à raffiner",
+                 fr="Pour une adaptation selon une zone à raffiner",
                  ang="For adaptation among a zone",
 #
     ZONE = FACT(statut='o',min=1,max='**',
-                fr="Définition de zones à raffiner.",
+                fr="Définition de zones à raffiner.",
                 ang="Refined zone definition.",
 #
 # 6.1. Type de la zone
@@ -24963,9 +25328,9 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 #
 # 6.2. Usage de la zone
 #
-      USAGE = SIMP(statut='f',typ='TXM',into=("RAFFINEMENT", "DERAFFINEMENT"),defaut="RAFFINEMENT",
-                   fr="Zone pour raffiner ou déraffiner",
-                   ang="Zone: refinement or unrefinement" ),
+      USAGE = SIMP(statut='f',typ='TXM',into=("RAFFINEMENT","DERAFFINEMENT"),defaut="RAFFINEMENT",
+                   fr="Zone pour raffiner",
+                   ang="Zone: refinement" ),
 #
 # Ne sachant pas exploiter les blocs, je mets des regles
 #
@@ -24991,7 +25356,7 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
                     fr="Abscisse maximum de la boite",
                     ang="Maximum X for the box"),
       Y_MINI = SIMP(statut='f',typ='R',
-                    fr="Ordonnée minimum de la boite",
+                    fr="Ordonnée minimum de la boite",
                     ang="Minimum Y for the box"),
       Y_MAXI = SIMP(statut='f',typ='R',
                       fr="Abscisse maximum de la boite",
@@ -25028,10 +25393,10 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 ##gn                           fr="X et Y du centre d'un disque plein ou perce, d'une sphere.",
 ##gn                           ang="X and Y of the centre of a disk or of a sphere.",
       X_CENTRE = SIMP(statut='f',typ='R',
-                      fr="Abscisse du centre du disque ou de la sphère",
+                      fr="Abscisse du centre du disque ou de la sphère",
                       ang="X for the center of the disk or of the sphere"),
       Y_CENTRE = SIMP(statut='f',typ='R',
-                      fr="Ordonnée du centre du disque ou de la sphère",
+                      fr="Ordonnée du centre du disque ou de la sphère",
                       ang="Y for the center of the disk or of the sphere"),
 ##gn      ) ,
 #
@@ -25041,7 +25406,7 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 ##gn                       fr="Cote du centre de la sphere.",
 ##gn                       ang="Z for the center of the sphere.",
        Z_CENTRE = SIMP(statut='f',typ='R',
-                       fr="Cote du centre de la sphère",
+                       fr="Cote du centre de la sphère",
                        ang="Z for the center of the sphere"),
 ##gn      ) ,
 #
@@ -25051,10 +25416,10 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 ##gn                                fr="Le rayon d'un disque perce ou d'un tuyau.",
 ##gn                                ang="The radius of a holed disk or of a pipe.",
       RAYON_INT = SIMP(statut='f',typ='R',
-                       fr="Rayon intérieur",
+                       fr="Rayon intérieur",
                        ang="Internal radius"),
       RAYON_EXT = SIMP(statut='f',typ='R',
-                       fr="Rayon extérieur",
+                       fr="Rayon extérieur",
                        ang="External radius"),
 ##gn      ) ,
 #
@@ -25067,7 +25432,7 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
                    fr="Abscisse du vecteur directeur de l'axe",
                    ang="X for the axial vector"),
       Y_AXE = SIMP(statut='f',typ='R',
-                   fr="Ordonnée du vecteur directeur de l'axe",
+                   fr="Ordonnée du vecteur directeur de l'axe",
                    ang="Y for the axial vector"),
       Z_AXE = SIMP(statut='f',typ='R',
                    fr="Cote du vecteur directeur de l'axe",
@@ -25076,7 +25441,7 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
                     fr="Abscisse d'un point de la base, sur l'axe",
                     ang="X for the basis, on the axis"),
       Y_BASE = SIMP(statut='f',typ='R',
-                    fr="Ordonnée d'un point de la base, sur l'axe",
+                    fr="Ordonnée d'un point de la base, sur l'axe",
                     ang="Y for the basis, on the axis"),
       Z_BASE = SIMP(statut='f',typ='R',
                     fr="Cote d'un point de la base, sur l'axe",
@@ -25105,7 +25470,7 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
                     ang="Maximum level for the refinement"),
 #
     DIAM_MIN = SIMP(statut='f',typ='R',
-                    fr="Diamètre minimal des mailles",
+                    fr="Diamètre minimal des mailles",
                     ang="Minimal diameter for the meshes" ),
 #
   ) ,
@@ -25115,10 +25480,10 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
   b_niveau_minimum = BLOC( condition = " (ADAPTATION == 'RAFF_DERA') or \
                                          (ADAPTATION == 'DERAFFINEMENT') or \
                                          (ADAPTATION == 'DERAFFINEMENT_UNIFORME') " ,
-                           fr="Niveau minimum de profondeur de déraffinement",
+                           fr="Niveau minimum de profondeur de déraffinement",
                            ang="Minimum level for the unrefinement",
     NIVE_MIN = SIMP(statut='f',typ='I',
-                    fr="Niveau minimum de profondeur de déraffinement",
+                    fr="Niveau minimum de profondeur de déraffinement",
                     ang="Minimum level for the unrefinement"),
   ) ,
 #
@@ -25142,47 +25507,47 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
                     ang="List of the groups of nodes for filtering of the adaptation." ),
   ) ,
 #
-# 9. Suivi d'une frontière
+# 9. Suivi d'une frontière
 #
-# 9.1. Definition d'une frontière par un maillage (valable seulement pour des frontières 1D)
+# 9.1. Definition d'une frontière par un maillage (valable seulement pour des frontières 1D)
 #
   MAILLAGE_FRONTIERE = SIMP(statut='f',typ=maillage_sdaster,
-                           fr="Maillage de la frontière discrète à suivre",
+                           fr="Maillage de la frontière discrète à suivre",
                            ang="Discrete boundary mesh" ),
 #
   b_FRONTIERE = BLOC( condition = " MAILLAGE_FRONTIERE != None " ,
-                      fr="Information complémentaire sur la frontière discrète",
+                      fr="Information complémentaire sur la frontière discrète",
                       ang="Further information about discrete boundary",
 #
     GROUP_MA_FRONT = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
-                          fr="Liste des groupes de mailles définissant la frontière discrète",
+                          fr="Liste des groupes de mailles définissant la frontière discrète",
                           ang="Mesh groups which define the discrete boundary" ),
 #
   ) ,
 #
-# 9.2. Definition analytique d'une frontière
+# 9.2. Definition analytique d'une frontière
 #
   FRONTIERE_ANALYTIQUE = FACT(statut='f',max='**',
-                              fr="Definition analytique de frontières a suivre.",
+                              fr="Definition analytique de frontières a suivre.",
                               ang="Analytical definition of a boundary.",
 #
-# 9.2.1. Nom de la frontière
+# 9.2.1. Nom de la frontière
 #
     NOM = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=1,
-               fr="Nom de la frontière analytique",
+               fr="Nom de la frontière analytique",
                ang="Name of the analytic boundary" ),
 #
-# 9.2.2. Type de la frontière
+# 9.2.2. Type de la frontière
 #
-    TYPE = SIMP(statut='o',typ='TXM',into=("SPHERE", "CYLINDRE", "CONE_A", "CONE_R"),
-                fr="Type de la frontière analytique",
+    TYPE = SIMP(statut='o',typ='TXM',into=("SPHERE", "CYLINDRE"),
+                fr="Type de la frontière analytique",
                 ang="Type of the analytic boundary" ),
 #
-# 9.2.3. Pour une sphere, un cylindre ou un cone defini par ses rayons : rayon et centre
+# 9.2.3. Pour une sphere, un cylindre par ses rayons : rayon et centre
 #
-    b_fr_rayon = BLOC( condition = " (TYPE == 'SPHERE') or (TYPE == 'CYLINDRE') or (TYPE == 'CONE_R') " ,
-                       fr="Le rayon et le centre d'une sphère, d'un cylindre ou d'un cone.",
-                       ang="The radius and the centre of a sphere, of a cylinder or of a cone.",
+    b_fr_rayon = BLOC( condition = " (TYPE == 'SPHERE') or (TYPE == 'CYLINDRE') " ,
+                       fr="Le rayon et le centre d'une sphère ou d'un cylindre.",
+                       ang="The radius and the centre of a sphere or of a cylinder.",
       RAYON = SIMP(statut='o',typ='R',
                    fr="Rayon",
                    ang="Radius"),
@@ -25190,91 +25555,53 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
                       fr="Abscisse du centre",
                       ang="X for the center"),
       Y_CENTRE = SIMP(statut='o',typ='R',
-                      fr="Ordonnée du centre",
+                      fr="Ordonnée du centre",
                       ang="Y for the center"),
       Z_CENTRE = SIMP(statut='o',typ='R',
                       fr="Cote du centre",
                       ang="Z for the center"),
     ) ,
 #
-# 9.2.4. Pour un cylindre ou un cone defini par axe et angle : axe
+# 9.2.4. Pour un cylindre defini par axe et angle : axe
 #
-    b_fr_cylindre = BLOC( condition = " (TYPE == 'CYLINDRE') or (TYPE == 'CONE_A') " ,
+    b_fr_cylindre = BLOC( condition = " (TYPE == 'CYLINDRE') " ,
                           fr="Pour un cylindre.",
                           ang="For a cylinder.",
       X_AXE = SIMP(statut='o',typ='R',
                    fr="Abscisse du vecteur directeur de l'axe",
                    ang="X for the axial vector"),
       Y_AXE = SIMP(statut='o',typ='R',
-                   fr="Ordonnée du vecteur directeur de l'axe",
+                   fr="Ordonnée du vecteur directeur de l'axe",
                    ang="Y for the axial vector"),
       Z_AXE = SIMP(statut='o',typ='R',
                    fr="Cote du vecteur directeur de l'axe",
                    ang="Z for the axial vector"),
     ) ,
 #
-# 9.2.5. Pour un cone defini par ses rayons : second couple (rayon et centre)
-#
-    b_fr_rayon2 = BLOC( condition = " (TYPE == 'CONE_R') " ,
-                       fr="Le second rayon et centre d'un cone.",
-                       ang="The second radius and the centre of a cone.",
-      RAYON2 = SIMP(statut='o',typ='R',
-                   fr="Rayon",
-                   ang="Radius"),
-      X_CENTRE2 = SIMP(statut='o',typ='R',
-                      fr="Abscisse du centre",
-                      ang="X for the center"),
-      Y_CENTRE2 = SIMP(statut='o',typ='R',
-                      fr="Ordonnée du centre",
-                      ang="Y for the center"),
-      Z_CENTRE2 = SIMP(statut='o',typ='R',
-                      fr="Cote du centre",
-                      ang="Z for the center"),
-    ) ,
-#
-# 9.2.6. Pour un cone defini par axe et angle : centre et angle
-#
-    b_fr_angle = BLOC( condition = " (TYPE == 'CONE_A') " ,
-                       fr="L'angle et le centre d'un cone.",
-                       ang="The angle and the centre of a cone.",
-      ANGLE = SIMP(statut='o',typ='R',
-                   fr="Angle en degré",
-                   ang="Angle (degree)"),
-      X_CENTRE = SIMP(statut='o',typ='R',
-                      fr="Abscisse du centre",
-                      ang="X for the center"),
-      Y_CENTRE = SIMP(statut='o',typ='R',
-                      fr="Ordonnée du centre",
-                      ang="Y for the center"),
-      Z_CENTRE = SIMP(statut='o',typ='R',
-                      fr="Cote du centre",
-                      ang="Z for the center"),
-    ) ,
-#
-# 9.2.7. Groupe(s) lie(s) a la frontière
+# 9.2.7. Groupe(s) lie(s) a la frontière
 #
     GROUP_MA = SIMP(statut='o',typ=grma,validators=NoRepeat(),max='**',
-                    fr="Liste des groupes de mailles placées sur la frontière",
+                    fr="Liste des groupes de mailles placées sur la frontière",
                     ang="Groups of meshes which are located on the boundary" ),
 #
   ) ,
 #
-# 10. mise à jour de champs sur le nouveau maillage
+# 10. mise à jour de champs sur le nouveau maillage
 #
   MAJ_CHAM = FACT(statut='f',max='**',
-                  fr="Mise à jour de champs sur le nouveau maillage.",
+                  fr="Mise à jour de champs sur le nouveau maillage.",
                   ang="Updating of the fields over the new mesh.",
 #
 # 10.1. Le nom du champ de grandeur qui contiendra le resultat de la mise a jour
 #
     CHAM_MAJ = SIMP(statut='o',typ=CO,
-                    fr="Nom du champ de grandeur qui contiendra le champ mis à jour",
+                    fr="Nom du champ de grandeur qui contiendra le champ mis à jour",
                     ang="Name of the field for the updated field"),
 #
 # 10.2. Le type du champ qui contiendra le resultat de la mise a jour
 #
     TYPE_CHAM = SIMP(statut='o',typ='TXM',into=C_TYPE_CHAM_INTO( ('NOEU', 'ELEM', 'ELNO', 'ELGA') ),
-                     fr="Type du champ qui contiendra le champ mis à jour",
+                     fr="Type du champ qui contiendra le champ mis à jour",
                      ang="Type of the field for the updated field" ),
 #
 # 10.3. Le champ a interpoler
@@ -25284,21 +25611,21 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 # 10.3.1. Sous forme de champ de grandeur
 #
     CHAM_GD = SIMP(statut='f',typ=cham_gd_sdaster,
-                   fr="Champ de grandeur Code_Aster contenant le champ à mettre à jour",
+                   fr="Champ de grandeur Code_Aster contenant le champ à mettre à jour",
                    ang="Champ de grandeur with the field to be updated" ),
 #
 # 10.3.2. Sous forme de champ dans un resultat
 #
     RESULTAT = SIMP(statut='f',typ=(evol_elas,evol_noli,evol_ther),
-                    fr="Résultat contenant le champ à mettre à jour",
+                    fr="Résultat contenant le champ à mettre à jour",
                     ang="Result with the field to be updated" ),
 #
     b_nom_du_champ = BLOC(condition="(RESULTAT != None)",
-                          fr="Choix éventuel du nom du champ à interpoler",
+                          fr="Choix éventuel du nom du champ à interpoler",
                           ang="Selection for the name of the field (option)",
 #
       NOM_CHAM = SIMP(statut='o',typ='TXM',validators=NoRepeat(),into=C_NOM_CHAM_INTO(),
-                      fr="Nom du champ à mettre à jour",
+                      fr="Nom du champ à mettre à jour",
                       ang="Name of the field to be updated" ),
 #
     ),
@@ -25309,10 +25636,10 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
                    fr="Liste des composante(s) retenue(s) pour le champ.",
                    ang="List of the selected component(s) for the field." ),
 #
-# 10.5. Le paramètre temporel pour le champ a interpoler
+# 10.5. Le paramètre temporel pour le champ a interpoler
 #
     b_parametre_temporel = BLOC(condition="(RESULTAT != None)",
-                                fr="Choix éventuel du paramètre temporel pour le champ à interpoler",
+                                fr="Choix éventuel du paramètre temporel pour le champ à interpoler",
                                 ang="Time selection for the field (option)",
 #
       regles=(EXCLUS('NUME_ORDRE','INST'),),
@@ -25320,32 +25647,32 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 # 10.5.1. Soit le numero d'ordre
 #
       NUME_ORDRE = SIMP(statut='f',typ='I',
-                        fr="Numéro d ordre du champ à mettre à jour",
+                        fr="Numéro d ordre du champ à mettre à jour",
                         ang="Rank of the field to be updated" ),
 #
 # 10.5.2. Soit l'instant
 # 10.5.2.1. Sa valeur
 #
       INST = SIMP(statut='f',typ='R',
-                  fr="Instant associé",
+                  fr="Instant associé",
                   ang="Instant" ),
 #
-# 10.5.2.2. La précision du choix de l'instant
+# 10.5.2.2. La précision du choix de l'instant
 #
       b_precision = BLOC(condition="(INST != None)",
-                         fr="Choix de la précision du choix de l'instant",
+                         fr="Choix de la précision du choix de l'instant",
                          ang="Selection for the choice of the instant",
 #
         CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF", "ABSOLU",),
-                         fr="Critère de précision sur le choix de l'instant associé",
+                         fr="Critère de précision sur le choix de l'instant associé",
                          ang="Accuracy criterium over the choice of the instant"),
         b_prec_rela=BLOC(condition="(CRITERE=='RELATIF')",
             PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-6,
-                             fr="Précision relative sur le choix de l'instant associé",
+                             fr="Précision relative sur le choix de l'instant associé",
                              ang="Relative accuracy over the choice of the instant"),),
         b_prec_abso=BLOC(condition="(CRITERE=='ABSOLU')",
             PRECISION       =SIMP(statut='o',typ='R',
-                             fr="Précision absolue sur le choix de l'instant associé",
+                             fr="Précision absolue sur le choix de l'instant associé",
                              ang="Absolute accuracy over the choice of the instant"),),
 #
       ),
@@ -25356,7 +25683,7 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 #
     TYPE_MAJ = SIMP(statut='f',typ='TXM',defaut="AUTO",
                     into=("AUTO", "ISOP2"),
-                    fr="Type de mise à jour : automatique ou iso-P2",
+                    fr="Type de mise à jour : automatique ou iso-P2",
                     ang="Type of the updating" ),
   ),
 #
@@ -25370,15 +25697,9 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 #
 # 11.1. Changement de degre
 #
-      DEGRE         = SIMP(statut='o',typ='TXM',defaut="NON",into=("OUI", "NON"),
-                          fr="Changement de degré du maillage",
+      DEGRE         = SIMP(statut='o',typ='TXM',into=("OUI",),
+                          fr="Changement de degré du maillage",
                           ang="Modification of the degree of the mesh" ),
-#
-# 11.2. Création des joints
-#
-      #JOINT         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI", "NON"),
-                          #fr="Creations des joints",
-                          #ang="Creation of the junctions" ),
 #
   ) ,
 #
@@ -25389,7 +25710,7 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
                           ang="Readings of the fields over the Gauss points.",
 #
       MODELE        = SIMP(statut='o',typ=modele_sdaster,
-                          fr="Modèle",
+                          fr="Modèle",
                           ang="Model" ),
 #
   ) ,
@@ -25402,44 +25723,44 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 #
 # 13.1. Nombre de noeuds et mailles
 #
-    NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI", "NON"),
+    NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",),
                           fr="Nombre de noeuds et de mailles du maillage",
                           ang="Number of nodes and meshes in the mesh" ),
 #
-# 13.2. Determination de la qualité des mailles du maillage
+# 13.2. Determination de la qualité des mailles du maillage
 #
-    QUALITE        = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI", "NON"),
-                          fr="Qualité du maillage",
+    QUALITE        = SIMP(statut='f',typ='TXM',into=("OUI",),
+                          fr="Qualité du maillage",
                           ang="Quality of the mesh" ),
 #
 # 13.3. Connexite du maillage
 #
-    CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI", "NON"),
-                          fr="Connexité du maillage.",
+    CONNEXITE      = SIMP(statut='f',typ='TXM',into=("OUI",),
+                          fr="Connexité du maillage.",
                           ang="Connexity of the mesh." ),
 #
 # 13.4. Taille des sous-domaines du maillage
 #
-    TAILLE         = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI", "NON"),
+    TAILLE         = SIMP(statut='f',typ='TXM',into=("OUI",),
                           fr="Tailles des sous-domaines du maillage.",
                           ang="Sizes of mesh sub-domains." ),
 #
 # 13.5. Controle de la non-interpenetration des mailles
 #
-    INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI", "NON"),
-                          fr="Controle de la non interpénétration des mailles.",
+    INTERPENETRATION=SIMP(statut='f',typ='TXM',into=("OUI",),
+                          fr="Controle de la non interpénétration des mailles.",
                           ang="Overlapping checking." ),
 #
-# 13.6. Propriétés du maillage de calcul
+# 13.6. Propriétés du maillage de calcul
 #
-    PROP_CALCUL    = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI", "NON"),
-                          fr="Propriétés du maillage de calcul.",
+    PROP_CALCUL    = SIMP(statut='f',typ='TXM',into=("OUI",),
+                          fr="Propriétés du maillage de calcul.",
                           ang="Properties of the calculation mesh." ),
 #
 # 13.7. Determination des diametres des mailles du maillage
 #
-    DIAMETRE       = SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI", "NON"),
-                          fr="Diamètre du maillage",
+    DIAMETRE       = SIMP(statut='f',typ='TXM',into=("OUI",),
+                          fr="Diamètre du maillage",
                           ang="Diameters of the mesh" ),
 #
   ) ,
@@ -25458,13 +25779,13 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 #
 # 14.2. La categorie du champ supplementaire
 #
-    CHAM_CAT = SIMP(statut='o',typ='TXM',into=("NIVEAU", "QUALITE", "DIAMETRE"),
-                    fr="Categorie du champ supplementaire : niveau, qualite ou diametre",
-                    ang="Category of the additional field: level, quality or diameter" ),
+    CHAM_CAT = SIMP(statut='o',typ='TXM',into=("NIVEAU", "DIAMETRE"),
+                    fr="Categorie du champ supplementaire : niveau ou diametre",
+                    ang="Category of the additional field: level or diameter" ),
 #
   ) ,
 #
-# 15. Les options avancées
+# 15. Les options avancées
 # 15.1. Langue des messages issus de HOMARD
 #
   LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
@@ -25474,7 +25795,7 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 #
 # 15.2. Gestion des mailles acceptees dans le maillage initial
 #       "HOMARD" : exclusivement les mailles pouvant etre decoupees (defaut)
-#       "IGNORE_PYRA" : elles sont ignorées
+#       "IGNORE_PYRA" : elles sont ignorées
 #
   b_autres_mailles = BLOC( condition = " (ADAPTATION != 'LECTURE') " ,
                            fr="Gestion des pyramides.",
@@ -25493,13 +25814,13 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
                         fr="Version de HOMARD",
                         ang="HOMARD release"),
 #
-# 15.4. Exécutable pilotant HOMARD
+# 15.4. Exécutable pilotant HOMARD
 #
   LOGICIEL = SIMP(statut='f',typ='TXM',
                   fr="Logiciel pilotant HOMARD",
                   ang="HOMARD software"),
 #
-# 15.5. Unite logique d'un fichier à ajouter a HOMARD.Configuration
+# 15.5. Unite logique d'un fichier à ajouter a HOMARD.Configuration
 #
   b_unite = BLOC( condition = " (VERSION_HOMARD == 'V10_N') or \
                                 (VERSION_HOMARD == 'V10_N_PERSO') " ,
@@ -25513,8 +25834,7 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
   ) ,
 #
 ) ;
-#& MODIF COMMANDE  DATE 17/12/2012   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -25531,7 +25851,7 @@ MACR_ADAP_MAIL=MACRO(nom="MACR_ADAP_MAIL",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 def macr_ascouf_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS,RESU_THER,**args):
   self.type_sdprod(MODELE,modele_sdaster)
@@ -25544,10 +25864,10 @@ def macr_ascouf_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS,RESU_THER,*
 MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",
                        op=OPS('Macro.macr_ascouf_calc_ops.macr_ascouf_calc_ops'),
                        sd_prod=macr_ascouf_calc_prod,
-                       fr="Réalise l'analyse thermomécanique du coude dont le maillage a " \
-                          "été concu par MACR_ASCOUF_MAIL",
+                       fr="Réalise l'analyse thermomécanique du coude dont le maillage a " \
+                          "été concu par MACR_ASCOUF_MAIL",
                        reentrant='n',
-                       UIinfo={"groupes":("Résolution","Outils-métier",)},
+                       UIinfo={"groupes":("Résolution","Outils-métier",)},
 
          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
                                into=("SAIN",
@@ -25600,7 +25920,7 @@ MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",
          ),
 
 
-         COMP_ELAS       =C_COMP_ELAS('MACR_ASCOUF_CALC'),
+         COMPORTEMENT       =C_COMPORTEMENT('MACR_ASCOUF_CALC'),
 
 #-------------------------------------------------------------------
 #        Catalogue commun SOLVEUR
@@ -25620,6 +25940,10 @@ MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",
            R_SUP           =SIMP(statut='o',typ='R' ),
          ),
 
+         ENERGIE         =FACT(statut='f',max=1,
+           CALCUL          =SIMP(statut='f',typ='TXM',into=("OUI",),defaut="OUI",),
+         ),
+
          IMPR_TABLE      =FACT(statut='f',
            regles=(UN_PARMI('TOUT_PARA','NOM_PARA', ),
             PRESENT_PRESENT('TOUT_PARA','ANGLE',    ),
@@ -25659,8 +25983,7 @@ MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",
 
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 17/12/2012   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -25677,13 +26000,13 @@ MACR_ASCOUF_CALC=MACRO(nom="MACR_ASCOUF_CALC",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",
                        op=OPS('Macro.macr_ascouf_mail_ops.macr_ascouf_mail_ops'),
                        sd_prod=maillage_sdaster,
-                       fr="Engendre le maillage d'un coude sain ou comportant une fissure ou une (ou plusieurs) sous-épaisseur(s)",
-                       UIinfo={"groupes":("Maillage","Outils-métier",)},
+                       fr="Engendre le maillage d'un coude sain ou comportant une fissure ou une (ou plusieurs) sous-épaisseur(s)",
+                       UIinfo={"groupes":("Maillage","Outils-métier",)},
                        reentrant='n',
 
          regles=(EXCLUS('SOUS_EPAIS_COUDE','FISS_COUDE','SOUS_EPAIS_MULTI'),),
@@ -25810,8 +26133,7 @@ MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",
 
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 17/12/2012   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -25828,7 +26150,7 @@ MACR_ASCOUF_MAIL=MACRO(nom="MACR_ASCOUF_MAIL",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 def macr_aspic_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS_1,FOND_FISS_2,RESU_THER,**args):
   if MODELE      != None:self.type_sdprod(MODELE,modele_sdaster)
@@ -25842,9 +26164,9 @@ def macr_aspic_calc_prod(self,MODELE,CHAM_MATER,CARA_ELEM,FOND_FISS_1,FOND_FISS_
 MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",
                       op=OPS('Macro.macr_aspic_calc_ops.macr_aspic_calc_ops'),
                       sd_prod=macr_aspic_calc_prod,
-                      fr="Réalise un calcul prédéfini de piquages sains ou fissurés " \
-                         "ainsi que les post-traitements associés ",
-                      UIinfo={"groupes":("Résolution","Outils-métier",)},
+                      fr="Réalise un calcul prédéfini de piquages sains ou fissurés " \
+                         "ainsi que les post-traitements associés ",
+                      UIinfo={"groupes":("Résolution","Outils-métier",)},
                       reentrant='n',
 
          TYPE_MAILLAGE   =SIMP(statut='o',typ='TXM',
@@ -25912,7 +26234,7 @@ MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",
            FONC_MULT       =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
          ),
 
-         COMP_ELAS       =C_COMP_ELAS('MACR_ASPIC_CALC'),
+         COMPORTEMENT    =C_COMPORTEMENT('MACR_ASPIC_CALC'),
 
          THETA_3D        =FACT(statut='f',max='**',
            R_INF           =SIMP(statut='o',typ='R'),
@@ -25941,6 +26263,10 @@ MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",
 
          PAS_AZIMUT      =SIMP(statut='f',typ='I',defaut=1),
 
+         ENERGIE         =FACT(statut='f',max=1,
+           CALCUL          =SIMP(statut='f',typ='TXM',into=("OUI",),defaut="OUI",),
+         ),
+
          IMPRESSION      =FACT(statut='f',
            FORMAT          =SIMP(statut='f',typ='TXM',defaut="RESULTAT",
                                  into=("RESULTAT","ASTER","CASTEM","IDEAS")),
@@ -25968,8 +26294,7 @@ MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",
 
          TITRE           =SIMP(statut='f',typ='TXM'),
 )
-#& MODIF COMMANDE  DATE 17/12/2012   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -25986,7 +26311,7 @@ MACR_ASPIC_CALC=MACRO(nom="MACR_ASPIC_CALC",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 
 MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",
@@ -25994,7 +26319,7 @@ MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",
                       sd_prod=maillage_sdaster,
                       reentrant='n',
                       fr="Engendre le maillage d'un piquage sain ou avec fissure (longue ou courte)",
-                      UIinfo={"groupes":("Maillage","Outils-métier",)},
+                      UIinfo={"groupes":("Maillage","Outils-métier",)},
 
          EXEC_MAILLAGE   =FACT(statut='o',
            LOGICIEL        =SIMP(statut='o',typ='TXM',defaut="GIBI2000",into=("GIBI98","GIBI2000")),
@@ -26067,8 +26392,7 @@ MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",
 
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
 )  ;
-#& MODIF COMMANDE  DATE 10/09/2012   AUTEUR FLEJOU J-L.FLEJOU 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -26085,16 +26409,16 @@ MACR_ASPIC_MAIL=MACRO(nom="MACR_ASPIC_MAIL",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE FLEJOU J.L.FLEJOU
+# person_in_charge: jean-luc.flejou at edf.fr
 
 
 MACR_CARA_POUTRE=MACRO(nom="MACR_CARA_POUTRE",
                        op=OPS('Macro.macr_cara_poutre_ops.macr_cara_poutre_ops'),
                        sd_prod=table_sdaster,
                        reentrant='n',
-                       UIinfo={"groupes":("Modélisation",)},
-                       fr="Calculer les caractéristiques d'une section transversale de " \
-                          "poutre à partir d'un maillage 2D de la section",
+                       UIinfo={"groupes":("Modélisation",)},
+                       fr="Calculer les caractéristiques d'une section transversale de " \
+                          "poutre à partir d'un maillage 2D de la section",
          regles=(
             EXCLUS('SYME_Y','GROUP_MA_BORD'),
             EXCLUS('SYME_Z','GROUP_MA_BORD'),
@@ -26111,7 +26435,7 @@ MACR_CARA_POUTRE=MACRO(nom="MACR_CARA_POUTRE",
          ),
 
          ORIG_INER      =SIMP(statut='f',typ='R',max=3,defaut=(0.E+0,0.E+0),
-                              fr="Point par rapport auquel sont calculées les inerties"),
+                              fr="Point par rapport auquel sont calculées les inerties"),
          INFO           =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
 
          TABLE_CARA     =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON",),
@@ -26120,15 +26444,15 @@ MACR_CARA_POUTRE=MACRO(nom="MACR_CARA_POUTRE",
          SYME_Z         =SIMP(statut='f',typ='TXM',into=("OUI",), fr="demi maillage par rapport a z=0"),
 
          GROUP_MA       =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
-                              fr="Calcul des caractéristiques équivalentes à plusieurs sections disjointes"),
+                              fr="Calcul des caractéristiques équivalentes à plusieurs sections disjointes"),
 
          GROUP_MA_BORD  =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
-                              fr="Groupe(s) de mailles linéiques, bord(s) de(s) section(s)"),
+                              fr="Groupe(s) de mailles linéiques, bord(s) de(s) section(s)"),
 
          b_nom =BLOC(
             condition = """(TABLE_CARA == 'OUI') and (GROUP_MA == None)""",
             NOM   =SIMP(statut='f',typ='TXM',max=1,validators=LongStr(1,8),
-                        fr="Nom de la section, 8 caractères maximum.")
+                        fr="Nom de la section, 8 caractères maximum.")
          ),
 
          b_gma_bord  =BLOC(
@@ -26142,23 +26466,22 @@ MACR_CARA_POUTRE=MACRO(nom="MACR_CARA_POUTRE",
                                  fr="Simplement pour empecher des pivots nuls le cas echeant. "
                                     "Fournir un noeud quelconque par GROUP_MA"),
             GROUP_MA_INTE  =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
-                                 fr="groupes de mailles linéiques bordant des trous dans la section"),
+                                 fr="groupes de mailles linéiques bordant des trous dans la section"),
           ),
 
          b_reseau = BLOC(
             condition ="""(GROUP_MA_BORD != None) and (GROUP_MA != None)""",
-            fr=" calcul des coef de cisaillement équivalents a un reseau de poutres",
+            fr=" calcul des coef de cisaillement équivalents a un reseau de poutres",
             regles=(ENSEMBLE('LONGUEUR','LIAISON','MATERIAU') ,),
             LONGUEUR =SIMP(statut='f',typ='R',
-                           fr="Longueur du réseau de poutres"),
+                           fr="Longueur du réseau de poutres"),
             MATERIAU =SIMP(statut='f',typ=mater_sdaster,
                            fr="Materiau elastique lineaire du reseau"),
             LIAISON  =SIMP(statut='f',typ='TXM',into=("ROTULE","ENCASTREMENT"),
-                           fr="type de conditions aux limites sur le plancher supérieur" ),
+                           fr="type de conditions aux limites sur le plancher supérieur" ),
          ),
 )
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -26175,7 +26498,7 @@ MACR_CARA_POUTRE=MACRO(nom="MACR_CARA_POUTRE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 
 
 def macr_ecla_pg_prod(self,RESULTAT,MAILLAGE,RESU_INIT,**args):
@@ -26188,29 +26511,29 @@ MACR_ECLA_PG=MACRO(nom="MACR_ECLA_PG",
                    op=OPS('Macro.macr_ecla_pg_ops.macr_ecla_pg_ops'),
                    sd_prod=macr_ecla_pg_prod,
                    reentrant='n',
-                   UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
+                   UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
                    fr="Permettre la visualisation des champs aux points de Gauss d'une " \
                       "SD_RESULTAT sans lissage ni interpolation",
 
-             # SD résultat ,modèle et champs à "éclater" :
-             RESU_INIT       =SIMP(statut='o',typ=resultat_sdaster,fr="RESULTAT à éclater",),
-             MODELE_INIT     =SIMP(statut='o',typ=modele_sdaster,fr="MODELE à éclater"),
+             # SD résultat ,modèle et champs à "éclater" :
+             RESU_INIT       =SIMP(statut='o',typ=resultat_sdaster,fr="RESULTAT à éclater",),
+             MODELE_INIT     =SIMP(statut='o',typ=modele_sdaster,fr="MODELE à éclater"),
              NOM_CHAM        =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',into=C_NOM_CHAM_INTO('ELGA'),),
 
-             # paramètres numériques de la commande :
-             SHRINK          =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
-             TAILLE_MIN      =SIMP(statut='f',typ='R',defaut= 0.0, fr="Taille minimale d'un coté" ),
+             # paramètres numériques de la commande :
+             SHRINK          =SIMP(statut='f',typ='R',defaut= 0.9, fr="Facteur de réduction" ),
+             TAILLE_MIN      =SIMP(statut='f',typ='R',defaut= 0.0, fr="Taille minimale d'un coté" ),
 
              # concepts produits par la commande :
-             RESULTAT        =SIMP(statut='o',typ=CO,fr="SD_RESULTAT résultat de la commande"),
-             MAILLAGE        =SIMP(statut='o',typ=CO,fr="MAILLAGE associé aux cham_no de la SD_RESULTAT"),
+             RESULTAT        =SIMP(statut='o',typ=CO,fr="SD_RESULTAT résultat de la commande"),
+             MAILLAGE        =SIMP(statut='o',typ=CO,fr="MAILLAGE associé aux cham_no de la SD_RESULTAT"),
 
-             # Sélection éventuelle d'un sous-ensemble des éléments à visualiser :
+             # Sélection éventuelle d'un sous-ensemble des éléments à visualiser :
              TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
              MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
              GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
 
-             # Sélection des numéros d'ordre :
+             # Sélection des numéros d'ordre :
              regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','LIST_ORDRE'),),
              TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
              NUME_ORDRE      =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
@@ -26223,8 +26546,7 @@ MACR_ECLA_PG=MACRO(nom="MACR_ECLA_PG",
              b_prec_abso=BLOC(condition="(CRITERE=='ABSOLU')",
                  PRECISION       =SIMP(statut='o',typ='R',),),
             )
-#& MODIF COMMANDE  DATE 25/03/2013   AUTEUR BOTTONI M.BOTTONI 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -26241,7 +26563,7 @@ MACR_ECLA_PG=MACRO(nom="MACR_ECLA_PG",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BOTTONI M.BOTTONI
+# person_in_charge: marina.bottoni at edf.fr
 
 
 def macr_ecre_calc_prod(self,TABLE,DEBIT,**args):
@@ -26254,7 +26576,7 @@ MACR_ECRE_CALC=MACRO(nom="MACR_ECRE_CALC",
                      op=OPS('Macro.macr_ecre_calc_ops.macr_ecre_calc_ops'),
                      sd_prod=macr_ecre_calc_prod,
                      reentrant='n',
-                     UIinfo={"groupes":("Résolution","Outils-métier",)},
+                     UIinfo={"groupes":("Résolution","Outils-métier",)},
                      fr="Procedure de couplage avec Ecrevisse",
 
                      regles = (UN_PARMI('LOGICIEL','VERSION'),),
@@ -26369,7 +26691,7 @@ MACR_ECRE_CALC=MACRO(nom="MACR_ECRE_CALC",
            b_ecou_gele         =BLOC(condition="ECOULEMENT=='GELE'",fr="Modele d'ecoulement gele",
              PRESS_EBULLITION    =SIMP(statut='o',typ='R',fr="Pression d'ebullition [corrp*psat(t)]"),
            ),
-           FROTTEMENT          =SIMP(statut='o',typ='I',into=(-14,-13,-12,-11,-4,-3,-2,-1,0,1,2,3,4,11,12,13,14),fr="Correlation de frottement [ifrot]"),
+           FROTTEMENT          =SIMP(statut='o',typ='I',into=(-4,-3,-2,-1,0,1,2,3,4,11,12,13,14),fr="Correlation de frottement [ifrot]"),
            b_frottement        =BLOC(condition="FROTTEMENT<0",fr="Modele d'ecoulement gele",
              REYNOLDS_LIM        =SIMP(statut='o',typ='R',fr="Coefficient de Reynolds limite [relim]"),
              FROTTEMENT_LIM      =SIMP(statut='o',typ='R',fr="Coefficient de frottement impose [frtlim]"),
@@ -26408,8 +26730,7 @@ MACR_ECRE_CALC=MACRO(nom="MACR_ECRE_CALC",
          INFO               =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 
 )  ;
-#& MODIF COMMANDE  DATE 25/03/2013   AUTEUR BOTTONI M.BOTTONI 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -26426,7 +26747,7 @@ MACR_ECRE_CALC=MACRO(nom="MACR_ECRE_CALC",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BOTTONI M.BOTTONI
+# person_in_charge: marina.bottoni at edf.fr
 
 
 def macr_ecrevisse_prod(self,TABLE,TEMPER,DEBIT,**args):
@@ -26442,7 +26763,7 @@ MACR_ECREVISSE=MACRO(nom="MACR_ECREVISSE",
                      op=OPS('Macro.macr_ecrevisse_ops.macr_ecrevisse_ops'),
                      sd_prod=macr_ecrevisse_prod,
                      reentrant='f',
-                     UIinfo={"groupes":("Résolution","Outils-métier",)},
+                     UIinfo={"groupes":("Résolution","Outils-métier",)},
                      fr="Procedure de couplage avec Ecrevisse",
 
        reuse  = SIMP(statut='f',typ='evol_noli'),
@@ -26578,7 +26899,7 @@ MACR_ECREVISSE=MACRO(nom="MACR_ECREVISSE",
            b_ecou_gele         =BLOC(condition="ECOULEMENT=='GELE'",fr="Modele d'ecoulement gele",
              PRESS_EBULLITION  =SIMP(statut='o',typ='R',fr="Pression d'ebullition [corrp*psat(t)]" ),
            ),
-           FROTTEMENT          =SIMP(statut='o',typ='I',into=(-14,-13,-12,-11,-4,-3,-2,-1,0,1,2,3,4,11,12,13,14),fr="Correlation de frottement [ifrot]" ),
+           FROTTEMENT          =SIMP(statut='o',typ='I',into=(-4,-3,-2,-1,0,1,2,3,4,11,12,13,14),fr="Correlation de frottement [ifrot]" ),
            b_frottement        =BLOC(condition="FROTTEMENT<0",fr="Modele d'ecoulement gele",
              REYNOLDS_LIM        =SIMP(statut='o',typ='R',fr="Coefficient de Reynolds limite [relim]" ),
              FROTTEMENT_LIM      =SIMP(statut='o',typ='R',fr="Coefficient de frottement impose [frtlim]" ),
@@ -26658,7 +26979,7 @@ MACR_ECREVISSE=MACRO(nom="MACR_ECREVISSE",
 
          CONTACT            = SIMP(statut='o',typ=char_contact),
 
-         COMP_INCR          = C_COMP_INCR(),
+         COMPORTEMENT          = C_COMPORTEMENT(),
          NEWTON             = FACT(statut='d',
            REAC_INCR           =SIMP(statut='f',typ='I',defaut= 1 ),
            PREDICTION          =SIMP(statut='f',typ='TXM',into=("DEPL_CALCULE","TANGENTE","ELASTIQUE","EXTRAPOL") ),
@@ -26688,6 +27009,10 @@ MACR_ECREVISSE=MACRO(nom="MACR_ECREVISSE",
            ARRET            =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
          ),
 
+         ENERGIE         =FACT(statut='f',max=1,
+           CALCUL          =SIMP(statut='f',typ='TXM',into=("OUI",),defaut="OUI",),
+         ),
+
          # donnees specifiques a ther_lineaire
 
          EXCIT_THER         =FACT(statut='o',max='**',
@@ -26697,8 +27022,7 @@ MACR_ECREVISSE=MACRO(nom="MACR_ECREVISSE",
          PARM_THETA         =SIMP(statut='f',typ='R',defaut= 0.57),
 
 )
-#& MODIF COMMANDE  DATE 02/04/2013   AUTEUR BODEL C.BODEL 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -26715,7 +27039,7 @@ MACR_ECREVISSE=MACRO(nom="MACR_ECREVISSE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE CORUS M.CORUS
+# person_in_charge: mathieu.corus at edf.fr
 
 MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op=  81,sd_prod=macr_elem_dyna,
                     fr="Definition d'un macro element pour analyse modale ou harmonique par sous structuration dynamique",
@@ -26767,8 +27091,7 @@ MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op=  81,sd_prod=macr_elem_dyna,
            VECT_ASSE_GENE  =SIMP(statut='o',typ=vect_asse_gene ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -26785,10 +27108,10 @@ MACR_ELEM_DYNA=OPER(nom="MACR_ELEM_DYNA",op=  81,sd_prod=macr_elem_dyna,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,reentrant='f',
             UIinfo={"groupes":("Matrices et vecteurs",)},
-                    fr="Définition d'un macro-élément pour l'analyse statique par sous-structuration",
+                    fr="Définition d'un macro-élément pour l'analyse statique par sous-structuration",
         regles=(AU_MOINS_UN('DEFINITION','RIGI_MECA','MASS_MECA','CAS_CHARGE'),
                 ENSEMBLE('DEFINITION','EXTERIEUR'),),
          DEFINITION      =FACT(statut='f',
@@ -26823,9 +27146,7 @@ MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,reentrant=
          ),
 
 )  ;
-#& MODIF COMMANDE  DATE 03/04/2013   AUTEUR NICOLAS G.NICOLAS 
-# -*- coding: iso-8859-1 -*-
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -26842,7 +27163,7 @@ MACR_ELEM_STAT=OPER(nom="MACR_ELEM_STAT",op=86,sd_prod=macr_elem_stat,reentrant=
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GNICOLAS G.NICOLAS
+# person_in_charge: gerald.nicolas at edf.fr
 #
 MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",
                      op=OPS('Macro.macr_adap_mail_ops.macr_adap_mail_ops'),
@@ -26857,69 +27178,69 @@ MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",
 # 2. Le nom du maillage a analyser
 #
   MAILLAGE = SIMP(statut='o',typ=maillage_sdaster,
-                  fr="Maillage à analyser.",
+                  fr="Maillage à analyser.",
                   ang="Mesh to be checked." ),
 #
 # 3. Suivi d'une frontiere
 #
   MAILLAGE_FRONTIERE = SIMP(statut='f',typ=maillage_sdaster,
-                           fr="Maillage de la frontiere à suivre",
+                           fr="Maillage de la frontiere à suivre",
                            ang="Boundary mesh" ),
 #
   b_frontiere = BLOC( condition = " MAILLAGE_FRONTIERE != None " ,
-                      fr="Information complémentaire sur la frontière",
+                      fr="Information complémentaire sur la frontière",
                       ang="Further information about boundary",
 #
     GROUP_MA_FRONT = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
-                          fr="Groupes de mailles définissant la frontière",
+                          fr="Groupes de mailles définissant la frontière",
                           ang="Mesh groups which define the boundary" ),
 #
                     ) ,
 #
-# 4. Les options ; par defaut, on controle tout, sauf l'interpénétration
+# 4. Les options ; par defaut, on controle tout, sauf l'interpénétration
 # 4.1. Nombre de noeuds et mailles
 #
-  NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
+  NOMBRE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",),
                         fr="Nombre de noeuds et de mailles du maillage",
                         ang="Number of nodes and meshes in the mesh" ),
 #
 # 4.2. Determination de la qualite des mailles du maillage
 #
-  QUALITE        = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
-                        fr="Qualité du maillage",
+  QUALITE        = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",),
+                        fr="Qualité du maillage",
                         ang="Quality of the mesh" ),
 #
 # 4.3. Connexite du maillage
 #
-  CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
-                        fr="Connexité du maillage.",
+  CONNEXITE      = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",),
+                        fr="Connexité du maillage.",
                         ang="Connexity of the mesh." ),
 #
 # 4.4. Taille des sous-domaines du maillage
 #
-  TAILLE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
+  TAILLE         = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",),
                         fr="Tailles des sous-domaines du maillage.",
                         ang="Sizes of mesh sub-domains." ),
 #
-# 4.5. Controle de la non-interpénétration des mailles
+# 4.5. Controle de la non-interpénétration des mailles
 #
-  INTERPENETRATION=SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON"),
-                        fr="Controle de la non interpénétration des mailles.",
+  INTERPENETRATION=SIMP(statut='f',typ='TXM',into=("OUI",),
+                        fr="Controle de la non interpénétration des mailles.",
                         ang="Overlapping checking." ),
 #
-# 4.6. Propriétés du maillage de calcul
+# 4.6. Propriétés du maillage de calcul
 #
-  PROP_CALCUL    = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
-                        fr="Propriétés du maillage de calcul.",
+  PROP_CALCUL    = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",),
+                        fr="Propriétés du maillage de calcul.",
                         ang="Properties of the calculation mesh." ),
 #
 # 4.7. Determination des diametres des mailles du maillage
 #
-  DIAMETRE       = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON"),
-                        fr="Diamètre du maillage",
+  DIAMETRE       = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI",),
+                        fr="Diamètre du maillage",
                         ang="Diameters of the mesh" ),
 #
-# 5. Les options avancées
+# 5. Les options avancées
 # 5.1. Langue des messages issus de HOMARD
 #
   LANGUE = SIMP(statut='f',typ='TXM',defaut="FRANCAIS",
@@ -26929,7 +27250,7 @@ MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",
 #
 # 5.2. Gestion des mailles acceptees dans le maillage initial
 #       "HOMARD" : exclusivement les mailles pouvant etre decoupees (defaut)
-#       "IGNORE_PYRA" : elles sont ignorées
+#       "IGNORE_PYRA" : elles sont ignorées
 #
   ELEMENTS_ACCEPTES = SIMP(statut='f',typ='TXM',defaut="HOMARD",into=("HOMARD", "IGNORE_PYRA"),
                             fr="Acceptation des mailles dans le maillage initial",
@@ -26942,13 +27263,13 @@ MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",
                         fr="Version de HOMARD",
                         ang="HOMARD release"),
 #
-# 5.4. Exécutable pilotant HOMARD
+# 5.4. Exécutable pilotant HOMARD
 #
   LOGICIEL = SIMP(statut='f',typ='TXM',
                   fr="Logiciel pilotant HOMARD",
                   ang="HOMARD software"),
 #
-# 5.5. Unite logique d'un fichier à ajouter a HOMARD.Configuration
+# 5.5. Unite logique d'un fichier à ajouter a HOMARD.Configuration
 #
   b_unite = BLOC( condition = " (VERSION_HOMARD == 'V10_N') or \
                                 (VERSION_HOMARD == 'V10_N_PERSO') " ,
@@ -26963,8 +27284,6 @@ MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",
 #
 )  ;
 
-#& MODIF COMMANDE  DATE 25/09/2012   AUTEUR DURAND C.DURAND 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -26981,22 +27300,22 @@ MACR_INFO_MAIL=MACRO(nom="MACR_INFO_MAIL",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DURAND C.DURAND
+# person_in_charge: josselin.delmas at edf.fr
 
 
 MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",
                       op=OPS('Macro.macr_lign_coupe_ops.macr_lign_coupe_ops'),
                       sd_prod=table_sdaster,
                       reentrant='n',
-                      UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
-                      fr="Extraction des valeurs d'un résultat dans une ou plusieurs tables sur " \
-                         "des lignes de coupe définies par deux points et un intervalle",
+                      UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
+                      fr="Extraction des valeurs d'un résultat dans une ou plusieurs tables sur " \
+                         "des lignes de coupe définies par deux points et un intervalle",
             regles=(UN_PARMI("RESULTAT","CHAM_GD"),),
 
          RESULTAT        =SIMP(statut='f',typ=(evol_elas,evol_noli,evol_ther,mode_meca) ),
          CHAM_GD         =SIMP(statut='f',typ=(cham_gd_sdaster)),
 
-         b_extrac        =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
+         b_extrac        =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
                                  regles=(EXCLUS('NUME_ORDRE','NUME_MODE','LIST_ORDRE','INST','LIST_INST',), ),
              NUME_ORDRE      =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
              NUME_MODE       =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
@@ -27010,11 +27329,11 @@ MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",
                  PRECISION       =SIMP(statut='o',typ='R',),),
            ),
 
-# extraction des résultats
-         b_meca        =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli,mode_meca)",fr="résultat mécanique",
+# extraction des résultats
+         b_meca        =BLOC(condition = "AsType(RESULTAT) in (evol_elas,evol_noli,mode_meca)",fr="résultat mécanique",
            NOM_CHAM        =SIMP(statut='f',typ='TXM',validators=NoRepeat(),defaut='SIGM_NOEU',into=C_NOM_CHAM_INTO(),),
          ),
-         b_ther        =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
+         b_ther        =BLOC(condition = "AsType(RESULTAT) in (evol_ther,)",fr="résultat thermique",
            NOM_CHAM        =SIMP(statut='f',typ='TXM',validators=NoRepeat(),defaut='TEMP',into=("TEMP",
                                  "FLUX_ELGA","FLUX_ELNO","FLUX_NOEU",
                                  "META_ELNO","META_NOEU",
@@ -27072,13 +27391,13 @@ MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",
              GROUP_MA        =SIMP(statut='o',typ=grma, max=1),
              MAILLAGE        =SIMP(statut='o',typ=maillage_sdaster),
              # si le groupe de mailles forme une ligne ouverte, on peut choisir le sens de parcours en choissant l'origine:
-             # si le groupe de mailles forme une ligne fermée, il FAUT choisir l'origine et l'extrémité (= origine):
+             # si le groupe de mailles forme une ligne fermée, il FAUT choisir l'origine et l'extrémité (= origine):
              NOEUD_ORIG      =SIMP(statut='f',typ=no),
              GROUP_NO_ORIG   =SIMP(statut='f',typ=grno),
              NOEUD_EXTR      =SIMP(statut='f',typ=no),
              GROUP_NO_EXTR   =SIMP(statut='f',typ=grno),
-             # si le groupe de mailles forme une ligne fermée, on peut choisir le sens de parcours
-             VECT_ORIE       =SIMP(statut='f',typ='R',max=3),  # utilisé seulement si NOEUD_ORIG=NOEUD_EXTR
+             # si le groupe de mailles forme une ligne fermée, on peut choisir le sens de parcours
+             VECT_ORIE       =SIMP(statut='f',typ='R',max=3),  # utilisé seulement si NOEUD_ORIG=NOEUD_EXTR
              ),
 
            b_segment       =BLOC(condition = "TYPE=='SEGMENT'",
@@ -27098,15 +27417,12 @@ MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",
              AXE_Z           =SIMP(statut='f',typ='R',min=3,max=3),),
 
            DISTANCE_MAX    =SIMP(statut='f',typ='R',defaut=0.,
-                fr="Si la distance entre un noeud de la ligne de coupe et le maillage coupé "
-                +"est > DISTANCE_MAX, ce noeud sera ignoré."),
+                fr="Si la distance entre un noeud de la ligne de coupe et le maillage coupé "
+                +"est > DISTANCE_MAX, ce noeud sera ignoré."),
 
          ),
 )  ;
 
-
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR ASSIRE A.ASSIRE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -27123,7 +27439,7 @@ MACR_LIGN_COUPE=MACRO(nom="MACR_LIGN_COUPE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ASSIRE A.ASSIRE
+# person_in_charge: aimery.assire at edf.fr
 
 
 def macr_recal_prod(self,**args ):
@@ -27132,9 +27448,9 @@ def macr_recal_prod(self,**args ):
 MACR_RECAL = MACRO(nom="MACR_RECAL",
                    op=OPS('Macro.macr_recal_ops.macr_recal_ops'),
                    sd_prod=macr_recal_prod,
-                   UIinfo={"groupes":("Résolution","Résultats et champs",)},
-                   fr="Réalise le recalage des calculs Aster sur des résultats expérimentaux" \
-                      " ou sur d'autres résultats de calculs",
+                   UIinfo={"groupes":("Résolution","Résultats et champs",)},
+                   fr="Réalise le recalage des calculs Aster sur des résultats expérimentaux" \
+                      " ou sur d'autres résultats de calculs",
             regles=(UN_PARMI('PARA_OPTI','LIST_PARA'),
                     PRESENT_PRESENT('PARA_OPTI','COURBE'),
                     PRESENT_PRESENT('LIST_PARA','RESU_EXP'),
@@ -27168,8 +27484,8 @@ MACR_RECAL = MACRO(nom="MACR_RECAL",
              AFFICHAGE       =SIMP(statut='f',typ='TXM',defaut='TOUTE_ITERATION',into=("TOUTE_ITERATION","ITERATION_FINALE"),),
 
              UNITE           =SIMP(statut='f',typ='I',val_min=10,val_max=90,defaut=29,
-                            fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
-             b_pilote = BLOC(condition = "FORMAT == 'XMGRACE'", fr="Mots-clés propres à XMGRACE",
+                            fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
+             b_pilote = BLOC(condition = "FORMAT == 'XMGRACE'", fr="Mots-clés propres à XMGRACE",
                  PILOTE          =SIMP(statut='f',typ='TXM',defaut='',
                                        into=('','POSTSCRIPT','EPS','MIF','SVG','PNM','PNG','JPEG','PDF','INTERACTIF'),
                             fr="Pilote de sortie, PNG/JPEG/PDF ne sont pas disponibles sur toutes les installations de xmgrace"),
@@ -27241,8 +27557,7 @@ MACR_RECAL = MACRO(nom="MACR_RECAL",
 
          INFO            =SIMP(statut='f',typ='I',defaut=1, into=( 1, 2 ) ),
 );
-#& MODIF COMMANDE  DATE 03/01/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -27259,15 +27574,15 @@ MACR_RECAL = MACRO(nom="MACR_RECAL",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE VOLDOIRE F.VOLDOIRE
+# person_in_charge: francois.voldoire at edf.fr
 
 
 MACR_SPECTRE=MACRO(nom="MACR_SPECTRE",
                    op=OPS('Macro.macr_spectre_ops.macr_spectre_ops'),
                    sd_prod=table_sdaster,
                    reentrant='n',
-                   UIinfo={"groupes":("Post-traitements","Outils-métier",)},
-                   fr="Calcul de spectre, post-traitement de séisme",
+                   UIinfo={"groupes":("Post-traitements","Outils-métier",)},
+                   fr="Calcul de spectre, post-traitement de séisme",
          MAILLAGE      =SIMP(statut='o',typ=maillage_sdaster,),
          PLANCHER      =FACT(statut='o',max='**',
             regles=(AU_MOINS_UN('NOEUD','GROUP_NO' ),),
@@ -27296,7 +27611,7 @@ MACR_SPECTRE=MACRO(nom="MACR_SPECTRE",
                 TRI           =SIMP(statut='f',typ='TXM',defaut='AMOR_SPEC',into=("AMOR_SPEC","DIRECTION",),),
                 FORMAT        =SIMP(statut='f',typ='TXM',defaut='TABLEAU',into=("TABLEAU","XMGRACE",),),
                 UNITE         =SIMP(statut='f',typ='I',val_min=10,val_max=90,defaut=29,
-                                    fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
+                                    fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit"),
                 b_pilote = BLOC(condition = "FORMAT == 'XMGRACE'",
                    PILOTE        =SIMP(statut='f',typ='TXM',defaut='',
                                  into=('','POSTSCRIPT','EPS','MIF','SVG','PNM','PNG','JPEG','PDF','INTERACTIF'),),),
@@ -27316,8 +27631,7 @@ MACR_SPECTRE=MACRO(nom="MACR_SPECTRE",
                    DEPL_Z        =SIMP(statut='o',typ=fonction_sdaster),),),
          ),
 )
-#& MODIF COMMANDE  DATE 06/08/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -27334,7 +27648,7 @@ MACR_SPECTRE=MACRO(nom="MACR_SPECTRE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DESROCHE X.DESROCHES
+# person_in_charge: xavier.desroches at edf.fr
 
 
 def macro_elas_mult_prod(self,NUME_DDL,CAS_CHARGE,**args ):
@@ -27348,8 +27662,8 @@ MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",
                       op=OPS('Macro.macro_elas_mult_ops.macro_elas_mult_ops'),
                       sd_prod=macro_elas_mult_prod,
                       reentrant='f',
-                      UIinfo={"groupes":("Résolution",)},
-                      fr="Calculer les réponses statiques linéaires pour différents cas " \
+                      UIinfo={"groupes":("Résolution",)},
+                      fr="Calculer les réponses statiques linéaires pour différents cas " \
                          "de charges ou modes de Fourier",
          regles=(UN_PARMI('CHAR_MECA_GLOBAL','LIAISON_DISCRET', ),),
          MODELE          =SIMP(statut='o',typ=modele_sdaster),
@@ -27373,14 +27687,14 @@ MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",
          SOLVEUR         =FACT(statut='d',
            METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT") ),
            b_mult_front    = BLOC ( condition = "METHODE == 'MULT_FRONT' ",
-                                    fr="Paramètres de la méthode multi frontale",
+                                    fr="Paramètres de la méthode multi frontale",
              RENUM           =SIMP(statut='f',typ='TXM',defaut="METIS",into=("MD","MDA","METIS") ),
            ),
-           b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
+           b_ldlt          =BLOC(condition = "METHODE == 'LDLT' ",fr="Paramètres de la méthode LDLT",
              RENUM           =SIMP(statut='f',typ='TXM',defaut="RCMK",into=("RCMK","SANS") ),
             ),
            b_ldlt_mult     =BLOC(condition = "METHODE == 'LDLT' or METHODE == 'MULT_FRONT' ",
-                                   fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
+                                   fr="Paramètres relatifs à la non inversibilité de la matrice à factorise",
              NPREC           =SIMP(statut='f',typ='I',defaut= 8 ),
              STOP_SINGULIER  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
            ),
@@ -27388,8 +27702,7 @@ MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2)),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 06/08/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -27406,7 +27719,7 @@ MACRO_ELAS_MULT=MACRO(nom="MACRO_ELAS_MULT",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE BODEL C.BODEL
+# person_in_charge: albert.alarcon at edf.fr
 
 
 def macro_expans_prod(self, MODELE_MESURE, RESU_NX, RESU_EX, RESU_ET, RESU_RD, **args):
@@ -27424,7 +27737,7 @@ MACRO_EXPANS=MACRO(nom="MACRO_EXPANS",
                    op=OPS('Macro.macro_expans_ops.macro_expans_ops'),
                    sd_prod=macro_expans_prod,
                    reentrant='n',
-                   UIinfo={"groupes":("Outils-métier","Dynamique",)},
+                   UIinfo={"groupes":("Outils-métier","Dynamique",)},
                    fr="Outil d'expansion de resultats exprimentaux sur une base definie sur un modele numerique",
                         MODELE_CALCUL   = FACT(statut='o',
                            MODELE          = SIMP(statut='o',typ=(modele_sdaster) ),
@@ -27460,8 +27773,7 @@ MACRO_EXPANS=MACRO(nom="MACRO_EXPANS",
                                         ),
                                              ),
                    )
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -27478,7 +27790,7 @@ MACRO_EXPANS=MACRO(nom="MACRO_EXPANS",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GREFFET N.GREFFET
+# person_in_charge: nicolas.greffet at edf.fr
 
 
 def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_AJOU,**args):
@@ -27494,9 +27806,9 @@ def macro_matr_ajou_prod(self,MATR_AMOR_AJOU,MATR_MASS_AJOU,MATR_RIGI_AJOU,FORC_
 MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",
                       op=OPS('Macro.macro_matr_ajou_ops.macro_matr_ajou_ops'),
                       sd_prod=macro_matr_ajou_prod,
-                      UIinfo={"groupes":("Résolution","Matrices et vecteurs",)},
-                      fr="Calculer de facon plus condensée qu'avec CALC_MATR_AJOU des " \
-                         "matrices de masse, d'amortissement ou de rigidité ajoutés",
+                      UIinfo={"groupes":("Résolution","Matrices et vecteurs",)},
+                      fr="Calculer de facon plus condensée qu'avec CALC_MATR_AJOU des " \
+                         "matrices de masse, d'amortissement ou de rigidité ajoutés",
       regles=(AU_MOINS_UN('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
               AU_MOINS_UN('MATR_MASS_AJOU','MATR_AMOR_AJOU','MATR_RIGI_AJOU'),
               EXCLUS('MODE_MECA','DEPL_IMPO','MODELE_GENE'),
@@ -27551,77 +27863,7 @@ MACRO_MATR_AJOU=MACRO(nom="MACRO_MATR_AJOU",
          NOEUD_DOUBLE    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
          AVEC_MODE_STAT  =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
 )
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
-# 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 2 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, WRITE TO EDF R&D CODE_ASTER,
-#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
-# ======================================================================
-# RESPONSABLE DEVESA G.DEVESA
 
-
-MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",
-                    op=OPS('Macro.macro_miss_3d_ops.macro_miss_3d_ops'),
-                    fr="Préparation des données puis exécution du logiciel MISS3D",
-                    UIinfo={"groupes":("Résolution","Outils-métier",)},
-         OPTION          =FACT(statut='o',
-           regles=(UN_PARMI('TOUT','MODULE'),),
-           TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
-           MODULE          =SIMP(statut='f',typ='TXM',into=("PRE_MISS","MISS_EVOL","MISS_IMPE")),
-         ),
-         PROJET          =SIMP(statut='o',typ='TXM'),
-         REPERTOIRE      =SIMP(statut='f',typ='TXM'),
-         VERSION         =SIMP(statut='f',typ='TXM',into=("V1_3","V1_4","V1_5",),defaut="V1_4"),
-         UNITE_IMPR_ASTER=SIMP(statut='f',typ='I',defaut=25),
-         UNITE_OPTI_MISS =SIMP(statut='f',typ='I',defaut=26),
-         UNITE_MODELE_SOL=SIMP(statut='f',typ='I',defaut=27),
-         TABLE_SOL       =SIMP(statut='f',typ=table_sdaster, fr="Caractéristiques du sol"),
-         UNITE_RESU_IMPE =SIMP(statut='f',typ='I',defaut=30),
-         UNITE_RESU_FORC =SIMP(statut='f',typ='I',defaut=0),
-         PARAMETRE       =FACT(statut='f',
-           regles=(PRESENT_PRESENT('FREQ_MIN','FREQ_MAX','FREQ_PAS'),
-                   PRESENT_PRESENT('CONTR_NB','CONTR_LISTE'),
-                   PRESENT_PRESENT('LFREQ_NB','LFREQ_LISTE'),
-                   PRESENT_PRESENT('OFFSET_MAX','OFFSET_NB'),
-                   PRESENT_PRESENT('SPEC_MAX','SPEC_NB'),),
-           FREQ_MIN        =SIMP(statut='f',typ='R'),
-           FREQ_MAX        =SIMP(statut='f',typ='R'),
-           FREQ_PAS        =SIMP(statut='f',typ='R'),
-           Z0              =SIMP(statut='f',typ='R'),
-           SURF            =SIMP(statut='f',typ='TXM',into=("OUI","NON",),defaut="NON"),
-           RFIC            =SIMP(statut='f',typ='R'),
-           FICH_RESU_IMPE  =SIMP(statut='f',typ='TXM'),
-           FICH_RESU_FORC  =SIMP(statut='f',typ='TXM'),
-           TYPE            =SIMP(statut='f',typ='TXM',into=("BINAIRE","ASCII",),defaut="ASCII"),
-           DREF            =SIMP(statut='f',typ='R'),
-           ALGO            =SIMP(statut='f',typ='TXM',into=("DEPL","REGU")),
-           OFFSET_MAX      =SIMP(statut='f',typ='R'),
-           OFFSET_NB       =SIMP(statut='f',typ='I'),
-           SPEC_MAX        =SIMP(statut='f',typ='R'),
-           SPEC_NB         =SIMP(statut='f',typ='I'),
-           ISSF            =SIMP(statut='f',typ='TXM',into=("OUI","NON",),defaut="NON"),
-           FICH_POST_TRAI  =SIMP(statut='f',typ='TXM'),
-           CONTR_NB        =SIMP(statut='f',typ='I'),
-           CONTR_LISTE     =SIMP(statut='f',typ='R',max='**'),
-           LFREQ_NB        =SIMP(statut='f',typ='I'),
-           LFREQ_LISTE     =SIMP(statut='f',typ='R',max='**'),
-           DIRE_ONDE       =SIMP(statut='f',typ='R',max='**'),
-         ),
-)  ;
-#& MODIF COMMANDE  DATE 26/02/2013   AUTEUR BOITEAU O.BOITEAU 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -27638,16 +27880,25 @@ MACRO_MISS_3D=MACRO(nom="MACRO_MISS_3D",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE NISTOR I.NISTOR
+# person_in_charge: nicolas.brie at edf.fr
+
+def macro_mode_meca_prod( self, MATR_RIGI,MATR_MASS, **args) :
+   if ( AsType(MATR_RIGI) == matr_asse_gene_r ):
+      if ( AsType(MATR_MASS) == matr_asse_gene_r ):
+         return mode_gene
+      else:
+         raise AsException("Matrices d'entrée de types différents : physique / généralisée.")
+
+   return mode_meca
 
 
 MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",
                      op=OPS('Macro.macro_mode_meca_ops.macro_mode_meca_ops'),
-                     sd_prod=mode_meca,
-                     reentrant='n',fr="Lancer une succession de calculs de modes propres réels",
-            UIinfo={"groupes":("Résolution","Dynamique",)},
-         MATR_RIGI       =SIMP(statut='o',typ=matr_asse_depl_r ),
-         MATR_MASS       =SIMP(statut='o',typ=matr_asse_depl_r ),
+                     sd_prod=macro_mode_meca_prod,
+                     reentrant='n',fr="Lancer une succession de calculs de modes propres réels",
+            UIinfo={"groupes":("Résolution","Dynamique",)},
+         MATR_RIGI       =SIMP(statut='o',typ=(matr_asse_depl_r, matr_asse_gene_r) ),
+         MATR_MASS       =SIMP(statut='o',typ=(matr_asse_depl_r, matr_asse_gene_r) ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 #  ce mot cle ne devrait il pas etre dans calc_freq
          METHODE         =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
@@ -27667,7 +27918,7 @@ MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",
          b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
-           PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
+           PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717),
          ),
 
          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS") ),
@@ -27695,7 +27946,8 @@ MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",
            STURM           =SIMP(statut='f',typ='TXM',defaut="GLOBAL",into=("GLOBAL","LOCAL","NON") ),
          ),
 
-         NORM_MODE       =FACT(statut='o',max='**',
+         b_matr_phys =BLOC( condition = "AsType(MATR_RIGI) == matr_asse_depl_r",
+         NORM_MODE       =FACT(statut='d',max='**',
            NORME           =SIMP(statut='f',typ='TXM',defaut="TRAN_ROTA",
                                  into=("MASS_GENE","RIGI_GENE","EUCL",
                                        "EUCL_TRAN","TRAN","TRAN_ROTA") ),
@@ -27714,9 +27966,9 @@ MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",
            CRIT_EXTR       =SIMP(statut='f',typ='TXM',defaut="MASS_EFFE_UN",
                                  into=("MASS_EFFE_UN","MASS_GENE",) ),
          ),
+                          ),
 )  ;
-#& MODIF COMMANDE  DATE 01/03/2011   AUTEUR LEFEBVRE J-P.LEFEBVRE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -27733,11 +27985,11 @@ MACRO_MODE_MECA=MACRO(nom="MACRO_MODE_MECA",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 #
 MAJ_CATA=PROC(nom="MAJ_CATA",op=20,
               UIinfo={"groupes":("Gestion du travail",)},
-              fr="Compilation des catalogues d'éléments et couverture des calculs élémentaires",
+              fr="Compilation des catalogues d'éléments et couverture des calculs élémentaires",
               regles=(UN_PARMI('ELEMENT','TYPE_ELEM', ),),
 
               ELEMENT     =FACT(statut='f',),
@@ -27745,8 +27997,7 @@ MAJ_CATA=PROC(nom="MAJ_CATA",op=20,
               UNITE       =SIMP(statut='f',typ='I',defaut=8),       
               TYPE_ELEM   =FACT(statut='f',),
 );
-#& MODIF COMMANDE  DATE 23/10/2012   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -27763,18 +28014,18 @@ MAJ_CATA=PROC(nom="MAJ_CATA",op=20,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
-                   fr="Résoudre un problème de mécanique statique linéaire",reentrant='f',
-            UIinfo={"groupes":("Résolution","Mécanique",)},
+                   fr="Résoudre un problème de mécanique statique linéaire",reentrant='f',
+            UIinfo={"groupes":("Résolution","Mécanique",)},
          regles=(EXCLUS("INST","LIST_INST"),
                  AU_MOINS_UN('CHAM_MATER','CARA_ELEM',),),
          MODELE          =SIMP(statut='o',typ=modele_sdaster),
          CHAM_MATER      =SIMP(statut='f',typ=cham_mater,
-         fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
+         fr="le CHAM_MATER est nécessaire, sauf si le modèle ne contient que des éléments discrets (modélisations DIS_XXX)",
          ang="CHAM_MATER is compulsory, except if the model contains only discret elements (modelizations DIS_XXX)"),
          CARA_ELEM       =SIMP(statut='f',typ=cara_elem,
-         fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
+         fr="le CARA_ELEM est nécessaire dès que le modèle contient des éléments de structure : coques, poutres, ...",
          ang="CARA_ELEM is compulsory as soon as the model contains structural elements : plates, beams, ..."),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          EXCIT           =FACT(statut='o',max='**',
@@ -27795,8 +28046,7 @@ MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
 #-------------------------------------------------------------------
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -27813,12 +28063,12 @@ MECA_STATIQUE=OPER(nom="MECA_STATIQUE",op=46,sd_prod=evol_elas,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE BODEL C.BODEL
+# person_in_charge: mathieu.corus at edf.fr
 MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op=  80,sd_prod=mode_cycl,
-                    fr="Calcul des modes propres d'une structure à répétitivité cyclique à partir"
-                        +" d'une base de modes propres réels",
+                    fr="Calcul des modes propres d'une structure à répétitivité cyclique à partir"
+                        +" d'une base de modes propres réels",
                     reentrant='n',
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+            UIinfo={"groupes":("Résolution","Dynamique",)},
          BASE_MODALE     =SIMP(statut='o',typ=mode_meca ),
          NB_MODE         =SIMP(statut='f',typ='I',defaut= 999 ),
          NB_SECTEUR      =SIMP(statut='o',typ='I' ),
@@ -27852,8 +28102,7 @@ MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op=  80,sd_prod=mode_cycl,
          ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 22/04/2013   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -27870,13 +28119,21 @@ MODE_ITER_CYCL=OPER(nom="MODE_ITER_CYCL",op=  80,sd_prod=mode_cycl,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE O.BOITEAU
+#
 
 def mode_iter_inv_prod(TYPE_RESU,**args ):
+  if (TYPE_RESU not in ["DYNAMIQUE","MODE_FLAMB","GENERAL"]):
+     # on retourne un type fictif pour que le plantage aie lieu dans la lecture du catalogue
+     return ASSD
   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
   if TYPE_RESU == "GENERAL"    : return mode_flamb
-  vale_rigi=args['MATR_RIGI']
-  vale_amor=args['MATR_AMOR']
+  # sinon on est dans le cas 'DYNAMIQUE' donc **args doit contenir les mots-clés
+  # MATR_RIGI et (faculativement) MATR_AMOR, et on peut y accéder
+  vale_rigi = args['MATR_RIGI']
+  if (vale_rigi== None) : # si MATR_RIGI non renseigné
+     # on retourne un type fictif pour que le plantage aie lieu dans la lecture du catalogue
+     return ASSD
+  vale_amor = args['MATR_AMOR']
   if AsType(vale_amor) == matr_asse_depl_r : return mode_meca_c
   if AsType(vale_rigi) == matr_asse_depl_r : return mode_meca
   if AsType(vale_rigi) == matr_asse_pres_r : return mode_acou
@@ -27884,9 +28141,9 @@ def mode_iter_inv_prod(TYPE_RESU,**args ):
   raise AsException("type de concept resultat non prevu")
 
 MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
-                    ,fr="Calcul des modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
+                    ,fr="Calcul des modes propres par itérations inverses ; valeurs propres et modes réels ou complexes",
                      reentrant='n',
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+            UIinfo={"groupes":("Résolution","Dynamique",)},
 
          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="DYNAMIQUE",
                                into=("MODE_FLAMB","DYNAMIQUE","GENERAL"),
@@ -27896,7 +28153,7 @@ MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
            MATR_RIGI       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
            MATR_MASS       =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_gene_r,matr_asse_pres_r ) ),
            MATR_AMOR       =SIMP(statut='f',typ=matr_asse_depl_r ),
-           CALC_FREQ       =FACT(statut='o',fr="Choix des paramètres pour le calcul des valeurs propres",
+           CALC_FREQ       =FACT(statut='o',fr="Choix des paramètres pour le calcul des valeurs propres",
 
              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
                                    fr="Choix de l option pour estimer les valeurs propres"  ),
@@ -27925,7 +28182,7 @@ MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
            ),
 
          b_flamb_general =BLOC(condition = "(TYPE_RESU == 'MODE_FLAMB') or (TYPE_RESU == 'GENERAL')",
-           CALC_CHAR_CRIT  =FACT(statut='o',fr="Choix des paramètres pour le calcul des valeurs propres",
+           CALC_CHAR_CRIT  =FACT(statut='o',fr="Choix des paramètres pour le calcul des valeurs propres",
 
              OPTION          =SIMP(statut='f',typ='TXM',defaut="AJUSTE",into=("SEPARE","AJUSTE","PROCHE"),
                                  fr="Choix de l option pour estimer les valeurs propres"  ),
@@ -27948,9 +28205,9 @@ MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
          SOLVEUR         =C_SOLVEUR('MODE_ITER_INV'),
 #-------------------------------------------------------------------
 
-         CALC_MODE       =FACT(statut='d',min=0,fr="Choix des paramètres pour le calcul des vecteurs propres",
+         CALC_MODE       =FACT(statut='d',min=0,fr="Choix des paramètres pour le calcul des vecteurs propres",
            OPTION          =SIMP(statut='f',typ='TXM',defaut="DIRECT",into=("DIRECT","RAYLEIGH") ),
-           PREC            =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=1.E-70,fr="Précision de convergence" ),
+           PREC            =SIMP(statut='f',typ='R',defaut= 1.E-5,val_min=1.E-70,fr="Précision de convergence" ),
            NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 30,val_min=1 ),
          ),
          VERI_MODE       =FACT(statut='d',min=0,
@@ -27961,8 +28218,7 @@ MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
          TITRE           =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 22/04/2013   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -27979,14 +28235,20 @@ MODE_ITER_INV=OPER(nom="MODE_ITER_INV",op=  44,sd_prod=mode_iter_inv_prod
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE O.BOITEAU
+#
 
 def mode_iter_simult_prod(TYPE_RESU,**args ):
+  if (TYPE_RESU not in ["DYNAMIQUE","MODE_FLAMB","GENERAL"]):
+     # on retourne un type fictif pour que le plantage aie lieu dans la lecture du catalogue
+     return ASSD
   if TYPE_RESU == "MODE_FLAMB" : return mode_flamb
   if TYPE_RESU == "GENERAL" :    return mode_flamb
-# sinon on est dans le cas 'DYNAMIQUE' donc **args contient les mots-clés
-# MATR_RIGI et (faculativement) MATR_AMOR, et on peut y accéder
+  # sinon on est dans le cas 'DYNAMIQUE' donc **args doit contenir les mots-clés
+  # MATR_RIGI et (faculativement) MATR_AMOR, et on peut y accéder
   vale_rigi = args['MATR_RIGI']
+  if (vale_rigi== None) : # si MATR_RIGI non renseigné
+     # on retourne un type fictif pour que le plantage aie lieu dans la lecture du catalogue
+     return ASSD
   vale_amor = args['MATR_AMOR']
   if (AsType(vale_amor)== matr_asse_depl_r) : return mode_meca_c
   if (AsType(vale_rigi)== matr_asse_depl_r) : return mode_meca
@@ -28000,10 +28262,10 @@ def mode_iter_simult_prod(TYPE_RESU,**args ):
 
 
 MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45, sd_prod= mode_iter_simult_prod,
-                      fr="Calcul des modes propres par itérations simultanées ; valeurs propres et"
-                         +" modes propres réels ou complexes",
+                      fr="Calcul des modes propres par itérations simultanées ; valeurs propres et"
+                         +" modes propres réels ou complexes",
                       reentrant='n',
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+            UIinfo={"groupes":("Résolution","Dynamique",)},
          METHODE         =SIMP(statut='f',typ='TXM',defaut="SORENSEN",
                                into=("TRI_DIAG","JACOBI","SORENSEN","QZ") ),
          b_tri_diag =BLOC(condition = "METHODE == 'TRI_DIAG'",
@@ -28021,7 +28283,7 @@ MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45, sd_prod= mode_iter_simult_
          b_sorensen =BLOC(condition = "METHODE == 'SORENSEN'",
            PREC_SOREN      =SIMP(statut='f',typ='R',defaut= 0.E+0,val_min=0.E+0 ),
            NMAX_ITER_SOREN =SIMP(statut='f',typ='I',defaut= 20,val_min=0 ),
-           PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717,val_min=0.E+0 ),
+           PARA_ORTHO_SOREN=SIMP(statut='f',typ='R',defaut= 0.717),
          ),
          b_qz =BLOC(condition = "METHODE == 'QZ'",
            TYPE_QZ      =SIMP(statut='f',typ='TXM',defaut="QZ_SIMPLE",into=("QZ_QR","QZ_SIMPLE","QZ_EQUI") ),
@@ -28030,7 +28292,7 @@ MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45, sd_prod= mode_iter_simult_
                                into=("DYNAMIQUE","MODE_FLAMB","GENERAL"),
                                fr="Type d analyse" ),
          OPTION          =SIMP(statut='f',typ='TXM',defaut="SANS",into=("MODE_RIGIDE","SANS"),
-                               fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
+                               fr="Calcul des modes de corps rigide, uniquement pour la méthode TRI_DIAG" ),
 
 
          b_dynam        =BLOC(condition = "TYPE_RESU == 'DYNAMIQUE'",
@@ -28040,29 +28302,29 @@ MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45, sd_prod= mode_iter_simult_
            MATR_AMOR          =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_gene_r) ),
            CALC_FREQ       =FACT(statut='d',min=0,
              OPTION      =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","PLUS_GRANDE","BANDE","CENTRE","TOUT"),
-                                   fr="Choix de l option et par conséquent du shift du problème modal" ),
-             b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites fréquences propres",
+                                   fr="Choix de l option et par conséquent du shift du problème modal" ),
+             b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites fréquences propres",
                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut=10,val_min=0 ),
              ),
-             b_plus_grande =BLOC(condition = "OPTION == 'PLUS_GRANDE'",fr="Recherche des plus grandes fréquences propres",
+             b_plus_grande =BLOC(condition = "OPTION == 'PLUS_GRANDE'",fr="Recherche des plus grandes fréquences propres",
                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut=1,val_min=0 ),
              ),
              b_centre       =BLOC(condition = "OPTION == 'CENTRE'",
-                                  fr="Recherche des fréquences propres les plus proches d'une valeur donnée",
+                                  fr="Recherche des fréquences propres les plus proches d'une valeur donnée",
                FREQ            =SIMP(statut='o',typ='R',
-                                     fr="Fréquence autour de laquelle on cherche les fréquences propres"),
+                                     fr="Fréquence autour de laquelle on cherche les fréquences propres"),
                AMOR_REDUIT     =SIMP(statut='f',typ='R',),
                NMAX_FREQ       =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
              ),
              b_bande         =BLOC(condition = "(OPTION == 'BANDE')",
-                                   fr="Recherche des fréquences propres dans une bande donnée",
+                                   fr="Recherche des fréquences propres dans une bande donnée",
                FREQ            =SIMP(statut='o',typ='R',min=2,max=2,
                                      validators=AndVal((OrdList('croissant'), NoRepeat())),
-                                     fr="Valeur des deux fréquences délimitant la bande de recherche"),
+                                     fr="Valeur des deux fréquences délimitant la bande de recherche"),
                TABLE_FREQ      =SIMP(statut= 'f',typ=table_sdaster),
              ),
              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG","COMPLEXE"),
-                                   fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
+                                   fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
@@ -28088,26 +28350,26 @@ MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45, sd_prod= mode_iter_simult_
          b_flamb_general  =BLOC(condition = "(TYPE_RESU == 'MODE_FLAMB') or (TYPE_RESU == 'GENERAL')",
            CALC_CHAR_CRIT  =FACT(statut='d',min=0,
              OPTION       =SIMP(statut='f',typ='TXM',defaut="PLUS_PETITE",into=("PLUS_PETITE","BANDE","CENTRE","TOUT"),
-                                   fr="Choix de l option et par conséquent du shift du problème modal" ),
+                                   fr="Choix de l option et par conséquent du shift du problème modal" ),
              b_plus_petite =BLOC(condition = "OPTION == 'PLUS_PETITE'",fr="Recherche des plus petites valeurs propres",
                NMAX_CHAR_CRIT  =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
              ),
              b_centre      =BLOC(condition = "OPTION == 'CENTRE'",
-                                 fr="Recherche des valeurs propres les plus proches d une valeur donnée",
+                                 fr="Recherche des valeurs propres les plus proches d une valeur donnée",
                CHAR_CRIT       =SIMP(statut='o',typ='R',
                                      fr="Charge critique autour de laquelle on cherche les charges critiques propres"),
                NMAX_CHAR_CRIT  =SIMP(statut='f',typ='I',defaut= 10,val_min=0 ),
              ),
              b_bande       =BLOC(condition = "(OPTION == 'BANDE')",
-                                 fr="Recherche des valeurs propres dans une bande donnée",
+                                 fr="Recherche des valeurs propres dans une bande donnée",
                CHAR_CRIT       =SIMP(statut='o',typ='R',min=2,max=2,
                                      validators=AndVal((OrdList('croissant'), NoRepeat())),
-                                     fr="Valeur des deux charges critiques délimitant la bande de recherche"),
+                                     fr="Valeur des deux charges critiques délimitant la bande de recherche"),
                TABLE_CHAR_CRIT =SIMP(statut= 'f',typ=table_sdaster),
 
              ),
              APPROCHE        =SIMP(statut='f',typ='TXM',defaut="REEL",into=("REEL","IMAG"),
-                                   fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
+                                   fr="Choix du pseudo-produit scalaire pour la résolution du problème quadratique" ),
              regles=(EXCLUS('DIM_SOUS_ESPACE','COEF_DIM_ESPACE'),),
              DIM_SOUS_ESPACE =SIMP(statut='f',typ='I' ),
              COEF_DIM_ESPACE =SIMP(statut='f',typ='I' ),
@@ -28141,8 +28403,85 @@ MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45, sd_prod= mode_iter_simult_
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 24/10/2011   AUTEUR CORUS M.CORUS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
+# 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 2 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, WRITE TO EDF R&D CODE_ASTER,         
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
+# ======================================================================
+MODE_NON_LINE=OPER(nom="MODE_NON_LINE",op=  61,sd_prod=table_container,
+                     fr="Calcul des modes non-linéaires",
+                     reentrant='f',
+           UIinfo={"groupes":("Résolution","Dynamique",)},
+
+        reuse =SIMP(statut='f',typ='table_container'),
+
+        ETAT_INIT       =FACT(statut='o',max=1,
+                regles=( UN_PARMI('MODE_LINE','MODE_NON_LINE'),),
+                       MODE_LINE = SIMP(statut='f',typ=mode_meca,max = 1),
+                       MODE_NON_LINE = SIMP(statut='f',typ=table_container,max = 1),
+                       NUME_ORDRE = SIMP(statut='o',typ='I' ),
+                       DIR_EVOLUTION    = SIMP(statut='f',typ='I',defaut=-1, into=(-1,1)),
+                       COEF_AMPL = SIMP(statut='f',typ='R',defaut=1,),
+                  ),
+
+        CHOC = FACT(statut='f',max='**',
+                regles=( UN_PARMI('NOEUD','GROUP_NO'),),
+                    OBSTACLE = SIMP(statut='f',typ='TXM', into=("PLAN","BI_PLAN","CERCLE",)),
+                    b_cercle = BLOC(condition="OBSTACLE=='CERCLE'",
+                                     NOM_CMP = SIMP(statut='o',typ='TXM',min=2,max=2,validators=NoRepeat(),
+                                                    into=('DX','DY','DZ'),),
+                                     ORIG_OBST = SIMP(statut='f',typ='R',defaut=(0.,0.,0.),min=3,max=3),
+                                     ),
+                    b_bi_plan = BLOC(condition="OBSTACLE=='BI_PLAN'",
+                                   NOM_CMP = SIMP(statut='o',typ='TXM',min=1,max=1,into=('DX','DY','DZ'),),
+                                   ),
+                    b_plan = BLOC(condition="OBSTACLE=='PLAN'",
+                                   NOM_CMP = SIMP(statut='o',typ='TXM',min=1,max=1,into=('DX','DY','DZ'),),
+                                    ),
+                    NOEUD = SIMP(statut='f', typ=no, max=1),
+                    GROUP_NO = SIMP(statut='f', typ=grno, max=1),
+                    JEU = SIMP(statut='o',typ='R',max=1 ),
+                    RIGI_NOR = SIMP(statut='o',typ='R',max=1 ),
+                    PARA_REGUL = SIMP(statut='f',typ='R',defaut=0.005 ),
+                ),
+
+        MATR_RIGI = SIMP(statut='o',typ=(matr_asse_depl_r,) ),
+        MATR_MASS = SIMP(statut='o',typ=(matr_asse_depl_r,) ),
+
+        RESOLUTION = FACT(statut='o',max=1,
+                       METHODE = SIMP(statut='f',typ='TXM',defaut="EHMAN",into=("EHMAN",)),
+                       b_ehman = BLOC(condition="METHODE=='EHMAN'",
+                                    NB_HARM_LINE = SIMP(statut='o',typ='I',val_min=1,),
+                                    NB_HARM_NONL = SIMP(statut='f',typ='I',defaut=201,val_min=1,),
+                                    NB_BRANCHE = SIMP(statut='o',typ='I',val_min=0),
+                                    NB_PAS_MAN = SIMP(statut='o',typ='I',val_min=1),
+                                    NB_ORDRE_MAN = SIMP(statut='f',typ='I',defaut=20,val_min=2),
+                                    PREC_MAN = SIMP(statut='f',typ='R',defaut=1.E-9,val_min=0.E+0),
+                                    PREC_NEWTON = SIMP(statut='f',typ='R',defaut=1.E-8,val_min=0.E+0),
+                                    ITER_NEWTON_MAXI = SIMP(statut='f',typ='I',defaut=15,val_min=1),
+                                    CRIT_ORDR_BIFURCATION = SIMP(statut='f',typ='I',defaut=3,val_min=1),
+                                    RESI_RELA_BIFURCATION = SIMP(statut='f',typ='R',defaut=1.E-4,val_min=0.E+0),
+                                   ),
+                       ),
+
+        SOLVEUR = C_SOLVEUR('MODE_NON_LINE'),
+        
+        INFO = SIMP(statut='f',typ='I',defaut=1),
+
+)  ;
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -28159,12 +28498,12 @@ MODE_ITER_SIMULT=OPER(nom="MODE_ITER_SIMULT",op=  45, sd_prod= mode_iter_simult_
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE NISTOR I.NISTOR
+# person_in_charge: georges-cc.devesa at edf.fr
 
 MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_meca,
-                   fr="Calcul de déformées statiques pour un déplacement, une force ou une accélération unitaire imposé",
+                   fr="Calcul de déformées statiques pour un déplacement, une force ou une accélération unitaire imposé",
                    reentrant='n',
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+            UIinfo={"groupes":("Résolution","Dynamique",)},
 
          regles=(UN_PARMI('MODE_STAT','FORCE_NODALE','PSEUDO_MODE','MODE_INTERF'),
                  PRESENT_PRESENT('MODE_INTERF','MATR_MASS'),
@@ -28235,8 +28574,7 @@ MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_meca,
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -28253,10 +28591,10 @@ MODE_STATIQUE=OPER(nom="MODE_STATIQUE",op= 93,sd_prod=mode_meca,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE ADOBES A.ADOBES
+# person_in_charge: andre.adobes at edf.fr
 MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
                       reentrant='f',
-            fr="Définir la base modale d'une structure sous écoulement",
+            fr="Définir la base modale d'une structure sous écoulement",
             UIinfo={"groupes":("Matrices et vecteurs",)},
 #  la commande modi_base _modale : reentrant = f ou o                      
          regles=(EXCLUS('AMOR_UNIF','AMOR_REDUIT', ),),
@@ -28269,8 +28607,7 @@ MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 14/02/2011   AUTEUR GREFFET N.GREFFET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -28287,7 +28624,7 @@ MODI_BASE_MODALE=OPER(nom="MODI_BASE_MODALE",op= 149,sd_prod=mode_meca,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE GREFFET N.GREFFET
+# person_in_charge: nicolas.greffet at edf.fr
 #
 #  RECUPERATION DES EFFORTS VIA YACS POUR COUPLAGE IFS
 #
@@ -28295,7 +28632,7 @@ MODI_CHAR_YACS=OPER(nom            = "MODI_CHAR_YACS",
                    op              = 112,
                    sd_prod         = char_meca,
                    reentrant       = 'o',
-                   UIinfo          = {"groupes":("Résultats et champs",)},
+                   UIinfo          = {"groupes":("Résultats et champs",)},
                    fr              = "Reception des forces nodales via YACS lors du couplage de  Code_Aster et Saturne",
                    CHAR_MECA       = SIMP(statut ='o', typ = char_meca),
                    MATR_PROJECTION = SIMP(statut ='o', typ = corresp_2_mailla,),
@@ -28308,8 +28645,7 @@ MODI_CHAR_YACS=OPER(nom            = "MODI_CHAR_YACS",
                    NUME_ORDRE_YACS = SIMP(statut='o', typ='I',),
                    INFO            = SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 );
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -28326,10 +28662,10 @@ MODI_CHAR_YACS=OPER(nom            = "MODI_CHAR_YACS",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage_sdaster,
-                   fr="Effectuer des modifications sur un maillage existant: réorienter des mailles servant,"
-                      +" à l'application d'une pression, à la modélisation du contact,...",
+                   fr="Effectuer des modifications sur un maillage existant: réorienter des mailles servant,"
+                      +" à l'application d'une pression, à la modélisation du contact,...",
                    reentrant='o',
             UIinfo={"groupes":("Maillage",)},
       regles=(AU_MOINS_UN('ORIE_FISSURE','DEFORME','EQUE_PIQUA','ORIE_PEAU_2D',
@@ -28457,9 +28793,9 @@ MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage_sdaster,
            DIR              =SIMP(statut='f',typ='R',min=2,max=3),
          ),
          SYMETRIE        =FACT(statut='f',max='**',
-                          fr = "Symétrie du maillage par rapport à un plan en 3D ou à une droite en 2D.",
+                          fr = "Symétrie du maillage par rapport à un plan en 3D ou à une droite en 2D.",
            POINT           =SIMP(statut='o',typ='R',min=2,max=3,
-                            fr="Point appartenant à la droite ou au plan."),
+                            fr="Point appartenant à la droite ou au plan."),
            AXE_1           =SIMP(statut='o',typ='R',min=2,max=3,
                             fr="Vecteur directeur de la droite ou 1er vecteur appartenant au plan."),
            AXE_2           =SIMP(statut='f',typ='R',min=3,max=3,
@@ -28467,8 +28803,7 @@ MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage_sdaster,
          ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2009  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -28485,11 +28820,11 @@ MODI_MAILLAGE=OPER(nom="MODI_MAILLAGE",op= 154,sd_prod=maillage_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 MODI_MODELE=OPER(nom="MODI_MODELE",op= 103,sd_prod=modele_sdaster,reentrant='o',
-         UIinfo={"groupes":("Modélisation",)},
-         fr="Modifier la partition d'un modèle (parallélisme) ",
+         UIinfo={"groupes":("Modélisation",)},
+         fr="Modifier la partition d'un modèle (parallélisme) ",
 
          MODELE          =SIMP(statut='o',typ=modele_sdaster,min=1,max=1,),
 
@@ -28500,13 +28835,12 @@ MODI_MODELE=OPER(nom="MODI_MODELE",op= 103,sd_prod=modele_sdaster,reentrant='o',
                  CHARGE_PROC0_MA =SIMP(statut='f',typ='I',defaut=100,val_min=0),
              ),
              b_dist_sd          =BLOC(condition = "PARALLELISME == 'SOUS_DOMAINE'",
-                 PARTITION       =SIMP(statut='o',typ=sd_feti_sdaster),
+                 PARTITION       =SIMP(statut='o',typ=sd_partit),
                  CHARGE_PROC0_SD =SIMP(statut='f',typ='I',defaut=0,val_min=0),
              ),
          ),
 )  ;
-#& MODIF COMMANDE  DATE 19/12/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -28523,10 +28857,10 @@ MODI_MODELE=OPER(nom="MODI_MODELE",op= 103,sd_prod=modele_sdaster,reentrant='o',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 MODI_MODELE_XFEM=OPER(nom="MODI_MODELE_XFEM",op= 113,sd_prod=modele_sdaster,docu="U4.44.12-e",reentrant='f',
-            UIinfo={"groupes":("Modélisation","Rupture",)},
+            UIinfo={"groupes":("Modélisation","Rupture",)},
                            fr="Engendrer ou enrichir une structure de donnees en affectant les cham_gd associes",
                            
     MODELE_IN       =SIMP(statut='o',typ=modele_sdaster,min=1,max=1,),
@@ -28534,46 +28868,9 @@ MODI_MODELE_XFEM=OPER(nom="MODI_MODELE_XFEM",op= 113,sd_prod=modele_sdaster,docu
     CRITERE         =SIMP(statut='f',typ='R',defaut=1.1E-9),
     INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,)),
     CONTACT        
-     =SIMP(statut='f',typ='TXM',defaut='SANS',into=("P1P1","P2P1","SANS"),min=1,max=1,),
-)  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
-# ======================================================================
-# COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
-# 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 2 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, WRITE TO EDF R&D CODE_ASTER,       
-#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
-# ======================================================================
-# RESPONSABLE KHAM M.KHAM
-MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=table_fonction,
-            fr="Calculer les obstacles dans les systèmes guidage-tube après usure",
-            reentrant='f',
-            UIinfo={"groupes":("Modélisation",)},
-      regles=(PRESENT_ABSENT('R_MOBILE','CRAYON'),
-              PRESENT_PRESENT('V_USUR_TUBE','V_USUR_OBST'),),
-         OBSTACLE        =SIMP(statut='f',typ=table_fonction),
-         GUIDE           =SIMP(statut='o',typ=table_sdaster),
-         CRAYON          =SIMP(statut='f',typ=table_sdaster),
-         TABL_USURE      =SIMP(statut='f',typ=table_sdaster),
-         INST            =SIMP(statut='f',typ='R'),  
-         R_MOBILE        =SIMP(statut='f',typ='R'),  
-         PERCEMENT       =SIMP(statut='f',typ='R',defaut=1),  
-         V_USUR_TUBE     =SIMP(statut='f',typ='R',max='**'),
-         V_USUR_OBST     =SIMP(statut='f',typ='R',max='**'),
-         INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
+     =SIMP(statut='f',typ='TXM',defaut='NON',into=("OUI","NON"),min=1,max=1,),
 )  ;
-#& MODIF COMMANDE  DATE 13/05/2013   AUTEUR MACOCCO K.MACOCCO 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -28590,13 +28887,13 @@ MODI_OBSTACLE=OPER(nom="MODI_OBSTACLE",op=182,sd_prod=table_fonction,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: xavier.desroches at edf.fr
 def modi_repere_prod(RESULTAT,**args):
   if AsType(RESULTAT) != None : return AsType(RESULTAT)
 
 MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,reentrant='f',
-            UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
-                    fr="Calcule des résultats dans le repère cylindrique",
+            UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
+                    fr="Calcule des résultats dans le repère cylindrique",
          RESULTAT        =SIMP(statut='o',typ=resultat_sdaster),
 
          regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
@@ -28620,14 +28917,12 @@ MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,reentrant='f'
 
          MODI_CHAM       =FACT(statut='o',max='**',
            TYPE_CHAM       =SIMP(statut='o',typ='TXM',
-              into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D","COQUE_GENE"),),
+              into=("VECT_2D","VECT_3D","TENS_2D","TENS_3D","COQUE_GENE"),),
            NOM_CHAM        =SIMP(statut='o',typ='TXM',validators=NoRepeat(),into=C_NOM_CHAM_INTO()),
            b_vect_2d       =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
               NOM_CMP         =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
            b_vect_3d       =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
               NOM_CMP         =SIMP(statut='o',typ='TXM',min=3,max=3 ),),
-           b_tors_3d       =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
-              NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
            b_tens_2d       =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
               NOM_CMP         =SIMP(statut='o',typ='TXM',min=4,max=4 ),),
            b_tens_3d       =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
@@ -28672,8 +28967,7 @@ MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,reentrant='f'
           TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
 )  ;
-#& MODIF COMMANDE  DATE 05/03/2013   AUTEUR BRIE N.BRIE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -28690,7 +28984,7 @@ MODI_REPERE=OPER(nom="MODI_REPERE",op=191,sd_prod=modi_repere_prod,reentrant='f'
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE NISTOR I.NISTOR
+# person_in_charge: nicolas.brie at edf.fr
 
 def norm_mode_prod(MODE,**args ):
   if AsType(MODE) == mode_meca   : return mode_meca
@@ -28699,15 +28993,15 @@ def norm_mode_prod(MODE,**args ):
   raise AsException("type de concept resultat non prevu")
 
 NORM_MODE=OPER(nom="NORM_MODE",op=  37,sd_prod=norm_mode_prod,
-               fr="Normer des modes propres en fonction d'un critère choisi par l'utilisateur",
+               fr="Normer des modes propres en fonction d'un critère choisi par l'utilisateur",
                reentrant='f',
-            UIinfo={"groupes":("Résolution","Dynamique",)},
+            UIinfo={"groupes":("Résolution","Dynamique",)},
          regles=(UN_PARMI('NORME','GROUP_NO','NOEUD','AVEC_CMP','SANS_CMP'),),
          MODE       =SIMP(statut='o',typ=(mode_meca,mode_flamb) ),
-         NORME      =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
+         NORME      =SIMP(statut='f',typ='TXM',fr="Norme prédéfinie : masse généralisée, euclidienne,...",
                           into=("MASS_GENE","RIGI_GENE","EUCL","EUCL_TRAN","TRAN","TRAN_ROTA") ),
-         NOEUD      =SIMP(statut='f',typ=no, fr="Composante donnée d'un noeud spécifié égale à 1"),
-         GROUP_NO   =SIMP(statut='f',typ=grno,fr="Composante donnée d'un groupe contenant un seul noeud spécifié égale à 1"),
+         NOEUD      =SIMP(statut='f',typ=no, fr="Composante donnée d'un noeud spécifié égale à 1"),
+         GROUP_NO   =SIMP(statut='f',typ=grno,fr="Composante donnée d'un groupe contenant un seul noeud spécifié égale à 1"),
          b_noeud    =BLOC(condition = "NOEUD != None or GROUP_NO != None",
            NOM_CMP    =SIMP(statut='o',typ='TXM' ),
          ),
@@ -28715,9 +29009,9 @@ NORM_MODE=OPER(nom="NORM_MODE",op=  37,sd_prod=norm_mode_prod,
          SANS_CMP   =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**'),
          MODE_SIGNE =FACT(statut='f',fr="Imposer un signe sur une des composantes des modes",
                   regles=(UN_PARMI('GROUP_NO','NOEUD'),),
-           NOEUD      =SIMP(statut='f',typ=no,fr="Noeud où sera imposé le signe"),
-           GROUP_NO   =SIMP(statut='f',typ=grno,fr="Groupe d'un seul noeud où sera imposé le signe"),
-           NOM_CMP    =SIMP(statut='o',typ='TXM',fr="Composante du noeud où sera imposé le signe" ),
+           NOEUD      =SIMP(statut='f',typ=no,fr="Noeud où sera imposé le signe"),
+           GROUP_NO   =SIMP(statut='f',typ=grno,fr="Groupe d'un seul noeud où sera imposé le signe"),
+           NOM_CMP    =SIMP(statut='o',typ='TXM',fr="Composante du noeud où sera imposé le signe" ),
            SIGNE      =SIMP(statut='f',typ='TXM',defaut="POSITIF",into=("NEGATIF","POSITIF"),
                             fr="Choix du signe" ),
          ),
@@ -28728,8 +29022,7 @@ NORM_MODE=OPER(nom="NORM_MODE",op=  37,sd_prod=norm_mode_prod,
          TITRE      =SIMP(statut='f',typ='TXM',max='**'),
          INFO       =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2) ),
 )  ;
-#& MODIF COMMANDE  DATE 20/06/2012   AUTEUR BOITEAU O.BOITEAU 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -28746,10 +29039,10 @@ NORM_MODE=OPER(nom="NORM_MODE",op=  37,sd_prod=norm_mode_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl_sdaster,reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
-              fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
+              fr="Etablissement de la numérotation des ddl avec ou sans renumérotation et du stockage de la matrice",
                   regles=(UN_PARMI('MATR_RIGI','MODELE'),),
          MATR_RIGI       =SIMP(statut='f',validators=NoRepeat(),max=100,
                                typ=(matr_elem_depl_r ,matr_elem_depl_c,matr_elem_temp_r ,matr_elem_pres_c) ),
@@ -28758,22 +29051,21 @@ NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl_sdaster,reentrant='n',
            CHARGE     =SIMP(statut='f',validators=NoRepeat(),max='**',typ=(char_meca,char_ther,char_acou, ),),
          ),
          METHODE         =SIMP(statut='f',typ='TXM',defaut="MULT_FRONT",into=("MULT_FRONT","LDLT","GCPC","PETSC","MUMPS") ),
-         b_mult_front    =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
+         b_mult_front    =BLOC(condition="METHODE=='MULT_FRONT'",fr="paramètres associés à la méthode multifrontale",
            RENUM           =SIMP(statut='f',typ='TXM',into=("MD","MDA","METIS"),defaut="METIS" ),
          ),
-         b_ldlt          =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
+         b_ldlt          =BLOC(condition="METHODE=='LDLT'",fr="paramètres associés à la méthode LDLT",
            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
          ),
-         b_mumps        =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
+         b_mumps        =BLOC(condition = "METHODE == 'MUMPS' ",fr="Paramètres de la méthode MUMPS",
            RENUM        =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("AMD","AMF","PORD","METIS","QAMD","SCOTCH","AUTO")),
          ),
-         b_gcpc          =BLOC(condition="METHODE=='GCPC' or METHODE=='PETSC'",fr="paramètres associés à la GCPC ou PETSc",
+         b_gcpc          =BLOC(condition="METHODE=='GCPC' or METHODE=='PETSC'",fr="paramètres associés à la GCPC ou PETSc",
            RENUM           =SIMP(statut='f',typ='TXM',into=("RCMK","SANS"),defaut="RCMK"  ),
          ),
          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
 )  ;
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -28790,9 +29082,9 @@ NUME_DDL=OPER(nom="NUME_DDL",op=11,sd_prod=nume_ddl_sdaster,reentrant='n',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE BODEL C.BODEL
+# person_in_charge: mathieu.corus at edf.fr
 NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
-                   fr="Etablissement de la numérotation des ddl d'un modèle etabli en coordonnées généralisees",
+                   fr="Etablissement de la numérotation des ddl d'un modèle etabli en coordonnées généralisees",
                     reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
          regles=UN_PARMI('MODELE_GENE','BASE'),
@@ -28807,8 +29099,7 @@ NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
                NB_VECT     =SIMP(statut='f',typ='I',defaut= 9999 ),
                              ),
 )  ;
-#& MODIF COMMANDE  DATE 19/03/2013   AUTEUR BRIE N.BRIE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -28825,7 +29116,7 @@ NUME_DDL_GENE=OPER(nom="NUME_DDL_GENE",op= 127,sd_prod=nume_ddl_gene,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BODEL C.BODEL
+# person_in_charge: harinaivo.andriambololona at edf.fr
 
 def observation_prod(self, RESULTAT, **args):
     if  AsType(RESULTAT) == mode_meca :
@@ -28869,15 +29160,15 @@ OBSERVATION=MACRO(nom="OBSERVATION",
          PROJECTION     =SIMP(statut='f',max=1,typ='TXM',into=("OUI","NON"),defaut="OUI"),
          CAS_FIGURE      =SIMP(statut='f',typ='TXM',into=("2D","3D","2.5D","1.5D",) ),
          DISTANCE_MAX    =SIMP(statut='f',typ='R',
-                fr="Distance maximale entre le noeud et l'élément le plus proche, lorsque le noeud n'est dans aucun élément."),
+                fr="Distance maximale entre le noeud et l'élément le plus proche, lorsque le noeud n'est dans aucun élément."),
          ALARME          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 
          TYPE_CHAM       =SIMP(statut='f',typ='TXM',into=("NOEU",),
-                fr="Pour forcer le type des champs projetés. NOEU -> cham_no"),
+                fr="Pour forcer le type des champs projetés. NOEU -> cham_no"),
 
 #           PROL_ZERO       =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON",
-#                fr="Si le résultat est un mode_xxx ou une base_xxx, on peut prolonger"
-#                   +" les champs par zéro la ou la projection ne donne pas de valeurs."),
+#                fr="Si le résultat est un mode_xxx ou une base_xxx, on peut prolonger"
+#                   +" les champs par zéro la ou la projection ne donne pas de valeurs."),
 
          MATR_RIGI       =SIMP(statut='f',typ=(matr_asse_depl_r) ),
          MATR_MASS       =SIMP(statut='f',typ=(matr_asse_depl_r) ),
@@ -28910,14 +29201,12 @@ OBSERVATION=MACRO(nom="OBSERVATION",
            TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
 #
            TYPE_CHAM       =SIMP(statut='f',typ='TXM',
-                                 into=("VECT_2D","VECT_3D","TORS_3D","TENS_2D","TENS_3D"),
+                                 into=("VECT_2D","VECT_3D","TENS_2D","TENS_3D"),
                                        defaut="VECT_3D"),
            b_vect_2d       =BLOC(condition = "TYPE_CHAM=='VECT_2D'",
               NOM_CMP         =SIMP(statut='o',typ='TXM',min=2,max=2 ),),
            b_vect_3d       =BLOC(condition = "TYPE_CHAM=='VECT_3D'",
               NOM_CMP         =SIMP(statut='f',typ='TXM',min=3,max=3,defaut=('DX','DY','DZ') ),),
-           b_tors_3d       =BLOC(condition = "TYPE_CHAM=='TORS_3D'",
-              NOM_CMP         =SIMP(statut='o',typ='TXM',min=6,max=6 ),),
            b_tens_2d       =BLOC(condition = "TYPE_CHAM=='TENS_2D'",
               NOM_CMP         =SIMP(statut='f',typ='TXM',min=4,max=4,defaut=('EPXX','EPYY','EPZZ','EPXY',) ),),
            b_tens_3d       =BLOC(condition = "TYPE_CHAM=='TENS_3D'",
@@ -28976,8 +29265,7 @@ OBSERVATION=MACRO(nom="OBSERVATION",
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
       )  ;
-#& MODIF COMMANDE  DATE 05/03/2013   AUTEUR GENIAUT S.GENIAUT 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -28994,7 +29282,7 @@ OBSERVATION=MACRO(nom="OBSERVATION",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE FERNANDES
+# person_in_charge: romeo.fernandes at edf.fr
 
 PERM_MAC3COEUR = MACRO(nom="PERM_MAC3COEUR",
                        op=OPS("Mac3coeur.perm_mac3coeur_ops.perm_mac3coeur_ops"),
@@ -29006,8 +29294,6 @@ PERM_MAC3COEUR = MACRO(nom="PERM_MAC3COEUR",
          TABLE_NP1    = SIMP(statut='o',typ=table_sdaster),         # TABLE INITIALE DES DAMAC A L INSTANT N+1
          MAILLAGE_NP1 = SIMP(statut='o',typ=maillage_sdaster),);    # MAILLAGE A L INSTANT N+1
 
-#& MODIF COMMANDE  DATE 30/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -29024,12 +29310,12 @@ PERM_MAC3COEUR = MACRO(nom="PERM_MAC3COEUR",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BARGELLINI R.BARGELLINI
+# person_in_charge: renaud.bargellini at edf.fr
 
 POST_BORDET =MACRO(nom="POST_BORDET",
                    op=OPS('Macro.post_bordet_ops.post_bordet_ops'),
                    sd_prod=table_sdaster,
-                   UIinfo={"groupes":("Outils-métier","Rupture",)},
+                   UIinfo={"groupes":("Outils-métier","Rupture",)},
                    reentrant='n',
                    fr="calcul de la probabilite de clivage via le modele de Bordet",
          regles=(UN_PARMI('TOUT','GROUP_MA'),
@@ -29037,7 +29323,7 @@ POST_BORDET =MACRO(nom="POST_BORDET",
                  ),
          TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",)),
          GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
-                           fr="le calcul ne sera effectué que sur ces mailles"),
+                           fr="le calcul ne sera effectué que sur ces mailles"),
          INST            =SIMP(statut='f',typ='R',validators=NoRepeat(),),
          PRECISION =SIMP(statut='f',typ='R',validators=NoRepeat(),val_min=0.,val_max=1E-3,defaut=1E-6),
          CRITERE   =SIMP(statut='f',typ='TXM',defaut="ABSOLU",into=("RELATIF","ABSOLU") ),
@@ -29070,8 +29356,7 @@ POST_BORDET =MACRO(nom="POST_BORDET",
          TEMP            =SIMP(statut='o',typ=(fonction_sdaster,'R')),
          COEF_MULT       =SIMP(statut='f',typ='R', defaut=1.),
            )
-#& MODIF COMMANDE  DATE 26/02/2013   AUTEUR CUVILLIE M.CUVILLIEZ 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -29088,7 +29373,7 @@ POST_BORDET =MACRO(nom="POST_BORDET",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 def post_cham_xfem_prod(RESULTAT,**args ):
  
   if AsType(RESULTAT) == evol_noli  : return evol_noli
@@ -29100,13 +29385,12 @@ def post_cham_xfem_prod(RESULTAT,**args ):
 
 POST_CHAM_XFEM=OPER(nom="POST_CHAM_XFEM",op= 196,sd_prod=post_cham_xfem_prod,
                     reentrant='n',UIinfo={"groupes":("Post-traitements","Rupture",)},
-            fr="Calcul des champs DEPL, SIEF_ELGA et VARI_ELGA sur le maillage de visualisation (fissuré)",
+            fr="Calcul des champs DEPL, SIEF_ELGA et VARI_ELGA sur le maillage de visualisation (fissuré)",
     RESULTAT      = SIMP(statut='o',typ=resultat_sdaster),
     MODELE_VISU   = SIMP(statut='o',typ=modele_sdaster,),
     INFO          = SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
 );                     
-#& MODIF COMMANDE  DATE 05/02/2013   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -29123,14 +29407,14 @@ POST_CHAM_XFEM=OPER(nom="POST_CHAM_XFEM",op= 196,sd_prod=post_cham_xfem_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 def post_champ_prod(RESULTAT,**args):
    if AsType(RESULTAT) != None : return AsType(RESULTAT)
    raise AsException("type de concept resultat non prevu")
 
 
-# liste des options possibles pour les 4 mots clés EXTR_COQUE, EXTR_TUYAY, EXTR_PMF et MIN_MAX_SP :
+# liste des options possibles pour les 4 mots clés EXTR_COQUE, EXTR_TUYAY, EXTR_PMF et MIN_MAX_SP :
 liste_option_extr=("EPEQ_ELGA","EPEQ_ELNO","EPSI_ELGA","EPSI_ELNO",
                    "SIEF_ELGA","SIEF_ELNO",
                    "SIEQ_ELGA","SIEQ_ELNO","SIGM_ELGA","SIGM_ELNO",
@@ -29138,7 +29422,7 @@ liste_option_extr=("EPEQ_ELGA","EPEQ_ELNO","EPSI_ELGA","EPSI_ELNO",
 
 
 POST_CHAMP=OPER(nom="POST_CHAMP",op=155,sd_prod=post_champ_prod, reentrant='n',
-            UIinfo={"groupes":("Post-traitements","Eléments de structure",)},
+            UIinfo={"groupes":("Post-traitements","Eléments de structure",)},
                  fr="extraction de champs sur un sous-point. ",
 
          regles=(UN_PARMI('EXTR_COQUE','EXTR_TUYAU','EXTR_PMF','MIN_MAX_SP','COQU_EXCENT'),
@@ -29151,7 +29435,7 @@ POST_CHAMP=OPER(nom="POST_CHAMP",op=155,sd_prod=post_champ_prod, reentrant='n',
 
 
 #====
-# Sélection des numéros d'ordre pour lesquels on fait le calcul :
+# Sélection des numéros d'ordre pour lesquels on fait le calcul :
 #====
          TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
          NUME_ORDRE      =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
@@ -29174,7 +29458,7 @@ POST_CHAMP=OPER(nom="POST_CHAMP",op=155,sd_prod=post_champ_prod, reentrant='n',
 
 
 #====
-# Sélection de la zone géométrique:
+# Sélection de la zone géométrique:
 #====
          TOUT       =SIMP(statut='f',typ='TXM',into=("OUI",) ),
          GROUP_MA   =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
@@ -29189,9 +29473,9 @@ POST_CHAMP=OPER(nom="POST_CHAMP",op=155,sd_prod=post_champ_prod, reentrant='n',
            NOM_CHAM     =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
                               into=liste_option_extr,),
            NUME_COUCHE  =SIMP(statut='o',typ='I',val_min=1,
-                             fr="numero de couche dans l'épaisseur de la coque" ),
+                             fr="numero de couche dans l'épaisseur de la coque" ),
            NIVE_COUCHE  =SIMP(statut='o',typ='TXM',into=("SUP","INF","MOY"),
-                             fr="position dans l'épaisseur de la couche" ),
+                             fr="position dans l'épaisseur de la couche" ),
            ),
 
 
@@ -29202,11 +29486,11 @@ POST_CHAMP=OPER(nom="POST_CHAMP",op=155,sd_prod=post_champ_prod, reentrant='n',
            NOM_CHAM     =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
                               into=liste_option_extr ,),
            NUME_COUCHE  =SIMP(statut='o',typ='I',val_min=1,
-                             fr="numero de couche dans l'épaisseur du tuyau" ),
+                             fr="numero de couche dans l'épaisseur du tuyau" ),
            NIVE_COUCHE  =SIMP(statut='o',typ='TXM',into=("SUP","INF","MOY"),
-                             fr="position dans l'épaisseur de la couche" ),
+                             fr="position dans l'épaisseur de la couche" ),
            ANGLE        =SIMP(statut='o',typ='I',val_min=0,val_max=360,
-                             fr="angle de dépouillement pour les tuyaux, en degrés à partir de la génératrice" ),
+                             fr="angle de dépouillement pour les tuyaux, en degrés à partir de la génératrice" ),
            ),
 
 
@@ -29217,7 +29501,7 @@ POST_CHAMP=OPER(nom="POST_CHAMP",op=155,sd_prod=post_champ_prod, reentrant='n',
            NOM_CHAM     =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
                               into=liste_option_extr,),
            NUME_FIBRE  =SIMP(statut='o',typ='I',val_min=1,
-                             fr="numéro de la fibre dans la poutre multifibre" ),
+                             fr="numéro de la fibre dans la poutre multifibre" ),
            ),
 
 
@@ -29230,20 +29514,19 @@ POST_CHAMP=OPER(nom="POST_CHAMP",op=155,sd_prod=post_champ_prod, reentrant='n',
            NOM_CMP        =SIMP(statut='o',typ='TXM',fr="nom de la composante",  ),
            TYPE_MAXI      =SIMP(statut='o',typ='TXM',into=("MAXI","MINI","MAXI_ABS","MINI_ABS",) ),
            NUME_CHAM_RESU = SIMP(statut='o', typ='I', val_min=1, val_max=20,
-                          fr="Numéro du champ produit. Exemple: 6 produit le champ UT06",),
+                          fr="Numéro du champ produit. Exemple: 6 produit le champ UT06",),
            ),
 
 
 #====
-# Calcul des efforts des coques "excentrées" sur le feuillet moyen de la coque :
+# Calcul des efforts des coques "excentrées" sur le feuillet moyen de la coque :
 #====
-         COQU_EXCENT  =FACT(statut='f', max=2, fr="Calcul des efforts d'une coque 'excentrée' sur le feuillet moyen de la coque",
+         COQU_EXCENT  =FACT(statut='f', max=2, fr="Calcul des efforts d'une coque 'excentrée' sur le feuillet moyen de la coque",
            NOM_CHAM     =SIMP(statut='o',typ='TXM',into=("EFGE_ELNO","EFGE_ELGA",),),
            MODI_PLAN    =SIMP(statut='o',typ='TXM',into=("OUI",),),
            ),
       )
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -29260,31 +29543,30 @@ POST_CHAMP=OPER(nom="POST_CHAMP",op=155,sd_prod=post_champ_prod, reentrant='n',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: xavier.desroches at edf.fr
 
 POST_COQUE=MACRO(nom="POST_COQUE",
                  op=OPS('Macro.post_coque_ops.post_coque_ops'),
                  sd_prod=table_sdaster,
                  reentrant='n',
                  UIinfo={"groupes":("Post-traitements",)},
-                 fr="Calcul des efforts et déformations en un point et une cote " \
+                 fr="Calcul des efforts et déformations en un point et une cote " \
                     "quelconque de la coque",
 
              regles=(EXCLUS('INST','NUME_ORDRE'),),
 
-             # SD résultat et champ à posttraiter :
-             RESULTAT        =SIMP(statut='o',typ=resultat_sdaster,fr="RESULTAT à posttraiter",),
+             # SD résultat et champ à posttraiter :
+             RESULTAT        =SIMP(statut='o',typ=resultat_sdaster,fr="RESULTAT à posttraiter",),
              CHAM            =SIMP(statut='o',typ='TXM',into=("EFFORT","DEFORMATION",)),
              NUME_ORDRE      =SIMP(statut='f',typ='I'),
              INST            =SIMP(statut='f',typ='R'),
 
              # points de post-traitement :
-             COOR_POINT      =FACT(statut='o',max='**',fr="coordonnées et position dans l'épaisseur",
+             COOR_POINT      =FACT(statut='o',max='**',fr="coordonnées et position dans l'épaisseur",
                                    COOR=SIMP(statut='o',typ='R',min=3,max=4),),
 
             )
-#& MODIF COMMANDE  DATE 17/10/2011   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -29301,7 +29583,7 @@ POST_COQUE=MACRO(nom="POST_COQUE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DEVESA G.DEVESA
+# person_in_charge: Georges-cc.devesa at edf.fr
 
 
 POST_DECOLLEMENT=MACRO(nom="POST_DECOLLEMENT",
@@ -29316,8 +29598,7 @@ POST_DECOLLEMENT=MACRO(nom="POST_DECOLLEMENT",
          GROUP_MA   =SIMP(statut='o',typ=grma,max=1),
          INFO       =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )
-#& MODIF COMMANDE  DATE 08/04/2013   AUTEUR ZENTNER I.ZENTNER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -29334,49 +29615,49 @@ POST_DECOLLEMENT=MACRO(nom="POST_DECOLLEMENT",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 POST_DYNA_ALEA=MACRO(nom="POST_DYNA_ALEA",
                      op=OPS('Macro.post_dyna_alea_ops.post_dyna_alea_ops'),
                      sd_prod=table_sdaster,
-                     fr="Traitements statistiques de résultats de type interspectre " \
+                     fr="Traitements statistiques de résultats de type interspectre " \
                         "et impression sur fichiers",
                      reentrant='n',
                      UIinfo={"groupes":("Post-traitements","Dynamique",)},
-         regles=(UN_PARMI('FRAGILITE','INTE_SPEC'),),
+         regles=(UN_PARMI('FRAGILITE','INTERSPECTRE'),),
          FRAGILITE  =FACT(statut='f',fr="donnees pour courbe de fragilite",max=1,
                     TABL_RESU  =SIMP(statut='o',typ=table_sdaster),
                     regles=(UN_PARMI('VALE','LIST_PARA'),),
                     VALE       = SIMP(statut='f',typ='R', min=1,validators=NoRepeat(),max='**' ),
                     LIST_PARA  = SIMP(statut='f',typ=listr8_sdaster),
-                    AM_INI     =  SIMP(statut='f',typ='R',defaut= 0.4 ),
+                    AM_INI     = SIMP(statut='f',typ='R',defaut= 0.4 ),
                     BETA_INI   = SIMP(statut='f',typ='R',defaut= 0.3 ),
                     FRACTILE   = SIMP(statut='f',typ='R', min=1,validators=NoRepeat(),max='**'),
                     b_inte_spec_f  = BLOC(condition="""FRACTILE !=None""",
                         NB_TIRAGE =SIMP(statut='f',typ='I' ),),
                  ),
-         INTE_SPEC       =SIMP(statut='f',typ=interspectre),
-         b_inte_spec_f      =BLOC(condition="""INTE_SPEC !=None""",
-            regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
-            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
-            NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**' ),
-            NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
-            OPTION          =SIMP(statut='f',typ='TXM',into=("DIAG",) ),
-            b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
-               NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**' ),
+         INTERSPECTRE  =FACT(statut='f',fr="donnees pour interspectre",max=1,
+                  regles=(UN_PARMI('NOEUD_I','NUME_ORDRE_I','OPTION'),),
+                   INTE_SPEC       =SIMP(statut='o',typ=interspectre),
+                   NUME_ORDRE_I    =SIMP(statut='f',typ='I',max='**' ),
+                   NOEUD_I         =SIMP(statut='f',typ=no,max='**'),
+                   OPTION          =SIMP(statut='f',typ='TXM',into=("DIAG","TOUT",) ),
+                   b_nume_ordre_i =BLOC(condition = "NUME_ORDRE_I != None",
+                       NUME_ORDRE_J    =SIMP(statut='o',typ='I',max='**' ),
                                 ),
-            b_noeud_i      =BLOC(condition = "NOEUD_I != None",
-               NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
-               NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**' ),
-               NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**' ),
+                   b_noeud_i      =BLOC(condition = "NOEUD_I != None",
+                       NOEUD_J         =SIMP(statut='o',typ=no,max='**'),
+                       NOM_CMP_I       =SIMP(statut='o',typ='TXM',max='**' ),
+                       NOM_CMP_J       =SIMP(statut='o',typ='TXM',max='**' ),
                                 ),
-            MOMENT          =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux en complément des cinq premiers" ),
-            DUREE          =SIMP(statut='f',typ='R',  fr="durée de la phase forte pour facteur de peak" ),
-            ),
+                   MOMENT          =SIMP(statut='f',typ='I',max='**',fr="Moments spectraux "\
+                                                         "en complément des cinq premiers" ),
+                   DUREE           =SIMP(statut='f',typ='R',fr="durée de la phase forte "\
+                                                              "pour facteur de peak" ),
+                ),       
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -29393,15 +29674,15 @@ POST_DYNA_ALEA=MACRO(nom="POST_DYNA_ALEA",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE BOYERE E.BOYERE
+# person_in_charge: emmanuel.boyere at edf.fr
 POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=table_sdaster,
-                      fr="Post-traiter les résultats en coordonnées généralisées produit par DYNA_TRAN_MODAL",
+                      fr="Post-traiter les résultats en coordonnées généralisées produit par DYNA_TRAN_MODAL",
                       reentrant='n',
             UIinfo={"groupes":("Post-traitements","Dynamique",)},
         regles=(UN_PARMI('CHOC','RELA_EFFO_DEPL', ),),
          RESU_GENE       =SIMP(statut='o',typ=tran_gene ),
          CHOC            =FACT(statut='f',max='**',
-                               fr="Analyse des non linéarités de choc",
+                               fr="Analyse des non linéarités de choc",
            INST_INIT       =SIMP(statut='f',typ='R',defaut= -1. ),  
            INST_FIN        =SIMP(statut='f',typ='R',defaut= 999. ),  
            NB_BLOC         =SIMP(statut='f',typ='I',defaut= 1 ),  
@@ -29411,15 +29692,14 @@ POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=table_sdaster,
            NB_CLASSE       =SIMP(statut='f',typ='I',defaut= 10 ),  
          ),
          RELA_EFFO_DEPL  =FACT(statut='f',
-                               fr="Analyse des relationsnon linéaires effort-déplacement",
+                               fr="Analyse des relationsnon linéaires effort-déplacement",
            NOEUD           =SIMP(statut='o',typ=no),
            NOM_CMP         =SIMP(statut='o',typ='TXM' ),  
          ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),  
 )  ;
-#& MODIF COMMANDE  DATE 03/04/2013   AUTEUR DESOZA T.DESOZA 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -29436,10 +29716,11 @@ POST_DYNA_MODA_T=OPER(nom="POST_DYNA_MODA_T",op= 130,sd_prod=table_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DESROCHES X.DESROCHES
+# person_in_charge: josselin.delmas at edf.fr
+
 POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
-            UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
-               fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
+            UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
+               fr="Calcul de quantités globales (masse, inerties, énergie, ...) sur tout ou partie du modèle",
 
          regles=(UN_PARMI('MASS_INER', 'ENER_POT', 'ENER_CIN','TRAV_EXT','MINMAX',
                           'WEIBULL', 'RICE_TRACEY', 'CARA_GEOM','CHAR_LIMITE','NORME',
@@ -29455,7 +29736,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                ORIG_INER    = SIMP(statut='f',typ='R',min=3,max=3 ),
                               ),
          b_mass_iner = BLOC(condition = "( MASS_INER != None )",
-                       fr="calcul de la masse, les inerties et le centre de gravité",
+                       fr="calcul de la masse, les inerties et le centre de gravité",
                        regles=(EXCLUS('CHAM_GD','RESULTAT'),
                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
@@ -29495,7 +29776,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                GROUP_MA     = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
                               ),
          b_ener_pot = BLOC(condition = "( ENER_POT  != None )",
-                       fr="calcul de l'énergie potentielle de déformation",
+                       fr="calcul de l'énergie potentielle de déformation",
                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
@@ -29537,7 +29818,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                GROUP_MA     = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
                               ),
          b_ener_cin = BLOC(condition = "( ENER_CIN != None )",
-                       fr="calcul de l'énergie cinétique",
+                       fr="calcul de l'énergie cinétique",
                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','FREQ','NUME_MODE',
                                       'NOEUD_CMP','LIST_ORDRE','LIST_INST','LIST_FREQ','NOM_CAS'),),
@@ -29576,7 +29857,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                GROUP_MA     = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
                               ),
          b_ener_diss = BLOC(condition = "( ENER_DISS != None )",
-                       fr="calcul de l'énergie dissipée",
+                       fr="calcul de l'énergie dissipée",
                        MODELE         = SIMP(statut='f',typ=modele_sdaster),
                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
@@ -29607,7 +29888,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                GROUP_MA     = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
                               ),
          b_ener_elas = BLOC(condition = "( ENER_ELAS != None )",
-                       fr="calcul de l'énergie de déformation élastique",
+                       fr="calcul de l'énergie de déformation élastique",
                        MODELE         = SIMP(statut='f',typ=modele_sdaster),
                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
@@ -29637,7 +29918,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                GROUP_MA     = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
                               ),
          b_ener_totale = BLOC(condition = "( ENER_TOTALE != None )",
-                       fr="calcul de l'énergie de déformation totale",
+                       fr="calcul de l'énergie de déformation totale",
                        MODELE         = SIMP(statut='f',typ=modele_sdaster),
                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
                        CARA_ELEM      = SIMP(statut='f',typ=cara_elem),
@@ -29690,18 +29971,20 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
          ),
 
          VOLUMOGRAMME  = FACT(statut='f',max='**',
-                               regles=(UN_PARMI('TOUT','GROUP_MA'),),
+                               regles=(UN_PARMI('TOUT','GROUP_MA'),
+                                       UN_PARMI('NB_INTERV','SEUIL'),),
                                TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
                                GROUP_MA     = SIMP(statut='f',typ=grma,max=1),
                                TYPE_MAILLE  = SIMP(statut='f',typ='TXM',into=('2D','3D',)),
                                NOM_CHAM     = SIMP(statut='f',typ='TXM',validators=NoRepeat(),into=C_NOM_CHAM_INTO()),
                                NOM_CMP      = SIMP(statut='o',typ='TXM'),
-                               NB_INTERV    = SIMP(statut='f',typ='I',defaut=5),
+                               NB_INTERV    = SIMP(statut='f',typ='I'),
+                               SEUIL        = SIMP(statut='f',typ='R'),
                                BORNES       = SIMP(statut='f',typ='R',validators=NoRepeat(),min=2,max=2),
                                NORME        = SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU")),
                               ),
          b_volumogramme = BLOC(condition = "( VOLUMOGRAMME != None )",
-                       fr="calcul de la distribution du volume d'une structure vis-à-vis d'une composante",
+                       fr="calcul de la distribution du volume d'une structure vis-à-vis d'une composante",
                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_ORDRE','LIST_INST'),),
                        MODELE         = SIMP(statut='f',typ=modele_sdaster),
@@ -29721,7 +30004,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
          ),
 
          NORME  = FACT(statut='f',max=1,
-                       fr="calcul des extrema en espace d'une CMP d'un champ, pour tous les instants spécifiés",
+                       fr="calcul des extrema en espace d'une CMP d'un champ, pour tous les instants spécifiés",
                        regles=(UN_PARMI('TOUT','GROUP_MA'),
                                UN_PARMI('CHAM_GD','RESULTAT'),
                                PRESENT_PRESENT('CHAM_GD','MODELE'),
@@ -29729,10 +30012,13 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                        TOUT         = SIMP(statut='f',typ='TXM',into=("OUI",) ),
                        GROUP_MA     = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
                        TYPE_MAILLE  = SIMP(statut='f',typ='TXM',into=('2D','3D',)),
-                       TYPE_NORM    = SIMP(statut='f',typ='TXM',into=('L2',)),
+                       TYPE_NORM    = SIMP(statut='f',typ='TXM',into=('L2','FROBENIUS')),
                        RESULTAT       = SIMP(statut='f',typ=(evol_noli,evol_ther,evol_elas) ),
                        NOM_CHAM       = SIMP(statut='f',typ='TXM',validators=NoRepeat(),
-                                             into=C_NOM_CHAM_INTO(phenomene='POST_ELEM')),
+                                             into=("DEPL","TEMP","NEUT_R",
+                                                   "FLUX_ELGA","FLUX_ELNO","FLUX_NOEU",
+                                                   "EPSI_ELGA","EPSI_ELNO","EPSI_NOEU",
+                                                   "SIEF_ELGA","SIEF_ELNO","SIEF_NOEU")),
                        CHAM_GD        = SIMP(statut='f',typ=(cham_no_sdaster,cham_elem) ),
                        MODELE         = SIMP(statut='f',typ=modele_sdaster),
 
@@ -29757,7 +30043,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
 
 
          MINMAX  = FACT(statut='f',max=1,
-                       fr="calcul des extrema en espace d'une CMP d'un champ, pour tous les instants spécifiés",
+                       fr="calcul des extrema en espace d'une CMP d'un champ, pour tous les instants spécifiés",
                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
                                PRESENT_PRESENT('CHAM_GD','MODELE'),
                                PRESENT_PRESENT('RESULTAT','NOM_CHAM'),
@@ -29796,7 +30082,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                COEF_MULT    = SIMP(statut='f',typ='R',defaut=1.),
                               ),
          b_weibull = BLOC(condition = "( WEIBULL != None )",
-                       fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
+                       fr="calcul du champ élémentaire de la puissance m-ième de la contrainte de Weibull",
                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
                        MODELE         = SIMP(statut='f',typ=modele_sdaster),
@@ -29832,7 +30118,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                LOCAL        = SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
                               ),
          b_rice_tracey = BLOC(condition = "( RICE_TRACEY != None )",
-                       fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
+                       fr="calcul du taux de croissance d'une cavité sphérique par rapport à un domaine",
                        regles=(UN_PARMI('CHAM_GD','RESULTAT'),
                                EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','INST','LIST_INST'),),
                        MODELE         = SIMP(statut='f',typ=modele_sdaster),
@@ -29864,7 +30150,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                GROUP_MA     = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
                               ),
          b_indic_ener = BLOC(condition = "( INDIC_ENER != None )",
-                       fr="calcul un indicateur global de perte de proportionnalité du chargement",
+                       fr="calcul un indicateur global de perte de proportionnalité du chargement",
                        MODELE         = SIMP(statut='f',typ=modele_sdaster),
                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_cine_meca,
@@ -29891,7 +30177,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                GROUP_MA     = SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
                               ),
          b_indic_seuil = BLOC(condition = "( INDIC_SEUIL != None )",
-                       fr="calcul un indicateur global de perte de proportionnalité du chargement",
+                       fr="calcul un indicateur global de perte de proportionnalité du chargement",
                        MODELE         = SIMP(statut='f',typ=modele_sdaster),
                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_cine_meca,
@@ -29946,7 +30232,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                ORIG_INER    = SIMP(statut='f',typ='R',min=2,max=2),
                               ),
          b_cara_geom = BLOC(condition = "( CARA_GEOM != None )",
-                       fr="calcul des caractéristiques géométriques d'un section de poutre",
+                       fr="calcul des caractéristiques géométriques d'un section de poutre",
                        MODELE         = SIMP(statut='f',typ=modele_sdaster),
                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_cine_meca,
@@ -29972,7 +30258,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
                                                     into=("CARA_TORSION","CARA_CISAILLEMENT","CARA_GAUCHI") ),
                              ),
          b_cara_poutre = BLOC(condition = "( CARA_POUTRE != None )",
-                       fr="calcul des caractéristiques mécaniques d'un section de poutre",
+                       fr="calcul des caractéristiques mécaniques d'un section de poutre",
                        MODELE         = SIMP(statut='f',typ=modele_sdaster),
                        CHAM_MATER     = SIMP(statut='f',typ=cham_mater),
                        CHARGE         = SIMP(statut='f',typ=(char_meca,char_cine_meca,
@@ -29990,7 +30276,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
 
          TRAV_EXT       = FACT(statut='f',),
          b_trav_ext = BLOC(condition = "( TRAV_EXT != None )",
-                       fr="calcul du travail des efforts extérieurs",
+                       fr="calcul du travail des efforts extérieurs",
                        RESULTAT       = SIMP(statut='o',typ=(evol_elas,evol_noli,dyna_trans) ),
                        CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU",),),
                        b_prec_rela=BLOC(condition="(CRITERE=='RELATIF')",
@@ -30004,8 +30290,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
 
  )  ;
-#& MODIF COMMANDE  DATE 23/04/2012   AUTEUR BOTTONI M.BOTTONI 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -30022,7 +30307,7 @@ POST_ELEM=OPER(nom="POST_ELEM",op=107,sd_prod=table_sdaster,reentrant='n',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE BOTTONI M.BOTTONI
+# person_in_charge: marina.bottoni at edf.fr
 
 # ---------------------------------------------------------------------------
 #                  POST_ENDO_FISS
@@ -30038,7 +30323,7 @@ POST_ENDO_FISS=MACRO(nom="POST_ENDO_FISS",
                      op=OPS('Macro.post_endo_fiss_ops.post_endo_fiss_ops'),
                      sd_prod=post_endo_fiss_prod,
                      reentrant='n',
-                     UIinfo={"groupes":("Post-traitements","Outils-métier",)},
+                     UIinfo={"groupes":("Post-traitements","Outils-métier",)},
                      fr="Individuation du trace d'une fissure a partir d'un champ scalaire pertinant",
 
             TABLE  = SIMP(statut = 'o', typ = CO,),
@@ -30076,10 +30361,6 @@ POST_ENDO_FISS=MACRO(nom="POST_ENDO_FISS",
                               ),
                    )
 
-
-
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -30096,10 +30377,10 @@ POST_ENDO_FISS=MACRO(nom="POST_ENDO_FISS",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=table_sdaster,reentrant='n',
             UIinfo={"groupes":("Post-traitements","Rupture",)},
-                    fr="Calculer le dommage de fatigue subi par une structure soumise à une sollicitation de type aléatoire",
+                    fr="Calculer le dommage de fatigue subi par une structure soumise à une sollicitation de type aléatoire",
          regles=(ENSEMBLE('MOMENT_SPEC_0','MOMENT_SPEC_2'),
                  PRESENT_PRESENT( 'MOMENT_SPEC_4','MOMENT_SPEC_0'),
                  UN_PARMI('TABL_POST_ALEA','MOMENT_SPEC_0'), ),
@@ -30114,8 +30395,7 @@ POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=table_sdaster,reentrant=
          MATER           =SIMP(statut='o',typ=mater_sdaster),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),  
 )  ;
-#& MODIF COMMANDE  DATE 26/06/2012   AUTEUR TRAN V-X.TRAN 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -30132,10 +30412,10 @@ POST_FATI_ALEA=OPER(nom="POST_FATI_ALEA",op=170,sd_prod=table_sdaster,reentrant=
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ANGLES J.ANGLES
+# person_in_charge: van-xuan.tran at edf.fr
 POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=table_sdaster,reentrant='n',
             UIinfo={"groupes":("Post-traitements","Rupture",)},
-                  fr="Calculer en un point, le dommage de fatigue subi par une structure soumise à une histoire de chargement",
+                  fr="Calculer en un point, le dommage de fatigue subi par une structure soumise à une histoire de chargement",
 
          CHARGEMENT = SIMP(statut='o',typ='TXM',into=("UNIAXIAL","MULTIAXIAL","QUELCONQUE")),
 
@@ -30202,14 +30482,16 @@ POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=table_sdaster,reentrant='n',
              MATER          = SIMP(statut='f',typ=mater_sdaster),
              COEF_CORR      = SIMP(statut='f',typ='R'),
              COEF_PREECROU =SIMP(statut='f',typ='R',defaut= 1.0E+0),
-             
+
+         
              b_period       =BLOC(condition = "TYPE_CHARGE == 'PERIODIQUE'",
                CRITERE       =SIMP(statut='o',typ='TXM',into=("MATAKE_MODI_AC","DANG_VAN_MODI_AC","CROSSLAND",
                                                                "PAPADOPOULOS","FORMULE_CRITERE") ),
                METHODE       =SIMP(statut='f',typ='TXM',into=("CERCLE_EXACT",) ),                
                b_fati_pf  =BLOC(condition = "(CRITERE == 'FORMULE_CRITERE')",
                    FORMULE_GRDEQ   = SIMP(statut='o',typ=(fonction_sdaster,formule) ),
-
+                   FORMULE_CRITIQUE = SIMP(statut='f',typ=(fonction_sdaster,formule) ),  
                ),
              ),
            
@@ -30244,8 +30526,7 @@ POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=table_sdaster,reentrant='n',
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 22/01/2013   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -30262,13 +30543,13 @@ POST_FATIGUE=OPER(nom="POST_FATIGUE",op=136,sd_prod=table_sdaster,reentrant='n',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 POST_K1_K2_K3=MACRO(nom="POST_K1_K2_K3",
                     op=OPS('Macro.post_k1_k2_k3_ops.post_k1_k2_k3_ops'),
                     sd_prod=table_sdaster,
-                    fr="Calcul des facteurs d'intensité de contraintes en 2D et en 3D par "\
-                       "extrapolation des sauts de déplacements sur les lèvres de la fissure",
+                    fr="Calcul des facteurs d'intensité de contraintes en 2D et en 3D par "\
+                       "extrapolation des sauts de déplacements sur les lèvres de la fissure",
                     reentrant='n',
                     UIinfo={"groupes":("Post-traitements","Rupture",)},
 
@@ -30276,11 +30557,11 @@ POST_K1_K2_K3=MACRO(nom="POST_K1_K2_K3",
 
          MODELISATION  =SIMP(statut='o',typ='TXM',
                              into=("3D","AXIS","D_PLAN","C_PLAN"),position='global',
-                             fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
+                             fr="Modélisation cohérente avec celle utilisée pour le calcul des déplacements"),
          FOND_FISS     =SIMP(statut='f',typ=fond_fiss),
          FISSURE       =SIMP(statut='f',typ=fiss_xfem),
          RESULTAT      =SIMP(statut='o',typ=(evol_elas,evol_noli,mode_meca),position='global',
-                             fr="Déplacement des noeuds de la lèvre supérieure et inférieure"),
+                             fr="Déplacement des noeuds de la lèvre supérieure et inférieure"),
          NB_NOEUD_COUPE=SIMP(statut='f',typ='I',defaut=5,val_min = 3),
 
 #        bloc correspondant a la donnee du fond de fissure pour les fissures maillees
@@ -30288,7 +30569,7 @@ POST_K1_K2_K3=MACRO(nom="POST_K1_K2_K3",
 
               b_no_mod =BLOC (condition="AsType(RESULTAT)!= mode_meca",
                         
-                        EVOL_THER   = SIMP(statut='f',typ=(evol_ther),fr="Température sur le fond de fissure"),
+                        EVOL_THER   = SIMP(statut='f',typ=(evol_ther),fr="Température sur le fond de fissure"),
                         b_ref_3D    = BLOC (condition="MODELISATION=='3D' ",
                                   TYPE_MAILLAGE = SIMP(statut='f',typ='TXM',into=("LIBRE","REGLE"),defaut="REGLE"),
                                   ),  
@@ -30303,7 +30584,7 @@ POST_K1_K2_K3=MACRO(nom="POST_K1_K2_K3",
                          SANS_GROUP_NO = SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
                          TOUT          = SIMP(statut='f',typ='TXM',into=("OUI",) ),
                          ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
-                             fr="Distance maximum à partir du fond de fissure à utiliser pour le calcul"),
+                             fr="Distance maximum à partir du fond de fissure à utiliser pour le calcul"),
                          ),
 
 #        bloc correspondant a la donnee de la fissure pour les fissures X-FEM
@@ -30311,11 +30592,11 @@ POST_K1_K2_K3=MACRO(nom="POST_K1_K2_K3",
                          NB_POINT_FOND = SIMP(statut='f',typ='I' ,),
                          NUME_FOND     = SIMP(statut='f',typ='I',defaut=1),
                          ABSC_CURV_MAXI=SIMP(statut='f',typ='R',
-                             fr="Distance maximum à partir du fond de fissure à utiliser pour le calcul"),
+                             fr="Distance maximum à partir du fond de fissure à utiliser pour le calcul"),
                          ),
 
          MATER         =SIMP(statut='o',typ=mater_sdaster,
-                             fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
+                             fr="Matériau homogène et isotrope cohérent avec celui utilisé pour le calcul des déplacements"),
 
          
          PREC_VIS_A_VIS=SIMP(statut='f',typ='R',defaut=0.1),
@@ -30354,8 +30635,7 @@ POST_K1_K2_K3=MACRO(nom="POST_K1_K2_K3",
          INFO          =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
          TITRE         =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR ASSIRE A.ASSIRE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -30372,10 +30652,10 @@ POST_K1_K2_K3=MACRO(nom="POST_K1_K2_K3",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE PARROT
+# person_in_charge: aurore.parrot at edf.fr
 #
 POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=table_sdaster,
-                   fr="Calcul des facteurs d'intensité de contraintes par la méthode K_BETA",
+                   fr="Calcul des facteurs d'intensité de contraintes par la méthode K_BETA",
                    reentrant='n',
             UIinfo={"groupes":("Post-traitements","Rupture",)},
          MAILLAGE      = SIMP(statut='o',typ=maillage_sdaster),
@@ -30396,8 +30676,7 @@ POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=table_sdaster,
          ),
          TITRE         = SIMP(statut='f',typ='TXM',max='**'),  
 );
-#& MODIF COMMANDE  DATE 17/12/2012   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -30414,7 +30693,7 @@ POST_K_BETA=OPER(nom="POST_K_BETA",op=198,sd_prod=table_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 
 POST_K_TRANS=MACRO(nom="POST_K_TRANS",
@@ -30446,8 +30725,6 @@ POST_K_TRANS=MACRO(nom="POST_K_TRANS",
         TITRE           =SIMP(statut='f',typ='TXM'),
 )
 
-#& MODIF COMMANDE  DATE 29/04/2013   AUTEUR GENIAUT S.GENIAUT 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -30464,7 +30741,7 @@ POST_K_TRANS=MACRO(nom="POST_K_TRANS",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE FERNANDES R.FERNANDES
+# person_in_charge: romeo.fernandes at edf.fr
 
 POST_MAC3COEUR = MACRO(nom="POST_MAC3COEUR",
                        op=OPS("Mac3coeur.post_mac3coeur_ops.post_mac3coeur_ops"),
@@ -30488,7 +30765,7 @@ POST_MAC3COEUR = MACRO(nom="POST_MAC3COEUR",
                  UNITE        = SIMP(statut='o',typ='I', max=1),   
                  FORMAT       = SIMP(statut='o',typ='TXM',into=("GRACE","TABLE")),
                  
-                 b_def_grace  = BLOC(condition = "FORMAT == 'GRACE' ",fr="Paramètres pour le format GRACE",
+                 b_def_grace  = BLOC(condition = "FORMAT == 'GRACE' ",fr="Paramètres pour le format GRACE",
                        regles=UN_PARMI('NUME_GRILLE','TYPE_RESU','POSITION'),
                        TYPE_VISU    = SIMP(statut='o',typ='TXM',into=("AMPLITUDE","MODULE","VECTEUR","DEFORME")),
                        TYPE_RESU    = SIMP(statut='f',typ='TXM',into=("MINI","MAXI")),
@@ -30497,7 +30774,7 @@ POST_MAC3COEUR = MACRO(nom="POST_MAC3COEUR",
                        CONCEPTION   = SIMP(statut='f',typ='TXM', max=1),
                                    ),
                  
-                 b_def_table  = BLOC(condition = "FORMAT == 'TABLE' ",fr="Paramètres pour le format TABLE",
+                 b_def_table  = BLOC(condition = "FORMAT == 'TABLE' ",fr="Paramètres pour le format TABLE",
                        NOM_CMP      = SIMP(statut='o',typ='TXM',into=("DY","DZ","NORME")),
                                    ),
                  
@@ -30505,8 +30782,6 @@ POST_MAC3COEUR = MACRO(nom="POST_MAC3COEUR",
            ),
 )
 
-#& MODIF COMMANDE  DATE 25/02/2013   AUTEUR SELLENET N.SELLENET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -30523,10 +30798,10 @@ POST_MAC3COEUR = MACRO(nom="POST_MAC3COEUR",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 POST_MAIL_XFEM=OPER(nom="POST_MAIL_XFEM",op= 187,sd_prod=maillage_sdaster,
                     reentrant='n',UIinfo={"groupes":("Maillage","Rupture",)},
-            fr="Crée un maillage se conformant à la fissure pour le post-traitement des éléments XFEM",
+            fr="Crée un maillage se conformant à la fissure pour le post-traitement des éléments XFEM",
     MODELE        = SIMP(statut='o',typ=modele_sdaster),
     PREF_NOEUD_X   =SIMP(statut='f',typ='TXM',defaut="NX",validators=LongStr(1,2),),
     PREF_NOEUD_M   =SIMP(statut='f',typ='TXM',defaut="NM",validators=LongStr(1,2),),
@@ -30536,27 +30811,27 @@ POST_MAIL_XFEM=OPER(nom="POST_MAIL_XFEM",op= 187,sd_prod=maillage_sdaster,
     TITRE         = SIMP(statut='f',typ='TXM',max='**'),
     INFO           =SIMP(statut='f',typ='I',defaut= 1,into=(1,2,) ),
 );
-#& MODIF COMMANDE  DATE 17/12/2012   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
-# COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
+# COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # 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 2 OF THE LICENSE, OR   
-# (AT YOUR OPTION) ANY LATER VERSION.                                 
+# THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 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 PARTIC               
+# 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, WRITE TO EDF R&D CODE_ASTER,       
-#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
+# YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
+# ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=table_sdaster,
-               fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
+               fr="Vérification des critères de niveau 0 et certains critères de niveau A du RCC-M-B3200 (Edition 1991)",
                reentrant='n',
             UIinfo={"groupes":("Post-traitements","Rupture",)},
          TYPE_RESU       =SIMP(statut='f',typ='TXM',defaut="VALE_MAX",into=("VALE_MAX","DETAILS") ),
@@ -30571,23 +30846,23 @@ POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=table_sdaster,
                                into=("PM_PB","SN","FATIGUE_ZH210","AMORCAGE") ),
          MATER           =SIMP(statut='o',typ=mater_sdaster ),
          SY_MAX          =SIMP(statut='f',typ='R',
-                               fr="limite élastique utilisée pour le calcul du rochet thermique" ),
+                               fr="limite élastique utilisée pour le calcul du rochet thermique" ),
          TYPE_KE         =SIMP(statut='f',typ='TXM',defaut="KE_MECA",into=("KE_MECA","KE_MIXTE"),
                                fr="Ke meca seul ou partition mecanique + thermique" ),
                                
-         TRANSITOIRE     =FACT(statut='o',max='**',fr="transitoire à dépouiller",
+         TRANSITOIRE     =FACT(statut='o',max='**',fr="transitoire à dépouiller",
            regles=(EXCLUS('TOUT_ORDRE','INST','LIST_INST'),
                    UN_PARMI('TABL_RESU_MECA','TABL_SIGM_THETA'),),
            NB_OCCUR        =SIMP(statut='f',typ='I',defaut= 1,
-                                 fr="nombre d occurences réelles de ce transitoire" ),
+                                 fr="nombre d occurences réelles de ce transitoire" ),
            TABL_RESU_MECA  =SIMP(statut='f',typ=table_sdaster,
-                                 fr="relevé des contraintes sur le chemin"),
+                                 fr="relevé des contraintes sur le chemin"),
            TABL_SIGM_THER  =SIMP(statut='f',typ=table_sdaster,
-                                 fr="résultat sous chargement thermique seul" ),
+                                 fr="résultat sous chargement thermique seul" ),
            TABL_RESU_PRES  =SIMP(statut='f',typ=table_sdaster,
-                                 fr="table relevé des contraintes sous chargement de pression" ),
+                                 fr="table relevé des contraintes sous chargement de pression" ),
            TABL_SIGM_THETA =SIMP(statut='f',typ=table_sdaster,
-                                 fr="table relevé des contraintes a la distance d de la singularité pour chacun des angles THETA" ),
+                                 fr="table relevé des contraintes a la distance d de la singularité pour chacun des angles THETA" ),
            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
            INST            =SIMP(statut='f',typ='R',validators=NoRepeat(),max='**'),
            LIST_INST       =SIMP(statut='f',typ=listr8_sdaster ),
@@ -30607,12 +30882,12 @@ POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=table_sdaster,
                                into=("PM_PB","SN","FATIGUE") ),
          MATER           =SIMP(statut='o',typ=mater_sdaster ),
          SY_MAX          =SIMP(statut='f',typ='R',
-                               fr="limite élastique utilisée pourle calcul du rochet thermique" ),
+                               fr="limite élastique utilisée pourle calcul du rochet thermique" ),
          TYPE_KE         =SIMP(statut='f',typ='TXM',defaut="KE_MECA",into=("KE_MECA","KE_MIXTE"),
                                fr="Ke meca seul ou partition mecanique + thermique" ),
-         CHAR_MECA   =FACT(statut='o',max='**',fr="Chargements mécaniques",
+         CHAR_MECA   =FACT(statut='o',max='**',fr="Chargements mécaniques",
                            regles=(UN_PARMI('MX','MX_TUBU'),),
-           NUME_CHAR     =SIMP(statut='o',typ='I',fr="numéro du chargement" ),
+           NUME_CHAR     =SIMP(statut='o',typ='I',fr="numéro du chargement" ),
            NOM_CHAR      =SIMP(statut='f',typ='TXM',fr="nom du chargement" ),
            MX            =SIMP(statut='f',typ='R',fr="moment suivant x", ),
            MX_TUBU       =SIMP(statut='f',typ='R',fr="moment suivant x, tubulure", ),
@@ -30638,82 +30913,83 @@ POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=table_sdaster,
            ),
 
                          ),
-         RESU_MECA_UNIT =FACT(statut='o',fr="resultats mécaniques unitaires",
+         RESU_MECA_UNIT =FACT(statut='o',fr="resultats mécaniques unitaires",
                               regles=(UN_PARMI('TABL_MX','TABL_MX_TUBU'),),
            TABL_MX       =SIMP(statut='f',typ=table_sdaster,
-                               fr="table relevé des contraintes pour chargement unitaire MX"),
+                               fr="table relevé des contraintes pour chargement unitaire MX"),
            TABL_MX_TUBU  =SIMP(statut='f',typ=table_sdaster,
-                               fr="table relevé des contraintes pour chargement unitaire MX_TUBU"),
+                               fr="table relevé des contraintes pour chargement unitaire MX_TUBU"),
            b_1_tenseur     =BLOC( condition = "TABL_MX != None",
              TABL_FX       =SIMP(statut='f',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire FX"),
+                                 fr="table relevé des contraintes pour chargement unitaire FX"),
              TABL_FY       =SIMP(statut='f',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire FY"),
+                                 fr="table relevé des contraintes pour chargement unitaire FY"),
              TABL_FZ       =SIMP(statut='f',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire FZ"),
+                                 fr="table relevé des contraintes pour chargement unitaire FZ"),
              TABL_MY       =SIMP(statut='o',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire MY"),
+                                 fr="table relevé des contraintes pour chargement unitaire MY"),
              TABL_MZ       =SIMP(statut='o',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire MZ"),
+                                 fr="table relevé des contraintes pour chargement unitaire MZ"),
            ),
            b_2_tenseurs    =BLOC( condition = "TABL_MX_TUBU != None",
              TABL_FX_TUBU  =SIMP(statut='f',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire FX_TUBU"),
+                                 fr="table relevé des contraintes pour chargement unitaire FX_TUBU"),
              TABL_FY_TUBU  =SIMP(statut='f',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire FY_TUBU"),
+                                 fr="table relevé des contraintes pour chargement unitaire FY_TUBU"),
              TABL_FZ_TUBU  =SIMP(statut='f',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire FZ_TUBU"),
+                                 fr="table relevé des contraintes pour chargement unitaire FZ_TUBU"),
              TABL_MY_TUBU  =SIMP(statut='o',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire MY_TUBU"),
+                                 fr="table relevé des contraintes pour chargement unitaire MY_TUBU"),
              TABL_MZ_TUBU  =SIMP(statut='o',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire MZ_TUBU"),
+                                 fr="table relevé des contraintes pour chargement unitaire MZ_TUBU"),
              TABL_FX_CORP  =SIMP(statut='f',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire FX_CORP"),
+                                 fr="table relevé des contraintes pour chargement unitaire FX_CORP"),
              TABL_FY_CORP  =SIMP(statut='f',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire FY_CORP"),
+                                 fr="table relevé des contraintes pour chargement unitaire FY_CORP"),
              TABL_FZ_CORP  =SIMP(statut='f',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire FZ_CORP"),
+                                 fr="table relevé des contraintes pour chargement unitaire FZ_CORP"),
              TABL_MX_CORP  =SIMP(statut='o',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire MX_CORP"),
+                                 fr="table relevé des contraintes pour chargement unitaire MX_CORP"),
              TABL_MY_CORP  =SIMP(statut='o',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire MY_CORP"),
+                                 fr="table relevé des contraintes pour chargement unitaire MY_CORP"),
              TABL_MZ_CORP  =SIMP(statut='o',typ=table_sdaster,
-                                 fr="table relevé des contraintes pour chargement unitaire MZ_CORP"),
+                                 fr="table relevé des contraintes pour chargement unitaire MZ_CORP"),
            ),
            TABL_PRES     =SIMP(statut='o',typ=table_sdaster,
-                               fr="table relevé des contraintes pour chargement unitaire de pression"),
+                               fr="table relevé des contraintes pour chargement unitaire de pression"),
                          ),
 
           RESU_THER   =FACT(statut='f',max='**',fr="resultats thermiques",
-           NUME_RESU_THER =SIMP(statut='o',typ='I',fr="numéro de la table de résultat thermique" ),
+           NUME_RESU_THER =SIMP(statut='o',typ='I',fr="numéro de la table de résultat thermique" ),
            TABL_RESU_THER =SIMP(statut='o',typ=table_sdaster,
-                              fr="table relevé des contraintes sous chargement thermique seul" ),
+                              fr="table relevé des contraintes sous chargement thermique seul" ),
                            ),
-         SEISME         =FACT(statut='f',max='**',fr="Situation séisme",ang="situation_ang",
+         SEISME         =FACT(statut='f',max='**',fr="Situation séisme",ang="situation_ang",
               NB_OCCUR         =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
-              NB_CYCL_SEISME   =SIMP(statut='o',typ='I',fr="nombre de cycles associé au séisme" ),
-              NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
+              NB_CYCL_SEISME   =SIMP(statut='o',typ='I',fr="nombre de cycles associé au séisme" ),
+              NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
               NOM_SITU         =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
-              NUME_GROUPE      =SIMP(statut='o',typ='I',fr="numéros du groupe de la situation" ),
+              NUME_GROUPE      =SIMP(statut='o',typ='I',fr="numéros du groupe de la situation" ),
               CHAR_ETAT        =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
                                ),
          SITUATION         =FACT(statut='o',max='**',fr="Situation",ang="situation_ang",
               NB_OCCUR         =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
-              NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
+              NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
               NOM_SITU         =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
               COMBINABLE       =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
-              NUME_GROUPE      =SIMP(statut='f',typ='I',
-                                     fr="numéros des groupes de la situation" ),
               NUME_PASSAGE     =SIMP(statut='f',typ='I',min=2,max=2,
-                                     fr="numéro des situations de passage" ),
+                                     fr="numéro des situations de passage" ),
+              NUME_GROUPE      =SIMP(statut='o',typ='I',
+                                        fr="numéros des groupes de la situation" ),
               NUME_RESU_THER   =SIMP(statut='f',typ='I',max=1,fr="numeros de transitoires thermiques" ),
               CHAR_ETAT_A      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
               CHAR_ETAT_B      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
               PRES_A           =SIMP(statut='o',typ='R',fr="pression etat A"),
               PRES_B           =SIMP(statut='o',typ='R',fr="pression etat B"),
-              TEMP_REF_A       =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
-              TEMP_REF_B       =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
+              TEMP_REF_A       =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
+              TEMP_REF_B       =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
                                ),
+
                       ),
 # ======================================================================
      b_tuyauterie  =BLOC(condition="(TYPE_RESU_MECA == 'TUYAUTERIE')",
@@ -30724,15 +31000,15 @@ POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=table_sdaster,
                                fr="Ke meca seul ou partition mecanique + thermique" ),
          MODELE          =SIMP(statut='o',typ=modele_sdaster),
          CARA_ELEM       =SIMP(statut='o',typ=cara_elem),
-         ZONE_ANALYSE =FACT(statut='o',fr="liste des mailles ou des noeuds analysés",
+         ZONE_ANALYSE =FACT(statut='o',fr="liste des mailles ou des noeuds analysés",
             regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
             ),
-         RESU_MECA   =FACT(statut='o',max='**',fr="Chargements mécaniques",
+         RESU_MECA   =FACT(statut='o',max='**',fr="Chargements mécaniques",
            regles=(UN_PARMI('CHAM_GD','RESULTAT'),),
-           NUME_CHAR     =SIMP(statut='o',typ='I',fr="numéro du chargement" ),
+           NUME_CHAR     =SIMP(statut='o',typ='I',fr="numéro du chargement" ),
            NOM_CHAR      =SIMP(statut='f',typ='TXM',fr="nom du chargement" ),
            CHAM_GD         =SIMP(statut='f',typ=cham_gd_sdaster),
            RESULTAT        =SIMP(statut='f',typ=resultat_sdaster),
@@ -30763,23 +31039,23 @@ POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=table_sdaster,
             K3              =SIMP(statut='f',typ='R',defaut=1.0,fr="indice de contraintes K3 du RCCM"),
             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",),),
             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**',
-                             fr="groupe(s) de mailles ou sont affectés les indices de contraintes"),
+                             fr="groupe(s) de mailles ou sont affectés les indices de contraintes"),
             MAILLE          =SIMP(statut='f',typ=ma,validators=NoRepeat(),max='**',
-                             fr="liste des mailles ou sont affectés les indices de contraintes"),
+                             fr="liste des mailles ou sont affectés les indices de contraintes"),
             b_grma     =BLOC(condition="(GROUP_MA != None)or(MAILLE != None)",
                GROUP_NO        =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
                NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
             ),
             TYPE_ELEM_STANDARD =SIMP(statut='f',typ='TXM',into=("DRO","COU","TRN","TEE"),
-                              fr="type d'élément de tuyauterie ou sont affectés les indices de contraintes"),
+                              fr="type d'élément de tuyauterie ou sont affectés les indices de contraintes"),
                          ),
           RESU_THER   =FACT(statut='f',max='**',fr="resultats thermiques",
             regles=(PRESENT_ABSENT('TOUT','GROUP_MA','MAILLE'),AU_MOINS_UN('TOUT','GROUP_MA','MAILLE'),),
-            NUME_RESU_THER =SIMP(statut='o',typ='I',fr="numéro de la table de résultat thermique" ),
+            NUME_RESU_THER =SIMP(statut='o',typ='I',fr="numéro de la table de résultat thermique" ),
             TABL_RESU_THER =SIMP(statut='o',typ=table_sdaster,
-                              fr="table relevé des températures sur la section"),
+                              fr="table relevé des températures sur la section"),
             TABL_MOYE_THER =SIMP(statut='o',typ=table_sdaster,
-                              fr="table relevé des moyennes sur la section"),
+                              fr="table relevé des moyennes sur la section"),
             TOUT            =SIMP(statut='f',typ='TXM',into=("OUI",) ),
             GROUP_MA        =SIMP(statut='f',typ=grma,validators=NoRepeat(),max='**'),
             MAILLE          =SIMP(statut='f',typ=ma  ,validators=NoRepeat(),max='**'),
@@ -30788,37 +31064,36 @@ POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=table_sdaster,
                NOEUD           =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
             ),
                            ),
-         SEISME         =FACT(statut='f',max='**',fr="Situation séisme",ang="situation_ang",
+         SEISME         =FACT(statut='f',max='**',fr="Situation séisme",ang="situation_ang",
               NB_OCCUR         =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
-              NB_CYCL_SEISME   =SIMP(statut='o',typ='I',fr="nombre de cycles associé au séisme" ),
-              NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
+              NB_CYCL_SEISME   =SIMP(statut='o',typ='I',fr="nombre de cycles associé au séisme" ),
+              NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
               NOM_SITU         =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
-              NUME_GROUPE      =SIMP(statut='o',typ='I',fr="numéros du groupe de la situation" ),
+              NUME_GROUPE      =SIMP(statut='o',typ='I',fr="numéros du groupe de la situation" ),
               CHAR_ETAT        =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
-              TEMP_REF         =SIMP(statut='f',typ='R',fr="temperature référence"),
+              TEMP_REF         =SIMP(statut='f',typ='R',fr="temperature référence"),
                                ),
          SITUATION         =FACT(statut='o',max='**',fr="Situation",ang="situation_ang",
               NB_OCCUR         =SIMP(statut='o',typ='I',fr="nombre d'occurences de la situation" ),
-              NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
+              NUME_SITU        =SIMP(statut='o',typ='I',fr="numéro de la situation" ),
               NOM_SITU         =SIMP(statut='f',typ='TXM',fr="nom de la situation" ),
               COMBINABLE       =SIMP(statut='f',typ='TXM',defaut= "OUI",into=("OUI","NON"),fr="non = sous-cycle" ),
-              NUME_GROUPE      =SIMP(statut='f',typ='I',
-                                     fr="numéros des groupes de la situation" ),
+              NUME_GROUPE      =SIMP(statut='o',typ='I',
+                                     fr="numéros des groupes de la situation" ),
               NUME_PASSAGE     =SIMP(statut='f',typ='I',min=2,max=2,
-                                     fr="numéro des situations de passage" ),
+                                     fr="numéro des situations de passage" ),
               NUME_RESU_THER   =SIMP(statut='f',typ='I',max='**',fr="numeros de transitoires thermiques" ),
               CHAR_ETAT_A      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat A" ),
               CHAR_ETAT_B      =SIMP(statut='o',typ='I',max='**',fr="numeros de chargements etat B" ),
               PRES_A           =SIMP(statut='o',typ='R',fr="pression etat A"),
               PRES_B           =SIMP(statut='o',typ='R',fr="pression etat B"),
-              TEMP_REF_A       =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
-              TEMP_REF_B       =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
+              TEMP_REF_A       =SIMP(statut='f',typ='R',fr="temperature référence etat A"),
+              TEMP_REF_B       =SIMP(statut='f',typ='R',fr="temperature référence etat B"),
                                ),
                ),
 )  ;
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
+
 # ======================================================================
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # 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
@@ -30834,11 +31109,11 @@ POST_RCCM=OPER(nom="POST_RCCM",op= 165,sd_prod=table_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DESROCHE X.DESROCHES
+# person_in_charge: xavier.desroches at edf.fr
 POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=table_sdaster,reentrant='f',
             fr="Extraire des valeurs de composantes de champs de grandeurs pour y effectuer des calculs (moyenne,invariants,..)"
-               +" ou pour les exprimer dans d'autres repères",
-            docu="U4.81.21",UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
+               +" ou pour les exprimer dans d'autres repères",
+            docu="U4.81.21",UIinfo={"groupes":("Post-traitements","Résultats et champs",)},
 
          ACTION          =FACT(statut='o',max='**',
                                regles=(UN_PARMI('RESULTAT','CHAM_GD'),),
@@ -30851,7 +31126,7 @@ POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=table_sdaster,reentrant='f'
                                                  cham_elem,),),
            RESULTAT        =SIMP(statut='f',typ=resultat_sdaster),
 
-           b_extrac        =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
+           b_extrac        =BLOC(condition = "RESULTAT != None",fr="extraction des résultats",
                                  regles=(EXCLUS('TOUT_ORDRE','NUME_ORDRE','LIST_ORDRE','NUME_MODE','LIST_MODE',
                                                 'INST','LIST_INST','FREQ','LIST_FREQ','NOEUD_CMP','NOM_CAS'), ),
              NOM_CHAM        =SIMP(statut='o',typ='TXM',validators=NoRepeat(),into=C_NOM_CHAM_INTO(),),
@@ -30947,8 +31222,7 @@ POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=table_sdaster,reentrant='f'
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 22/01/2013   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -30965,14 +31239,14 @@ POST_RELEVE_T=OPER(nom="POST_RELEVE_T",op=51,sd_prod=table_sdaster,reentrant='f'
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 POST_RUPTURE=MACRO(nom="POST_RUPTURE",
                    op=OPS("Macro.post_rupture_ops.post_rupture_ops"),
                    sd_prod=table_sdaster,
                    fr="post-traitements en Rupture",
                    reentrant='f',
-                   UIinfo={"groupes":("Résultats et champs","Rupture",)},
+                   UIinfo={"groupes":("Résultats et champs","Rupture",)},
 
       TABLE     = SIMP(statut='o',typ=table_sdaster,max='**'),
 
@@ -31049,7 +31323,7 @@ POST_RUPTURE=MACRO(nom="POST_RUPTURE",
       b_Comptage = BLOC(condition="OPERATION == 'COMPTAGE_CYCLES'  ",fr="Comptage des cycles",
 
                    NOM_PARA   = SIMP(statut='o',typ='TXM',validators=NoRepeat(),max='**',
-                                     fr="Nom des quantités sur lesquelles s'effectuent le comptage"),
+                                     fr="Nom des quantités sur lesquelles s'effectuent le comptage"),
                    COMPTAGE   = SIMP(statut='o',typ='TXM',into=("RAINFLOW","RCCM","NATUREL","UNITAIRE")),
                    DELTA_OSCI = SIMP(statut='f',typ='R',defaut= 0.0E+0),
 
@@ -31067,11 +31341,11 @@ POST_RUPTURE=MACRO(nom="POST_RUPTURE",
 #                 'LOI_PROPA'
 #-----------------------------------------------------------------------------------------------------------------------------------
 
-      b_Loi_Propa   = BLOC(condition="OPERATION == 'LOI_PROPA'  ",fr="calcul de l'incrément d'avancée de fissure par cycle",
+      b_Loi_Propa   = BLOC(condition="OPERATION == 'LOI_PROPA'  ",fr="calcul de l'incrément d'avancée de fissure par cycle",
 
                    NOM_PARA       = SIMP(statut='f',typ='TXM',defaut="DELTA_A"   ,max=1,fr="Nom de la nouvelle colonne"),
                    NOM_DELTA_K_EQ = SIMP(statut='f',typ='TXM',defaut="DELTA_K_EQ",max=1,
-                                                                              fr="Nom de la quantité correspondant au Delta_K_eq"),
+                                                                              fr="Nom de la quantité correspondant au Delta_K_eq"),
                    LOI            = SIMP(statut='o',typ='TXM',into=("PARIS",)),
 
                      b_paris = BLOC(condition = "LOI=='PARIS'",
@@ -31087,7 +31361,7 @@ POST_RUPTURE=MACRO(nom="POST_RUPTURE",
 
       b_cumul = BLOC(condition="OPERATION == 'CUMUL_CYCLES'  ",fr="Cumul sur les cycles",
 
-                   NOM_PARA = SIMP(statut='f',typ='TXM',max=1,defaut="DELTA_A",fr="Nom de la colonne à traiter"),
+                   NOM_PARA = SIMP(statut='f',typ='TXM',max=1,defaut="DELTA_A",fr="Nom de la colonne à traiter"),
                    CUMUL    = SIMP(statut='f',typ='TXM',max=1,defaut="LINEAIRE",into=('LINEAIRE',)),
 
                    ),
@@ -31099,8 +31373,8 @@ POST_RUPTURE=MACRO(nom="POST_RUPTURE",
       b_pilo_propa = BLOC(condition="OPERATION == 'PILO_PROPA'  ",fr="Pilotage de la propagation",
 
                    regles      = UN_PARMI('DELTA_A_MAX','DELTA_N'),
-                   DELTA_A_MAX = SIMP(statut='f',typ='R',max=1,val_min=0.,fr="Pilotage en incrément d'avancée max"),
-                   DELTA_N     = SIMP(statut='f',typ='R',max=1,val_min=1 ,fr="Pilotage en incrément de nombre de blocs"),
+                   DELTA_A_MAX = SIMP(statut='f',typ='R',max=1,val_min=0.,fr="Pilotage en incrément d'avancée max"),
+                   DELTA_N     = SIMP(statut='f',typ='R',max=1,val_min=1 ,fr="Pilotage en incrément de nombre de blocs"),
                   
                    ),
 
@@ -31118,8 +31392,7 @@ POST_RUPTURE=MACRO(nom="POST_RUPTURE",
 #-----------------------------------------------------------------------------------------------------------------------------------
 
 )  ;
-#& MODIF COMMANDE  DATE 30/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -31136,10 +31409,10 @@ POST_RUPTURE=MACRO(nom="POST_RUPTURE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ZENTNER I.ZENTNER
+# person_in_charge: irmela.zentner at edf.fr
 POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=table_sdaster,reentrant='f',
             UIinfo={"groupes":("Post-traitements",)},
-                fr="Calcul des volumes d'usure et des profondeurs d'usure d'après la puissance d'usure",
+                fr="Calcul des volumes d'usure et des profondeurs d'usure d'après la puissance d'usure",
          regles=(UN_PARMI('TUBE_NEUF','RESU_GENE','PUIS_USURE'),
                  PRESENT_PRESENT('RESU_GENE','NOEUD','LOI_USURE'),
                  PRESENT_PRESENT('PUIS_USURE','LOI_USURE'),),
@@ -31237,8 +31510,7 @@ POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=table_sdaster,reentrant='f',
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
 )  ;
-#& MODIF COMMANDE  DATE 23/04/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -31255,12 +31527,12 @@ POST_USURE=OPER(nom="POST_USURE",op=153,sd_prod=table_sdaster,reentrant='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 
 POURSUITE=MACRO(nom="POURSUITE",
                 op=OPS("Cata.ops.build_poursuite"),
                 repetable='n',
-                fr="Poursuite d'une étude à partir de la sauvegarde au format JEVEUX " \
+                fr="Poursuite d'une étude à partir de la sauvegarde au format JEVEUX " \
                    "ou HDF de sa base globale",
                 sd_prod = ops.POURSUITE,
                 UIinfo={"groupes":("Gestion du travail",)},
@@ -31273,14 +31545,14 @@ POURSUITE=MACRO(nom="POURSUITE",
          IMPR_MACRO      =SIMP(fr="affichage des sous-commandes produites par les macros dans le fichier mess",
                            statut='f',typ='TXM',into=("OUI","NON"),defaut="NON"),
 
-         BASE            =FACT(fr="définition des paramètres associés aux bases JEVEUX",
+         BASE            =FACT(fr="définition des paramètres associés aux bases JEVEUX",
                                statut='f',min=1,max=2,
            FICHIER         =SIMP(fr="nom de la base",statut='o',typ='TXM'),
            TITRE           =SIMP(statut='f',typ='TXM'),
            CAS             =SIMP(statut='f',typ='TXM'),
            NMAX_ENRE       =SIMP(fr="nombre maximum d enregistrements",statut='f',typ='I'),
            LONG_ENRE       =SIMP(fr="longueur des enregistrements",statut='f',typ='I'),
-           LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
+           LONG_REPE       =SIMP(fr="longueur du répertoire",statut='f',typ='I'),
          ),
 
 # Le mot cle CATALOGUE n'est jamais utilise en POURSUITE mais sa presence est necessaire au bon fonctionnement
@@ -31295,33 +31567,33 @@ POURSUITE=MACRO(nom="POURSUITE",
            ERREUR_F        =SIMP(statut='f',typ='TXM',into=('ABORT','EXCEPTION'),defaut='ABORT'),
          ),
 
-         DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
+         DEBUG           =FACT(fr="option de déboggage reservée aux développeurs",
                                statut='f',min=1,max=1,
-           JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
+           JXVERI          =SIMP(fr="vérifie l intégrité de la segmentation mémoire",
                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
-           SDVERI          =SIMP(fr="vérifie la conformité des SD produites par les commandes",
+           SDVERI          =SIMP(fr="vérifie la conformité des SD produites par les commandes",
                                  statut='f',typ='TXM',into=('OUI','NON')),
-           JEVEUX          =SIMP(fr="force les déchargement sur disque",
+           JEVEUX          =SIMP(fr="force les déchargement sur disque",
                                  statut='f',typ='TXM',into=('OUI','NON'),defaut='NON'),
-           ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
+           ENVIMA          =SIMP(fr="imprime les valeurs définies dans ENVIMA",
                                  statut='f',typ='TXM',into=('TEST',)),
-           HIST_ETAPE = SIMP(fr="permet de conserver toutes les étapes du jeu de commandes",
+           HIST_ETAPE = SIMP(fr="permet de conserver toutes les étapes du jeu de commandes",
                              statut='f', typ='TXM', into=('OUI', 'NON'), defaut='NON'),
          ),
 
-         MESURE_TEMPS     =FACT(fr="Pour choisir les mesures de temps consommé dans les commandes",
+         MESURE_TEMPS     =FACT(fr="Pour choisir les mesures de temps consommé dans les commandes",
                                statut='d',min=1,max=1,
-           NIVE_DETAIL      =SIMP(fr="niveau de détail des impressions",
+           NIVE_DETAIL      =SIMP(fr="niveau de détail des impressions",
                                  statut='f',typ='I',into=(0,1,2,3),defaut=1),
                                  # 0 : rien
                                  # 1 : impression en fin de commande des mesures principales
                                  # 2 : impression en fin de commande des mesures principales et secondaires
                                  # 3 : impression des mesures principales et secondaires pour chaque pas de temps
-           MOYENNE     =SIMP(fr="affichage des moyennes et écart-types en parallèle",
-                                  statut='f',typ='TXM',into=('OUI','NON',),defaut='OUI'),
+           MOYENNE     =SIMP(fr="affichage des moyennes et écart-types en parallèle",
+                                  statut='f',typ='TXM',into=('OUI','NON',),defaut='NON'),
          ),
 
-         MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='d',min=1,max=1,
+         MEMOIRE         =FACT(fr="mode de gestion mémoire utilisé",statut='d',min=1,max=1,
            TAILLE_BLOC       =SIMP(statut='f',typ='R',defaut=800.),
            TAILLE_GROUP_ELEM =SIMP(statut='f',typ='I',defaut=1000),
          ),
@@ -31329,28 +31601,24 @@ POURSUITE=MACRO(nom="POURSUITE",
          RESERVE_CPU     =FACT(fr="reserve de temps pour terminer une execution",statut='d',max=1,
            regles=(EXCLUS('VALE','POURCENTAGE'),),
            VALE            =SIMP(statut='f',typ='I',val_min=0),
-#                            valeur par défaut fixée à 10. dans le FORTRAN si CODE présent
+#                            valeur par défaut fixée à 10. dans le FORTRAN si CODE présent
            POURCENTAGE     =SIMP(statut='f',typ='R',val_min=0.,val_max=1.0),
-#                           valeur par défaut fixée à 10% dans le FORTRAN
+#                           valeur par défaut fixée à 10% dans le FORTRAN
            BORNE           =SIMP(statut='f',typ='I',val_min=0,defaut=900) ),
-#          valeur en pourcentage du temps maximum bornée à 900 secondes
-
-         CODE            =FACT("définition d'un nom pour l'ensemble d'une étude",
-                               statut='f',min=1,max=1,
-           NOM             =SIMP(statut='o',typ='TXM'),
-         ),
+#          valeur en pourcentage du temps maximum bornée à 900 secondes
 
+         CODE            =SIMP(statut='f',typ='TXM',into=('OUI', 'NON'),defaut='NON',
+                               fr="paramètre réservé aux cas-tests"),
 
-         IGNORE_ALARM = SIMP(statut='f', typ='TXM', max='**', fr="Alarmes que l'utilisateur souhaite délibérément ignorer"),
+         IGNORE_ALARM = SIMP(statut='f', typ='TXM', max='**', fr="Alarmes que l'utilisateur souhaite délibérément ignorer"),
 
          LANG = SIMP(statut='f', typ='TXM',
-                     fr="Permet de choisir la langue utilisée pour les messages (si disponible)",
+                     fr="Permet de choisir la langue utilisée pour les messages (si disponible)",
                      ang="Allows to choose the language used for messages (if available)"),
 
          INFO     = SIMP(statut='f', typ='I', defaut=1, into=(1,2),),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -31367,7 +31635,7 @@ POURSUITE=MACRO(nom="POURSUITE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 PRE_GIBI=PROC(nom="PRE_GIBI",op=49,
             UIinfo={"groupes":("Gestion du travail",)},
@@ -31375,8 +31643,7 @@ PRE_GIBI=PROC(nom="PRE_GIBI",op=49,
          UNITE_GIBI      =SIMP(statut='f',typ='I',defaut=19),  
          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),  
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -31393,7 +31660,7 @@ PRE_GIBI=PROC(nom="PRE_GIBI",op=49,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 PRE_GMSH=PROC(nom="PRE_GMSH",op=47,
             UIinfo={"groupes":("Gestion du travail",)},
@@ -31401,8 +31668,7 @@ PRE_GMSH=PROC(nom="PRE_GMSH",op=47,
          UNITE_GMSH      =SIMP(statut='f',typ='I',defaut=19),  
          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),  
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -31419,7 +31685,7 @@ PRE_GMSH=PROC(nom="PRE_GMSH",op=47,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE MIKCHEVITCH A.MIKCHEVITCH
+# person_in_charge: alexei.mikchevitch at edf.fr
 PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,
             UIinfo={"groupes":("Gestion du travail",)},
                fr="Conversion d'un fichier universel IDEAS-SUPERTAB au format Aster",
@@ -31427,8 +31693,7 @@ PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,
          UNITE_MAILLAGE  =SIMP(statut='f',typ='I',defaut=20),  
          CREA_GROUP_COUL =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -31445,7 +31710,7 @@ PRE_IDEAS=PROC(nom="PRE_IDEAS",op=47,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=cham_no_sdaster,
                     fr="Effectuer le produit d'une matrice par un vecteur",
@@ -31455,8 +31720,7 @@ PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=cham_no_sdaster,
          CHAM_NO         =SIMP(statut='o',typ=cham_no_sdaster),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 )  ;
-#& MODIF COMMANDE  DATE 06/08/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -31474,7 +31738,7 @@ PROD_MATR_CHAM=OPER(nom="PROD_MATR_CHAM",op= 156,sd_prod=cham_no_sdaster,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
 
-# RESPONSABLE BOYERE E.BOYERE
+# person_in_charge: emmanuel.boyere at edf.fr
 
 
 def proj_base_prod(self,MATR_ASSE_GENE,VECT_ASSE_GENE,
@@ -31523,8 +31787,7 @@ PROJ_BASE=MACRO(nom="PROJ_BASE",
          ),
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
 )  ;
-#& MODIF COMMANDE  DATE 19/03/2013   AUTEUR BRIE N.BRIE 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -31541,7 +31804,7 @@ PROJ_BASE=MACRO(nom="PROJ_BASE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 def proj_champ_prod(RESULTAT=None,CHAM_GD=None,METHODE=None,**args ):
     if (RESULTAT == None and CHAM_GD == None) : return corresp_2_mailla
     if  RESULTAT != None                      : return AsType(RESULTAT)
@@ -31555,13 +31818,13 @@ def proj_champ_prod(RESULTAT=None,CHAM_GD=None,METHODE=None,**args ):
 
 
 PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
-        UIinfo={"groupes":("Résultats et champs",)},
+        UIinfo={"groupes":("Résultats et champs",)},
             fr="Projeter des champs d'un maillage sur un autre",
 
      # faut-il projeter les champs ?
      PROJECTION      =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON",),),
 
-     # pour projeter avec une sd_corresp_2_mailla deja calculée :
+     # pour projeter avec une sd_corresp_2_mailla deja calculée :
      MATR_PROJECTION   =SIMP(statut='f',typ=corresp_2_mailla,),
 
 
@@ -31598,24 +31861,24 @@ PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
          #--------------------------------------------
          b_elem          =BLOC(condition="METHODE in ('COLLOCATION','ECLA_PG','AUTO')",
              CAS_FIGURE      =SIMP(statut='f',typ='TXM',into=("2D","3D","2.5D","1.5D",),
-                  fr="Pour indiquer au programme le type de projection souhaité"),
+                  fr="Pour indiquer au programme le type de projection souhaité"),
              DISTANCE_MAX    =SIMP(statut='f',typ='R',
-                  fr="Distance maximale entre le noeud et l'élément le plus proche, lorsque le noeud n'est dans aucun élément."),
+                  fr="Distance maximale entre le noeud et l'élément le plus proche, lorsque le noeud n'est dans aucun élément."),
 
              TRANSF_GEOM_1   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
-                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
+                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
                      " aux noeuds du MODELE_1 avant la projection."),
              TRANSF_GEOM_2   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
-                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
+                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
                      " aux noeuds du MODELE_2 avant la projection."),
 
              ALARME          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
 
              TYPE_CHAM       =SIMP(statut='f',typ='TXM',into=("NOEU",),
-                  fr="Pour forcer le type des champs projetés. NOEU -> cham_no"),
+                  fr="Pour forcer le type des champs projetés. NOEU -> cham_no"),
 
              PROL_ZERO       =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON",
-                  fr="Pour prolonger les champs par zéro là ou la projection ne donne pas de valeurs."),
+                  fr="Pour prolonger les champs par zéro là ou la projection ne donne pas de valeurs."),
          ),
 
          # Cas de la projection SOUS_POINT :
@@ -31623,12 +31886,12 @@ PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
          b_sous_point         =BLOC(condition="METHODE == 'SOUS_POINT'" ,
              CARA_ELEM    =SIMP(statut='o',typ=cara_elem),
              PROL_ZERO       =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON",
-                  fr="Pour prolonger les champs par zéro là ou la projection ne donne pas de valeurs."),
+                  fr="Pour prolonger les champs par zéro là ou la projection ne donne pas de valeurs."),
              TRANSF_GEOM_1   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
-                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
+                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
                      " aux noeuds du MODELE_1 avant la projection."),
              TRANSF_GEOM_2   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
-                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
+                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
                      " aux noeuds du MODELE_2 avant la projection."),
          ),
 
@@ -31643,7 +31906,7 @@ PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
            NOM_CHAM        =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max='**',into=C_NOM_CHAM_INTO(),),
 
            NUME_DDL        =SIMP(statut='f',typ=(nume_ddl_sdaster),
-                fr="Utile en dynamique pour pouvoir imoser la numérotation des cham_no."),
+                fr="Utile en dynamique pour pouvoir imoser la numérotation des cham_no."),
 
            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
            NUME_ORDRE      =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**' ),
@@ -31679,13 +31942,13 @@ PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
            GROUP_NO_2      =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
            NOEUD_2         =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
 
-           # les mots clés suivants ne sont actifs que si METHODE='COLLOCATION' mais on ne peut pas le vérifier:
+           # les mots clés suivants ne sont actifs que si METHODE='COLLOCATION' mais on ne peut pas le vérifier:
                CAS_FIGURE      =SIMP(statut='f',typ='TXM',into=("2D","3D","2.5D","1.5D",) ),
                TRANSF_GEOM_1   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
-                    fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
+                    fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
                        " aux noeuds du MODELE_1 avant la projection."),
                TRANSF_GEOM_2   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
-                    fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
+                    fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
                        " aux noeuds du MODELE_2 avant la projection."),
          ),
      ), # fin bloc b_1_et_2
@@ -31714,15 +31977,15 @@ PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
          #--------------------------------------------
          b_elem          =BLOC(condition="METHODE in ('COLLOCATION',)",
              CAS_FIGURE      =SIMP(statut='f',typ='TXM',into=("2D","3D","2.5D","1.5D",),
-                  fr="Pour indiquer au programme le type de projection souhaité"),
+                  fr="Pour indiquer au programme le type de projection souhaité"),
              DISTANCE_MAX    =SIMP(statut='f',typ='R',
-                  fr="Distance maximale entre le noeud et l'élément le plus proche, lorsque le noeud n'est dans aucun élément."),
+                  fr="Distance maximale entre le noeud et l'élément le plus proche, lorsque le noeud n'est dans aucun élément."),
 
              TRANSF_GEOM_1   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
-                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
+                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
                      " aux noeuds du MODELE_1 avant la projection."),
              TRANSF_GEOM_2   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
-                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
+                  fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
                      " aux noeuds du MODELE_2 avant la projection."),
 
              ALARME          =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON") ),
@@ -31743,13 +32006,13 @@ PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
            GROUP_NO_2      =SIMP(statut='f',typ=grno,validators=NoRepeat(),max='**'),
            NOEUD_2         =SIMP(statut='f',typ=no  ,validators=NoRepeat(),max='**'),
 
-           # les mots clés suivants ne sont actifs que si METHODE='COLLOCATION' mais on ne peut pas le vérifier:
+           # les mots clés suivants ne sont actifs que si METHODE='COLLOCATION' mais on ne peut pas le vérifier:
                CAS_FIGURE      =SIMP(statut='f',typ='TXM',into=("2D","3D","2.5D","1.5D",) ),
                TRANSF_GEOM_1   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
-                    fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
+                    fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
                        " aux noeuds du MODELE_1 avant la projection."),
                TRANSF_GEOM_2   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule),min=2,max=3,
-                    fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
+                    fr="2 (ou 3) fonctions fx,fy,fz définissant la transformation géométrique à appliquer"+
                        " aux noeuds du MODELE_2 avant la projection."),
          ),
      ), # fin bloc b_1
@@ -31757,7 +32020,7 @@ PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
 
 
      #-----------------------------------------------------------------------------------------------------------
-     # 3eme cas : on projette les champs avec une sd_corresp_2_mailla déjé calculée
+     # 3eme cas : on projette les champs avec une sd_corresp_2_mailla déjé calculée
      #-----------------------------------------------------------------------------------------------
      b_2   =BLOC(condition="MATR_PROJECTION != None",
          regles=(UN_PARMI('RESULTAT','CHAM_GD'),),
@@ -31765,16 +32028,16 @@ PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
          CHAM_GD         =SIMP(statut='f',typ=(cham_no_sdaster,cham_elem)),
 
          TYPE_CHAM       =SIMP(statut='f',typ='TXM',into=("NOEU",),
-              fr="Pour forcer le type des champs projetés. NOEU -> cham_no"),
+              fr="Pour forcer le type des champs projetés. NOEU -> cham_no"),
 
          NUME_DDL        =SIMP(statut='f',typ=(nume_ddl_sdaster),
-              fr="Parfois utile en dynamique pour pouvoir imposer la numérotation des cham_no."),
+              fr="Parfois utile en dynamique pour pouvoir imposer la numérotation des cham_no."),
 
-         # nécessaire si l'on projette des cham_elem :
+         # nécessaire si l'on projette des cham_elem :
          MODELE_2        =SIMP(statut='f',typ=modele_sdaster),
 
          PROL_ZERO       =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON",
-              fr="Pour prolonger les champs par zéro là où la projection ne donne pas de valeurs."),
+              fr="Pour prolonger les champs par zéro là où la projection ne donne pas de valeurs."),
 
 
 
@@ -31815,8 +32078,7 @@ PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
      TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
      INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -31833,7 +32095,7 @@ PROJ_CHAMP=OPER(nom="PROJ_CHAMP",op= 166,sd_prod=proj_champ_prod,reentrant='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE BOYERE E.BOYERE
+# person_in_charge: emmanuel.boyere at edf.fr
 def matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
   if AsType(MATR_ASSE) == matr_asse_depl_r  : return matr_asse_gene_r
   if AsType(MATR_ASSE_GENE) == matr_asse_gene_r  : return matr_asse_gene_r
@@ -31842,7 +32104,7 @@ def matr_asse_gene_prod(MATR_ASSE,MATR_ASSE_GENE,**args):
   raise AsException("type de concept resultat non prevu")
 
 PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op=  71,sd_prod=matr_asse_gene_prod,
-                    fr="Projection d'une matrice assemblée sur une base (modale ou de RITZ)",
+                    fr="Projection d'une matrice assemblée sur une base (modale ou de RITZ)",
                     reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
          regles=(UN_PARMI('MATR_ASSE','MATR_ASSE_GENE'),),            
@@ -31852,8 +32114,6 @@ PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op=  71,sd_prod=matr_asse_gene_prod,
          MATR_ASSE_GENE  =SIMP(statut='f',typ=(matr_asse_gene_r,matr_asse_gene_c) ),
 )  ;
 
-#& MODIF COMMANDE  DATE 29/03/2011   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -31870,7 +32130,7 @@ PROJ_MATR_BASE=OPER(nom="PROJ_MATR_BASE",op=  71,sd_prod=matr_asse_gene_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE ANDRIAM H.ANDRIAMBOLOLONA
+# person_in_charge: harinaivo.andriambololona at edf.fr
 def proj_mesu_modal_prod(MODELE_MESURE,**args):
      vale=MODELE_MESURE['MESURE']
      if  AsType(vale) == dyna_trans   : return tran_gene
@@ -31883,8 +32143,8 @@ def proj_mesu_modal_prod(MODELE_MESURE,**args):
 PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
                      sd_prod=proj_mesu_modal_prod,
                      reentrant='n',
-            UIinfo={"groupes":("Résultats et champs",)},
-                     fr="Calcul des coordonnees généralisees de mesure experimentale relatives a une base de projection",
+            UIinfo={"groupes":("Résultats et champs",)},
+                     fr="Calcul des coordonnees généralisees de mesure experimentale relatives a une base de projection",
 
          MODELE_CALCUL   =FACT(statut='o',
            MODELE          =SIMP(statut='o',typ=(modele_sdaster) ),
@@ -31918,8 +32178,7 @@ PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
              ),
 
           ); 
-#& MODIF COMMANDE  DATE 07/05/2012   AUTEUR BODEL C.BODEL 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -31936,8 +32195,7 @@ PROJ_MESU_MODAL=OPER(nom="PROJ_MESU_MODAL",op= 193,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-
-# RESPONSABLE BODEL C.BODEL
+# person_in_charge: albert.alarcon at edf.fr
 
 PROJ_RESU_BASE=OPER(nom="PROJ_RESU_BASE",op=  79,sd_prod=tran_gene,
                     fr="Projection d'une sd resultat assemblee sur une base (modale ou de RITZ)",
@@ -31948,8 +32206,7 @@ PROJ_RESU_BASE=OPER(nom="PROJ_RESU_BASE",op=  79,sd_prod=tran_gene,
          TYPE_VECT       =SIMP(statut='f',typ='TXM',defaut="FORC"),
          RESU            =SIMP(statut='o',typ=dyna_trans),
 )  ;
-#& MODIF COMMANDE  DATE 25/02/2013   AUTEUR BERRO H.BERRO 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -31966,7 +32223,7 @@ PROJ_RESU_BASE=OPER(nom="PROJ_RESU_BASE",op=  79,sd_prod=tran_gene,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE ADOBES A.ADOBES
+# person_in_charge: andre.adobes at edf.fr
 PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=interspectre,reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
             fr="Projecter un ou plusieurs spectres de turbulence sur une (ou plusieurs) base(s) modale(s) ",
@@ -31996,8 +32253,7 @@ PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=interspectre,reentrant=
          ORIG_AXE       =SIMP(statut='f',typ='R',min=3,max=3 ),  
          TITRE          =SIMP(statut='f',typ='TXM',max='**' ),  
 );
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -32014,10 +32270,10 @@ PROJ_SPEC_BASE=OPER(nom="PROJ_SPEC_BASE",op= 146,sd_prod=interspectre,reentrant=
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE BOYERE E.BOYERE
+# person_in_charge: emmanuel.boyere at edf.fr
 
 PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op=  72,sd_prod=vect_asse_gene,
-                    fr="Projection d'un vecteur assemblé sur une base (modale ou de RITZ)",
+                    fr="Projection d'un vecteur assemblé sur une base (modale ou de RITZ)",
                     reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
          regles=(UN_PARMI('VECT_ASSE','VECT_ASSE_GENE'),),              
@@ -32027,8 +32283,7 @@ PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op=  72,sd_prod=vect_asse_gene,
          VECT_ASSE       =SIMP(statut='f',typ=cham_no_sdaster),
          VECT_ASSE_GENE  =SIMP(statut='f',typ=vect_asse_gene ),
 )  ;
-#& MODIF COMMANDE  DATE 22/01/2013   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -32045,7 +32300,7 @@ PROJ_VECT_BASE=OPER(nom="PROJ_VECT_BASE",op=  72,sd_prod=vect_asse_gene,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 
 def propa_fiss_prod(self,**args):
@@ -32180,8 +32435,6 @@ PROPA_FISS=MACRO(nom="PROPA_FISS",
         INFO = SIMP(statut='f',typ='I',defaut=1,into=(0,1,2)),
 )
 
-#& MODIF COMMANDE  DATE 22/01/2013   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -32198,7 +32451,7 @@ PROPA_FISS=MACRO(nom="PROPA_FISS",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 PROPA_XFEM=OPER(nom="PROPA_XFEM",op=10,sd_prod=fiss_xfem,reentrant='n',
                 UIinfo={"groupes":("Post-traitements","Rupture",)},
@@ -32235,8 +32488,44 @@ PROPA_XFEM=OPER(nom="PROPA_XFEM",op=10,sd_prod=fiss_xfem,reentrant='n',
 
     INFO           =SIMP(statut='f',typ='I',defaut= 0,into=(0,1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 20/06/2012   AUTEUR GENIAUT S.GENIAUT 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
+# 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 2 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, WRITE TO EDF R&D CODE_ASTER,         
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
+# ======================================================================
+# person_in_charge: renaud.bargellini at edf.fr
+
+RAFF_GP =MACRO(nom="RAFF_GP",
+                   op=OPS('Macro.raff_gp_ops.raff_gp_ops'),
+                   sd_prod=maillage_sdaster,
+                   UIinfo={"groupes":("Outils-métier","Rupture",)},
+                   reentrant='n',
+                   fr="Preparation du maillage pour calcul du Gp en 2D",
+         MAILLAGE_N   = SIMP(statut='o',typ=maillage_sdaster,
+                      fr="Maillage avant adaptation",
+                      ang="Mesh before adaptation" ),           
+         TRANCHE_2D  = FACT(statut='0',max = 1,
+                           CENTRE           =SIMP(statut='o',typ='R',max=2),
+                           RAYON       =SIMP(statut='o',typ='R',max=1),
+                           ANGLE            =SIMP(statut='o',typ='R',max=1),
+                           TAILLE          =SIMP(statut='o',typ='R',max=1),
+                           NB_ZONE        =SIMP(statut='o',typ='I',),
+                             ),
+         NB_RAFF      = SIMP(statut='f',typ='I',defaut=4),         
+)
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -32253,7 +32542,7 @@ PROPA_XFEM=OPER(nom="PROPA_XFEM",op=10,sd_prod=fiss_xfem,reentrant='n',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 # determination du type de sd produite par la commande
 def raff_xfem_prod(self,TYPE,**args):
@@ -32270,18 +32559,17 @@ RAFF_XFEM=MACRO(nom="RAFF_XFEM",
                 sd_prod=raff_xfem_prod,
                 fr="Calcul d'un indicateur pour le raffinement",
                 reentrant='n',
-                UIinfo={"groupes":("Résultats et champs","Rupture",)},
+                UIinfo={"groupes":("Résultats et champs","Rupture",)},
 
                 TYPE   =SIMP(statut='f',typ='TXM',into=('DISTANCE','ZONE'),defaut='DISTANCE'),
                 FISSURE=SIMP(statut='o',typ=fiss_xfem,min=1,max='**',),
 
-                b_zone =BLOC(condition = "TYPE == 'ZONE' ",fr="Paramètres de la zone",
+                b_zone =BLOC(condition = "TYPE == 'ZONE' ",fr="Paramètres de la zone",
                    RAYON =SIMP(statut='o',typ='R',val_min=0.),
                             ),
                 
                 )  ;
-#& MODIF COMMANDE  DATE 20/06/2012   AUTEUR GENIAUT S.GENIAUT 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -32298,7 +32586,7 @@ RAFF_XFEM=MACRO(nom="RAFF_XFEM",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE GENIAUT S.GENIAUT
+# person_in_charge: samuel.geniaut at edf.fr
 
 # commande cachee appelee uniquement par la macro RAFF_XFEM
 
@@ -32308,14 +32596,13 @@ RAFF_XFEM_ZONE=OPER(nom="RAFF_XFEM_ZONE",
                     sd_prod=carte_sdaster,
                     fr="Calcul d'un indicateur binaire pour le raffinement",
                     reentrant='n',
-                    UIinfo={"groupes":("Résultats et champs","Rupture",)},
+                    UIinfo={"groupes":("Résultats et champs","Rupture",)},
 
                     FISSURE=SIMP(statut='o',typ=fiss_xfem,min=1,max=1),
                     RAYON  =SIMP(statut='o',typ='R',val_min=0.),                
 
                     )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -32332,9 +32619,9 @@ RAFF_XFEM_ZONE=OPER(nom="RAFF_XFEM_ZONE",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE PARROT A.PARROT
+# person_in_charge: aurore.parrot at edf.fr
 RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=table_sdaster,
-                     fr="Recaler les paramètres du modèle de WEIBULL sur des données expérimentales",reentrant='n',
+                     fr="Recaler les paramètres du modèle de WEIBULL sur des données expérimentales",reentrant='n',
             UIinfo={"groupes":("Post-traitements",)},
          LIST_PARA       =SIMP(statut='o',typ='TXM',validators=NoRepeat(),max=2,into=("SIGM_REFE","M",) ),
          RESU            =FACT(statut='o',max='**',
@@ -32361,8 +32648,7 @@ RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=table_sdaster,
          ITER_GLOB_MAXI  =SIMP(statut='f',typ='I',defaut= 10 ),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ,) ),
                        )  ;
-#& MODIF COMMANDE  DATE 11/09/2012   AUTEUR LADIER A.LADIER 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -32379,23 +32665,25 @@ RECA_WEIBULL=OPER(nom="RECA_WEIBULL",op= 197,sd_prod=table_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 def recu_fonction_prod(RESULTAT=None,TABLE=None,RESU_GENE=None,
                        BASE_ELAS_FLUI=None,CHAM_GD=None,NAPPE=None,
                        INTE_SPEC=None,NOEUD_J=None,NUME_ORDRE_J=None,
+                       NOM_CMP_J=None,NOM_CMP_I=None,NUME_ORDRE_I=None,NOEUD_I=None,
                        NOM_PARA_TABL=None,**args):
    if AsType(RESULTAT)  == dyna_harmo or \
       AsType(RESU_GENE) == harm_gene or \
-      (INTE_SPEC != None and (NOEUD_J != None or NUME_ORDRE_J != None)) or \
+      (INTE_SPEC and NUME_ORDRE_J and (NUME_ORDRE_I != NUME_ORDRE_J) ) or \
+      (INTE_SPEC and NOEUD_J and ((NOEUD_I != NOEUD_J) or (NOM_CMP_I != NOM_CMP_J)) ) or \
       (TABLE != None and NOM_PARA_TABL == "FONCTION_C"):
       return fonction_c
    else:
       return fonction_sdaster
 
 RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
-                   fr="Extraire sous forme d'une fonction, l'évolution d'une grandeur en fonction d'une autre",
+                   fr="Extraire sous forme d'une fonction, l'évolution d'une grandeur en fonction d'une autre",
                    reentrant='f',
-            UIinfo={"groupes":("Résultats et champs","Fonctions",)},
+            UIinfo={"groupes":("Résultats et champs","Fonctions",)},
          regles=(UN_PARMI('CHAM_GD','RESULTAT','RESU_GENE','TABLE','BASE_ELAS_FLUI','NAPPE','INTE_SPEC'),),
 
          CHAM_GD         =SIMP(statut='f',typ=(cham_no_sdaster,cham_elem,),),
@@ -32408,8 +32696,8 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
 
 # ======= ACCES A LA SD RESULTAT =================================================
          b_acces = BLOC ( condition = "(RESULTAT != None) or (RESU_GENE != None)",
-                          fr="acces a une SD résultat",
-# on ne peut pas mettre de regles, le défaut TOUT_ORDRE est pris en compte dans le fortran
+                          fr="acces a une SD résultat",
+# on ne peut pas mettre de regles, le défaut TOUT_ORDRE est pris en compte dans le fortran
            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
            NUME_ORDRE      =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
            LIST_ORDRE      =SIMP(statut='f',typ=listis_sdaster ),
@@ -32430,7 +32718,7 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
          ),
 # ======= BASE_ELAS_FLUI =================================================
          b_base_elas_flui = BLOC ( condition = "BASE_ELAS_FLUI != None",
-                                   fr="Récupération de la fonction à partir d un concept melasflu",
+                                   fr="Récupération de la fonction à partir d un concept melasflu",
            regles=(UN_PARMI('TOUT_ORDRE','NUME_ORDRE'),),
            TOUT_ORDRE      =SIMP(statut='f',typ='TXM',into=("OUI",) ),
            NUME_ORDRE      =SIMP(statut='f',typ='I',validators=NoRepeat(),max='**'),
@@ -32441,7 +32729,7 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
 
 # ======= INTERSPECTRE =================================================
          b_inte_spec = BLOC ( condition = "INTE_SPEC != None",
-                              fr="Récupération de fonction dans un concept interspectre",
+                              fr="Récupération de fonction dans un concept interspectre",
            regles=(UN_PARMI('NUME_ORDRE_I','NOEUD_I'),),
            NOM_CHAM        =SIMP(statut='f',typ='TXM',validators=NoRepeat(),into=C_NOM_CHAM_INTO()),
            NOEUD_I         =SIMP(statut='f',typ=no,max=1),
@@ -32458,16 +32746,16 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
 
 # ======= TABLE =================================================
          b_table = BLOC ( condition = "TABLE != None",
-                          fr="Récupération de la fonction à partir d un concept table",
+                          fr="Récupération de la fonction à partir d un concept table",
                           regles=(UN_PARMI('PARA_X','NOM_PARA_TABL'),
                                   PRESENT_PRESENT('PARA_X','PARA_Y'),),
            PARA_X        = SIMP(statut='f',typ='TXM',
-                                 fr="1ère colonne de la table qui définit la fonction à récupérer", ),
+                                 fr="1ère colonne de la table qui définit la fonction à récupérer", ),
            PARA_Y        = SIMP(statut='f',typ='TXM',
-                                 fr="2ème colonne de la table qui définit la fonction à récupérer", ),
+                                 fr="2ème colonne de la table qui définit la fonction à récupérer", ),
            #b_tabl_fonc = BLOC(condition = "AsType(TABLE) == table_fonction",
            NOM_PARA_TABL = SIMP(statut='f',typ='TXM',into=("FONCTION","FONCTION_C"),
-                                fr="Nom du paramètre de la table contenant la fonction" ),
+                                fr="Nom du paramètre de la table contenant la fonction" ),
            #),
 
            FILTRE        = FACT(statut='f',max='**',
@@ -32488,7 +32776,7 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
          ),
 
 # ======= RESULTAT =================================================
-         b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
+         b_resu = BLOC ( condition = "RESULTAT != None", fr="Opérandes en cas de RESULTAT",
                          regles=(UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
            NOM_CHAM        =SIMP(statut='f',typ='TXM',validators=NoRepeat(),into=C_NOM_CHAM_INTO()),
            NOM_PARA_RESU   =SIMP(statut='f',typ='TXM' ),
@@ -32510,7 +32798,7 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
 
 # ======= RESU_GENE =================================================
          b_tran_gene = BLOC ( condition = "AsType(RESU_GENE) == tran_gene",
-                              fr="Récupération d'une fonction à partir d un concept TRAN_GENE",
+                              fr="Récupération d'une fonction à partir d un concept TRAN_GENE",
                               regles=(UN_PARMI('NOM_CHAM','NOEUD_CHOC','GROUP_NO_CHOC'),),
              NOM_CHAM        =SIMP(statut='f',typ='TXM',validators=NoRepeat(),into=("DEPL","VITE","ACCE","PTEM") ),
              NOEUD_CHOC      =SIMP(statut='f',typ=no),
@@ -32539,7 +32827,7 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
            ),
          ),
          b_harm_gene = BLOC ( condition = "AsType(RESU_GENE)==harm_gene",
-                              fr="Récupération d'une fonction à partir d un concept HARM_GENE",
+                              fr="Récupération d'une fonction à partir d un concept HARM_GENE",
                               regles=(UN_PARMI('NOM_CMP','NUME_CMP_GENE'),
                                       UN_PARMI('GROUP_NO','NOEUD','NUME_CMP_GENE',),),
              NOM_CHAM        =SIMP(statut='f',typ='TXM',validators=NoRepeat(),into=("DEPL","VITE","ACCE") ),
@@ -32549,7 +32837,7 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
              GROUP_NO        =SIMP(statut='f',typ=grno),
          ),
          # b_harm_gene = BLOC ( condition = "AsType(RESU_GENE)==harm_gene",
-         #                      fr="Récupération d'une fonction à partir d un concept HARM_GENE",
+         #                      fr="Récupération d'une fonction à partir d un concept HARM_GENE",
          #                      regles=(UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
          #     NOM_CHAM        =SIMP(statut='f',typ='TXM',validators=NoRepeat(),into=C_NOM_CHAM_INTO()),
          #     NOM_PARA_RESU   =SIMP(statut='f',typ='TXM' ),
@@ -32565,7 +32853,7 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
          #   ),
          # ),
          b_mode_gene = BLOC ( condition = "AsType(RESU_GENE)==mode_gene",
-                              fr="Récupération d'une fonction à partir d un concept MODE_GENE",
+                              fr="Récupération d'une fonction à partir d un concept MODE_GENE",
                               regles=(UN_PARMI('NOM_CHAM','NOM_PARA_RESU'),),
              NOM_CHAM        =SIMP(statut='f',typ='TXM',validators=NoRepeat(),into=C_NOM_CHAM_INTO()),
              NOM_PARA_RESU   =SIMP(statut='f',typ='TXM' ),
@@ -32585,7 +32873,7 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
          ),
 
 # ======= CHAM_GD =================================================
-         b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
+         b_cham_gd = BLOC ( condition = "(CHAM_GD != None)", fr="Opérandes en cas de CHAM_GD",
                             regles=(AU_MOINS_UN('MAILLE','GROUP_MA','GROUP_NO','NOEUD'),
                                     PRESENT_ABSENT('POINT','NOEUD','GROUP_NO'),
                                     PRESENT_ABSENT('SOUS_POINT','NOEUD','GROUP_NO'),
@@ -32601,7 +32889,7 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
          ),
 
 # ======= NAPPE =================================================
-         b_nappe = BLOC ( condition = "(NAPPE != None)", fr="Opérandes en cas de NAPPE",
+         b_nappe = BLOC ( condition = "(NAPPE != None)", fr="Opérandes en cas de NAPPE",
          VALE_PARA_FONC  =SIMP(statut='o',typ='R' ),
          PRECISION       =SIMP(statut='f',typ='R',defaut= 1.E-3 ),
          CRITERE         =SIMP(statut='f',typ='TXM',defaut="RELATIF",into=("RELATIF","ABSOLU") ),
@@ -32617,8 +32905,7 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',defaut= 1,into=( 1 , 2 ) ),
 )  ;
-#& MODIF COMMANDE  DATE 11/09/2012   AUTEUR BERRO H.BERRO 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -32635,11 +32922,11 @@ RECU_FONCTION=OPER(nom="RECU_FONCTION",op=90,sd_prod=recu_fonction_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE BOYERE E.BOYERE
+# person_in_charge: emmanuel.boyere at edf.fr
 RECU_GENE=OPER(nom="RECU_GENE",op=  76,sd_prod=vect_asse_gene,reentrant='n',
-               UIinfo={"groupes":("Résultats et champs",)},
-               fr="Extraire d'un champ de grandeur (déplacements, vitesses ou accélérations) à partir de résultats"
-                  +" en coordonnées généralisées",
+               UIinfo={"groupes":("Résultats et champs",)},
+               fr="Extraire d'un champ de grandeur (déplacements, vitesses ou accélérations) à partir de résultats"
+                  +" en coordonnées généralisées",
                regles=(UN_PARMI('FREQ','INST',),),
          RESU_GENE       =SIMP(statut='o',typ=(tran_gene,harm_gene),),
          INST            =SIMP(statut='f',typ='R',),
@@ -32653,8 +32940,7 @@ RECU_GENE=OPER(nom="RECU_GENE",op=  76,sd_prod=vect_asse_gene,reentrant='n',
              b_prec_abso=BLOC(condition="(CRITERE=='ABSOLU')",
                  PRECISION       =SIMP(statut='o',typ='R',),),),
 )  ;
-#& MODIF COMMANDE  DATE 14/02/2011   AUTEUR GREFFET N.GREFFET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -32671,7 +32957,7 @@ RECU_GENE=OPER(nom="RECU_GENE",op=  76,sd_prod=vect_asse_gene,reentrant='n',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE GREFFET N.GREFFET
+# person_in_charge: nicolas.greffet at edf.fr
 #
 # RECUPERATION DE PARAMETRES DE COUPLAGE VIA YACS
 # 
@@ -32693,8 +32979,7 @@ RECU_PARA_YACS=OPER(nom="RECU_PARA_YACS",op=114,sd_prod=listr8_sdaster,
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2)),
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
 );
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2001  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -32711,19 +32996,18 @@ RECU_PARA_YACS=OPER(nom="RECU_PARA_YACS",op=114,sd_prod=listr8_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table_sdaster,
-         fr="Récupérer dans une table les valeurs d'un paramètre d'une SD Résultat ou d'extraire une table contenue"
+         fr="Récupérer dans une table les valeurs d'un paramètre d'une SD Résultat ou d'extraire une table contenue"
             +" dans une autre SD pour celles qui le permettent",
-         UIinfo={"groupes":("Résultats et champs","Tables",)},reentrant='n',
+         UIinfo={"groupes":("Résultats et champs","Tables",)},reentrant='n',
          CO              =SIMP(statut='o',typ=assd),
          regles=(UN_PARMI('NOM_TABLE','NOM_PARA')),
          NOM_TABLE       =SIMP(statut='f',typ='TXM' ),
          NOM_PARA        =SIMP(statut='f',typ='TXM',max='**'),  
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),  
 )  ;
-#& MODIF COMMANDE  DATE 02/10/2012   AUTEUR DESOZA T.DESOZA 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -32740,35 +33024,34 @@ RECU_TABLE=OPER(nom="RECU_TABLE",op= 174,sd_prod=table_sdaster,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PELLET J.PELLET
+# person_in_charge: jacques.pellet at edf.fr
 
 RESOUDRE=OPER(nom="RESOUDRE",op=15,sd_prod=cham_no_sdaster,reentrant='f',
-               fr="Résolution par méthode directe un système d'équations linéaires préalablement factorisé par FACT_LDLT"+
-                  "ou Résolution d'un système linéaire par la méthode du gradient conjugué préconditionné",
-               UIinfo={"groupes":("Résolution",)},
+               fr="Résolution par méthode directe un système d'équations linéaires préalablement factorisé par FACT_LDLT"+
+                  "ou Résolution d'un système linéaire par la méthode du gradient conjugué préconditionné",
+               UIinfo={"groupes":("Résolution",)},
          MATR           =SIMP(statut='o',typ=(matr_asse_depl_r,matr_asse_depl_c,matr_asse_temp_r,
                                                matr_asse_temp_c,matr_asse_pres_r,matr_asse_pres_c) ),
          CHAM_NO         =SIMP(statut='o',typ=cham_no_sdaster),
          CHAM_CINE       =SIMP(statut='f',typ=cham_no_sdaster),
 
-         # mot-clé commun aux solveurs MUMPS, GCPC et PETSc:
+         # mot-clé commun aux solveurs MUMPS, GCPC et PETSc:
          RESI_RELA       =SIMP(statut='f',typ='R',defaut=1.E-6),
 
-         # mot-clé pour les posttraitements de la phase de solve de MUMPS
+         # mot-clé pour les posttraitements de la phase de solve de MUMPS
          POSTTRAITEMENTS =SIMP(statut='f',typ='TXM',defaut="AUTO",into=("SANS","AUTO","FORCE")),
 
-         # mot-clé commun aux solveurs GCPC et PETSc:
+         # mot-clé commun aux solveurs GCPC et PETSc:
          NMAX_ITER       =SIMP(statut='f',typ='I',defaut= 0 ),
          MATR_PREC       =SIMP(statut='f',typ=(matr_asse_depl_r,matr_asse_temp_r,matr_asse_pres_r ) ),
 
-         # mots-clés pour solveur PETSc:
+         # mots-clés pour solveur PETSc:
          ALGORITHME      =SIMP(statut='f',typ='TXM',into=("CG", "CR", "GMRES", "GCR", ),defaut="GMRES" ),
 
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
 )  ;
-#& MODIF COMMANDE  DATE 29/03/2011   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -32786,7 +33069,7 @@ RESOUDRE=OPER(nom="RESOUDRE",op=15,sd_prod=cham_no_sdaster,reentrant='f',
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
  
-# RESPONSABLE DEVESA G.DEVESA
+# person_in_charge: Georges-cc.devesa at edf.fr
 def rest_cond_tran_prod(RESULTAT,TYPE_RESU,**args ):
  
   if AsType(RESULTAT) == dyna_trans  : return dyna_trans
@@ -32796,7 +33079,7 @@ def rest_cond_tran_prod(RESULTAT,TYPE_RESU,**args ):
   raise AsException("type de concept resultat non prevu")
 
 REST_COND_TRAN=OPER(nom="REST_COND_TRAN",op=  78,sd_prod=rest_cond_tran_prod,
-                    fr="Restituer dans la base physique des résultats issus d'un calcul" 
+                    fr="Restituer dans la base physique des résultats issus d'un calcul" 
                         +"non-lineaire avec projection modale ou d'un calcul transitoire linear"
                         +"avec condensation dynamique",
                     reentrant='f',
@@ -32831,8 +33114,7 @@ REST_COND_TRAN=OPER(nom="REST_COND_TRAN",op=  78,sd_prod=rest_cond_tran_prod,
              RESU_FINAL      =SIMP(statut='f',typ=(evol_noli,dyna_trans) ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),  
 )  ;
-#& MODIF COMMANDE  DATE 29/03/2011   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -32850,7 +33132,7 @@ REST_COND_TRAN=OPER(nom="REST_COND_TRAN",op=  78,sd_prod=rest_cond_tran_prod,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
 
-# RESPONSABLE BOYERE E.BOYERE
+# person_in_charge: emmanuel.boyere at edf.fr
 
 def rest_gene_phys_prod(RESU_GENE,**args ):
   if AsType(RESU_GENE) == tran_gene : return dyna_trans
@@ -32860,7 +33142,7 @@ def rest_gene_phys_prod(RESU_GENE,**args ):
   raise AsException("type de concept resultat non prevu")
 
 REST_GENE_PHYS=OPER(nom="REST_GENE_PHYS",op=  75,sd_prod=rest_gene_phys_prod,
-                    fr="Restituer dans la base physique des résultats en coordonnées généralisées",
+                    fr="Restituer dans la base physique des résultats en coordonnées généralisées",
                     reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
         regles=(
@@ -32904,8 +33186,45 @@ REST_GENE_PHYS=OPER(nom="REST_GENE_PHYS",op=  75,sd_prod=rest_gene_phys_prod,
          DIRECTION       =SIMP(statut='f',typ='R',min=3,max=3 ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),  
 )  ;
-#& MODIF COMMANDE  DATE 29/03/2011   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
+# ======================================================================
+# COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
+# 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 2 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, WRITE TO EDF R&D CODE_ASTER,         
+#    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
+# ======================================================================
+def rest_mode_nonl_prod(TYPE_RESU,**args):
+    if TYPE_RESU == 'DYNA_TRANS' : return dyna_trans
+    elif TYPE_RESU == 'MODE_MECA' : return mode_meca
+    raise AsException("type de concept resultat non prevu")
+
+REST_MODE_NONL=OPER(nom="REST_MODE_NONL", op=63,
+         sd_prod=rest_mode_nonl_prod, reentrant='n',
+         fr="Post traitement de mode_non_line : \
+             recuperation resultats ",
+         UIinfo={"groupes":("Post-traitements",)},
+
+         MODE_NON_LINE    =SIMP(statut='o',typ=table_container,max=1),
+         TYPE_RESU    =SIMP(statut='o',typ='TXM',into=('MODE_MECA','DYNA_TRANS'),defaut='DYNA_TRANS',max=1),
+         NUME_ORDRE      =SIMP(statut='o',typ='I',max=1),
+         b_dyna_trans  =BLOC(condition="TYPE_RESU=='DYNA_TRANS'",
+                NB_INST =SIMP(statut='f',typ='I',max=1,defaut=512),),
+         INFO          =SIMP(statut='f',typ='I',defaut= 1,into=(1,2) ),
+
+)  ;
+
+
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -32923,7 +33242,7 @@ REST_GENE_PHYS=OPER(nom="REST_GENE_PHYS",op=  75,sd_prod=rest_gene_phys_prod,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
 
-# RESPONSABLE CORUS M.CORUS
+# person_in_charge: mathieu.corus at edf.fr
 def rest_sous_struc_prod(RESU_GENE,RESULTAT,**args ):
   if AsType(RESU_GENE) == tran_gene : return dyna_trans
   if AsType(RESU_GENE) == mode_gene : return mode_meca
@@ -32935,7 +33254,7 @@ def rest_sous_struc_prod(RESU_GENE,RESULTAT,**args ):
   raise AsException("type de concept resultat non prevu")
 
 REST_SOUS_STRUC=OPER(nom="REST_SOUS_STRUC",op=  77,sd_prod=rest_sous_struc_prod,
-          fr="Restituer dans la base physique des résultats obtenus par sous-structuration",
+          fr="Restituer dans la base physique des résultats obtenus par sous-structuration",
                     reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
         regles=(UN_PARMI('RESU_GENE','RESULTAT'),
@@ -32944,7 +33263,7 @@ REST_SOUS_STRUC=OPER(nom="REST_SOUS_STRUC",op=  77,sd_prod=rest_sous_struc_prod,
 #
               EXCLUS('TOUT_ORDRE','NUME_ORDRE','INST','LIST_INST','TOUT_INST','NUME_MODE',
                      'FREQ', 'LIST_FREQ'),
-#  Doc U à revoir
+#  Doc U à revoir
               EXCLUS('NOEUD','GROUP_NO'),
               EXCLUS('MAILLE','GROUP_MA'),
               PRESENT_PRESENT('RESULTAT','SQUELETTE'),
@@ -32990,8 +33309,7 @@ REST_SOUS_STRUC=OPER(nom="REST_SOUS_STRUC",op=  77,sd_prod=rest_sous_struc_prod,
          SECTEUR         =SIMP(statut='f',typ='I'),  
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),  
 )  ;
-#& MODIF COMMANDE  DATE 24/07/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33008,10 +33326,10 @@ REST_SOUS_STRUC=OPER(nom="REST_SOUS_STRUC",op=  77,sd_prod=rest_sous_struc_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE ADOBES A.ADOBES
+# person_in_charge: andre.adobes at edf.fr
 REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=interspectre,
                     reentrant='n',
-            fr="Calculer la réponse d'une structure dans la base physique",
+            fr="Calculer la réponse d'une structure dans la base physique",
             UIinfo={"groupes":("Matrices et vecteurs",)},
          regles=(AU_MOINS_UN('BASE_ELAS_FLUI','MODE_MECA'),),        
          BASE_ELAS_FLUI  =SIMP(statut='f',typ=melasflu_sdaster ),
@@ -33039,8 +33357,7 @@ REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=interspectre,
                                into=("DIAG_TOUT","DIAG_DIAG","TOUT_TOUT","TOUT_DIAG") ),
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),  
 )  ;
-#& MODIF COMMANDE  DATE 09/11/2010   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2008  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -33057,7 +33374,7 @@ REST_SPEC_PHYS=OPER(nom="REST_SPEC_PHYS",op= 148,sd_prod=interspectre,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE DEVESA G.DEVESA
+# person_in_charge: Georges-cc.devesa at edf.fr
 def rest_spec_temp_prod(RESU_GENE,RESULTAT,**args):
   if AsType(RESULTAT) == dyna_harmo    : return dyna_trans
   if AsType(RESU_GENE) == harm_gene    : return tran_gene
@@ -33067,7 +33384,7 @@ def rest_spec_temp_prod(RESU_GENE,RESULTAT,**args):
 
 
 REST_SPEC_TEMP=OPER(nom="REST_SPEC_TEMP",op=181,sd_prod=rest_spec_temp_prod,
-              fr="Transformée de Fourier d'un résultat",
+              fr="Transformée de Fourier d'un résultat",
               reentrant='n',
             UIinfo={"groupes":("Matrices et vecteurs",)},
          regles=UN_PARMI('RESU_GENE','RESULTAT'),
@@ -33078,8 +33395,7 @@ REST_SPEC_TEMP=OPER(nom="REST_SPEC_TEMP",op=181,sd_prod=rest_spec_temp_prod,
          TOUT_CHAM       =SIMP(statut='f',typ='TXM',into=("OUI",)),
          NOM_CHAM        =SIMP(statut='f',typ='TXM',validators=NoRepeat(),max=3,into=("DEPL","VITE","ACCE") ),
 );
-#& MODIF COMMANDE  DATE 08/10/2012   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33096,21 +33412,19 @@ REST_SPEC_TEMP=OPER(nom="REST_SPEC_TEMP",op=181,sd_prod=rest_spec_temp_prod,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE PROIX J.M.PROIX
-# -*- coding: iso-8859-1 -*-
+# person_in_charge: jean-michel.proix at edf.fr
 
 
 SIMU_POINT_MAT=MACRO(nom="SIMU_POINT_MAT",
                      op=OPS('Macro.simu_point_mat_ops.simu_point_mat_ops'),
                      sd_prod=table_sdaster,
-                     UIinfo={"groupes":("Résolution",)},
-                     fr="Calcul de l'évolution mécanique, en quasi-statique," \
-                        " d'un point matériel en non linéaire",
-   COMP_INCR       =C_COMP_INCR(),
-   COMP_ELAS       =C_COMP_ELAS('SIMU_POINT_MAT'),
+                     UIinfo={"groupes":("Résolution",)},
+                     fr="Calcul de l'évolution mécanique, en quasi-statique," \
+                        " d'un point matériel en non linéaire",
+   COMPORTEMENT       =C_COMPORTEMENT(),
    MATER           =SIMP(statut='o',typ=mater_sdaster,max=30),
 
-## ANGLE : rotation de ANGLE autour de Z uniquement, et seulement pour les déformations imposées.
+## ANGLE : rotation de ANGLE autour de Z uniquement, et seulement pour les déformations imposées.
    ANGLE      =SIMP(statut='f',typ='R',max=1, defaut=0.),
 # --MASSIF : orientation du materiau (monocristal, orthotropie)
    MASSIF          =FACT(statut='f',max='**',
@@ -33124,7 +33438,7 @@ SIMU_POINT_MAT=MACRO(nom="SIMU_POINT_MAT",
 
    SUPPORT= SIMP(statut='f',typ='TXM',max=1,into=("POINT","ELEMENT",),defaut=("POINT"),),
 
-   b_PM = BLOC(condition="SUPPORT ==  'POINT'",fr="Simulation sans élément fini",
+   b_PM = BLOC(condition="SUPPORT ==  'POINT'",fr="Simulation sans élément fini",
       FORMAT_TABLE  =SIMP(statut='f',typ='TXM',max=1,into=("CMP_COLONNE","CMP_LIGNE",),defaut=("CMP_COLONNE"),),
       NB_VARI_TABLE  =SIMP(statut='f',typ='I',max=1,),
       OPER_TANGENT  =SIMP(statut='f',typ='TXM',max=1,into=("OUI","NON",),defaut="NON",),
@@ -33134,28 +33448,28 @@ SIMU_POINT_MAT=MACRO(nom="SIMU_POINT_MAT",
        PAS_ARCH        =SIMP(statut='f',typ='I' ),
        PRECISION       =SIMP(statut='f',typ='R',defaut= 1.0E-6),
                            ),
-     # on permet certaines variables de commandes scalaires, définies par une fonction du temps
+     # on permet certaines variables de commandes scalaires, définies par une fonction du temps
      # on permet ici seulementn celles qui sont validees
       AFFE_VARC    = FACT(statut='f',max='**',
          NOM_VARC    =SIMP(statut='o',typ='TXM', into=("TEMP","IRRA","SECH")),
          VALE_FONC   = SIMP(statut='f',typ=(fonction_sdaster,formule) ),
 
-         # VALE_REF est nécessaire pour certaines VARC :
+         # VALE_REF est nécessaire pour certaines VARC :
          B_VALE_REF          =BLOC(condition="NOM_VARC in ('TEMP', 'SECH')",
             VALE_REF         =SIMP(statut='o',typ='R'),
                                   ),
                          ),
-        # un mot clé caché qui ne sert qu'à boucler sur les VARC possibles :
+        # un mot clé caché qui ne sert qu'à boucler sur les VARC possibles :
       LIST_NOM_VARC =SIMP(statut='c',typ='TXM', defaut=("TEMP","IRRA","SECH")),
 
                ),
-   b_EF = BLOC(condition="SUPPORT ==  'ELEMENT'",fr="Simulation sur un élément fini",
+   b_EF = BLOC(condition="SUPPORT ==  'ELEMENT'",fr="Simulation sur un élément fini",
       MODELISATION  =SIMP(statut='f',typ='TXM',max=1,into=("3D","C_PLAN","D_PLAN",)),
       RECH_LINEAIRE   =C_RECH_LINEAIRE(),
       ARCHIVAGE       =C_ARCHIVAGE(),
       SUIVI_DDL       =C_SUIVI_DDL(),
 
-     # on permet certaines variables de commandes scalaires, définies par une fonction du temps
+     # on permet certaines variables de commandes scalaires, définies par une fonction du temps
      # a priori toutes doivent fonctionner
       AFFE_VARC    = FACT(statut='f',max='**',
          NOM_VARC        =SIMP(statut='o',typ='TXM', into=("TEMP","CORR","IRRA","HYDR","SECH","M_ACIER","M_ZIRC",
@@ -33180,7 +33494,7 @@ SIMU_POINT_MAT=MACRO(nom="SIMU_POINT_MAT",
               V7   = SIMP(statut='o',typ=(fonction_sdaster,formule) ),
                           ),
                          ),
-        # un mot clé caché qui ne sert qu'à boucler sur les VARC possibles :
+        # un mot clé caché qui ne sert qu'à boucler sur les VARC possibles :
       LIST_NOM_VARC =SIMP(statut='c',typ='TXM', defaut=("TEMP","CORR","IRRA","HYDR","SECH","EPSA",
                                                               "M_ACIER","M_ZIRC","NEUT1","NEUT2")),
 
@@ -33278,8 +33592,6 @@ SIMU_POINT_MAT=MACRO(nom="SIMU_POINT_MAT",
    INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )
 
-#& MODIF COMMANDE  DATE 28/06/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33296,7 +33608,7 @@ SIMU_POINT_MAT=MACRO(nom="SIMU_POINT_MAT",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ASSIRE A.ASSIRE
+# person_in_charge: aimery.assire at edf.fr
 
 
 STANLEY=MACRO(nom="STANLEY",
@@ -33311,11 +33623,10 @@ STANLEY=MACRO(nom="STANLEY",
          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
          DISPLAY         =SIMP(statut='f',typ='TXM'),
          UNITE_VALIDATION=SIMP(statut='f',typ='I',val_min=10,val_max=90,
-                               fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit les md5"),
+                               fr="Unité logique définissant le fichier (fort.N) dans lequel on écrit les md5"),
 
 )  ;
-#& MODIF COMMANDE  DATE 31/07/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33332,14 +33643,14 @@ STANLEY=MACRO(nom="STANLEY",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE ABBAS M.ABBAS
+# person_in_charge: mickael.abbas at edf.fr
 #
 STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
-                   fr="Calcul de l'évolution mécanique ou thermo-hydro-mécanique couplée, en quasi-statique,"
-                      +" d'une structure en non linéaire",
+                   fr="Calcul de l'évolution mécanique ou thermo-hydro-mécanique couplée, en quasi-statique,"
+                      +" d'une structure en non linéaire",
                    reentrant='f',
-            UIinfo={"groupes":("Résolution","Mécanique",)},
-         regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),),
+            UIinfo={"groupes":("Résolution","Mécanique",)},
+
          MODELE          =SIMP(statut='o',typ=modele_sdaster),
          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
@@ -33358,9 +33669,7 @@ STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
                 FONC_MULT   =SIMP(statut='f',typ=(fonction_sdaster,nappe_sdaster,formule)),
               ),
 #-------------------------------------------------------------------
-         COMP_INCR       =C_COMP_INCR(),
-#-------------------------------------------------------------------
-         COMP_ELAS       =C_COMP_ELAS('STAT_NON_LINE'),
+         COMPORTEMENT =C_COMPORTEMENT('STAT_NON_LINE'),
 #-------------------------------------------------------------------
          b_reuse =BLOC(condition = "reuse",fr="en mode concept reentrant : ETAT_INIT obligatoire",
            ETAT_INIT       =FACT(statut='o',
@@ -33430,21 +33739,25 @@ STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
 #-------------------------------------------------------------------
          CRIT_QUALITE    =FACT(statut='f',max=1,
            ERRE_TEMPS_THM  =SIMP(statut='f',typ='TXM',into=("OUI","NON"),defaut="NON",
-                                 fr="Adaptation temporelle pour les modélisations HM instationnaires",
+                                 fr="Adaptation temporelle pour les modélisations HM instationnaires",
                                  ang="Time adaptation for unstationary HM models"),
          ),
 #-------------------------------------------------------------------
-         ENERGIE         =FACT(statut='f',max=1),
+         ENERGIE         =FACT(statut='f',max=1,
+           CALCUL          =SIMP(statut='f',typ='TXM',into=("OUI",),defaut="OUI",),
+         ),
 #-------------------------------------------------------------------
          AFFICHAGE       =C_AFFICHAGE(),
 #-------------------------------------------------------------------
          CRIT_STAB      =FACT(statut='f',min=1,max=1,
            NB_FREQ         =SIMP(statut='f',typ='I',max=1,val_min=1,defaut=3),
            COEF_DIM_ESPACE =SIMP(statut='f',typ='I',max=1,val_min=2,defaut=5),
-           CHAR_CRIT       =SIMP(statut='f',typ='R',min=2,max=2,defaut=(-10.0,10),
-                            fr="Valeur des deux charges critiques délimitant la bande de recherche en HPP"),
            RIGI_GEOM    =SIMP(statut='f',typ='TXM',defaut="OUI",into=("OUI","NON")),
            MODI_RIGI    =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON")),
+           b_char_crit  =BLOC(condition="(RIGI_GEOM=='OUI')",
+              CHAR_CRIT       =SIMP(statut='f',typ='R',min=2,max=2,
+                                 fr="Valeur des deux charges critiques délimitant la bande de recherche en HPP"),
+                              ),
            TYPE         =SIMP(statut='f',typ='TXM',defaut="FLAMBEMENT",into=("FLAMBEMENT","STABILITE")),
            PREC_INSTAB   =SIMP(statut='f',typ='R',defaut=1.E-6,max=1,),
            SIGNE         =SIMP(statut='f',typ='TXM',defaut=("POSITIF_NEGATIF"),into=("NEGATIF","POSITIF","POSITIF_NEGATIF"),max=1,),
@@ -33482,7 +33795,7 @@ STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
          ),
          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
          b_info=BLOC(condition="INFO==2",
-               fr="filtre les messages émis dans le .mess selon le type de message demandé",
+               fr="filtre les messages émis dans le .mess selon le type de message demandé",
                INFO_DBG = SIMP(statut='f',typ='TXM',max='**',validators=NoRepeat(),
                                into=("CONTACT",
                                      "MECA_NON_LINE",
@@ -33494,8 +33807,6 @@ STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
          TITRE           =SIMP(statut='f',typ='TXM',max='**' ),
  )
 
-#& MODIF COMMANDE  DATE 11/06/2012   AUTEUR PROIX J-M.PROIX 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33512,30 +33823,28 @@ STAT_NON_LINE=OPER(nom="STAT_NON_LINE",op=70,sd_prod=evol_noli,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# -*- coding: iso-8859-1 -*-
-# RESPONSABLE PROIX J.M.PROIX
+# person_in_charge: jean-michel.proix at edf.fr
 
 
 #              MACRO "TEST_THERMOPLASTIQUE"
 #           ----------------------------
-def test_compor_sdprod(self, COMP_INCR, **kwargs):
-    """Ne produit une table qu'en présence de COMP_INCR."""
-    if COMP_INCR:
-        return table_sdaster
-    return None
+# def test_compor_sdprod(self, COMPORTEMENT, **kwargs):
+#     """Ne produit une table qu'en présence de COMPORTEMENT."""
+#     if COMPORTEMENT:
+        return table_sdaster
+    return None
 
 
 TEST_COMPOR =MACRO(nom="TEST_COMPOR",
                    op=OPS('Macro.test_compor_ops.test_compor_ops'),
-                   sd_prod=test_compor_sdprod,
+                  # sd_prod=test_compor_sdprod,
+                   sd_prod=table_sdaster,
                    docu="",reentrant='n',
                    fr="macro de test des comportements incrementaux dependant de la temperature",
-         regles=(AU_MOINS_UN('COMP_INCR','COMP_ELAS'),),
 
          OPTION         =SIMP(statut='f',typ='TXM',into=("THER","MECA"),defaut="THER"),
 
-         COMP_INCR       =C_COMP_INCR(),
-         COMP_ELAS       =C_COMP_ELAS('SIMU_POINT_MAT'),
+         COMPORTEMENT       =C_COMPORTEMENT('SIMU_POINT_MAT'),
          NEWTON          =C_NEWTON(),
          CONVERGENCE     =C_CONVERGENCE(),
 
@@ -33547,14 +33856,14 @@ TEST_COMPOR =MACRO(nom="TEST_COMPOR",
             YOUNG           =SIMP(statut='o',typ=fonction_sdaster,
                                   fr="module d'Young fonction de la temperature"),
             LIST_MATER      =SIMP(statut='o',typ=mater_sdaster,max='**',
-                                          fr="liste des materiaux constants interpolés à chaque température"),
+                                          fr="liste des materiaux constants interpolés à chaque température"),
             TEMP_INIT       =SIMP(statut='o',typ='R', fr="temperature initiale et de reference"),
             TEMP_FIN        =SIMP(statut='o',typ='R', fr="temperature finale"),
             INST_FIN        =SIMP(statut='f',typ='R',defaut=1.,fr="instant final"),
             SUPPORT         =SIMP(statut='f',typ='TXM',max=1,into=("POINT","ELEMENT",),defaut=("POINT"),),
-            NB_VARI         =SIMP(statut='o',typ='I', fr="nombre de variables internes - 0 en elasticité"),
+            NB_VARI         =SIMP(statut='o',typ='I', fr="nombre de variables internes - 0 en elasticité"),
             VARI_TEST       =SIMP(statut='f',typ='TXM',max='**',
-                                  fr="liste de variables internes à tester - par defaut, toutes"),
+                                  fr="liste de variables internes à tester - par defaut, toutes"),
 
 #           special ecrouissage cinematique
             D_SIGM_EPSI     =SIMP(statut='f',typ=fonction_sdaster,
@@ -33572,16 +33881,17 @@ TEST_COMPOR =MACRO(nom="TEST_COMPOR",
             LIST_TOLE       =SIMP(statut='f',typ='R',max='**',),
             PREC_ZERO       =SIMP(statut='f',typ='R',max='**',),
             VARI_TEST       =SIMP(statut='f',typ='TXM',max='**',defaut=('V1','VMIS','TRACE'),
-                                  fr="liste des CMP à tester "),
+                                  fr="liste des CMP à tester "),
             SUPPORT         =SIMP(statut='f',typ='TXM',max=1,into=("POINT","ELEMENT",)),
             MODELISATION    =SIMP(statut='f',typ='TXM',max=1,into=("3D","C_PLAN"),defaut="3D",),
             ANGLE           =SIMP(statut='f',typ='R',max=1, defaut=0.,
-             fr='Rotation de ANGLE autour de Z uniquement, et seulement pour les déformations imposées',),
+             fr='Rotation de ANGLE autour de Z uniquement, et seulement pour les déformations imposées',),
             MASSIF          =FACT(statut='f',max='**',fr='orientation du materiau (monocristal, orthotropie)',
               regles=(UN_PARMI('ANGL_REP','ANGL_EULER'),),
               ANGL_REP        =SIMP(statut='f',typ='R',min=1,max=3),
               ANGL_EULER      =SIMP(statut='f',typ='R',min=1,max=3),
                                  ),
+            TEST_TANGENTE   =SIMP(statut='f',typ='TXM',max=1,into=("OUI","NON"),defaut="OUI",),
             VERI_MATR_OPTION  =FACT(statut='f',max=1,fr='options pour le test de la matrice tangente',
               VALE_PERT_RELA  =SIMP(statut='f',typ='R',defaut=1.E-5),
               PRECISION       =SIMP(statut='f',typ='R',defaut=1.E-4 ),
@@ -33590,8 +33900,7 @@ TEST_COMPOR =MACRO(nom="TEST_COMPOR",
                                ),
             INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
                  )
-#& MODIF COMMANDE  DATE 10/10/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33608,23 +33917,21 @@ TEST_COMPOR =MACRO(nom="TEST_COMPOR",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 TEST_FICHIER=MACRO(nom="TEST_FICHIER",
                    op=OPS('Macro.test_fichier_ops.test_fichier_ops'),
                    UIinfo={"groupes":("Utilitaires",)},
-                   fr="Tester la non régression de fichiers produits par des commandes aster",
+                   fr="Tester la non régression de fichiers produits par des commandes aster",
    FICHIER          =SIMP(statut='o',typ='TXM',validators=LongStr(1,255)),
    EXPR_IGNORE      =SIMP(statut='f',typ='TXM',max='**',
-                          fr="Liste d'expressions régulières permettant d'ignorer certaines lignes"),
+                          fr="Liste d'expressions régulières permettant d'ignorer certaines lignes"),
    NB_VALE         =SIMP(statut='o',typ='I',),
 
    INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
    **C_TEST_REFERENCE('FICHIER', max=1)
 )
-#& MODIF COMMANDE  DATE 10/10/2012   AUTEUR COURTOIS M.COURTOIS 
-# -*- coding: iso-8859-1 -*-
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33641,12 +33948,12 @@ TEST_FICHIER=MACRO(nom="TEST_FICHIER",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE SELLENET N.SELLENET
+# person_in_charge: nicolas.sellenet at edf.fr
 
 TEST_FONCTION=MACRO(nom="TEST_FONCTION",
                     op=OPS('Macro.test_fonction_ops.test_fonction_ops'),
                     sd_prod=None,
-            fr="Extraction d'une valeur numérique ou d'un attribut de fonction pour comparaison à une valeur de référence",
+            fr="Extraction d'une valeur numérique ou d'un attribut de fonction pour comparaison à une valeur de référence",
             UIinfo={"groupes":("Fonctions","Utilitaires",)},
          TEST_NOOK       =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
          VALEUR          =FACT(statut='f',max='**',
@@ -33672,8 +33979,7 @@ TEST_FONCTION=MACRO(nom="TEST_FONCTION",
                                  into=("ANALYTIQUE","SOURCE_EXTERNE","AUTRE_ASTER") ),
          ),
 )
-#& MODIF COMMANDE  DATE 09/04/2013   AUTEUR PELLET J.PELLET 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2013  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33692,10 +33998,10 @@ TEST_FONCTION=MACRO(nom="TEST_FONCTION",
 #
 #
 # ======================================================================
-# RESPONSABLE LEFEBVRE J.P.LEFEBVRE
+# person_in_charge: j-pierre.lefebvre at edf.fr
 TEST_RESU=PROC(nom="TEST_RESU",op=23,
-            UIinfo={"groupes":("Résultats et champs","Utilitaires",)},
-         fr="Extraction d'une valeur d'une structure de donnée et comparaison à une valeur de référence",
+            UIinfo={"groupes":("Résultats et champs","Utilitaires",)},
+         fr="Extraction d'une valeur d'une structure de donnée et comparaison à une valeur de référence",
          regles=(AU_MOINS_UN('CHAM_NO','CHAM_ELEM','CARTE','RESU','GENE','OBJET','TEST_NAN',)),
 
          CHAM_NO         =FACT(statut='f',max='**',
@@ -33800,8 +34106,7 @@ TEST_RESU=PROC(nom="TEST_RESU",op=23,
 
          TEST_NAN        =SIMP(statut='f',typ='TXM',defaut="NON",into=("OUI","NON") ),
 )
-#& MODIF COMMANDE  DATE 10/10/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33818,11 +34123,11 @@ TEST_RESU=PROC(nom="TEST_RESU",op=23,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,       
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.      
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
                 UIinfo={"groupes":("Tables","Utilitaires",)},
                 fr="Tester une cellule ou une colonne d'une table",
-#  concept table_sdaster à tester
+#  concept table_sdaster à tester
          TABLE           =SIMP(statut='o',typ=table_sdaster),
          FILTRE          =FACT(statut='f',max='**',
            NOM_PARA        =SIMP(statut='o',typ='TXM' ),
@@ -33843,8 +34148,7 @@ TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
          INFO            =SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
          **C_TEST_REFERENCE('TABLE', max='**')
 )  ;
-#& MODIF COMMANDE  DATE 10/10/2012   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33861,14 +34165,13 @@ TEST_TABLE=PROC(nom="TEST_TABLE",op= 177,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# -*- coding: iso-8859-1 -*-
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
 TEST_TEMPS=MACRO(nom="TEST_TEMPS",
                  op=OPS('Macro.test_temps_ops.test_temps_ops'),
                  sd_prod=None,
                  UIinfo={"groupes":("Utilitaires",)},
-                 fr="Permet de vérifier le temps passé dans les commandes",
+                 fr="Permet de vérifier le temps passé dans les commandes",
                  reentrant='n',
 
    RESU = FACT(statut='o',max='**',
@@ -33877,7 +34180,7 @@ TEST_TEMPS=MACRO(nom="TEST_TEMPS",
       NUME_ORDRE = SIMP(statut='f', typ='I', defaut=1, val_min=1,
             fr="Numero de l'occurrence de la commande testee"),
       MACHINE    = SIMP(statut='o', typ='TXM', max='**',
-            fr="Liste des machines dont on a la référence"),
+            fr="Liste des machines dont on a la référence"),
       VALE       = SIMP(statut='o', typ='R', max='**',
             fr="Temps CPU sur les machines listees en secondes"),
       CRITERE    = SIMP(statut='f', typ='TXM', defaut='RELATIF', into=('ABSOLU', 'RELATIF')),
@@ -33891,8 +34194,6 @@ TEST_TEMPS=MACRO(nom="TEST_TEMPS",
    INFO  = SIMP(statut='f',typ='I',defaut=1,into=(1,2) ),
 )
 
-#& MODIF COMMANDE  DATE 31/07/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33909,10 +34210,10 @@ TEST_TEMPS=MACRO(nom="TEST_TEMPS",
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DURAND C.DURAND
+# person_in_charge: jessica.haelewyn at edf.fr
 THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,reentrant='f',
-            UIinfo={"groupes":("Résolution","Thermique",)},
-                   fr="Résoudre un problème thermique linéaire stationnaire ou transitoire",
+            UIinfo={"groupes":("Résolution","Thermique",)},
+                   fr="Résoudre un problème thermique linéaire stationnaire ou transitoire",
          MODELE          =SIMP(statut='o',typ=modele_sdaster),
          CHAM_MATER      =SIMP(statut='o',typ=cham_mater),
          CARA_ELEM       =SIMP(statut='f',typ=cara_elem),
@@ -33948,8 +34249,7 @@ THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,reentrant='f',
          TITRE           =SIMP(statut='f',typ='TXM',max='**'),
          INFO            =SIMP(statut='f',typ='I',into=(1,2)),
 )  ;
-#& MODIF COMMANDE  DATE 31/07/2012   AUTEUR ABBAS M.ABBAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2012  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -33966,15 +34266,15 @@ THER_LINEAIRE=OPER(nom="THER_LINEAIRE",op=25,sd_prod=evol_ther,reentrant='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DURAND C.DURAND
+# person_in_charge: jessica.haelewyn at edf.fr
 THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,reentrant='f',
-            UIinfo={"groupes":("Résolution","Thermique",)},
-                   fr="Résoudre un problème thermique non linéaire (conditions limites ou comportement matériau)"
+            UIinfo={"groupes":("Résolution","Thermique",)},
+                   fr="Résoudre un problème thermique non linéaire (conditions limites ou comportement matériau)"
                       +" stationnaire ou transitoire" ,
          MODELE          =SIMP(statut='o',typ=(modele_sdaster) ),
          CHAM_MATER      =SIMP(statut='o',typ=(cham_mater) ),
          CARA_ELEM       =SIMP(statut='c',typ=(cara_elem) ),
-         COMP_THER_NL    =FACT(statut='d',max='**',
+         COMPORTEMENT    =FACT(statut='d',max='**',
            RELATION        =SIMP(statut='f',typ='TXM',defaut="THER_NL",
                                  into=("THER_NL",
                                        "THER_HYDR",
@@ -34035,8 +34335,7 @@ THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,reentrant='f',
          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
 
 )  ;
-#& MODIF COMMANDE  DATE 19/05/2011   AUTEUR DELMAS J.DELMAS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
+
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
@@ -34053,12 +34352,12 @@ THER_NON_LINE=OPER(nom="THER_NON_LINE",op= 186,sd_prod=evol_ther,reentrant='f',
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
 # ======================================================================
-# RESPONSABLE DURAND C.DURAND
+# person_in_charge: jessica.haelewyn at edf.fr
 THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
-                     fr="Résoudre un problème thermique non linéaire (conditions limites ou comportement matériau)"
+                     fr="Résoudre un problème thermique non linéaire (conditions limites ou comportement matériau)"
                         +" stationnaire avec chargement mobile",
                      reentrant='n',
-            UIinfo={"groupes":("Résolution","Thermique",)},
+            UIinfo={"groupes":("Résolution","Thermique",)},
          MODELE          =SIMP(statut='o',typ=modele_sdaster ),
          CHAM_MATER      =SIMP(statut='o',typ=cham_mater ),
          CARA_ELEM       =SIMP(statut='c',typ=cara_elem ),
@@ -34084,10 +34383,6 @@ THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
          INFO            =SIMP(statut='f',typ='I',into=(1,2) ),
 )  ;
 
-
-
-#& MODIF COMMANDE  DATE 17/08/2011   AUTEUR COURTOIS M.COURTOIS 
-#            CONFIGURATION MANAGEMENT OF EDF VERSION
 # ======================================================================
 # COPYRIGHT (C) 1991 - 2011  EDF R&D                  WWW.CODE-ASTER.ORG
 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY  
@@ -34104,9 +34399,9 @@ THER_NON_LINE_MO=OPER(nom="THER_NON_LINE_MO",op= 171,sd_prod=evol_ther,
 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,         
 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.        
 # ======================================================================
-# RESPONSABLE COURTOIS M.COURTOIS
+# person_in_charge: mathieu.courtois at edf.fr
 
-# Vérification des imports et définitions non autorisés dans le catalogue
+# Vérification des imports et définitions non autorisés dans le catalogue
 UNAUTHORIZED = ("numpy", "UTMESS", "Table", "Graph")
 
 for _name in UNAUTHORIZED:
index 3402a70eff088deffe1831df972a3b23fc687329..efe2a5a4aea4b78da1364bd1fcfc9d9258edd79b 100644 (file)
@@ -309,7 +309,14 @@ def INCLUDE(self, UNITE, DONNEE, **args):
             repdex = aster_core.get_option('repdex')
             fname = osp.join(repdex, fname)
     try:
-        self.make_include(fname=fname)
+        if aster_exists:
+            self.make_include(fname=fname)
+        else:
+            # dans eficas
+            if UNITE:
+                self.make_include(unite=UNITE)
+            else:
+                self.make_include(fname=fname)
     except Accas.AsException:
         if aster_exists:
             UTMESS('F+', 'FICHIER_1', valk=fname)
index d81a0de3735911956561e1c9276bd35f80aea28e..534dd3f7b6f7ddb7f0a8c27c1214a34d0138c35e 100644 (file)
@@ -21,6 +21,7 @@
 """
 # Modules Python
 import sys
+import os.path as osp
 import traceback,types,string
 
 # Modules Eficas
@@ -159,7 +160,7 @@ class MACRO_ETAPE(I_ETAPE.ETAPE):
        # Erreurs dans l'INCLUDE. On garde la memoire du fichier 
        # mais on n'insere pas les concepts
        # On retablit l'etape courante step
-       #print j.cr
+       print j.cr
        #print j.isvalid()
        CONTEXT.unset_current_step()
        CONTEXT.set_current_step(step)
@@ -522,6 +523,27 @@ class MACRO_ETAPE(I_ETAPE.ETAPE):
     # un include partage la table des unites avec son parent (jdc)
     self.build_jdcauxInclude(text)
 
+  def build_jdcauxInclude(self,text):
+       
+       try :
+         contexte = self.get_contexte_jdc(None,text)
+       except Exception:
+         pass
+       index=self.jdc.etapes.index(self)
+       for e in self.etapes:
+           e.niveau=self.niveau
+       self.jdc.etapes=self.jdc.etapes[:index+1]+self.etapes+self.jdc.etapes[index+1:]
+       self.g_context={}
+       self.etapes=[]
+       self.jdc_aux=None
+       CONTEXT.unset_current_step()
+
+  def build_includeInclude(self,text):
+    import Extensions.jdc_include
+    self.JdC_aux=Extensions.jdc_include.JdC_include
+    # un include partage la table des unites avec son parent (jdc)
+    self.build_jdcauxInclude(text)
+
   def build_jdcauxInclude(self,text):
        
        try :
@@ -700,7 +722,7 @@ class MACRO_ETAPE(I_ETAPE.ETAPE):
          if hasattr(self,'fichier_unite') : 
             self.parent.record_unit(self.fichier_unite,self)
 
-  def get_file_memo(self,unite=None,fname=None,fic_origine=''):
+  def get_file_memo(self, unite=None, fname=None, fic_origine=''):
       """Retourne le nom du fichier et le source correspondant a l'unite unite
          Initialise en plus recorded_units
       """
@@ -717,19 +739,19 @@ class MACRO_ETAPE(I_ETAPE.ETAPE):
          f,text,units=self.parent.recorded_units[unite]
       elif self.jdc :
          if fname:
-             if not os.path.exists(fname):
+             if not osp.exists(fname):
                 raise AsException(fname + tr(" n'est pas un fichier existant"))
              f = fname
              text = open(fname, 'rb').read()
          else:
-             f,text=self.jdc.get_file(unite=unite,fic_origine=fic_origine)
+             f,text=self.jdc.get_file(unite=unite, fic_origine=fic_origine)
       else:
          f,text=None,None
 
       self.recorded_units=units
       if f is None and self.jdc.appli:
          self.jdc.appli.affiche_alerte(tr("Erreur lors de l'evaluation du fichier inclus"),
-                          message= tr("Ce fichier ne sera pas pris en compte\nLe fichier associe n'est pas defini"))
+               message= tr("Ce fichier ne sera pas pris en compte\nLe fichier associe n'est pas defini"))
       return f,text
 
   def update_context(self,d):
@@ -808,7 +830,7 @@ class MACRO_ETAPE(I_ETAPE.ETAPE):
          if fichier  == str("") : 
            self.fichier_ini="badfile"
            self.fichier_text=""
-          self.fichier_err=tr("Le fichier n est pas defini")
+           self.fichier_err=tr("Le fichier n est pas defini")
            self.parent.record_unit(999,self)
            try :
               MCFils=self.get_child('FileName')
@@ -873,7 +895,7 @@ class MACRO_ETAPE(I_ETAPE.ETAPE):
          if fichier  == str("") : 
            self.fichier_ini="badfile"
            self.fichier_text=""
-          self.fichier_err=tr("Le fichier n est pas defini")
+           self.fichier_err=tr("Le fichier n est pas defini")
            self.parent.record_unit(999,self)
            try :
               MCFils=self.get_child('FileName')
@@ -980,7 +1002,7 @@ class MACRO_ETAPE(I_ETAPE.ETAPE):
 
 
 #ATTENTION SURCHARGE : cette methode surcharge celle de Noyau (a garder en synchro)
-  def make_include(self,unite=None,fname=None):
+  def make_include(self, unite=None, fname=None):
       """
           Inclut un fichier dont l'unite logique est unite
           Cette methode est appelee par la fonction sd_prod de la macro INCLUDE
@@ -992,11 +1014,12 @@ class MACRO_ETAPE(I_ETAPE.ETAPE):
       # On supprime l'attribut unite qui bloque l'evaluation du source de l'INCLUDE
       # car on ne s'appuie pas sur lui dans EFICAS mais sur l'attribut fichier_ini
       # Si unite n'a pas de valeur, l'etape est forcement invalide. On peut retourner None
-      if not unite and not fname: return
+      if not unite and not fname:
+          return
 
       if not hasattr(self,'fichier_ini') : 
          # Si le fichier n'est pas defini on le demande
-         f,text=self.get_file_memo(unite=unite,fname=fname,fic_origine=self.parent.nom)
+         f,text=self.get_file_memo(unite=unite, fname=fname, fic_origine=self.parent.nom)
          # On memorise le fichier retourne
          self.fichier_ini  = f
          self.fichier_text = text
index a686d6eba89cc0f1b7d36e2321346cff2dfa8d4c..a39c7ef31c48a09467136002334a6e74c32b0f3f 100644 (file)
@@ -218,7 +218,7 @@ class CardProtocol(PProtocol):
         if length < min or length >max:
             #raise ValError(ufmt(_(u"Nombre d'arguments de %s incorrect (min = %s, max = %s)"),
             #               repr(obj), min, max))
-            raise ValError(tr("Nombre incorrect d'arguments de ")+repr(obj)+"min = "+repr(min)+" max ="+rep(max))
+            raise ValError(tr("Nombre incorrect d'arguments de ")+repr(obj)+"min = "+repr(min)+" max ="+repr(max))
         return obj
 
 class IntoProtocol(PProtocol):