C KMF3      SOURCE    CHAT      05/01/13    00:57:22     5004
      SUBROUTINE KMF3(AM,GX,B,NUM,IPADL,NP,NEL,NPT)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C                                                                C
C     PARTIE NUMERIQUE INTENSE DE CAMDF2, CAS TRIDIMENSIONNEL    C
C                                                                C
C     OPTIMISATION DES ACCES MEMOIRE (CF FRA004)                 C
C                                                                C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION AM(NEL,NP,3),GX(NPT,3),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)
     &         +AM(K,I,3)*GX(IU,3)
 6    CONTINUE
 7    CONTINUE

      RETURN
      END