Télécharger kmf3.eso

Retour à la liste

Numérotation des lignes :

  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