Esope source files

   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 :