!   TITLE:  t_ln_fillet_arc.mac (VERIFICATION)
!
!   Test ln_fillet_arc.mac
!
!---------------------------------------------------------------------------

mod_assemb_prep

/prep7

cyl4,1,2,1

k,,1,0              ! Line end #1
k,,1.6,0.6          ! Line end #2

init_entity_num

l,km-1,km

lplot

view,'f'

numbers_toggle,1
numbers_toggle,2

ln_fillet_arc,5,4,.03

*msg,inf
ln_fillet_arc ran without error.