VEX_rev = 1.5;
*    SCHED vers: Release of about July 12, 2012
*    VEX/SCHED:  1.5.87
*    Other versions: Sched:  10.2  Plot: 1.06  JPL-ephem: 1.01
*------------------------------------------------------------------------------
$GLOBAL;
     ref $EXPER = gk047c;
*                                                      +------------+
*                         PI revision number:          |    1.0000  |
*                                                      +------------+
*    mode:       L-band, dual-pol
*------------------------------------------------------------------------------
$EXPER;
*
def gk047c;
     exper_name = gk047c;
     exper_description = "Radioastron-EVN-Ro: 0642+449";
     PI_name = "Yuri Kovalev";
     PI_email = yyk@asc.rssi.ru;
*    address:   ASC Lebedev
*               Profsoyuznaya 84/32
*               117997 Moscow, Russia
*                
*    phone:     +7-495-3332167
*    during obs:+7-915-1546281
*    fax:       +7-495-3332378
*    notes:     L-band, Radioastron-compatible frequency setup
*               PCAL is ON
*               Mk5 disk packs should be sent for correlation to Bonn
*
*    year, doy: 2013,  69
*    date     : Sun 10 Mar 2013
*    MJD      : 56361
     exper_nominal_start=2013y069d14h00m00s;
     exper_nominal_stop=2013y069d15h00m00s;
*
     target_correlator = BONN;
*
*    integr_time    :     1.000 s
*    number_channels:    32
*    number_antenna :  4
*    cross_polarize : Yes
*    weight_func    : UNIFORM
*    distrib_medium : FTP
*    distrib_format : FITS
*    source_pos_cat : SCHEDULE
*
enddef;
*------------------------------------------------------------------------------
$MODE;
*
def sess113.L256;
     ref $PROCEDURES = Mode_01;
     ref $FREQ = 1668.00MHz4x16MHz#02:Ef;
     ref $FREQ = 1668.00MHz4x16MHz:Wb:Jb:Ro;
     ref $IF = LO@1490MHzDPolTone/1:Ef;
     ref $IF = LO@1510MHzDPolTone/1:Wb:Jb;
     ref $IF = LO@1380MHzDPolTone/1:Ro;
     ref $BBC = 4BBCs#02:Ef;
     ref $BBC = 4BBCs:Wb:Jb:Ro;
     ref $TRACKS = MARK5B.4Ch2bit1to1:Ef:Wb;
     ref $TRACKS = MKIV.4Ch2bit1to4:Jb:Ro;
*    ref $HEAD_POS = DiskVoid <= obsolete definition
     ref $ROLL = NoRoll:Ef:Wb:Jb:Ro;
*    ref $PASS_ORDER = DiskVoid <= obsolete definition
     ref $PHASE_CAL_DETECT = DsbDetect:Ef:Wb:Jb:Ro;
enddef;
*------------------------------------------------------------------------------
$STATION;
*
def Ef;
     ref $SITE = EFLSBERG;
     ref $ANTENNA = EFLSBERG;
     ref $DAS = 2NONE<;
enddef;
*
def Wb;
     ref $SITE = WSTRBORK;
     ref $ANTENNA = WSTRBORK;
     ref $DAS = 2MKIV+NONE<;
enddef;
*
def Jb;
     ref $SITE = JODRELL1;
     ref $ANTENNA = JODRELL1;
     ref $DAS = 2MKIV+NONE<Mark5A;
enddef;
*
def Ro;
     ref $SITE = DSS63;
     ref $ANTENNA = DSS63;
     ref $DAS = 1MKIV<Mark5A;
enddef;
*------------------------------------------------------------------------------
$PROCEDURES;
*
def Mode_01;
     procedure_name_prefix =  "01";
     tape_change =  420 sec;
     headstack_motion =    6 sec;
     new_source_command =    5 sec;
     new_tape_setup =   20 sec;
     setup_always = on :  20 sec;
     parity_check = off : 100 sec;
     tape_prepass = off : 600 sec;
     preob_cal  = on :  10 sec : preob;
     midob_cal  = on :  15 sec : midob;
     postob_cal = on :   0 sec : postob;
