Esope source files

   1 : C ELFBL5    SOURCE    CHAT      05/01/12    23:31:28     5004           
   2 :       SUBROUTINE ELFBL5(BLIMAS,XLIAI,NL)                                        
   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    CREATION    :  8/10/87                                                     
   9 : C    PROGRAMMEUR : GUILBAUD                                                     
  10 : C  =====================================================================        
  11 : C                                                                               
  12 :       DIMENSION BLIMAS(2,1),XLIAI(1)                                            
  13 :       DO 10 L=1,NL                                                              
  14 :       BLIMAS(2,L)=BLIMAS(1,L)                                                   
  15 :       BLIMAS(1,L)=XLIAI(L)                                                      
  16 :    10 CONTINUE                                                                  
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :