Esope source files

   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 :