Esope source files

   1 : C EPTHHS    SOURCE    AM        08/02/14    21:21:57     6050           
   2 :       SUBROUTINE EPTHHS(MELE,VALMAT,NSTRS,TEMP,RES,KERRE)
   3 : *******************************************************************             
   4 : *  APPELE PAR ETHP : DEFORMATIONS THERMIQUES POUR LES MATERIAUX                 
   5 : *  HOMOGENEISES ET SECTION                                                                    
   6 : *                                                                               
   7 : *   ENTREES :                                                                   
   8 : *    MELE   = NUMERO DE L'ELEMENT FINI                                         
   9 : *    VALMAT = TABLEAU DE MATERIAU 
  10 : *    NSTRS  = NOMBRE DE COMPOSANTES DE DEFORMATIONS                        
  11 : *    TEMP   = TEMPERATURES
  12 : *   SORTIES :                                                                   
  13 : *    RES =  TABLEAU DE DEFORMATIONS 
  14 : *    KERRE  = INDICATEUR D'ERREUR                 
  15 : *
  16 : *  AM1 JANV 95
  17 : ***********************************************************************         
  18 :       IMPLICIT INTEGER(I-N)
  19 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  20 : *                                                                               
  21 : -INC CCOPTIO                                                                    
  22 : -INC CCHAMP                                                                     
  23 : *                                                                               
  24 :       DIMENSION RES(NSTRS)
  25 :       DIMENSION VALMAT(*)
  26 : *
  27 :       KERRE=0
  28 : *                                                                               
  29 : *                                                                               
  30 : *     TEST SUR LA FORMULATION                                 
  31 : *
  32 : *____________________________________________________________________           
  33 : *                                                                               
  34 : *               ELEMENTS POUTRES ET TUYAUX                                      
  35 : *____________________________________________________________________           
  36 : *                                                                               
  37 :       IF(MELE.EQ.29.OR.MELE.EQ.42)THEN                                      
  38 :             ALPH=VALMAT(1)                                                      
  39 : *                                                 
  40 :             RES(1)= ALPH*TEMP
  41 : *                                                                               
  42 : *____________________________________________________________________           
  43 : *                                                                               
  44 : *               ELEMENTS BARRES CERCES ET POINT
  45 : *____________________________________________________________________           
  46 : *                                                                               
  47 :       ELSEIF(MELE.EQ.46.OR.MELE.EQ.95.OR.MELE.EQ.45)THEN
  48 : *
  49 :        IF(MELE.EQ.45.AND.IFOUR.NE.-3) THEN
  50 :         KERRE=86
  51 :         GO TO 99
  52 :        ENDIF      
  53 :        IF(MELE.EQ.95.AND.IFOUR.NE.0) THEN
  54 :         KERRE=86
  55 :         GO TO 99
  56 :        ENDIF
  57 : *
  58 :        ALPH=VALMAT(1)                                                      
  59 :        RES(1)= ALPH*TEMP
  60 : *____________________________________________________________________           
  61 : *
  62 : *  CAS DE LA POUTRE TIMO - MODELE SECTION 
  63 : *____________________________________________________________________           
  64 : *
  65 :       ELSE IF(MELE.EQ.84) THEN
  66 :          RES(1)=TEMP
  67 :          RES(2)=0.D0
  68 :          RES(3)=0.D0
  69 :          RES(4)=0.D0
  70 :          RES(5)=0.D0
  71 :          RES(6)=0.D0
  72 : *
  73 : *   CAS NON TRAITES
  74 : *
  75 :       ELSE
  76 :         KERRE=19
  77 :       ENDIF
  78 : *                                                              
  79 :  99   CONTINUE                                                                  
  80 :       RETURN                                                                    
  81 :       END                                                                       
  82 :  
  83 :  
  84 :  
  85 :