Télécharger la plaquette Cast3M


fr en

Télécharger kmf2.eso

Retour à la liste

Numérotation des lignes : 

kmf2

  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