!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! @ p_sampling.greg
! J.Pety 2005
!
! Definition of signed sampling (default is Nyquist)
!
! &1: aaa (lmv order cube)
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
let inte_sampling 1
for isampling 1 to 2
  if (sampling[isampling].eq.0) then
     let true_sampling[isampling] 0.5*sqrt(abs(&1%major*&1%minor))
  else
     let true_sampling[isampling] sampling[isampling]*sec
  endif
  if (true_sampling[isampling].ne.0) then
     let inte_sampling[isampling] int(abs(true_sampling[isampling]/&1%convert[3,isampling]))
  endif
  let inte_sampling[isampling] max(1,inte_sampling[isampling])
  let true_sampling[isampling] &1%convert[3,isampling]*inte_sampling[isampling]
next
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
