Télécharger joigf1.eso

Retour à la liste

Numérotation des lignes :

  1. C JOIGF1 SOURCE AM 11/05/03 21:17:14 6955
  2. C POUGF1 SOURCE AM 10/09/20 21:15:21 6756
  3. SUBROUTINE JOIGF1(DEPLA,GRAD,LRE,NGRA,IDIM)
  4. C-----------------------------------------------------------------------
  5. C ROUTINE DE CALCUL DES GRADIENTS DE FLEXION POUR L'ELEMENT JOI1
  6. C
  7. C ENTREE
  8. C DEPLA DEPLACEMENTS
  9. C
  10. C SORTIE
  11. C GRAD GRADIENTS DE FLEXION AUX 2 NOEUDS 6 PAR NOEUD
  12. C-----------------------------------------------------------------------
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. DIMENSION GRAD(*),DEPLA(LRE)
  16. C
  17. C CALCUL DES GRADIENTS DE FLEXION AUX 2 NOEUDS
  18. C
  19. CALL ZERO(GRAD,NGRA,1)
  20. IF(IDIM.EQ.3) THEN
  21. GRAD(1)=(DEPLA(10)-DEPLA(4))
  22. GRAD(4)=(DEPLA(11)-DEPLA(5))
  23. GRAD(7)=(DEPLA(12)-DEPLA(6))
  24. ELSE IF(IDIM.EQ.2) THEN
  25. GRAD(1)=(DEPLA(6)-DEPLA(3))
  26. ENDIF
  27. RETURN
  28. END
  29.  
  30.  
  31.  
  32.  
  33.  

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