C ELFBL6    SOURCE    CHAT      05/01/12    23:31:31     5004           
      SUBROUTINE ELFBL6(B,BLIMAS,ALIMAS,NLIMAS,NL,LIM)                          
      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