Télécharger kmf2.eso

Retour à la liste

Numérotation des lignes :

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

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