Télécharger joigr1.eso

Retour à la liste

Numérotation des lignes :

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

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