Introduction d'un nouveau comportement élastique

Nous prendrons l'exemple du modèle de la SECTION de la poutre à fibre.

1. On introduit dans modela.eso la ligne :

   
   
   

          MOMODL(7)='SECTION'
   

   
   
   

2. Puis il est nécessaire de définir dans idmatr.eso le nom des caractéristiques obligatoires et facultatives du comportement linéaire. Ceci se fait par :

   
   
   

     
             ELSE IF (IPLAC.EQ.7) THEN  
   C  
   C      MODELE ET MATERIAU DE LA SECTION DU MODELE A FIBRE  
   C  
                JGM=2  
                SEGINI MLMOTS  
                MOOBL=MLMOTS  
                MOTS(1)='MODS'  
                MOTS(2)='MATS'  
                JGM=1  
                SEGINI MLMOTS  
                MOFAC=MLMOTS  
                MOTS(1)='MAHO'
   

   
   
   

SEGINI MLMOTS est un ordre ESOPE demandant de créer un segment de type MLMOTS, qui d'aprés sa définition dans le -INC SMLMOTS que voici :

 
*================================================================         
*                                                                              
*     OBJET DE TYPE 'LISTMOTS'. DEFINIT UNE LISTE DE MOTS.                        
*                                                                                
      SEGMENT MLMOTS                                                             
       CHARACTER*(JGN) MOTS(JGM)                                                 
      ENDSEGMENT                                                                 
      POINTEUR MLMOT1.MLMOTS,MLMOT2.MLMOTS,MLMOT3.MLMOTS                         
      POINTEUR MLMOT4.MLMOTS,MLMOT5.MLMOTS,MLMOT6.MLMOTS                         
*                                                                                
*=====================================================

contient un tableau de JGM chaînes de JGN caractères chacune. Les valeurs des pointeurs sont sauvées dans MOOBL pour le pointeur des noms de caractéristiques obligatoires et dans MOFAC pour celui des noms de caractéristiques facultatives. Ce sont ces tableaux qui permettront de remplir le segment NOMID qui contient :

 
      SEGMENT NOMID  
        CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)  
      ENDSEGMENT