Esope source files

   1 : C COQ3RI    SOURCE    CHAT      05/01/12    22:21:31     5004           
   2 :       SUBROUTINE COQ3RI(RE,COORD,EPAIST,D,WORK)
   3 : C
   4 : C           CALCUL DE LA MRIGIDITE ELEMENTAIRE DE
   5 : C            L ELEMENT COQ3
   6 : C
   7 : C********   ENTREE
   8 : C                   COORD COORDONNEES DES 3 SOMMETS
   9 : C                   EPAIS EPAISSEUR
  10 : C                   D(6,6) MATRIXE DE HOOKE
  11 : C******** SORTIE
  12 : C                   RE(18,18) MRIGIDITE ELEMENTAIRE
  13 : C******** TRAVAIL
  14 : C                   WORK   500  VALEURS
  15 : C
  16 :       IMPLICIT INTEGER(I-N)
  17 :       IMPLICIT REAL*8(A-H,O-Z)
  18 :       DIMENSION RE(*),COORD(*),D(6,*),WORK(*)
  19 : C
  20 : C         CREATION DE LA MATRICE D MEMBRANE
  21 :       DIMENSION EPAIST(*)
  22 :       EPAIS=EPAIST(1)
  23 : C
  24 :       rai = max(D(1,1),D(2,2),D(3,3))
  25 :       WORK(1)=D(1,1)
  26 :       WORK(2)=D(1,2)
  27 :       WORK(3)=D(1,3)
  28 :       WORK(4)=D(2,1)
  29 :       WORK(5)=D(2,2)
  30 :       WORK(6)=D(2,3)
  31 :       WORK(7)=D(3,1)
  32 :       WORK(8)=D(3,2)
  33 :       WORK(9)=D(3,3)
  34 :       DO 1 IA=1,9
  35 :          WORK(IA)=WORK(IA)/RAI
  36 :   1   CONTINUE
  37 : 
  38 : C          CALCUL DE LA RAIDEUR
  38 :       CALL RICOQ(RE,COORD,EPAIS,WORK,WORK(10),WORK(334),
  39 :      &        WORK(415),WORK(451),WORK(460),WORK(463),WORK(466),
  40 :      &        WORK(469),WORK(478),RAI)
  41 : C
  42 :       RETURN
  43 :       END
  44 :  
  45 :