!   test_kp_intersect.mac
!
mod_assemb_prep
!
csys,0
!
k,,0,6,0
k,,3,6,0
k,,4,3,0
k,,2,1,0
k,,6,5,0
!
k,,6,2,0
k,,0,2,0
!
init_entity_num
!
lstr,km-5,km-4
lstr,km-4,km-2
lstr,km-4,km-3
lstr,km-4,km-1
lstr,km-5,km-6
lstr,km-3,km
lstr,km-3,km-5
!
init_entity_num
!
/pnum,kp,1
/pnum,line,1
view,'f'
lplot
!

!lsel,u,line,,lm-2,lm,1

!lsel,u,line,,lm-5,lm-3,2

kp_intersect,1,3,2,4



*go,:skip

*stat,lngrp_
*stat,kgrp_

:skip