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