enddef;
*------------------------------------------------------------------------------
$SITE;
*
def EFLSBERG;
     site_type = fixed;
     site_name = EFLSBERG;
     site_ID = Ef;
*    elev=  416.72 long=-006:53:01. lat= 50:31:29.4
     site_position = 4033947.32710 m:  486990.70440 m: 4900430.93840 m;
     site_velocity = -0.013650   m/yr:  0.016810   m/yr:  0.010950  m/yr;
*    First line below is VEX standard format.  Use only when readers are ready.
*    site_position_epoch = 2008y001d;
     site_position_epoch =   54466;
     horizon_map_az =  0.0 deg: 10.0: 20.0: 30.0: 40.0: 50.0: 60.0: 70.0: 80.0:
                                90.0:100.0:110.0:120.0:130.0:140.0:145.0:150.0:
                               155.0:190.0:195.0:200.0:210.0:220.0:245.0:255.0:
                               260.0:270.0:280.0:290.0:300.0:310.0:320.0:330.0:
                               340.0:350.0:360.0;
     horizon_map_el = 10.0 deg: 11.0: 13.0: 15.0: 17.0: 17.0: 15.0: 13.0: 12.0:
                                11.0: 11.0: 11.0: 11.0: 11.0: 10.0:  9.0:  8.0:
                                 7.0:  7.0:  8.0:  9.0: 10.0: 10.0: 10.0: 11.0:
                                12.0: 12.0: 13.0: 13.0: 12.0: 11.0: 11.0: 10.0:
                                 9.0: 10.0: 10.0;
enddef;
*
def WSTRBORK;
     site_type = fixed;
     site_name = WSTRBORK;
     site_ID = Wb;
*    elev=   71.21 long=-006:38:00. lat= 52:54:55.1
     site_position = 3828445.65900 m:  445223.60000 m: 5064921.56800 m;
     site_velocity = -0.013530   m/yr:  0.017040   m/yr:  0.008730  m/yr;
*    First line below is VEX standard format.  Use only when readers are ready.
*    site_position_epoch = 1997y001d;
     site_position_epoch =   50449;
enddef;
*
def JODRELL1;
     site_type = fixed;
     site_name = JODRELL1;
     site_ID = Jb;
*    elev=  179.41 long= 002:18:30. lat= 53:14:11.5
     site_position = 3822626.04000 m: -154105.65000 m: 5086486.04000 m;
     site_velocity = -0.011700   m/yr:  0.017040   m/yr:  0.009310  m/yr;
*    First line below is VEX standard format.  Use only when readers are ready.
*    site_position_epoch = 1997y001d;
     site_position_epoch =   50449;
enddef;
*
def DSS63;
     site_type = fixed;
     site_name = DSS63;
     site_ID = Ro;
*    elev=  864.87 long= 004:14:52. lat= 40:25:52.3
     site_position = 4849092.68140 m: -360180.53500 m: 4115109.12980 m;
     site_velocity = -0.008380   m/yr:  0.019560   m/yr:  0.013030  m/yr;
*    First line below is VEX standard format.  Use only when readers are ready.
*    site_position_epoch = 1997y001d;
     site_position_epoch =   50449;
enddef;
*------------------------------------------------------------------------------
$ANTENNA;
*
def EFLSBERG;
     axis_type = az : el;
     antenna_motion = el :  15.0 deg/min :  9 sec;  *    0.020 deg/sec/sec
     antenna_motion = az :  25.0 deg/min :  9 sec;  *    0.020 deg/sec/sec
     axis_offset =    0.01300 m;
