Esope source files

   1 : C COQ3MA    SOURCE    CHAT      05/01/12    22:21:28     5004           
   2 :       SUBROUTINE COQ3MA(XE,RHO,WORK,RIMA,ILUMP)
   3 : c=======================================================================
   4 : c
   5 : c      calcule la matrice de masse de l element coq3
   6 : c
   7 : c   entree
   8 : c      xe(3,3)=coodonnees de l element
   9 : c      rho    =masse volumique  * epaisseur
  10 : c      ilump = 1 si c'est l'opérateur LUMp qui est appelé , 0 sinon
  11 : c   travail
  12 : c      work(27) = tableau de travail
  13 : c   sorties
  14 : c      rima(18,18)=matrice de masse
  15 : c
  16 : c      code ebersolt mars 85
  17 : c
  18 : c=======================================================================
  19 :       IMPLICIT INTEGER(I-N)
  20 :       IMPLICIT REAL*8(A-H,O-Z)
  21 :       DIMENSION XE(3,*),WORK(*),RIMA(18,*)
  21 :       CALL COQ3M1(XE,RHO,WORK(1),WORK(10),WORK(19),RIMA,ILUMP)
  22 :       RETURN
  23 :       END
  24 :  
  25 :