mod_assemb_prep
!
name='prism3'
arry_nam='prism'
!
ct_name='ct3cs'     ! cartesian
cyl_name='cyl3cs'   ! cylindrical
sph_name='sph3cs'   ! spherical
!
MOD_COORD_SYSTEM
!
!
!                   (1)      (2)      (3)     (4)      (5)      (6)     (7)
! HOLLOW_CYLINDER, cs_num, s_or_prt, diam_i, diam_o, wall_thk, l_cyl, arc_ang
!
HOLLOW_CYLINDER,1,0,5,,0.3,0,360
!
!
! CIR_BORE,opt,xcutc,ycutc,zcutc,rotxyc,rotyzc,rotzxc,dia_cut,dcut,phibev
!
!------------------------------- OPTION 2 & 5 --------------------------------
!
! CIR_BORE,opt,p1,p2,p3,dia_cut,dcut,phibev
!
!------------------------------- OPTION 3 & 6 --------------------------------
!
! CIR_BORE,opt,acs1,dia_cut,dcut,phibev
!
!
csys,0
!
!CIR_BORE,1,0,3,15,0,-90,0,2,2,0
!
!
!
!                  (1)      (2)     (3)     (4)      (5)       (6)     (7)   (8)
! MSH_ALGORITHM, perflsz, perfmsh, mstyp, mshdens, elmszovr, atargov, etpa, etpv,
!
!                elmnl, elmxl, mtrl, rl, ecs, volsel, sprat, radrot, varcang
!                 (9)    (10)  (11) (12) (13)  (14)   (15)    (16)     (17)
!
!
et,1,shell63
et,2,solid45
!
!asel,s,area,,23,29,6
!
!MSH_ALGORITHM,1,3,0,,3,,1,2,0.2,0.5,,,,,,,




*go,:skip1

asel,s,area,,18
asel,a,area,,17
lsla,s
cm,lns2buns,line    ! set of lines to be (2b) unselected
!
!init_entity_num
allsel,all
!
vsel,s,volu,,all
aslv,s
lsla,s
lsel,u,line,,lns2buns
!
!max_e_dim_array,'l','vlst','array'
!

:skip1