Esope source files

   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 :