VEX_rev = 1.5;
*    SCHED vers: Release Jan. 13, 2011.
*    VEX/SCHED:  1.5.87
*    Other versions: Sched:   9.4  Plot: 1.06  JPL-ephem: 1.01
*------------------------------------------------------------------------------
$GLOBAL;
     ref $EXPER = FR009B;
*                                                      +------------+
*                         PI revision number:          |    1.0000  |
*                                                      +------------+
*------------------------------------------------------------------------------
$EXPER;
*
def FR009B;
     exper_name = FR009B;
     exper_description = "Irbene-Effelsberg FTP Fringe-Test";
     PI_name = "Jun Yang";
     PI_email = yang@jive.nl;
*    address:   JIVE
*               Postbus 2
*               7990 AA Dwingeloo
*               The Netherlands
*    phone:     +31-521-596507
*    during obs:+31-521-596507
*    fax:        
*
*    year, doy: 2011, 278
*    date     : Wed  5 Oct 2011
*    MJD      : 55839
     exper_nominal_start=2011y278d12h00m00s;
     exper_nominal_stop=2011y278d13h00m00s;
*
     target_correlator = JIVE;
*
*    integr_time    :     2.000 s
*    number_channels:    16
*    number_antenna : 11
*    cross_polarize : Yes
*    weight_func    : UNIFORM
*    distrib_medium : DAT
*    source_pos_cat : STANDARD
*    distribute_to  : 
*                     JIVE
*
enddef;
*------------------------------------------------------------------------------
$MODE;
*
def irb.C512;
     ref $PROCEDURES = Mode_01;
     ref $FREQ = 4966.49MHz16x8MHz#02:Ef:Ir;
     ref $FREQ = 4966.49MHz16x8MHz:Tr;
     ref $IF = LO@4240MHzDPolTone/1:Ef;
     ref $IF = LO@4200MHzDPolTone/1:Tr;
     ref $IF = LO@4600MHzDPolTone/1:Ir;
     ref $BBC = 16BBCs#02:Ef;
     ref $BBC = 16BBCs:Tr;
     ref $BBC = 16BBCs#03:Ir;
     ref $TRACKS = MKIV.16Ch2bit1to2:Ef:Tr:Ir;
*    ref $HEAD_POS = DiskVoid <= obsolete definition
     ref $ROLL = NoRoll:Ef:Tr:Ir;
*    ref $PASS_ORDER = DiskVoid <= obsolete definition
     ref $PHASE_CAL_DETECT = DsbDetect:Ef:Tr:Ir;
enddef;
*------------------------------------------------------------------------------
$STATION;
*
def Ef;
     ref $SITE = EFLSBERG;
     ref $ANTENNA = EFLSBERG;
     ref $DAS = 2NONE<;
enddef;
*
def Tr;
     ref $SITE = TORUN;
     ref $ANTENNA = TORUN;
     ref $DAS = 2VLBA4+NONE<Mark5A;
enddef;
*
def Ir;
     ref $SITE = IRBENE;
     ref $ANTENNA = IRBENE;
     ref $DAS = 2NONE<;
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.69 long=-006:53:01. lat= 50:31:29.4
     site_position = 4033947.42420 m:  486990.56010 m: 4900430.83860 m;
     site_velocity = -0.013390   m/yr:  0.017090   m/yr:  0.011220  m/yr;
*    First line below is VEX standard format.  Use only when readers are ready.
*    site_position_epoch = 2000y001d;
     site_position_epoch =   51544;
     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 TORUN;
     site_type = fixed;
     site_name = TORUN;
     site_ID = Tr;
*    elev=  133.61 long=-018:33:50. lat= 53:05:43.7
     site_position = 3638558.51000 m: 1221969.72000 m: 5077036.76000 m;
     site_velocity = -0.016010   m/yr:  0.016450   m/yr:  0.007520  m/yr;
*    First line below is VEX standard format.  Use only when readers are ready.
*    site_position_epoch = 1997y001d;
     site_position_epoch =   50449;
     horizon_map_az =  0.0 deg:360.0;
     horizon_map_el =  2.0 deg:  2.0;
