Télécharger la plaquette Cast3M


fr en

Télécharger joigr1.eso

Retour à la liste

Numérotation des lignes : 

joigr1

  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