Télécharger elfbl6.eso

Retour à la liste

Numérotation des lignes :

  1. C ELFBL6 SOURCE CHAT 05/01/12 23:31:31 5004
  2. SUBROUTINE ELFBL6(B,BLIMAS,ALIMAS,NLIMAS,NL,LIM)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C
  6. C =====================================================================
  7. C SOUS-PROGRAMME FORTRAN APPELE PAR ELFRES
  8. C CALCUL DE L'ACCELERATION B
  9. C CREATION : 8/10/87
  10. C PROGRAMMEUR : GUILBAUD
  11. C =====================================================================
  12. C
  13. DIMENSION ALIMAS(LIM,1),B(1),BLIMAS(2,1),NLIMAS(1)
  14. DO 10 I=1,LIM
  15. K=NLIMAS(I)
  16. DO 10 J=1,NL
  17. B(K)=B(K)+ALIMAS(I,J)*(2.D0*BLIMAS(1,J)-BLIMAS(2,J))
  18. 10 CONTINUE
  19. RETURN
  20. END
  21.  
  22.  

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