!   TITLE:  wall_dimn.mac (SM_TOOL)
!
!
!   This sub-macro creates an array of wall thickness dimensions, where
!   each element of the array corresponds to the line number in LN_ARRAY.MAC
!   The array can be input up to 18 elements.  These dimensions are the 
!   perpendicular distances from each corresponding line in LN_ARRAY.MAC
!   This allows for the user to specify custom pocket cuts of varying wall
!   thickness from each of the specified lines in the macro, U_SPE_POC_CUT.MAC.
!   
!
!
! WALL_DIMN, num_lns, wallthk#1, wallthk#2, wallthk#3,......, wallthk#18
!
!
*get,prkey_,active,0,prkey
/nopr

num_lns=arg1
!
*dim,wall,array,num_lns
!
*do,i,2,(num_lns+1),1
    j=i-1
    *if,i,lt,10,then
        wall(j,1)=arg%i%
    *else
        wall(j,1)=ar%i%
    *endif
*enddo

*if,prkey_,eq,1,then
    /go
*endif