Esope source files

   1 : C ELFBL1    SOURCE    CHAT      05/01/12    23:31:08     5004           
   2 :       SUBROUTINE ELFBL1(BLIAI,VN,NVNLIA,NLS2)                                   
   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    RANGEMENT DE VN DANS LES NLS2 PREMIERES COMPOSANTES DE BLIAI               
   9 : C    A L'AIDE DE NVNLIA                                                         
  10 : C    CREATION    :  4/11/86                                                     
  11 : C    PROGRAMMEUR : GUILBAUD                                                     
  12 : C  =====================================================================        
  13 : C                                                                               
  14 :       DIMENSION BLIAI(1),VN(1),NVNLIA(1)                                        
  15 :       DO 10 L=1,NLS2                                                            
  16 :       BLIAI(L)=VN(NVNLIA(L))                                                    
  17 :    10 CONTINUE                                                                  
  18 :       RETURN                                                                    
  19 :       END                                                                       
  20 :