Esope source files

   1 : C KMF2      SOURCE    CHAT      05/01/13    00:57:18     5004           
   2 :       SUBROUTINE KMF2(AM,GX,B,NUM,IPADL,NP,NEL,NPT)
   3 : C
   4 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   5 : C                                                                C
   6 : C     PARTIE NUMERIQUE INTENSE DE CAMDF2, CAS BIDIMENSIONNEL     C
   7 : C                                                                C
   8 : C     OPTIMISATION DES ACCES MEMOIRE (CF FRA003)                 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,2),GX(NPT,2),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 :  6    CONTINUE
  23 :  7    CONTINUE
  24 :       RETURN
  25 :       END
  26 :  
  27 :