!   TITLE:  depth.mac (CALCULATION)
!
!
!   This sub-macro creates an array of axial dimensions, where each
!   element of the array corresponds to a specific radial point in the
!   array macro RADIUS.MAC. The array can be input up to 18 elements.
!   These axial distances are the distances to each point in the volume
!   profile defined by the user as input into PROFILE_BORE.MAC. This
!   allows for the user to specify a special shaped profile volume at the
!   angular intervals defined by ANG_ARRAY.MAC.
!
!   num_pnt = # of keypoints to create profile at the varying radii.
!
!   z#n = axial distance (z distance) of point n, which is the bore depth
!         of each point.
!
!
!
! DEPTH, num_pnt, z#1, z#2, z#3,......, z#18
!
!
*get,prkey_,active,0,prkey
/nopr

num_pnt=arg1
!
*dim,z_,array,num_pnt
!
*do,ii,2,(num_pnt+1),1
    jj=ii-1
    *if,ii,lt,10,then
        z_(jj,1)=arg%ii%
    *else
        z_(jj,1)=ar%ii%
    *endif
*enddo
!
*set,ii,
*set,jj,

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