Esope source files

   1 : C SHIFTD    SOURCE    CHAT      05/01/13    03:15:38     5004           
   2 :       SUBROUTINE SHIFTD(X,Y,LX)                                                 
   3 :       IMPLICIT INTEGER(I-N)
   4 :       REAL*8 X,Y                                                                
   5 :       DIMENSION X(*),Y(*)                                                       
   6 :       DO 1 IA=1,LX                                                              
   7 :       Y(IA)=X(IA)                                                               
   8 :     1 CONTINUE                                                                  
   9 :       RETURN                                                                    
  10 :       END                                                                       
  11 :