Esope source files

   1 : C PO1MAS    SOURCE    CHAT      05/01/13    02:15:42     5004           
   2 :         SUBROUTINE PO1MAS(COORD,XDPGE,YDPGE,ROS,LRE,REL)
   3 : C-----------------------------------------------------------------------        
   4 : C  ROUTINE DE CALCUL DE LA MATRICE DE MASSE ELEMENTAIRE DE L ELEMENT DE         
   5 : C  POI1
   6 : C                                                                               
   7 : C  ENTREE  
   8 : C          XDPGE   COORDONNEES DU POINT AUTOUR DUQUEL SE FAIT LA 
   9 : C          YDPGE   ROTATION DE LA SECTION EN DEFO PLANES GENE                                                           
  10 : C          LRE     DIMENSION DU TABLEAU REL                                     
  11 : C          ROS     RHO * SECT                                                   
  12 : C          COORD   COORDONNEES DU NOEUD
  13 : C                                                                               
  14 : C  SORTIE                                                                       
  15 : C          REL     MATRICE DE MASSE ELEMENTAIRE                                 
  16 : C-----------------------------------------------------------------------        
  17 :       IMPLICIT INTEGER(I-N)
  18 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  19 : -INC CCOPTIO                                                                    
  20 :       DIMENSION REL(LRE,*),COORD(3,*)
  21 : *
  22 :       DO 1 I=1,LRE
  23 :       DO 1 J=1,LRE
  24 :    1  REL(I,J)=0.D0
  25 : *
  26 :       XX=COORD(1,1)
  27 :       YY=COORD(2,1)
  28 :       XXX=XDPGE-XX
  29 :       YYY=YY-YDPGE
  30 : *
  31 :       REL(3,3)=ROS
  32 :       REL(3,4)=ROS*XXX
  33 :       REL(3,5)=ROS*YYY
  34 :       REL(4,3)=REL(3,4)
  35 :       REL(4,4)=ROS*XXX*XXX
  36 :       REL(4,5)=ROS*XXX*YYY
  37 :       REL(5,3)=REL(3,5)
  38 :       REL(5,4)=REL(4,5)
  39 :       REL(5,5)=ROS*YYY*YYY
  40 :       RETURN                                                                    
  41 :       END  
  42 : 
  43 :