enddef;
*
def IRBENE;
     site_type = fixed;
     site_name = IRBENE;
     site_ID = Ir;
*    elev=   87.30 long=-021:51:17. lat= 57:33:12.3
     site_position = 3183661.00000 m: 1276902.00000 m: 5359291.00000 m;
     site_velocity =  0.000000   m/yr:  0.000000   m/yr:  0.000000  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.01320 m;
enddef;
*
def TORUN;
     axis_type = az : el;
     antenna_motion = el :  16.0 deg/min :  5 sec;  *    0.030 deg/sec/sec
     antenna_motion = az :  30.0 deg/min :  5 sec;  *    0.050 deg/sec/sec
     axis_offset =    0.00000 m;
enddef;
*
def IRBENE;
     axis_type = az : el;
     antenna_motion = el :  13.0 deg/min :  2 sec;  * 1000.000 deg/sec/sec
     antenna_motion = az :  12.0 deg/min :  2 sec;  * 1000.000 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 2VLBA4+NONE<Mark5A;
     record_transport_type = Mark5A;
     electronics_rack_type = VLBA4;
     number_drives = 2;
     headstack = 1 :            : 0 ;
     headstack = 2 :            : 1 ;
     tape_motion = adaptive : 0 min: 0 min: 10 sec;
enddef;
*------------------------------------------------------------------------------
$SOURCE;
*
def 3C345;
     source_name = 3C345;
*    this source had calibrator code: V
*    alternate source name: J1642+3948
*    alternate source name: 1641+399
*    alternate source name: J1642+39
*    GSFC 2010a astro solution     52595 Observations
     ra = 16h42m58.8099650s; dec =  39d48'36.994000"; ref_coord_frame = J2000;
*    ra = 16h41m17.6062276s; dec =  39d54'10.814939"; ref_coord_frame = B1950;
*    ra = 16h43m22.3513538s; dec =  39d47'34.863369"; ref_coord_frame = Date;
enddef;
*------------------------------------------------------------------------------
$FREQ;
*
def 4966.49MHz16x8MHz;
* mode =  1    stations =Tr
     sample_rate =  16.000 Ms/sec;  * (2bits/sample)
     chan_def = :  4966.49 MHz : L :   8.00 MHz : &CH01 : &BBC01 : &L_Cal; *Rcp
     chan_def = :  4966.49 MHz : L :   8.00 MHz : &CH02 : &BBC02 : &L_Cal; *Lcp
     chan_def = :  4966.49 MHz : U :   8.00 MHz : &CH03 : &BBC01 : &L_Cal; *Rcp
     chan_def = :  4966.49 MHz : U :   8.00 MHz : &CH04 : &BBC02 : &L_Cal; *Lcp
     chan_def = :  4982.49 MHz : L :   8.00 MHz : &CH05 : &BBC03 : &L_Cal; *Rcp
     chan_def = :  4982.49 MHz : L :   8.00 MHz : &CH06 : &BBC04 : &L_Cal; *Lcp
     chan_def = :  4982.49 MHz : U :   8.00 MHz : &CH07 : &BBC03 : &L_Cal; *Rcp
     chan_def = :  4982.49 MHz : U :   8.00 MHz : &CH08 : &BBC04 : &L_Cal; *Lcp
     chan_def = :  4998.49 MHz : L :   8.00 MHz : &CH09 : &BBC05 : &L_Cal; *Rcp
     chan_def = :  4998.49 MHz : L :   8.00 MHz : &CH10 : &BBC06 : &L_Cal; *Lcp
     chan_def = :  4998.49 MHz : U :   8.00 MHz : &CH11 : &BBC05 : &L_Cal; *Rcp
     chan_def = :  4998.49 MHz : U :   8.00 MHz : &CH12 : &BBC06 : &L_Cal; *Lcp
     chan_def = :  5014.49 MHz : L :   8.00 MHz : &CH13 : &BBC07 : &L_Cal; *Rcp
     chan_def = :  5014.49 MHz : L :   8.00 MHz : &CH14 : &BBC08 : &L_Cal; *Lcp
     chan_def = :  5014.49 MHz : U :   8.00 MHz : &CH15 : &BBC07 : &L_Cal; *Rcp
     chan_def = :  5014.49 MHz : U :   8.00 MHz : &CH16 : &BBC08 : &L_Cal; *Lcp