enddef;
*
def WSTRBORK;
     axis_type = ha : dec;
     antenna_motion = dec :  18.0 deg/min : 10 sec;  *    0.100 deg/sec/sec
     antenna_motion = ha :  18.0 deg/min : 10 sec;  *    0.100 deg/sec/sec
     axis_offset =    4.95000 m;
enddef;
*
def JODRELL1;
     axis_type = az : el;
     antenna_motion = el :   8.0 deg/min :  6 sec;  *    0.023 deg/sec/sec
     antenna_motion = az :  15.0 deg/min :  6 sec;  *    0.026 deg/sec/sec
     axis_offset =    0.00000 m;
enddef;
*
def DSS63;
     axis_type = az : el;
     antenna_motion = el :  15.0 deg/min : 10 sec;  *    0.200 deg/sec/sec
     antenna_motion = az :  15.0 deg/min : 10 sec;  *    0.200 deg/sec/sec
     axis_offset =    0.00000 m;
enddef;
*------------------------------------------------------------------------------
$DAS;
*
def 2NONE<;
     record_transport_type = Mark5B;
     electronics_rack_type = none;
     number_drives = 2;
     headstack = 1 :            : 0 ;
     headstack = 2 :            : 1 ;
     tape_motion = adaptive : 0 min: 0 min: 10 sec;
enddef;
*
def 2MKIV+NONE<;
     record_transport_type = Mark5B;
     electronics_rack_type = Mark4;
     number_drives = 2;
     headstack = 1 :            : 0 ;
     headstack = 2 :            : 1 ;
     tape_motion = adaptive : 0 min: 0 min: 10 sec;
enddef;
*
def 2MKIV+NONE<Mark5A;
     record_transport_type = Mark5A;
     electronics_rack_type = Mark4;
     number_drives = 2;
     headstack = 1 :            : 0 ;
     headstack = 2 :            : 1 ;
     tape_motion = adaptive : 0 min: 0 min: 10 sec;
enddef;
*
def 1MKIV<Mark5A;
     record_transport_type = Mark5A;
     electronics_rack_type = Mark4;
     number_drives = 1;
     headstack = 1 :            : 0 ;
     headstack = 2 :            : 0 ;
     tape_motion = adaptive : 0 min: 0 min: 10 sec;
enddef;
*------------------------------------------------------------------------------
$SOURCE;
*
def 0642+449;
     source_name = 0642+449;
*    this source had calibrator code: V
*    alternate source name: J0646+4451
*    alternate source name: J0646+44
*    rfc_2012b Petrov, 2012, unpublished 125872 observations
     ra = 06h46m32.0259990s; dec =  44d51'16.590090"; ref_coord_frame = J2000;
*    ra = 06h42m53.0214517s; dec =  44d54'30.827345"; ref_coord_frame = B1950;
*    ra = 06h47m31.6146799s; dec =  44d50'22.966289"; ref_coord_frame = Date;
enddef;
*------------------------------------------------------------------------------
$FREQ;
*
def 1668.00MHz4x16MHz;
* mode =  1    stations =Wb:Jb:Ro
     sample_rate =  32.000 Ms/sec;  * (2bits/sample)
     chan_def = :  1668.00 MHz : L :  16.00 MHz : &CH01 : &BBC02 : &L_Cal; *Rcp
     chan_def = :  1668.00 MHz : L :  16.00 MHz : &CH02 : &BBC01 : &L_Cal; *Lcp
     chan_def = :  1668.00 MHz : U :  16.00 MHz : &CH03 : &BBC02 : &L_Cal; *Rcp
     chan_def = :  1668.00 MHz : U :  16.00 MHz : &CH04 : &BBC01 : &L_Cal; *Lcp
