VEX_rev = 1.5;
*------------------------------------------------------------------------------
*  This is an example of KaVA+Yebes simultaneous K/Q VLBI experiment schedule
*
*    fringe finder  : 0716+713
*    integr_time    : 0.8s
*    num_channels_per_IF : 256
*    cross_polarize : No      (Yes or No)
*    distrib_medium : NONE    (default (s)ftp, DVD, harddisk)
*    distrib_format : FITS    (FITS or CODA-FS)
*    observing_mode : multi-frequency (imageing, multi-freqeuncy, sub-array)
*    special_request : K/Q band correlation
*
*------------------------------------------------------------------------------
*    SCHED vers: Development version 11.5. Started Apr. 2
*    VEX/SCHED:  1.5.87
*    Other versions: Sched:  11.5  Plot: 1.06  JPL-ephem: 1.01
*------------------------------------------------------------------------------
$GLOBAL;
     ref $EXPER = simkq;
*                                                      +------------+
*                         PI revision number:          |    1.0000  |
*                                                      +------------+
*    mode:       KVN
*------------------------------------------------------------------------------
$EXPER;
*
def simkq;
     exper_name = simkq;
     exper_description = "Example of Simultaneous K/Q Observing Mode for KaVA+Yebes";
     PI_name = "Taehyun Jung";
     PI_email = thjung@kasi.re.kr;
*    address:   Korean VLBI Network
*               Daejoen Daedoekdae-ro 778
*               Korea Astronomy and Space Science Institute
*                
*    phone:     +82 42 865 2180
*    during obs:+82 10 3425 5525
*    fax:       +82 42 865 3337
*
*    year, doy: 2020, 357
*    date     : Tue 22 Dec 2020
*    MJD      : 59205
     exper_nominal_start=2020y357d00h00m00s;
     exper_nominal_stop=2020y357d03h00m00s;
*
     target_correlator = OTHER;
*
*    integr_time    :     2.000 s
*    number_channels:   256
*    number_antenna :  3
*    cross_polarize : No
*    weight_func    : UNIFORM
*    distrib_medium : NONE
*    distrib_format : FITS
*    source_pos_cat : STANDARD
*    distribute_to  : 
*                     Taehyun Jung
*
enddef;
*------------------------------------------------------------------------------
$MODE;
*
def VERA4D;
     ref $PROCEDURES = PROC2:Vm:Vr:Vo:Vs;
     ref $FREQ = FREQ1:Vm:Vr:Vo:Vs;
     ref $IF = IF_KQ:Vm:Vr:Vo:Vs;
     ref $BBC = BBC1:Vm:Vr:Vo:Vs;
     ref $PROCEDURES = PROC2/KVN:Ky:Ku:Kt:Yb;
     ref $FREQ = FREQ1:Ky:Ku:Kt:Yb;
     ref $IF = IF_KQ/KVN:Ky:Ku:Kt:Yb;
     ref $BBC = BBC1:Ky:Ku:Kt:Yb;
     ref $DAS = START/STOP:Ky:Ku:Kt:Yb;
     ref $TRACKS = MARK5B.16Ch2bit1to1:Ky:Ku:Kt:Yb;
     ref $ROLL = NoRoll:Ky:Ku:Kt:Yb;
     ref $PHASE_CAL_DETECT = NoDetect:Ky:Ku:Kt:Yb;
enddef;
*
def VERA4D_T;
     ref $PROCEDURES = PROC1:Vm:Vr:Vo:Vs;
     ref $FREQ = FREQ1:Vm:Vr:Vo:Vs;
     ref $IF = IF_KQ:Vm:Vr:Vo:Vs;
     ref $BBC = BBC1:Vm:Vr:Vo:Vs;
     ref $PROCEDURES = PROC1/KVN:Ky:Ku:Kt:Yb;
     ref $FREQ = FREQ1:Ky:Ku:Kt:Yb;
     ref $IF = IF_KQ/KVN:Ky:Ku:Kt:Yb;
     ref $BBC = BBC1:Ky:Ku:Kt:Yb;
     ref $DAS = START/STOP:Ky:Ku:Kt:Yb;
     ref $TRACKS = MARK5B.16Ch2bit1to1:Ky:Ku:Kt:Yb;
     ref $ROLL = NoRoll:Ky:Ku:Kt:Yb;
     ref $PHASE_CAL_DETECT = NoDetect:Ky:Ku:Kt:Yb;
