!------------------------------------------------------------------------
! Procedure for observing I073 DM TAU TTS classique
! AD & RM 31-oct-1998
!------------------------------------------------------------------------
!Arreter le projet precedent
SET\END
@ pr:defaults
SET\PROJECT I073 
CATA PHA INTER_BASE:phase-newest.sou
CATA SOU INTER_BASE:iram.sou
SYMBOL GO "@ PR:observe-all I073"       ! observe-all.obs 
!
SAY "Project 'PROJECT' starting"
LET RECEIVER 2                !* ! Observations with pointing on receiver 
LET LOW_LIMIT 15.             !* ! Low elevation limit 15 degrees
!
SYMBOL NAME "DMTAU EQ 2000 04:33:48.70 18:10:10.6 LSR 6.05"
!
LET N_SOURCES 1 
IF (N_SOURCES.GT.1) THEN                 !
  LET NAME_SOURCE[1:N_SOURCES]   ".. .." !
  LET N_SCANS_SOURCE[1:N_SOURCES] .. ..  !
ENDIF
!
LET N_SUBSCANS 60                	! 1 MINUTE SCAN
LET N_SCANS 20                     	! 20 MINUTES between calibrators
!
LET N_CALIBRATORS 2	! N_CALIBRATORS = 2 for Dec. > 20-25 deg, else = 1
let calibrator_1 "0415+379"
let calibrator_2 "0528+134"
LET N_SUBS_CAL 60
LET N_SCANS_CAL 2
!
LET SOLVE_POINT YES         ! 
LET SOLVE_FOCUS YES         !
LET FOCUS_RECEIVER 1              !* ! Focussing on receiver 1
LET POINT_RECEIVER 1              !* ! Pointing on receiver 1    
!
LET POINT_SOURCE_1 0415+379
LET POINT_SOURCE_2 0528+134
!
LET FOCUS_SOURCE_1 0415+379
LET FOCUS_SOURCE_2 0528+134
!
LET CHANGE_SPECTRAL .false.    ! 
LET N_MOSAIC 0
!IF (N_MOSAIC.NE.0) THEN
! DEFINE REAL X_MOSAIC[N_MOSAIC] Y_MOSAIC[N_MOSAIC] T_MOSAIC[N_MOSAIC]/GLOBAL 
!  LET X_MOSAIC 0 0		! arcsec 
! LET Y_MOSAIC 0 -10 		! arcsec
! LET T_MOSAIC 7 3 		! minutes 
!ENDIF 
!
! Setup FOR CO-ISO(1-0) for REC1  
LINE CO-ISO(1-0) 110.020 USB LOW 350/REC 1
!
! Setup for c18o(2-1) on REC2
LINE C18O(2-1) 219.5605 LSB LOW 350/REC 2
!
SPECTRAL 1 160 350/REC 1
SPECTRAL 2  20 586.88/REC 1	! Line C18O 1-0, priority 1
SPECTRAL 5  10 168.13/REC 1	! Line in USB, priority 1
!
SPECTRAL 3 20 350/REC 2		! LINE C18O(2-1), priority 1
SPECTRAL 4 160 270/REC 2        ! 
SPECTRAL 6 160 430/REC 2	! IF PB, DISCONNECT 
!
IF (N_SOURCES.GT.1) THEN
  SOURCE 'NAME_SOURCE[1]' /TYPE OBJ         ! Init. of the Doppler 
 ELSE
  SOURCE 'NAME' /TYPE OBJ         ! Init. of the Doppler
ENDIF
!
IF (DSUN.LT.SUN_LIMIT) THEN                 
    SAY "Source too close to Sun, retry later"   
    RETURN                                       
ENDIF                                            
!
LOAD/FREQUENCY
!
SET SHOW OFF
! Make sure any changes in the spectral configuration will be detected:
SET\LOCK
!
TYPE PR:CLEAN.OBS
!
! LSB-USB-DSB tunings are decided by the IRAM astronomer staff
! depending of the receiver properties
! 
SAY "Project I073   Type: Mapping  /  Category: Dual frequency"
SAY " "
SAY " I073, REC1: setup USB, tuning SSB "
SAY " I073, REC2: setup LSB, tuning DSB, stab: 2-3 average"
say "Frequency sent, receivers may be tuned "
SAY "Execute all observations by typing go " 
!
SAY " I073: OBS AVEC REC1 et REC2, raies sur les 2 recepteurs "
!
SYMBOL PROCEED/INQUIRE "Type RETURN to remove this PAGE"
SET SHOW ON
!
@ PR:CHECK_CALI  I073 4 5   !* !prepare observing procedure to measure the 
                            ! flux of the 5 closest calibrators from the 
                            ! IRAM catalogue and the 4 closest ones from Alok
                            ! Patnaik's catalogue. Procedure will be executed 
                            ! only if calibrator_1 is left "......"