Esope source files

   1 : C ELASTI    SOURCE    FANDEUR   10/12/17    21:16:30     6815           
   2 : 
   3 :       SUBROUTINE ELASTI                                                         
   4 : 
   5 : *_______________________________________________________________________        
   6 : *                                                                               
   7 : *                     OPERATEUR ELASTICITE                                      
   8 : *                                                                               
   9 : *      SIG = ELAS MODL EPS MATER ( VA1 )                                     
  10 : *                OU                         EN ELASTICITE LINEAIRE              
  11 : *      EPS = ELAS MODL SIG MATER ( VA1 )                                     
  12 : *                                                                               
  13 : *            MODL   MODELE DE CALCUL,TYPE MMODEL                                
  14 : *            EPS    CHAMP PAR ELEMENT DE DEFORMATIONS,TYPE MCHAML              
  15 : *            SIG    CHAMP PAR ELEMENT DE CONTRAINTES,TYPE MCHAML               
  16 : *            MATER  CHAMP PAR ELEMENT DE CARACTERISTIQUE,TYPE MCHAML 
  17 : *            VA1    CHAMP PAR ELEMENT DE VARIABLES INTERNES,TYPE MCHAML                   
  18 : *_______________________________________________________________________        
  19 : *
  20 :       IMPLICIT INTEGER(I-N)
  21 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  22 : *
  23 : -INC CCOPTIO                                                                    
  24 : *
  25 :       IPCHE1=0                                                                  
  26 :       IPCHE2=0                                                                  
  27 :       IPCHE3=0                                                                  
  28 :       IPSTRS=0
  29 :       IRETOU=0
  30 :       IRET=0
  31 : *                                                                               
  32 : *     LECTURE DU MODELE                                                         
  33 : *                                                                               
  33 :       CALL LIROBJ('MMODEL',IPMODL,1,IRETOU)
  34 :       IF(IERR.NE.0) RETURN
  35 : *                                                                               
  36 : *     ON LIT LE 1-ER CHAMP/ELEMENT
  37 : *
  37 :       CALL LIROBJ('MCHAML',IPCHE1,1,IRETOU)
  38 :       IF(IERR.NE.0) RETURN
  39 : *
  40 : *     LECTURE DU MCHAML DE MATERIAU
  41 : *
  41 :       CALL LIROBJ('MCHAML',IPCHE2,1,IRETOU)
  42 :       IF(IERR.NE.0) RETURN
  43 : C                                                                               
  44 : C       LECTURE DU MCHAML DE VARIABLES INTERNES        
  45 : C                                                                               
  45 :       CALL LIROBJ('MCHAML',IPCHE3,0,IRETOU)                                     
  46 :       IF (IERR.NE.0) RETURN                                                   
  47 : *                                                                               
  48 : *     CALCUL DES CONTRAINTES OU DES DEFORMATIONS                                
  49 : * 
  49 :       CALL ELAS1 (IPMODL,IPCHE1,IPCHE2,IPCHE3, IPSTRS,IRET)  
  50 : * 
  50 :       IF (IRET.EQ.1) CALL ECROBJ('MCHAML',IPSTRS)
  51 : 
  52 :       RETURN                                                                    
  53 :       END                                                                       
  54 :  
  55 :