enddef;
*
def VERA4D_C;
     ref $PROCEDURES = PROC3:Vm:Vr:Vo:Vs;
     ref $FREQ = FREQ1:Vm:Vr:Vo:Vs;
     ref $IF = IF_KQ:Vm:Vr:Vo:Vs;
     ref $BBC = BBC1:Vm:Vr:Vo:Vs;
     ref $PROCEDURES = PROC3/KVN:Ky:Ku:Kt:Yb;
     ref $FREQ = FREQ1:Ky:Ku:Kt:Yb;
     ref $IF = IF_KQ/KVN:Ky:Ku:Kt:Yb;
     ref $BBC = BBC1:Ky:Ku:Kt:Yb;
     ref $DAS = START/STOP:Ky:Ku:Kt:Yb;
     ref $TRACKS = MARK5B.16Ch2bit1to1:Ky:Ku:Kt:Yb;
     ref $ROLL = NoRoll:Ky:Ku:Kt:Yb;
     ref $PHASE_CAL_DETECT = NoDetect:Ky:Ku:Kt:Yb;
enddef;
*
def VERA4D_F;
     ref $PROCEDURES = PROC4:Vm:Vr:Vo:Vs;
     ref $FREQ = FREQ1:Vm:Vr:Vo:Vs;
     ref $IF = IF_KQ:Vm:Vr:Vo:Vs;
     ref $BBC = BBC1:Vm:Vr:Vo:Vs;
     ref $PROCEDURES = PROC4/KVN:Ky:Ku:Kt:Yb;
     ref $FREQ = FREQ1:Ky:Ku:Kt:Yb;
     ref $IF = IF_KQ/KVN:Ky:Ku:Kt:Yb;
     ref $BBC = BBC1:Ky:Ku:Kt:Yb;
     ref $DAS = START/STOP:Ky:Ku:Kt:Yb;
     ref $TRACKS = MARK5B.16Ch2bit1to1:Ky:Ku:Kt:Yb;
     ref $ROLL = NoRoll:Ky:Ku:Kt:Yb;
     ref $PHASE_CAL_DETECT = NoDetect:Ky:Ku:Kt:Yb;
enddef;
*
def VERA4D_L;
     ref $PROCEDURES = PROC5:Vm:Vr:Vo:Vs;
     ref $FREQ = FREQ1:Vm:Vr:Vo:Vs;
     ref $IF = IF_KQ:Vm:Vr:Vo:Vs;
     ref $BBC = BBC1:Vm:Vr:Vo:Vs;
     ref $PROCEDURES = PROC5/KVN:Ky:Ku:Kt:Yb;
     ref $FREQ = FREQ1:Ky:Ku:Kt:Yb;
     ref $IF = IF_KQ/KVN:Ky:Ku:Kt:Yb;
     ref $BBC = BBC1:Ky:Ku:Kt:Yb;
     ref $DAS = START/STOP:Ky:Ku:Kt:Yb;
     ref $TRACKS = MARK5B.16Ch2bit1to1:Ky:Ku:Kt:Yb;
     ref $ROLL = NoRoll:Ky:Ku:Kt:Yb;
     ref $PHASE_CAL_DETECT = NoDetect:Ky:Ku:Kt:Yb;
enddef;
*
*------------------------------------------------------------------------------
$STATION;
*
def Ky;
     ref $SITE = KVNYS;
     ref $ANTENNA = KVNYS;
     ref $DAS = 2NONE+MARK5B<;
enddef;
*
def Ku;
     ref $SITE = KVNUS;
     ref $ANTENNA = KVNUS;
     ref $DAS = 2NONE+MARK5B<;
enddef;
*
def Kt;
     ref $SITE = KVNTN;
     ref $ANTENNA = KVNTN;
     ref $DAS = 2NONE+MARK5B<;
enddef;
*
def Vs;
     ref $SITE = VERAISGK;
     ref $ANTENNA = VERAISGK;
     ref $DAS = VERA_DIR2K;
enddef;
*
def Vm;
     ref $SITE = VERAMZSW;
     ref $ANTENNA = VERAMZSW;
     ref $DAS = VERA_DIR2K;
enddef;
*
def Vo;
     ref $SITE = VERAOGSW;
     ref $ANTENNA = VERAOGSW;
     ref $DAS = VERA_DIR2K;
enddef;
*
def Vr;
     ref $SITE = VERAIRIK;
     ref $ANTENNA = VERAIRIK;
     ref $DAS = VERA_DIR2K;
enddef;
*
*------------------------------------------------------------------------------
$PROCEDURES;
*
def STD_1BEAM;
* add for VERA
     tape_change =  120 sec;
     beam1 = on;
     beam2 = off;
enddef;
*
def PROC1;
     preob_cal = on : 10 sec : R_SKY;
enddef;
*
def PROC2;
enddef;
*
def PROC3;
     preob_cal = on : 30 sec : R_SKY;
enddef;
*
def PROC4;
     preob_cal = on : 30 sec : R_SKY;
     preob_cal = on : 10 sec : SECZ : 840 sec;
enddef;
*
def PROC5;
     preob_cal  = on : 30 sec : R_SKY;
     postob_cal = on : 30 sec : R_SKY;
     postob_cal = on : 10 sec : SECZ : 60 sec;
enddef;
*
*
def PROC1/KVN;
     preob_cal = on : 30 sec : R_SKY;
enddef;
*
def PROC2/KVN;
enddef;
*
def PROC3/KVN;
     preob_cal = on : 120 sec : CROSS;
     preob_cal = on : 30 sec : R_SKY;
enddef;
*
def PROC4/KVN;
     preob_cal = on : 30 sec : CROSS;
     preob_cal = on : 10 sec : SECZ : 60 sec ;
enddef;
*
def PROC5/KVN;
     preob_cal = on : 30 sec : CROSS;
     preob_cal = on : 30 sec : R_SKY;
     postob_cal = on : 10 sec : SECZ : 60 sec ;
enddef;
*
*------------------------------------------------------------------------------
$SITE;
*
def KVNYS;
     site_type = fixed;
     site_name = KVNYS;
     site_ID = Ky;
*    elev=  121.65 long=-126:56:27. lat= 37:33:54.6
     site_position =-3042280.90350 m: 4045902.65640 m: 3867374.30870 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 = 2011y270d;
     site_position_epoch =   55831;
     horizon_map_az =  0.0 deg: 20.0: 40.0: 60.0: 80.0:100.0:120.0:140.0:160.0:
                               180.0:200.0:220.0:240.0:260.0:280.0:300.0:320.0:
                               340.0:360.0;
     horizon_map_el = 10.0 deg: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0:
                                10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0:
                                10.0: 10.0;
enddef;
*
def KVNUS;
     site_type = fixed;
     site_name = KVNUS;
     site_ID = Ku;
*    elev=  161.33 long=-129:14:59. lat= 35:32:44.2
     site_position =-3287268.54300 m: 4023450.14480 m: 3687379.96750 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 = 2009y253d;
     site_position_epoch =   55084;
     horizon_map_az =  0.0 deg: 20.0: 40.0: 60.0: 80.0:100.0:120.0:140.0:160.0:
                               180.0:200.0:220.0:240.0:260.0:280.0:300.0:320.0:
                               340.0:360.0;
     horizon_map_el = 10.0 deg: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0:
                                10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0:
                                10.0: 10.0;
enddef;
*
def KVNTN;
     site_type = fixed;
     site_name = KVNTN;
     site_ID = Kt;
*    elev=  441.36 long=-126:27:34. lat= 33:17:20.4
     site_position =-3171731.55320 m: 4292678.52580 m: 3481038.76790 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 = 2009y225d;
     site_position_epoch =   55056;
     horizon_map_az =  0.0 deg: 20.0: 40.0: 60.0: 80.0:100.0:120.0:140.0:160.0:
                               180.0:200.0:220.0:240.0:260.0:280.0:300.0:320.0:
                               340.0:360.0;
     horizon_map_el = 10.0 deg: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0:
                                10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0: 10.0:
                                10.0: 10.0;
enddef;
*
def VERAISGK;
     site_type = fixed;
     site_name = VERAISGK;
     site_ID = Vs;
*    elev=   65.13 long=-124:10:15. lat= 24:24:43.8
     site_position =-3263994.88210 m: 4808056.36080 m: 2619949.13560 m;
     site_velocity = -0.043980   m/yr:  0.003960   m/yr: -0.046310  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 VERAMZSW;
     site_type = fixed;
     site_name = VERAMZSW;
     site_ID = Vm;
*    elev=  116.53 long=-141:07:57. lat= 39:08:00.7
     site_position =-3857241.82270 m: 3108784.90370 m: 4003900.55910 m;
     site_velocity =  0.017390   m/yr:  0.016510   m/yr: -0.011530  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 VERAOGSW;
     site_type = fixed;
     site_name = VERAOGSW;
     site_ID = Vo;
*    elev=  273.15 long=-142:12:59. lat= 27:05:30.5
     site_position =-4491068.89400 m: 3481544.82950 m: 2887399.62270 m;
     site_velocity = -0.024040   m/yr:  0.003000   m/yr: -0.006360  m/yr;
*    First line below is VEX standard format.  Use only when readers are ready.
*    site_position_epoch = 2000y001d;
     site_position_epoch =   51544;
enddef;
*
def VERAIRIK;
     site_type = fixed;
     site_name = VERAIRIK;
     site_ID = Vr;
*    elev=  573.62 long=-130:26:23. lat= 31:44:52.4
     site_position =-3521719.56870 m: 4132174.75280 m: 3336994.32550 m;
     site_velocity = -0.024040   m/yr:  0.003000   m/yr: -0.006360  m/yr;
*    First line below is VEX standard format.  Use only when readers are ready.
*    site_position_epoch = 2000y001d;
     site_position_epoch =   51544;
enddef;
*------------------------------------------------------------------------------
$ANTENNA;
*
def KVNYS;
     axis_type = az : el;
     antenna_motion = el : 177.0 deg/min :  3 sec;  *    3.000 deg/sec/sec
     antenna_motion = az : 177.0 deg/min :  3 sec;  *    3.000 deg/sec/sec
     axis_offset =    0.00000 m;
enddef;
*
def KVNUS;
     axis_type = az : el;
     antenna_motion = el : 177.0 deg/min :  3 sec;  *    3.000 deg/sec/sec
     antenna_motion = az : 177.0 deg/min :  3 sec;  *    3.000 deg/sec/sec
     axis_offset =    0.00000 m;
enddef;
*
def KVNTN;
     axis_type = az : el;
     antenna_motion = el : 177.0 deg/min :  3 sec;  *    3.000 deg/sec/sec
     antenna_motion = az : 177.0 deg/min :  3 sec;  *    3.000 deg/sec/sec
     axis_offset =    0.00000 m;
enddef;
*
def VERAISGK;
     axis_type = az : el;
     antenna_motion = el : 126.0 deg/min :  5 sec;  *    2.100 deg/sec/sec
     antenna_motion = az : 126.0 deg/min :  5 sec;  *    2.100 deg/sec/sec
     axis_offset =    0.02800 m;
enddef;
*
def VERAMZSW;
     axis_type = az : el;
     antenna_motion = el : 126.0 deg/min :  5 sec;  *    2.100 deg/sec/sec
     antenna_motion = az : 126.0 deg/min :  5 sec;  *    2.100 deg/sec/sec
     axis_offset =    0.00300 m;
enddef;
*
def VERAOGSW;
     axis_type = az : el;
     antenna_motion = el : 126.0 deg/min :  5 sec;  *    2.100 deg/sec/sec
     antenna_motion = az : 126.0 deg/min :  5 sec;  *    2.100 deg/sec/sec
     axis_offset =    0.00000 m;
enddef;
*
def VERAIRIK;
     axis_type = az : el;
     antenna_motion = el : 126.0 deg/min :  5 sec;  *    2.100 deg/sec/sec
     antenna_motion = az : 126.0 deg/min :  5 sec;  *    2.100 deg/sec/sec
     axis_offset =    0.00000 m;
enddef;
*------------------------------------------------------------------------------
$DAS;
*
def 2NONE+MARK5B<;
     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 1NONE+MARK5B<;
     record_transport_type = Mark5B;
     electronics_rack_type = none;
     number_drives = 1;
     headstack = 1 :            : 0 ;
     tape_motion = adaptive : 0 min: 0 min: 10 sec;
enddef;
*
def VERA_DIR2K;
     record_transport_type = DIR2K;
     electronics_rack_type = VERA;
     number_drives = 1;
     tape_length = 82 min;
     tape_motion = continuous : 20 sec;
enddef;
*
*------------------------------------------------------------------------------
$SOURCE;
*
def 0716+714;
     source_name = 0716+714;
*    this source had calibrator code: V
*    alternate source name: J0721+7120
*    alternate source name: J0721+71
*    rfc_2012b Petrov, 2012, unpublished 27599 observations
     ra = 07h21m53.4484760s; dec =  71d20'36.363400"; ref_coord_frame = J2000;
*    ra = 07h16m13.0297412s; dec =  71d26'15.174056"; ref_coord_frame = B1950;
*    ra = 07h24m17.3569292s; dec =  71d18'04.067563"; ref_coord_frame = Date;
enddef;
*------------------------------------------------------------------------------
$FREQ;
*
def FREQ1;
     sample_rate =  512.000 Ms/sec;  * (2bits/sample)
     chan_def = &R2 : 42812.00 MHz : U : 32.00 MHz : &S01 : &BBCb : &NoCal; *Lcp
     chan_def = &R1 : 22112.00 MHz : U : 32.00 MHz : &S02 : &BBCa : &NoCal; *Rcp
     chan_def = &R2 : 42876.00 MHz : L : 32.00 MHz : &S03 : &BBCb : &NoCal; *Lcp
     chan_def = &R1 : 22176.00 MHz : L : 32.00 MHz : &S04 : &BBCa : &NoCal; *Rcp
     chan_def = &R2 : 42876.00 MHz : U : 32.00 MHz : &S05 : &BBCb : &NoCal; *Lcp
     chan_def = &R1 : 22176.00 MHz : U : 32.00 MHz : &S06 : &BBCa : &NoCal; *Rcp
     chan_def = &R2 : 42940.00 MHz : L : 32.00 MHz : &S07 : &BBCb : &NoCal; *Lcp
     chan_def = &R1 : 22240.00 MHz : L : 32.00 MHz : &S08 : &BBCa : &NoCal; *Rcp
enddef;
*
*------------------------------------------------------------------------------
$IF;
*
def IF_KQ;
     if_def = &IF_R1 : R1 : R : 16800.0 MHz : U ; * PCall off!
     if_def = &IF_R2 : R2 : L : 37500.0 MHz : U ; * PCall off!
enddef;
*
def IF_KQ/KVN;
     if_def = &IF_R1 : R1 : R : 31200.0 MHz : L ; * PCall off!
     if_def = &IF_R2 : R2 : L : 34110.0 MHz : U ; * PCall off!
enddef;
*
*------------------------------------------------------------------------------
$BBC;
*
def BBC1;
     BBC_assign = &BBCa :  1 : &IF_R1;
     BBC_assign = &BBCb :  2 : &IF_R2;
enddef;
*
*------------------------------------------------------------------------------
$PHASE_CAL_DETECT;
*
def NoDetect;
* mode =  1    stations =Ky:Ku:Kt:Vs:Vm:Vo:Vr
     phase_cal_detect = &NoCal;
enddef;
*------------------------------------------------------------------------------
$TRACKS;
*
def MARK5B.8Ch2bit1to1;
* mode =  1    stations =Ky:Ku:Kt:Vs:Vm:Vo:Vr
*    format = MARK5B, and fan-out = 1
*    mode requires  64.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;
     fanout_def =   : &CH05 : sign : 1: 10;
     fanout_def =   : &CH05 :  mag : 1: 11;
     fanout_def =   : &CH06 : sign : 1: 12;
     fanout_def =   : &CH06 :  mag : 1: 13;
     fanout_def =   : &CH07 : sign : 1: 14;
     fanout_def =   : &CH07 :  mag : 1: 15;
     fanout_def =   : &CH08 : sign : 1: 16;
     fanout_def =   : &CH08 :  mag : 1: 17;
enddef;
*------------------------------------------------------------------------------
$HEAD_POS;
def DiskVoid;
* mode =  1    stations =Ky:Ku:Kt:Vs:Vm:Vo:Vr
*     Head positions irrelevant for Disk: empty def
enddef;
*------------------------------------------------------------------------------
$PASS_ORDER;
*
def DiskVoid;
* mode =  1    stations =Ky:Ku:Kt:Vs:Vm:Vo:Vr
*     Pass orders irrelevant for Disk: empty def
enddef;
*------------------------------------------------------------------------------
$ROLL;
*
def NoRoll;
* mode =  1    stations =Ky:Ku:Kt:Vs:Vm:Vo:Vr
*    barrel-roll set to 'roll_off', so reverse-roll by  0 (1 head)
     roll = off;
enddef;
*------------------------------------------------------------------------------
$SCHED;
* schedule section for experiment simkq
* Example of Simultaneous K/Q Observing Mode for KaVA+Yebes               
scan No0001;
     start=2020y357d00h00m00s; mode=VERA4D; source=0716+714;
*              :data_good:data_stop:goto_foot: pass:  wrap :driv:tape at
     station=Ky:    0 sec:10800 sec:    0.000 GB:   :       : 1;
     station=Ku:    0 sec:10800 sec:    0.000 GB:   :       : 1;
     station=Kt:    0 sec:10800 sec:    0.000 GB:   :       : 1;
     station=Vs:    0 sec:10800 sec:    0.000 GB:   :       : 1;
     station=Vm:    0 sec:10800 sec:    0.000 GB:   :       : 1;
     station=Vo:    0 sec:10800 sec:    0.000 GB:   :       : 1;
     station=Vr:    0 sec:10800 sec:    0.000 GB:   :       : 1;
endscan;