enddef;
*
def 4966.49MHz16x8MHz#02;
* mode =  1    stations =Ef:Ir
     sample_rate =  16.000 Ms/sec;  * (2bits/sample)
     chan_def = :  4966.49 MHz : L :   8.00 MHz : &CH01 : &BBC01 : &L_Cal; *Rcp
     chan_def = :  4966.49 MHz : L :   8.00 MHz : &CH02 : &BBC05 : &L_Cal; *Lcp
     chan_def = :  4966.49 MHz : U :   8.00 MHz : &CH03 : &BBC01 : &L_Cal; *Rcp
     chan_def = :  4966.49 MHz : U :   8.00 MHz : &CH04 : &BBC05 : &L_Cal; *Lcp
     chan_def = :  4982.49 MHz : L :   8.00 MHz : &CH05 : &BBC02 : &L_Cal; *Rcp
     chan_def = :  4982.49 MHz : L :   8.00 MHz : &CH06 : &BBC06 : &L_Cal; *Lcp
     chan_def = :  4982.49 MHz : U :   8.00 MHz : &CH07 : &BBC02 : &L_Cal; *Rcp
     chan_def = :  4982.49 MHz : U :   8.00 MHz : &CH08 : &BBC06 : &L_Cal; *Lcp
     chan_def = :  4998.49 MHz : L :   8.00 MHz : &CH09 : &BBC03 : &L_Cal; *Rcp
     chan_def = :  4998.49 MHz : L :   8.00 MHz : &CH10 : &BBC07 : &L_Cal; *Lcp
     chan_def = :  4998.49 MHz : U :   8.00 MHz : &CH11 : &BBC03 : &L_Cal; *Rcp
     chan_def = :  4998.49 MHz : U :   8.00 MHz : &CH12 : &BBC07 : &L_Cal; *Lcp
     chan_def = :  5014.49 MHz : L :   8.00 MHz : &CH13 : &BBC04 : &L_Cal; *Rcp
     chan_def = :  5014.49 MHz : L :   8.00 MHz : &CH14 : &BBC08 : &L_Cal; *Lcp
     chan_def = :  5014.49 MHz : U :   8.00 MHz : &CH15 : &BBC04 : &L_Cal; *Rcp
     chan_def = :  5014.49 MHz : U :   8.00 MHz : &CH16 : &BBC08 : &L_Cal; *Lcp
enddef;
*------------------------------------------------------------------------------
$IF;
*
def LO@4200MHzDPolTone/1;
* mode =  1    stations =Tr
     if_def = &IF_C : C : R :  4200.0 MHz : U : 1 MHz ;
     if_def = &IF_A : A : L :  4200.0 MHz : U : 1 MHz ;
enddef;
*
def LO@4240MHzDPolTone/1;
* mode =  1    stations =Ef
     if_def = &IF_A : A : R :  4240.0 MHz : U : 1 MHz ;
     if_def = &IF_C : C : L :  4240.0 MHz : U : 1 MHz ;
enddef;
*
def LO@4600MHzDPolTone/1;
* mode =  1    stations =Ir
     if_def = &IF_B : B : R :  4600.0 MHz : U : 1 MHz ;
     if_def = &IF_D : D : L :  4600.0 MHz : U : 1 MHz ;
enddef;
*------------------------------------------------------------------------------
$BBC;
*
def 16BBCs;
* mode =  1    stations =Tr
     BBC_assign = &BBC01 :  1 : &IF_C;
     BBC_assign = &BBC02 :  2 : &IF_A;
     BBC_assign = &BBC03 :  3 : &IF_C;
     BBC_assign = &BBC04 :  4 : &IF_A;
     BBC_assign = &BBC05 :  5 : &IF_C;
     BBC_assign = &BBC06 :  6 : &IF_A;
     BBC_assign = &BBC07 :  7 : &IF_C;
     BBC_assign = &BBC08 :  8 : &IF_A;
