SUBROUTINE DLSLTO(N,A,B,IPATH,X)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      parameter(ldd1scr=10000)
      common/dscrb/d1scrb(ldd1scr)
      DIMENSION A(2*N-1),B(N),X(N),R(1000)
      if(n.gt.ldd1scr) go to 150
      DO 10 I=1,N
         X(I)=B(I)
 10      CONTINUE
      CALL TSLD(A,X,R,N)
      RETURN
  150 call err(2*n-2,'ldd1scr','d1scrblk')
      RETURN 
      END