enddef;
*
def 1668.00MHz4x16MHz#02;
* mode =  1    stations =Ef
     sample_rate =  32.000 Ms/sec;  * (2bits/sample)
     chan_def = :  1668.00 MHz : L :  16.00 MHz : &CH01 : &BBC01 : &L_Cal; *Rcp
     chan_def = :  1668.00 MHz : L :  16.00 MHz : &CH02 : &BBC05 : &L_Cal; *Lcp
     chan_def = :  1668.00 MHz : U :  16.00 MHz : &CH03 : &BBC01 : &L_Cal; *Rcp
     chan_def = :  1668.00 MHz : U :  16.00 MHz : &CH04 : &BBC05 : &L_Cal; *Lcp
enddef;
*------------------------------------------------------------------------------
$IF;
*
def LO@1510MHzDPolTone/1;
* mode =  1    stations =Wb:Jb
     if_def = &IF_2N : 2N : R :  1510.0 MHz : U : 1 MHz ; *
     if_def = &IF_1N : 1N : L :  1510.0 MHz : U : 1 MHz ; *
enddef;
*
def LO@1380MHzDPolTone/1;
* mode =  1    stations =Ro
     if_def = &IF_2N : 2N : R :  1380.0 MHz : U : 1 MHz ; *
     if_def = &IF_1N : 1N : L :  1380.0 MHz : U : 1 MHz ; *
enddef;
*
def LO@1490MHzDPolTone/1;
* mode =  1    stations =Ef
     if_def = &IF_B : B : R :  1490.0 MHz : U : 1 MHz ; *
     if_def = &IF_D : D : L :  1490.0 MHz : U : 1 MHz ; *
enddef;
*------------------------------------------------------------------------------
$BBC;
*
def 4BBCs;
* mode =  1    stations =Wb:Jb:Ro
     BBC_assign = &BBC02 :  2 : &IF_2N;
     BBC_assign = &BBC01 :  1 : &IF_1N;
enddef;
*
def 4BBCs#02;
* mode =  1    stations =Ef
     BBC_assign = &BBC01 :  1 : &IF_B;
     BBC_assign = &BBC05 :  5 : &IF_D;
enddef;
*------------------------------------------------------------------------------
$PHASE_CAL_DETECT;
*
def DsbDetect;
* mode =  1    stations =Ef:Wb:Jb:Ro
     phase_cal_detect = &L_Cal :  2 : 16 :  0;
enddef;
*------------------------------------------------------------------------------
$TRACKS;
*
def MARK5B.4Ch2bit1to1;
* mode =  1    stations =Ef:Wb
*    format = MARK5B, and fan-out = 1
*    mode requires  32.00Mb/s/tr; stations using disks
     track_frame_format = MARK5B;
     fanout_def =   : &CH01 : sign : 1:  2;
     fanout_def =   : &CH01 :  mag : 1:  3;
     fanout_def =   : &CH02 : sign : 1:  4;
     fanout_def =   : &CH02 :  mag : 1:  5;
     fanout_def =   : &CH03 : sign : 1:  6;
     fanout_def =   : &CH03 :  mag : 1:  7;
     fanout_def =   : &CH04 : sign : 1:  8;
     fanout_def =   : &CH04 :  mag : 1:  9;
enddef;
*
def MKIV.4Ch2bit1to4;
* mode =  1    stations =Jb:Ro
*    format = MKIV1:4, and fan-out = 4
*    mode requires   8.00Mb/s/tr; stations using disks
     track_frame_format = Mark4;
     data_modulation = off;
     fanout_def =   : &CH01 : sign : 1:  2:  4:  6:  8;
     fanout_def =   : &CH01 :  mag : 1: 10: 12: 14: 16;
     fanout_def =   : &CH02 : sign : 1: 18: 20: 22: 24;
     fanout_def =   : &CH02 :  mag : 1: 26: 28: 30: 32;
     fanout_def =   : &CH03 : sign : 1:  3:  5:  7:  9;
     fanout_def =   : &CH03 :  mag : 1: 11: 13: 15: 17;
     fanout_def =   : &CH04 : sign : 1: 19: 21: 23: 25;
     fanout_def =   : &CH04 :  mag : 1: 27: 29: 31: 33;
