mod_assemb_prep
!
!/PNUM,KP,1  
!/PNUM,LINE,1
!
UIMP,1,EX, , ,10.7e6,
UIMP,1,NUXY, , ,0.27,
!
ET,1,PLANE42
!  
KEYOPT,1,1,0
KEYOPT,1,2,0
KEYOPT,1,3,1
KEYOPT,1,5,0
KEYOPT,1,6,0
!
!            (1)     (2)     (3)      (4)      (5)       (6)
! THREAD_ASSEMBLE, axis_cs, y_ext, d_min_i, d_min_x, n_thrd_x, thrd_lnx,
!
!           n_thrd_i, thrd_lni, n_inch, stndrd, thrd_clr
!             (7)       (8)      (9)     (10)     (11) 
!
!
THREAD_ASSEMBLE,0,3.00,2.9537,2.9311,,0.2250,,0.5,20,,.003
!
!
! THREAD_MESH, thrdax, mtrlx, thrdai, mtrli, elml
!
!THREAD_MESH,1,1,2,1,.003
!

*go,:skip


csys,17
nsel,s,loc,y,-1.5*p_thrd
d,all,all
ALLSEL,ALL
!
csys,14
nsel,s,loc,x,kx(63)
nsel,r,loc,y,ky(63),ky(41)
/REPLOT
FLST,2,30,1,ORDE,3
FITEM,2,162
FITEM,2,172
FITEM,2,-200
!*  
/GO
F,P51X,FY,100
! 
ALLSEL,ALL
/REPLOT
EPLOT
!
eqslv,iter,3,2
!
FINISH
/SOLU
solve

:skip