SUBROUTINE DASHSR(X,Y,L)
      CALL REL2AB(X,Y,RX,RY)
      CALL DASHSA(RX,RY,L)
      RETURN
      END