enddef;
*------------------------------------------------------------------------------
$HEAD_POS;
def DiskVoid;
* mode =  1    stations =Ef:Wb:Jb:Ro
*     Head positions irrelevant for Disk: empty def
enddef;
*------------------------------------------------------------------------------
$PASS_ORDER;
*
def DiskVoid;
* mode =  1    stations =Ef:Wb:Jb:Ro
*     Pass orders irrelevant for Disk: empty def
enddef;
*------------------------------------------------------------------------------
$ROLL;
*
def NoRoll;
* mode =  1    stations =Ef:Wb:Jb:Ro
*    barrel-roll set to 'roll_off', so reverse-roll by  0 (1 head)
     roll = off;
enddef;
*------------------------------------------------------------------------------
$SCHED;
* schedule section for experiment gk047c  
* Radioastron-EVN-Ro: 0642+449                                            
scan No0001;
     start=2013y069d14h00m00s; mode=sess113.L256; source=0642+449;
*              :data_good:data_stop:goto_foot: pass:  wrap :driv:tape at
     station=Ef:    0 sec:  570 sec:    0.000 GB:   :       : 1;
     station=Wb:    0 sec:  570 sec:    0.000 GB:   :       : 1;
     station=Jb:    0 sec:  570 sec:    0.000 GB:   :       : 1;
     station=Ro:    0 sec:  570 sec:    0.000 GB:   :       : 1;
endscan;
scan No0002;
     start=2013y069d14h10m00s; mode=sess113.L256; source=0642+449;
     station=Ef:    0 sec:  570 sec:   18.386 GB:   :       : 1;
     station=Wb:    0 sec:  570 sec:   18.386 GB:   :       : 1;
     station=Jb:    0 sec:  570 sec:   18.386 GB:   :       : 1;
     station=Ro:    0 sec:  570 sec:   18.386 GB:   :       : 1;
endscan;
scan No0003;
     start=2013y069d14h20m00s; mode=sess113.L256; source=0642+449;
     station=Ef:    0 sec:  570 sec:   36.772 GB:   :       : 1;
     station=Wb:    0 sec:  570 sec:   36.772 GB:   :       : 1;
     station=Jb:    0 sec:  570 sec:   36.772 GB:   :       : 1;
     station=Ro:    0 sec:  570 sec:   36.772 GB:   :       : 1;
endscan;
scan No0004;
     start=2013y069d14h30m00s; mode=sess113.L256; source=0642+449;
     station=Ef:    0 sec:  570 sec:   55.158 GB:   :       : 1;
     station=Wb:    0 sec:  570 sec:   55.158 GB:   :       : 1;
     station=Jb:    0 sec:  570 sec:   55.158 GB:   :       : 1;
     station=Ro:    0 sec:  570 sec:   55.158 GB:   :       : 1;
endscan;
scan No0005;
     start=2013y069d14h40m00s; mode=sess113.L256; source=0642+449;
     station=Ef:    0 sec:  570 sec:   73.544 GB:   :       : 1;
     station=Wb:    0 sec:  570 sec:   73.544 GB:   :       : 1;
     station=Jb:    0 sec:  570 sec:   73.544 GB:   :       : 1;
     station=Ro:    0 sec:  570 sec:   73.544 GB:   :       : 1;
endscan;
scan No0006;
     start=2013y069d14h50m00s; mode=sess113.L256; source=0642+449;
     station=Ef:    0 sec:  600 sec:   91.930 GB:   :       : 1;
     station=Wb:    0 sec:  600 sec:   91.930 GB:   :       : 1;
     station=Jb:    0 sec:  600 sec:   91.930 GB:   :       : 1;
     station=Ro:    0 sec:  600 sec:   91.930 GB:   :       : 1;
endscan;