C KMF2      SOURCE    CHAT      05/01/13    00:57:18     5004
      SUBROUTINE KMF2(AM,GX,B,NUM,IPADL,NP,NEL,NPT)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C                                                                C
C     PARTIE NUMERIQUE INTENSE DE CAMDF2, CAS BIDIMENSIONNEL     C
C                                                                C
C     OPTIMISATION DES ACCES MEMOIRE (CF FRA003)                 C
C                                                                C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION AM(NEL,NP,2),GX(NPT,2),B(1)
      DIMENSION NUM(NP,1),IPADL(1)
      Z=0.
      DO 7 I=1,NP
      DO 6 K=1,NEL
      IU=IPADL(NUM(I,K))
      B(K)=B(K)+AM(K,I,1)*GX(IU,1)
     &         +AM(K,I,2)*GX(IU,2)
 6    CONTINUE
 7    CONTINUE
      RETURN
      END