enddef;
*
def 16BBCs#02;
* mode =  1    stations =Ef
     BBC_assign = &BBC01 :  1 : &IF_A;
     BBC_assign = &BBC05 :  5 : &IF_C;
     BBC_assign = &BBC02 :  2 : &IF_A;
     BBC_assign = &BBC06 :  6 : &IF_C;
     BBC_assign = &BBC03 :  3 : &IF_A;
     BBC_assign = &BBC07 :  7 : &IF_C;
     BBC_assign = &BBC04 :  4 : &IF_A;
     BBC_assign = &BBC08 :  8 : &IF_C;
enddef;
*
def 16BBCs#03;
* mode =  1    stations =Ir
     BBC_assign = &BBC01 :  1 : &IF_B;
     BBC_assign = &BBC05 :  5 : &IF_D;
     BBC_assign = &BBC02 :  2 : &IF_B;
     BBC_assign = &BBC06 :  6 : &IF_D;
     BBC_assign = &BBC03 :  3 : &IF_B;
     BBC_assign = &BBC07 :  7 : &IF_D;
     BBC_assign = &BBC04 :  4 : &IF_B;
     BBC_assign = &BBC08 :  8 : &IF_D;
enddef;
*------------------------------------------------------------------------------
$PHASE_CAL_DETECT;
*
def DsbDetect;
* mode =  1    stations =Ef:Tr:Ir
     phase_cal_detect = &L_Cal : 1;
enddef;
*------------------------------------------------------------------------------
$TRACKS;
*
def MKIV.16Ch2bit1to2;
* mode =  1    stations =Ef:Tr:Ir
*    format = MKIV1:2, and fan-out = 2
*    mode requires   8.00Mb/s/tr; stations using disks
     track_frame_format = Mark4;
     data_modulation = off;
     fanout_def =   : &CH01 : sign : 1:  2:  4;
     fanout_def =   : &CH01 :  mag : 1:  6:  8;
     fanout_def =   : &CH02 : sign : 1: 10: 12;
     fanout_def =   : &CH02 :  mag : 1: 14: 16;
     fanout_def =   : &CH03 : sign : 1: 18: 20;
     fanout_def =   : &CH03 :  mag : 1: 22: 24;
     fanout_def =   : &CH04 : sign : 1: 26: 28;
     fanout_def =   : &CH04 :  mag : 1: 30: 32;
     fanout_def =   : &CH05 : sign : 1:  3:  5;
     fanout_def =   : &CH05 :  mag : 1:  7:  9;
     fanout_def =   : &CH06 : sign : 1: 11: 13;
     fanout_def =   : &CH06 :  mag : 1: 15: 17;
     fanout_def =   : &CH07 : sign : 1: 19: 21;
     fanout_def =   : &CH07 :  mag : 1: 23: 25;
     fanout_def =   : &CH08 : sign : 1: 27: 29;
     fanout_def =   : &CH08 :  mag : 1: 31: 33;
     fanout_def =   : &CH09 : sign : 2:  2:  4;
     fanout_def =   : &CH09 :  mag : 2:  6:  8;
     fanout_def =   : &CH10 : sign : 2: 10: 12;
     fanout_def =   : &CH10 :  mag : 2: 14: 16;
     fanout_def =   : &CH11 : sign : 2: 18: 20;
     fanout_def =   : &CH11 :  mag : 2: 22: 24;
     fanout_def =   : &CH12 : sign : 2: 26: 28;
     fanout_def =   : &CH12 :  mag : 2: 30: 32;
     fanout_def =   : &CH13 : sign : 2:  3:  5;
     fanout_def =   : &CH13 :  mag : 2:  7:  9;
     fanout_def =   : &CH14 : sign : 2: 11: 13;
     fanout_def =   : &CH14 :  mag : 2: 15: 17;
     fanout_def =   : &CH15 : sign : 2: 19: 21;
     fanout_def =   : &CH15 :  mag : 2: 23: 25;
     fanout_def =   : &CH16 : sign : 2: 27: 29;
     fanout_def =   : &CH16 :  mag : 2: 31: 33;
enddef;
*------------------------------------------------------------------------------
$HEAD_POS;
def DiskVoid;
* mode =  1    stations =Ef:Tr:Ir
*     Head positions irrelevant for Disk: empty def
enddef;
*------------------------------------------------------------------------------
$PASS_ORDER;
*
def DiskVoid;
* mode =  1    stations =Ef:Tr:Ir
*     Pass orders irrelevant for Disk: empty def
enddef;
*------------------------------------------------------------------------------
$ROLL;
*
def NoRoll;
* mode =  1    stations =Ef:Tr:Ir
*    barrel-roll set to 'roll_off', so reverse-roll by  0 (2 head)
     roll = off;
enddef;
*------------------------------------------------------------------------------
$SCHED;
* schedule section for experiment FR009B  
* Irbene-Effelsberg FTP Fringe-Test                                       
scan No0001;
     start=2011y278d12h00m00s; mode=irb.C512; source=3C345;
* ftp scan
     data_transfer=Ef: disk2file: FR009B_ef_No0001.m5a:  536 sec:  540 sec: ;
     data_transfer=Tr: disk2file: FR009B_tr_No0001.m5a:  536 sec:  540 sec: ;
     data_transfer=Ir: disk2file: FR009B_ir_No0001.m5a:  536 sec:  540 sec: ;
*              :data_good:data_stop:goto_foot: pass:  wrap :driv:tape at
     station=Ef:    0 sec:  600 sec:    0.000 GB:   :       : 1;
     station=Tr:    0 sec:  600 sec:    0.000 GB:   :       : 1;
     station=Ir:    0 sec:  600 sec:    0.000 GB:   :       : 1;
endscan;
scan No0002;
     start=2011y278d12h14m00s; mode=irb.C512; source=3C345;
     station=Ef:    0 sec:  360 sec:   38.707 GB:   :       : 1;
     station=Tr:    0 sec:  360 sec:   38.707 GB:   :       : 1;
     station=Ir:    0 sec:  360 sec:   38.707 GB:   :       : 1;
endscan;
scan No0003;
     start=2011y278d12h21m00s; mode=irb.C512; source=3C345;
     station=Ef:    0 sec:  540 sec:   61.932 GB:   :       : 1;
     station=Tr:    0 sec:  540 sec:   61.932 GB:   :       : 1;
     station=Ir:    0 sec:  540 sec:   61.932 GB:   :       : 1;
endscan;
scan No0004;
     start=2011y278d12h31m00s; mode=irb.C512; source=3C345;
* ftp scan
     data_transfer=Ef: disk2file: FR009B_ef_No0004.m5a:  476 sec:  480 sec: ;
     data_transfer=Tr: disk2file: FR009B_tr_No0004.m5a:  476 sec:  480 sec: ;
     data_transfer=Ir: disk2file: FR009B_ir_No0004.m5a:  476 sec:  480 sec: ;
     station=Ef:    0 sec:  540 sec:   96.768 GB:   :       : 1;
     station=Tr:    0 sec:  540 sec:   96.768 GB:   :       : 1;
     station=Ir:    0 sec:  540 sec:   96.768 GB:   :       : 1;
endscan;
scan No0005;
     start=2011y278d12h44m00s; mode=irb.C512; source=3C345;
     station=Ef:    0 sec:  360 sec:  131.604 GB:   :       : 1;
     station=Tr:    0 sec:  360 sec:  131.604 GB:   :       : 1;
     station=Ir:    0 sec:  360 sec:  131.604 GB:   :       : 1;
endscan;
scan No0006;
     start=2011y278d12h51m00s; mode=irb.C512; source=3C345;
* ftp scan
     data_transfer=Ef: disk2file: FR009B_ef_No0006.m5a:  476 sec:  480 sec: ;
     data_transfer=Tr: disk2file: FR009B_tr_No0006.m5a:  476 sec:  480 sec: ;
     data_transfer=Ir: disk2file: FR009B_ir_No0006.m5a:  476 sec:  480 sec: ;
     station=Ef:    0 sec:  540 sec:  154.829 GB:   :       : 1;
     station=Tr:    0 sec:  540 sec:  154.829 GB:   :       : 1;
     station=Ir:    0 sec:  540 sec:  154.829 GB:   :       : 1;
endscan;