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