! Procedure reduce.nic 
! 
! Fast reduction of several types of scans :
!   - ON-THE-FLY  
!   - ONOFF
!   - FOCUS
!   - POINTING
! 
!
define character file*5
let file "s&1"
if (file.ne."s") then
  symbol number &1
else
  symbol number /inquire "Scan number to reduce : "
endif
!
signal 'number'                 ! read and display data
!          
! Despiking and calibrating the signal
symbol rep /inquire "despiking ? [Y/N] "
if "'rep'".eq."Y".or."'rep'".eq."y" then
   despike /iter 3 /interp
   signal
   say "If there is no spike left, we can continue"
   cl al
   pause
endif
!
if (scan_type.ne.3) then    ! only if scan_type different from SKYDIP !!!
   set opacity on
   if (counts_per_jy.eq.0) then
     say "Calibration factor (counts/Jy) ?"
     let Counts_per_Jy
     set jansky on counts_per_jy ! Calibration factor to physical map unit
   endif
endif
!
! Special reduction according to type of scan
!
if      (scan_type.eq.1) then                ! ONOFF
   say "Output filename is defined by variable ONOFF_FILE (default is "'SCAN'".onf)"
   pause
   if (ONOFF_MODE.eq.0) then
      say "Symmetric or Unsymmetrical ONOFF [1/-1] ?"
      let ONOFF_MODE
   endif
   onoff
else if (scan_type.eq.2) then                ! ON-THE-FLY
   symbol ON-THE-FLY-R  STARTED
   @ reduce_on_the_fly
   del /sym ON-THE-FLY-R
else if (scan_type.eq.3) then                ! SKYDIP
   solve
else if (scan_type.eq.4) then                ! POINTING
   solve
else if (scan_type.eq.5) then                ! FOCUS
   solve
else if (scan_type.eq.6) then
   say 'Unknown type of scan'
endif
!
del /sym rep number