Télécharger kcrep2.eso

Retour à la liste

Numérotation des lignes :

  1. C KCREP2 SOURCE CHAT 05/01/13 00:53:01 5004
  2. SUBROUTINE KCREP2 (A,S,NES,N,GG,SS)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. DIMENSION A(NES,*),GG(NES,*),SS(*)
  6. C
  7. C A : COORDONNEES DES 2 SOMMETS DE L'ELEMENT
  8. C S : SURFACE DE L'ELEMENT
  9. C NES : DIM DE L'ESPACE (2)
  10. C N : NOMBRE DE SOUS-ELEMENTS
  11. C GG : CENTRE DE GRAVITE DES SOUS-ELEMENTS
  12. C SS : SURFACES RELATIVES CORRESPONDANTES
  13. C
  14. DO 1 I = 1,N
  15. SS(I) = 1./N
  16. DO 2 KS = 1,NES
  17. GG(KS,I) = A(KS,1) + (A(KS,2)- A(KS,1))*(I-0.5)/N
  18. 2 CONTINUE
  19. 1 CONTINUE
  20. RETURN
  21. END
  22.  
  23.  

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