Télécharger la plaquette Cast3M


fr en

Télécharger kmf3.eso

Retour à la liste

Numérotation des lignes : 

kmf3

  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.  
  30.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales