Sources Esope | Cast3M

dbco32
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