Esope source files

   1 : C ELFBL3    SOURCE    CHAT      05/01/12    23:31:20     5004           
   2 :       SUBROUTINE ELFBL3(DC,XLIAI,NDCLIA,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    RANGEMENT DE XLIAI DANS DC A L'AIDE DE NDCLIA                              
   9 : C    CREATION    :  4/11/86                                                     
  10 : C    PROGRAMMEUR : GUILBAUD                                                     
  11 : C  =====================================================================        
  12 : C                                                                               
  13 :       DIMENSION DC(1),XLIAI(1),NDCLIA(1)                                        
  14 :       DO 10 L=1,NL                                                              
  15 :       DC(NDCLIA(L))=XLIAI(L)                                                    
  16 :    10 CONTINUE                                                                  
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :