Télécharger defjoi.eso

Retour à la liste

Numérotation des lignes :

  1. C DEFJOI SOURCE AM 11/05/03 21:15:39 6955
  2. C POUGR1 SOURCE AM 10/09/20 21:15:23 6756
  3. SUBROUTINE DEFJOI(DEPL,LRE,DEFO,NDEP)
  4. C-----------------------------------------------------------------------
  5. C ROUTINE DE CALCUL DES DEFORMATIONS POUR L'ELEMENT JOI1
  6. C
  7. C ENTREE
  8. C DEPL DEPLACEMENTS
  9. C
  10. C SORTIE
  11. C DEFO DEFORMATIONS
  12. C-----------------------------------------------------------------------
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. DIMENSION DEFO(*),DEPL(LRE)
  16. * CALCUL DES DEFORMATIONS
  17. DO I=1,NDEP
  18. DEFO(I)=(DEPL(I+NDEP)-DEPL(I))
  19. ENDDO
  20. RETURN
  21. END
  22.  
  23.  

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