!--------------------------------------------------------------
! 
!      @rcp37   (.MOPSI is default extention)
!      example macro for MAMBO-37 receiver parameter determination
!      use lmopsio2 25.07.2002
!      <f.bertoldi 28.7.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* MOON G34*
!sel no K3*
!--- SELECT 37- OR 117-ARRAY SCANS:
!lis in-l nrcs
!sel nrc 121
sel nrc 46
!-- 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 23307.fits no-rcp phas diff
    init gfit
    del dc
    del rc 18
    bas t 0
    cl
    cl a
    plot
    hard 23307a /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
    wri rcp 
    hard 23307b /dev eps fast
    cd <BEAMS
    hard 23307c /dev eps color