!   TITLE:  t_ln_dist_kp.mac (VERIFICATION)
!
!-----------------------------------------------------------------------
!       Rev -   06/03/2002      D. Edwards
!-----------------------------------------------------------------------
!
!   Verification macro for the tool macro "ln_dist_kp".
!
!
!   CS_0:       Cartesian global Coordinate System
!   CS_1:       Cylindrical global Coordinate System
!   CS_2:       Spherical global Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep             ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
t_ln_dist_kp.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!

k
k,,1,1,1

init_entity_num

l,km-1,km

k,,1

init_entity_num

l,km-2,km

csys,CS_1

! Verify that it works on unselected lines and KP's
lsel,none
ksel,none

ln_dist_kp,,lm,km

! Check result when KP lies on the line
ln_dist_kp,'dist2',lm,km-1

numbers_toggle,1
numbers_toggle,2

zero=dist-0.81649658092772608

*msg,ui,zero
Ansys result - calculated distance: %G

*stat,dist2