elfbl6
C ELFBL6 SOURCE CHAT 05/01/12 23:31:31 5004 IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) C C ===================================================================== C SOUS-PROGRAMME FORTRAN APPELE PAR ELFRES C CALCUL DE L'ACCELERATION B C CREATION : 8/10/87 C PROGRAMMEUR : GUILBAUD C ===================================================================== C DIMENSION ALIMAS(LIM,1),B(1),BLIMAS(2,1),NLIMAS(1) DO 10 I=1,LIM K=NLIMAS(I) DO 10 J=1,NL B(K)=B(K)+ALIMAS(I,J)*(2.D0*BLIMAS(1,J)-BLIMAS(2,J)) 10 CONTINUE RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales