!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! @ l-old-corner
!
! &1: aaa
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Find X and Y axis number
define integer jaxis[3] kaxis blc trc range[2]
let jaxis '&1%x_axis' '&1%y_axis' '&1%f_axis'
!
let true%blc 0
let true%trc 0
let true%ndim 0
!
for iaxis 1 to 3
   if (iaxis.eq.1) then
      let range true%prange%p[1]
   else if (iaxis.eq.2) then
      let range true%prange%p[2]
   else if (iaxis.eq.3) then
      let range true%vrange%p
   endif
   if (jaxis[iaxis].ne.0) then
      let kaxis jaxis[iaxis]
   else
      let kaxis iaxis
   endif
   let blc min(max(range[1],1),&1%dim[kaxis])
   let trc min(max(range[2],1),&1%dim[kaxis])
   if (blc.gt.trc) then
      let true%blc[kaxis] trc
      let true%trc[kaxis] blc
   else
      let true%blc[kaxis] blc
      let true%trc[kaxis] trc
   endif
   let true%ndim true%ndim+1
next iaxis
!
let true%dim true%trc-true%blc+1
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
