Esope source files

   1 : C SHIF1K    SOURCE    CHAT      05/01/13    03:15:33     5004           
   2 :       SUBROUTINE SHIF1K(X,Y,LX)                                                 
   3 : C=======================================================================        
   4 : C     ROUTINE PRISE COMME TELLE DANS INCA (SHIFTD) LE 10 FEVRIER 86             
   5 : C                                                                               
   6 : C     PLACE LE TABLEAU X (DE REELS) DANS LE TABLEAU Y;LONGUEUR DES              
   7 : C     DEUX TABLEAUX : LX                                                        
   8 : C=======================================================================        
   9 :       IMPLICIT INTEGER(I-N)
  10 :       REAL*8 X,Y                                                                
  11 :       DIMENSION X(1),Y(1)                                                       
  12 :       DO 1 IA=1,LX                                                              
  13 :       Y(IA)=X(IA)                                                               
  14 :     1 CONTINUE                                                                  
  15 :       RETURN                                                                    
  16 :       END                                                                       
  17 :