C COQ3RI    SOURCE    CHAT      05/01/12    22:21:31     5004           
      SUBROUTINE COQ3RI(RE,COORD,EPAIST,D,WORK)
C
C           CALCUL DE LA MRIGIDITE ELEMENTAIRE DE
C            L ELEMENT COQ3
C
C********   ENTREE
C                   COORD COORDONNEES DES 3 SOMMETS
C                   EPAIS EPAISSEUR
C                   D(6,6) MATRIXE DE HOOKE
C******** SORTIE
C                   RE(18,18) MRIGIDITE ELEMENTAIRE
C******** TRAVAIL
C                   WORK   500  VALEURS
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION RE(*),COORD(*),D(6,*),WORK(*)
C
C         CREATION DE LA MATRICE D MEMBRANE
      DIMENSION EPAIST(*)
      EPAIS=EPAIST(1)
C
      rai = max(D(1,1),D(2,2),D(3,3))
      WORK(1)=D(1,1)
      WORK(2)=D(1,2)
      WORK(3)=D(1,3)
      WORK(4)=D(2,1)
      WORK(5)=D(2,2)
      WORK(6)=D(2,3)
      WORK(7)=D(3,1)
      WORK(8)=D(3,2)
      WORK(9)=D(3,3)
      DO 1 IA=1,9
         WORK(IA)=WORK(IA)/RAI
  1   CONTINUE

C          CALCUL DE LA RAIDEUR
      CALL RICOQ(RE,COORD,EPAIS,WORK,WORK(10),WORK(334),
     &        WORK(415),WORK(451),WORK(460),WORK(463),WORK(466),
     &        WORK(469),WORK(478),RAI)
C
      RETURN
      END