!--------------------------------------------------------------
! 
!      @rcp117   (.MOPSI is default extention)
!      example macro for MAMBO-117 receiver parameter determination
!      use mopsi Version >= 01.08.2002
!      <f.bertoldi 1.8.02>
!
!--------------------------------------------------------------

!dev i w 
lut idl4
set cha .4
set tick .2
pen /def
init history
init in_lis

i-d "/aux/pc191b/mambo/mrt01a/fits"

!-- EITHER LOAD THE PRESELECTED LIST OF CALIBRATION
!   MAPS OR SEARCH FOR THEM YOURSELF WITH THE COMMANDS
!   FOLLOWING

list calmaps

!--- FOLLOWING WILL LOAD THE SCAN LIST all?.LIST  
!    OF ALL SCANS <datadirectory>/fits/?*.fits
!    WHERE ?=1 TO 5 (PROVIDED YOU MADE THESE LISTS)
!
!list "/aux/pc191b/mambo/mrt01a/all1"
!list "/aux/pc191b/mambo/mrt01a/all2"
!list "/aux/pc191b/mambo/mrt01a/all3"
!list "/aux/pc191b/mambo/mrt01a/all4"
!list "/aux/pc191b/mambo/mrt01a/all5"

!sel type map
!sel no ABSORBER A+* M31* DRACO MCL* EM* LH* MBM*
!sel no TN* L1* M16* CC* A2125* VLA* IIZW* G34*
!sel no K3* 3C* EL* C-NGC4013 E-NGC4013 0954+658 HORSEHEAD
!sel no 0039+568 1739+522 0736+017 0458-020 A370* A-* HE2* WM*
!sel no 1413+135 BODY* EABS*
!
!--- SELECT 37- OR 117-ARRAY SCANS:
!lis in-l nrcs
sel nrc 120
!sel nrc 40

!-- NOW SELECT NAME, DATE, ETC., 
!   AND DELETE SCANS YOU DONT LIKE

sort lis
list
pause

!-- YOU CAN READ FROM THE LIST, OR SIMPLY EDIT
!   THE SCAN NUMBER IN THE FOLLOWING, WHICH GIVES
!   YOU THE THREE PLOTS AND AN RCP FILE

   rea 15007.fits no-rcp phas diff
   init gfit
   del dc

!-- DELETE THOSE CHANNELS WHICH SEEM DEAD OR DID NOT CATCH
!   THE SOURCE, ELSE THE GAUSS FIT COMPLAINS.
   del rc 34 83
   del rc 117 12 42 44 50 73 110         47            
!  del rc 117 12 42 44 50 73 110  29 54  47 8 6

    bas t 0
    init spike
    high 50 rms 
!   low -50 rms
    cl
    cl a
    plot
    hard 15007a /dev eps color

 pause

!-- MAKE SURE THE OBJECT IS WELL INSIDE EACH
!   CHANNEL MAP, ELSE THE FOLLOWING WONT WORK
    pen 3
    cl
    cl a
    rcp int 15 central-rc 53
    wri rcp 
    hard 15007b /dev eps fast
    cd <BEAMS
    hard 15007c /dev eps color

! @rcp117.MOPSI