Télécharger la plaquette Cast3M


fr en

Télécharger efcont.eso

Retour à la liste

Numérotation des lignes : 

efcont

  1. C EFCONT    SOURCE    CHAT      05/01/12    23:28:22     5004
  2.       SUBROUTINE EFCONT(EPAIST,EXCEN,NSTRS,XSTRS)
  3. C=======================================================================
  4. C
  5. C     TRANSFORME LES EFFORTS EN CONTRAINTES POUR LES COQUES MINCES
  6. C     EXCENTREES.
  7. C
  8. C  ENTREES
  9. C    XSTRS(NSTRS)  = EFFORTS
  10. C    NSTRS       = NOMBRE D'EFFORTS
  11. C    EPAIST      = EPAISSEUR DE L'ELEMENT
  12. C    EXCEN       = EXCENTREMENT DE L'ELEMENT
  13. C  SORTIES
  14. C    XSTRS(NSTRS)  = CONTRAINTES
  15. C
  16. C=======================================================================
  17.       IMPLICIT INTEGER(I-N)
  18.       IMPLICIT REAL*8(A-H,O-Z)
  19.       DIMENSION XSTRS(*)
  20.       DIMENSION WORK(8)
  21. C
  22.       EE=6.D0/(EPAIST*EPAIST)
  23.       NAUX=NSTRS/2
  24. C
  25. C   CISAILLEMENT TRANSVERSE (COQ4)
  26.       IF (NSTRS.EQ.8) THEN
  27.       WORK(7)=XSTRS(7)/EPAIST
  28.       WORK(8)=XSTRS(8)/EPAIST
  29.       NAUX=NAUX-1
  30.       ENDIF
  31. C
  32. C   AUTRES CONTRAINTES
  33.       DO 100 I=1,NAUX
  34.          WORK(I)= XSTRS(I)/EPAIST
  35.          WORK(I+NAUX)= EE*(-EXCEN*XSTRS(I)+XSTRS(I+NAUX))
  36.  100  CONTINUE
  37.       DO 200 I=1,NSTRS
  38.          XSTRS(I)=WORK(I)
  39.  200  CONTINUE
  40.       RETURN
  41.       END
  42.  
  43.  

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