SUBROUTINE DASHR(X,Y,L)
      CALL REL2AB(X,Y,XL,YL)
      CALL DASHA(XL,YL,L)
      RETURN
      END