Télécharger la plaquette Cast3M


fr en

Télécharger joigf1.eso

Retour à la liste

Numérotation des lignes : 

joigf1

  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