Télécharger la plaquette Cast3M


fr en

Télécharger cerkce.eso

Retour à la liste

Numérotation des lignes : 

cerkce

  1. C CERKCE    SOURCE    DC        05/02/15    21:15:19     5030
  2.       SUBROUTINE CERKCE(REL,LRE,CARAC,COORD,VROT,KERRE)
  3. C-----------------------------------------------------------------------
  4. C  ROUTINE DE CALCUL DE LA MATRICE DE RAIDEUR CENTRIFUGE ELEMENTAIRE
  5. C  DE L ELEMENT DE CERCE
  6. C
  7. C  ENTREE
  8. C          LRE     DIMENSION DU TABLEAU REL
  9. C          CARAC   Tableau contenant la section et la masse volumique
  10. C          COORD   COORDONNEES DU NOEUD
  11. C
  12. C  SORTIE
  13. C          REL     MATRICE DE RAIDEUR CENTRIFUGE ELEMENTAIRE
  14. C-----------------------------------------------------------------------
  15.       IMPLICIT INTEGER(I-N)
  16.       IMPLICIT REAL*8(A-H,O-Z)
  17. -INC CCREEL
  18.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21.       DIMENSION REL(LRE,*),COORD(3,*),CARAC(*),VROT(*)
  22. *
  23.       ROS = CARAC(1)*CARAC(2)
  24.       R = COORD(1,1)
  25.       IF(NIFOUR.EQ.0) THEN
  26.          FAC=(-1.D0)*ROS*R*2*XPI*(VROT(2)**2)
  27.       ELSE
  28.          FAC=(-1.D0)*ROS*R*XPI*(VROT(2)**2)
  29.       ENDIF
  30. *
  31.       DO 1 I=1,LRE
  32.          DO 2 J=1,LRE
  33.             REL(I,J)=0.D0
  34.  2       CONTINUE
  35.  1    CONTINUE
  36. *
  37.       REL(1,1)=FAC
  38.       REL(3,3)=FAC
  39. C
  40.       KERRE = 0
  41. C
  42.       RETURN
  43.       END
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

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