Sources Esope | Cast3M

shiftd
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