Télécharger dbco32.eso

Retour à la liste

Numérotation des lignes :

  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(*)
  22. CALL DBCO33(XE,DD,XDDL,WORK(1),WORK(4),WORK(31),WORK(40),
  23. 1 WORK(49),XSTRS)
  24. RETURN
  25. END
  26.  
  27.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales