VEX_rev = 1.5;
*    SCHED vers: Version 11.3 update 1.  April 14, 2014
*    VEX/SCHED:  1.5.87
*    Other versions: Sched:  11.3  Plot: 1.06  JPL-ephem: 0.00
*------------------------------------------------------------------------------
$GLOBAL;
     ref $EXPER = FR023;
*                                                      +------------+
*                         PI revision number:          |    2.0000  |
*                                                      +------------+
*------------------------------------------------------------------------------
$EXPER;
*
def FR023;
     exper_name = FR023;
     exper_description = "Mh-Ys Q-band test";
     PI_name = campbell;
     PI_email = campbell@jive.nl;
*    address:   JIVE
*                
*                
*                
*    phone:     0521-596-534
*    during obs: 
*    fax:        
*
*    year, doy: 2015,  85
*    date     : Thu 26 Mar 2015
*    MJD      : 57107
     exper_nominal_start=2015y085d08h00m00s;
     exper_nominal_stop=2015y085d13h40m00s;
*
     target_correlator = JIVE;
*
*    integr_time    :     2.000 s
*    number_channels:    16
*    number_antenna : 11
*    cross_polarize : Yes
*    weight_func    : UNIFORM
*    distrib_medium : DAT
*    distrib_format : FITS
*    source_pos_cat : STANDARD
*    distribute_to  : 
*                     JIVE
*
enddef;
*------------------------------------------------------------------------------
$MODE;
*
def sess115.Q1024;
     ref $PROCEDURES = Mode_01;
     ref $FREQ = 43130.25MHz16x16MHz:Ys:Mh;
     ref $IF = LO@42500MHzDPolNoTone:Ys;
     ref $IF = LO@42400MHzDPolNoTone:Mh;
     ref $BBC = 16BBCs:Ys;
     ref $BBC = 16BBCs#02:Mh;
     ref $TRACKS = MARK5B.16Ch2bit1to1:Ys:Mh;
*    ref $HEAD_POS = DiskVoid <= obsolete definition
     ref $ROLL = NoRoll:Ys:Mh;
*    ref $PASS_ORDER = DiskVoid <= obsolete definition
     ref $PHASE_CAL_DETECT = NoDetect:Ys:Mh;
enddef;
*------------------------------------------------------------------------------
$STATION;
*
def Ys;
     ref $SITE = YEBES40M;
     ref $ANTENNA = YEBES40M;
     ref $DAS = 2DBBC+NONE<;
enddef;
*
def Mh;
     ref $SITE = METSAHOV;
     ref $ANTENNA = METSAHOV;
     ref $DAS = 2DBBC+NONE<;
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 YEBES40M;
     site_type = fixed;
     site_name = YEBES40M;
     site_ID = Ys;
*    elev=  988.92 long= 003:05:12. lat= 40:31:28.8
     site_position = 4848761.84250 m: -261484.27730 m: 4123084.95990 m;
     site_velocity = -0.009810   m/yr:  0.019120   m/yr:  0.010970  m/yr;
*    First line below is VEX standard format.  Use only when readers are ready.
*    site_position_epoch = 2008y001d;
     site_position_epoch =   54466;
enddef;
*
def METSAHOV;
     site_type = fixed;
     site_name = METSAHOV;
     site_ID = Mh;
*    elev=   79.96 long=-024:23:35. lat= 60:13:04.1
     site_position = 2892584.93130 m: 1311715.52690 m: 5512640.11210 m;
     site_velocity = -0.016890   m/yr:  0.013900   m/yr:  0.008230  m/yr;
*    First line below is VEX standard format.  Use only when readers are ready.
*    site_position_epoch = 2008y001d;
     site_position_epoch =   54466;
enddef;
*------------------------------------------------------------------------------
$ANTENNA;
*
def YEBES40M;
     axis_type = az : el;
     antenna_motion = el :  60.0 deg/min : 15 sec;  * 1000.000 deg/sec/sec
     antenna_motion = az :  60.0 deg/min : 15 sec;  * 1000.000 deg/sec/sec
     axis_offset =    2.00500 m;
enddef;
*
def METSAHOV;
     axis_type = az : el;
     antenna_motion = el :  60.0 deg/min :  2 sec;  *    0.250 deg/sec/sec
     antenna_motion = az :  60.0 deg/min :  2 sec;  *    0.250 deg/sec/sec
     axis_offset =   -0.00200 m;
enddef;
*------------------------------------------------------------------------------
$DAS;
*
def 2DBBC+NONE<;
     record_transport_type = Mark5B;
     electronics_rack_type = DBBC;
     number_drives = 2;
     headstack = 1 :            : 0 ;
     headstack = 2 :            : 1 ;
     tape_motion = adaptive : 0 min: 0 min: 10 sec;
enddef;
*------------------------------------------------------------------------------
$SOURCE;
*
def 0234+285;
     source_name = 0234+285;
*    this source had calibrator code: V
*    alternate source name: J0237+2848
*    alternate source name: J0237+28
*    rfc_2012b Petrov, 2012, unpublished 56811 observations
     ra = 02h37m52.4056780s; dec =  28d48'08.989980"; ref_coord_frame = J2000;
*    ra = 02h34m55.5895915s; dec =  28d35'11.407727"; ref_coord_frame = B1950;
*    ra = 02h38m45.6617742s; dec =  28d51'57.745101"; ref_coord_frame = Date;
enddef;
*
def 3C454.3;
     source_name = 3C454.3;
*    this source had calibrator code: V
*    alternate source name: J2253+1608
*    alternate source name: 2251+158
*    alternate source name: J2253+16
*    GSFC 2011B astro solution     39747 Observations
     ra = 22h53m57.7479370s; dec =  16d08'53.560930"; ref_coord_frame = J2000;
*    ra = 22h51m29.5197375s; dec =  15d52'54.348102"; ref_coord_frame = B1950;
*    ra = 22h54m42.0323470s; dec =  16d13'40.254401"; ref_coord_frame = Date;
enddef;
*------------------------------------------------------------------------------
$FREQ;
*
def 43130.25MHz16x16MHz;
* mode =  1    stations =Ys:Mh
     sample_rate =  32.000 Ms/sec;  * (2bits/sample)
     chan_def = : 43130.25 MHz : L :  16.00 MHz : &CH01 : &BBC01 : &NoCal; *Rcp
     chan_def = : 43130.25 MHz : L :  16.00 MHz : &CH02 : &BBC09 : &NoCal; *Lcp
     chan_def = : 43130.25 MHz : U :  16.00 MHz : &CH03 : &BBC01 : &NoCal; *Rcp
     chan_def = : 43130.25 MHz : U :  16.00 MHz : &CH04 : &BBC09 : &NoCal; *Lcp
     chan_def = : 43162.25 MHz : L :  16.00 MHz : &CH05 : &BBC02 : &NoCal; *Rcp
     chan_def = : 43162.25 MHz : L :  16.00 MHz : &CH06 : &BBC10 : &NoCal; *Lcp
     chan_def = : 43162.25 MHz : U :  16.00 MHz : &CH07 : &BBC02 : &NoCal; *Rcp
     chan_def = : 43162.25 MHz : U :  16.00 MHz : &CH08 : &BBC10 : &NoCal; *Lcp
     chan_def = : 43194.25 MHz : L :  16.00 MHz : &CH09 : &BBC03 : &NoCal; *Rcp
     chan_def = : 43194.25 MHz : L :  16.00 MHz : &CH10 : &BBC11 : &NoCal; *Lcp
     chan_def = : 43194.25 MHz : U :  16.00 MHz : &CH11 : &BBC03 : &NoCal; *Rcp
     chan_def = : 43194.25 MHz : U :  16.00 MHz : &CH12 : &BBC11 : &NoCal; *Lcp
     chan_def = : 43226.25 MHz : L :  16.00 MHz : &CH13 : &BBC04 : &NoCal; *Rcp
     chan_def = : 43226.25 MHz : L :  16.00 MHz : &CH14 : &BBC12 : &NoCal; *Lcp
     chan_def = : 43226.25 MHz : U :  16.00 MHz : &CH15 : &BBC04 : &NoCal; *Rcp
     chan_def = : 43226.25 MHz : U :  16.00 MHz : &CH16 : &BBC12 : &NoCal; *Lcp
enddef;
*------------------------------------------------------------------------------
$IF;
*
def LO@42500MHzDPolNoTone;
* mode =  1    stations =Ys
     if_def = &IF_A1 : A1 : R : 42500.00 MHz : U ; * PCall off!   0.0   0.0  NA     0 NA
     if_def = &IF_C1 : C1 : L : 42500.00 MHz : U ; * PCall off!   0.0   0.0  NA     0 NA
enddef;
*
def LO@42400MHzDPolNoTone;
* mode =  1    stations =Mh
     if_def = &IF_A1 : A1 : R : 42400.00 MHz : U ; * PCall off!   0.0   0.0  NA     0 NA
     if_def = &IF_B1 : B1 : L : 42400.00 MHz : U ; * PCall off!   0.0   0.0  NA     0 NA
enddef;
*------------------------------------------------------------------------------
$BBC;
*
def 16BBCs;
* mode =  1    stations =Ys
     BBC_assign = &BBC01 :  1 : &IF_A1;
     BBC_assign = &BBC09 :  9 : &IF_C1;
     BBC_assign = &BBC02 :  2 : &IF_A1;
     BBC_assign = &BBC10 : 10 : &IF_C1;
     BBC_assign = &BBC03 :  3 : &IF_A1;
     BBC_assign = &BBC11 : 11 : &IF_C1;
     BBC_assign = &BBC04 :  4 : &IF_A1;
     BBC_assign = &BBC12 : 12 : &IF_C1;
enddef;
*
def 16BBCs#02;
* mode =  1    stations =Mh
     BBC_assign = &BBC01 :  1 : &IF_A1;
     BBC_assign = &BBC09 :  9 : &IF_B1;
     BBC_assign = &BBC02 :  2 : &IF_A1;
     BBC_assign = &BBC10 : 10 : &IF_B1;
     BBC_assign = &BBC03 :  3 : &IF_A1;
     BBC_assign = &BBC11 : 11 : &IF_B1;
     BBC_assign = &BBC04 :  4 : &IF_A1;
     BBC_assign = &BBC12 : 12 : &IF_B1;
enddef;
*------------------------------------------------------------------------------
$PHASE_CAL_DETECT;
*
def NoDetect;
* mode =  1    stations =Ys:Mh
     phase_cal_detect = &NoCal;
enddef;
*------------------------------------------------------------------------------
$TRACKS;
*
def MARK5B.16Ch2bit1to1;
* mode =  1    stations =Ys:Mh
*    firmware_type = DBBC_DDC;
*    format = MARK5B, and fan-out = 1
*    mode requires  32.00Mb/s/tr; stations using disks
     track_frame_format = MARK5B;
     fanout_def =   : &CH01 : sign : 1: 18;
     fanout_def =   : &CH01 :  mag : 1: 19;
     fanout_def =   : &CH02 : sign : 1: 26;
     fanout_def =   : &CH02 :  mag : 1: 27;
     fanout_def =   : &CH03 : sign : 1:  2;
     fanout_def =   : &CH03 :  mag : 1:  3;
     fanout_def =   : &CH04 : sign : 1: 10;
     fanout_def =   : &CH04 :  mag : 1: 11;
     fanout_def =   : &CH05 : sign : 1: 20;
     fanout_def =   : &CH05 :  mag : 1: 21;
     fanout_def =   : &CH06 : sign : 1: 28;
     fanout_def =   : &CH06 :  mag : 1: 29;
     fanout_def =   : &CH07 : sign : 1:  4;
     fanout_def =   : &CH07 :  mag : 1:  5;
     fanout_def =   : &CH08 : sign : 1: 12;
     fanout_def =   : &CH08 :  mag : 1: 13;
     fanout_def =   : &CH09 : sign : 1: 22;
     fanout_def =   : &CH09 :  mag : 1: 23;
     fanout_def =   : &CH10 : sign : 1: 30;
     fanout_def =   : &CH10 :  mag : 1: 31;
     fanout_def =   : &CH11 : sign : 1:  6;
     fanout_def =   : &CH11 :  mag : 1:  7;
     fanout_def =   : &CH12 : sign : 1: 14;
     fanout_def =   : &CH12 :  mag : 1: 15;
     fanout_def =   : &CH13 : sign : 1: 24;
     fanout_def =   : &CH13 :  mag : 1: 25;
     fanout_def =   : &CH14 : sign : 1: 32;
     fanout_def =   : &CH14 :  mag : 1: 33;
     fanout_def =   : &CH15 : sign : 1:  8;
     fanout_def =   : &CH15 :  mag : 1:  9;
     fanout_def =   : &CH16 : sign : 1: 16;
     fanout_def =   : &CH16 :  mag : 1: 17;
enddef;
*------------------------------------------------------------------------------
$HEAD_POS;
def DiskVoid;
* mode =  1    stations =Ys:Mh
*     Head positions irrelevant for Disk: empty def
enddef;
*------------------------------------------------------------------------------
$PASS_ORDER;
*
def DiskVoid;
* mode =  1    stations =Ys:Mh
*     Pass orders irrelevant for Disk: empty def
enddef;
*------------------------------------------------------------------------------
$ROLL;
*
def NoRoll;
* mode =  1    stations =Ys:Mh
*    barrel-roll set to 'roll_off', so reverse-roll by  0 (1 head)
     roll = off;
enddef;
*------------------------------------------------------------------------------
$SCHED;
* schedule section for experiment FR023   
* Mh-Ys Q-band test                                                       
scan No0001;
     start=2015y085d08h00m00s; mode=sess115.Q1024; source=3C454.3;
* ftp scan
     data_transfer=Ys: disk2file: FR023_ys_No0001.m5a:  540 sec:  548 sec: ;
     data_transfer=Mh: disk2file: FR023_mh_No0001.m5a:  540 sec:  548 sec: ;
*              :data_good:data_stop:goto_foot: pass:  wrap :driv:tape at
     station=Ys:    0 sec:  600 sec:    0.000 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:    0.000 GB:   :       : 1;
endscan;
scan No0002;
     start=2015y085d08h30m00s; mode=sess115.Q1024; source=3C454.3;
     station=Ys:    0 sec:  600 sec:   76.923 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:   76.923 GB:   :       : 1;
endscan;
scan No0003;
     start=2015y085d09h00m00s; mode=sess115.Q1024; source=3C454.3;
* ftp scan
     data_transfer=Ys: disk2file: FR023_ys_No0003.m5a:  540 sec:  548 sec: ;
     data_transfer=Mh: disk2file: FR023_mh_No0003.m5a:  540 sec:  548 sec: ;
     station=Ys:    0 sec:  600 sec:  153.846 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:  153.846 GB:   :       : 1;
endscan;
scan No0004;
     start=2015y085d09h30m00s; mode=sess115.Q1024; source=3C454.3;
     station=Ys:    0 sec:  600 sec:  230.769 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:  230.769 GB:   :       : 1;
endscan;
scan No0005;
     start=2015y085d10h00m00s; mode=sess115.Q1024; source=3C454.3;
* ftp scan
     data_transfer=Ys: disk2file: FR023_ys_No0005.m5a:  540 sec:  548 sec: ;
     data_transfer=Mh: disk2file: FR023_mh_No0005.m5a:  540 sec:  548 sec: ;
     station=Ys:    0 sec:  600 sec:  307.692 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:  307.692 GB:   :       : 1;
endscan;
scan No0006;
     start=2015y085d10h30m00s; mode=sess115.Q1024; source=3C454.3;
     station=Ys:    0 sec:  600 sec:  384.614 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:  384.614 GB:   :       : 1;
endscan;
scan No0007;
     start=2015y085d11h00m00s; mode=sess115.Q1024; source=0234+285;
* ftp scan
     data_transfer=Ys: disk2file: FR023_ys_No0007.m5a:  540 sec:  548 sec: ;
     data_transfer=Mh: disk2file: FR023_mh_No0007.m5a:  540 sec:  548 sec: ;
     station=Ys:    0 sec:  600 sec:  461.537 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:  461.537 GB:   :       : 1;
endscan;
scan No0008;
     start=2015y085d11h30m00s; mode=sess115.Q1024; source=0234+285;
     station=Ys:    0 sec:  600 sec:  538.460 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:  538.460 GB:   :       : 1;
endscan;
scan No0009;
     start=2015y085d12h00m00s; mode=sess115.Q1024; source=0234+285;
* ftp scan
     data_transfer=Ys: disk2file: FR023_ys_No0009.m5a:  540 sec:  548 sec: ;
     data_transfer=Mh: disk2file: FR023_mh_No0009.m5a:  540 sec:  548 sec: ;
     station=Ys:    0 sec:  600 sec:  615.383 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:  615.383 GB:   :       : 1;
endscan;
scan No0010;
     start=2015y085d12h30m00s; mode=sess115.Q1024; source=0234+285;
     station=Ys:    0 sec:  600 sec:  692.306 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:  692.306 GB:   :       : 1;
endscan;
scan No0011;
     start=2015y085d13h00m00s; mode=sess115.Q1024; source=0234+285;
* ftp scan
     data_transfer=Ys: disk2file: FR023_ys_No0011.m5a:  540 sec:  548 sec: ;
     data_transfer=Mh: disk2file: FR023_mh_No0011.m5a:  540 sec:  548 sec: ;
     station=Ys:    0 sec:  600 sec:  769.229 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:  769.229 GB:   :       : 1;
endscan;
scan No0012;
     start=2015y085d13h30m00s; mode=sess115.Q1024; source=0234+285;
     station=Ys:    0 sec:  600 sec:  846.152 GB:   :       : 1;
     station=Mh:    0 sec:  600 sec:  846.152 GB:   :       : 1;
endscan;