$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$ MARGE.001: pipeline for marging FITS file on AIPS  $
$   RUN "evn", do FITLD, then run this pipeline.     $
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
dowait 1

proc fitsmarge
     tclass='UVDATA'
     exist (disk, expname, tclass, 1, texist);
     if (texist) then
      exist (disk, expname, tclass, 2, texist);
      if (texist) then
       startof('dbcon');task 'dbcon'
       indisk=disk;inname=expname;inclass=tclass;inseq=1
       in2disk=disk;in2name=expname;in2class=tclass;in2seq=2
       outdisk=disk;outname=expname;outclass='DBCON';outseq=1
       go;endof('dbcon')
       tclass='DBCON'
       startof('uvcop');task 'uvcop'
       indisk=disk;inname=expname;inclass=tclass;inseq=1
       outdisk=disk;outname=expname;outclass='UVCOP';outseq=1
       go;endof('uvcop')
       tclass='UVCOP'
       startof('msort');task 'msort'
       indisk=disk;inname=expname;inclass=tclass;inseq=1
       outdisk=disk;outname=expname;outclass='MSORT';outseq=1
       go;endof('msort')
      end
     end
return; finish