! Procedure mpt.nic permet la creation de fichiers de on-off qui
!	sont corriges du bruit de ciel
!	seront affiches avec 7mapcont.greg
symbol firstscan /inquire "Numero du premier scan : "
symbol lastscan /inquire "Numero du dernier scan : "
symbol date /inquire "Extension du fichier resultat desiree : "
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.'date'

for i 'firstscan' to 'lastscan'
  sic search bolo_data:'i'.nmb
  if sic$exist then
    file in bolo_data:'i'
    var header
    if scan_type.eq.1 then
      sic precision double
      @ flux 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:"'i'" 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
next

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