! Procedure onoff19.nic permet d'afficher les flux d'un on-off
! &1 est le numero du scan a traiter
!symbol tau1 /inquire "Premier fichier de SKYDIP : "
!symbol tau2 /inquire "Dernier fichier de SKYDIP : "
!@ sky 'tau1' 'tau2'
define integer nrec /global      ! Pour nchan=23
let nrec 19
define real flu[nrec] flurms[nrec] Delta_RA[nrec] Delta_DEC[nrec] /global
define real ra_s dec_s
sic output onoffnic.'&1'
sic search bolo_data:'&1'.nmb
if sic$exist then
    file in bolo_data:'&1'
    var header
    if scan_type.eq.1 then
      sic precision double
      @ fluxs nrec Flu Flurms
      let Flu        INT(Flu*10)|10
      let Flurms     INT(Flurms*10)|10
      @ radec nrec Delta_RA Delta_DEC
      sic precision single
      let Delta_RA   INT(Delta_RA*100)|100
      let Delta_DEC  INT(Delta_DEC*100)|100
      let ra_s  (LAMBDA*1000)|1000
      let dec_s (BETA*1000)|1000
      say "!SCAN:"'&1'" SOURCE:"'SOURCE'" RA:"'ra_s'" DEC:"'dec_s'
      say "!Scan   Channel   Off(RA)   Off(DEC)   Flux[mJy]   Error[mJy]"
      for k 1 to nrec
          say " "'scan'"      "'k'"      "'Delta_RA[k]'"      "'Delta_DEC[k]'"     "'Flu[k]'"     "'Flurms[k]'
      next
    endif
endif

sic output
del /var nrec flu flurms Delta_RA Delta_DEC ra_s dec_s