Télécharger cerkce.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  19. DIMENSION REL(LRE,*),COORD(3,*),CARAC(*),VROT(*)
  20. *
  21. ROS = CARAC(1)*CARAC(2)
  22. R = COORD(1,1)
  23. IF(NIFOUR.EQ.0) THEN
  24. FAC=(-1.D0)*ROS*R*2*XPI*(VROT(2)**2)
  25. ELSE
  26. FAC=(-1.D0)*ROS*R*XPI*(VROT(2)**2)
  27. ENDIF
  28. *
  29. DO 1 I=1,LRE
  30. DO 2 J=1,LRE
  31. REL(I,J)=0.D0
  32. 2 CONTINUE
  33. 1 CONTINUE
  34. *
  35. REL(1,1)=FAC
  36. REL(3,3)=FAC
  37. C
  38. KERRE = 0
  39. C
  40. RETURN
  41. END
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  

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