!   TITLE:  ln_array.mac (MANAGEMENT)
!
!
!   This sub-macro creates an array of line numbers, where each element
!   of the array is an individual line number. The array can be input up
!   to 18 line numbers.
!
!           num_lns = the total number of lines to be stored in the
!                     array.
!
!           line#n = the line numbers to be stored in the array.  The lines
!                    will be stored in the order in which they are entered.
!
!
!
! LN_ARRAY, num_lns, line#1, line#2, line#3,......, line#18
!
!
*get,prkey_,active,0,prkey
/nopr

num_lns=arg1
!
*dim,ln,array,num_lns
!
*do,ii,2,(num_lns+1),1
    jj=ii-1
    *if,ii,lt,10,then
        ln(jj,1)=arg%ii%
    *else
        ln(jj,1)=ar%ii%
    *endif
*enddo
!
*do,ii,1,num_lns,1
    *if,ii,eq,1,then
        lsel,s,line,,ln(ii,1)
    *else
        lsel,a,line,,ln(ii,1)
    *endif
*enddo
!
cm,lnarset,line

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