Télécharger la plaquette Cast3M


fr en

Télécharger cermas.eso

Retour à la liste

Numérotation des lignes : 

cermas

  1. C CERMAS    SOURCE    CHAT      05/01/12    21:52:26     5004
  2.       SUBROUTINE CERMAS(REL,LRE,ROS,COORD)
  3. C-----------------------------------------------------------------------
  4. C  ROUTINE DE CALCUL DE LA MATRICE DE MASSE ELEMENTAIRE DE L ELEMENT DE
  5. C  CERCE
  6. C
  7. C  ENTREE
  8. C          LRE     DIMENSION DU TABLEAU REL
  9. C          ROS     RHO * SECT
  10. C          COORD   COORDONNEES DU NOEUD
  11. C
  12. C  SORTIE
  13. C          REL     MATRICE DE MASSE ELEMENTAIRE
  14. C-----------------------------------------------------------------------
  15.       IMPLICIT INTEGER(I-N)
  16.       IMPLICIT REAL*8(A-H,O-Z)
  17. -INC CCREEL
  18.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21.       DIMENSION REL(LRE,*),COORD(3,*)
  22. *
  23.       R = COORD(1,1)
  24.       IF(IFOUR.EQ.0.OR.(IFOUR.EQ.1.AND.NIFOUR.EQ.0)) THEN
  25.          FAC=ROS*R*2*XPI
  26.       ELSE
  27.          FAC=ROS*R*XPI
  28.       ENDIF
  29. *
  30.       DO 1 I=1,LRE
  31.          DO 2 J=1,LRE
  32.             REL(I,J)=0.D0
  33.  2       CONTINUE
  34.  1    CONTINUE
  35. *
  36.       REL(1,1)=FAC
  37.       REL(2,2)=FAC
  38.       IF(IFOUR.EQ.1) THEN
  39.          REL(3,3)=FAC
  40.       ENDIF
  41.       RETURN
  42.       END
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales