Esope source files

   1 : C KMF3      SOURCE    CHAT      05/01/13    00:57:22     5004           
   2 :       SUBROUTINE KMF3(AM,GX,B,NUM,IPADL,NP,NEL,NPT)
   3 : C
   4 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   5 : C                                                                C
   6 : C     PARTIE NUMERIQUE INTENSE DE CAMDF2, CAS TRIDIMENSIONNEL    C
   7 : C                                                                C
   8 : C     OPTIMISATION DES ACCES MEMOIRE (CF FRA004)                 C
   9 : C                                                                C
  10 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  11 : C
  12 :       IMPLICIT INTEGER(I-N)
  13 :       IMPLICIT REAL*8 (A-H,O-Z)
  14 :       DIMENSION AM(NEL,NP,3),GX(NPT,3),B(1)
  15 :       DIMENSION NUM(NP,1),IPADL(1)
  16 :       Z=0.
  17 :       DO 7 I=1,NP
  18 :       DO 6 K=1,NEL
  19 :       IU=IPADL(NUM(I,K))
  20 :       B(K)=B(K)+AM(K,I,1)*GX(IU,1)
  21 :      &         +AM(K,I,2)*GX(IU,2)
  22 :      &         +AM(K,I,3)*GX(IU,3)
  23 :  6    CONTINUE
  24 :  7    CONTINUE
  25 : 
  26 :       RETURN
  27 :       END
  28 :  
  29 :