Esope source files

   1 : C DBCO32    SOURCE    CHAT      05/01/12    22:37:05     5004           
   2 :       SUBROUTINE DBCO32(XE,DD,XDDL,WORK,XSTRS)                                  
   3 : C======================================================================         
   4 : C                                                                               
   5 : C  AJOUTE DANS LES CONTRAINTES XSTRS LA PARTIE DHO * EPS2                       
   6 : C                  QUE POUR LES ELEMENTS COQ3                                   
   7 : C  ENTREE                                                                       
   8 : C    XE(3,3)           =COORDONNEES GLOBALES DU COQ3                            
   9 : C    DD(6,6)            =MATRICE DE HOOKE                                       
  10 : C    XDDL(18)          =D.D.L.GLOBAUX DE LA FORMULATION                         
  11 : C    XSTRS(6)           =CONTRAINTES  DHO*(EPS1        )                        
  12 : C  TRAVAIL                                                                      
  13 : C    WORK(66)           = TABLEAU DE TRAVAIL                                    
  14 : C  SORTIE                                                                       
  15 : C    XSTRS(6)           =CONTRAINTES DHO*(EPS1 + EPS2 )                         
  16 : C                                                                               
  17 : C   CODE EBERSOLT AOUT  85                                                      
  18 : C=======================================================================        
  19 :       IMPLICIT INTEGER(I-N)
  20 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  21 :       DIMENSION XE(3,*),DD(6,*),XSTRS(*),XDDL(*),WORK(*)                        
  21 :       CALL DBCO33(XE,DD,XDDL,WORK(1),WORK(4),WORK(31),WORK(40),                 
  22 :      1     WORK(49),XSTRS)                                                      
  23 :       RETURN                                                                    
  24 :       END                                                                       
  25 :