! TECHNICAL RANGE

! DRIFTS
TO01  : DRIFT,    L = 2.430;
TO02  : DRIFT,    L = 0.080;
TO03  : DRIFT,    L = 0.330;
TO04  : DRIFT,    L = 0.263;
TO05  : DRIFT,    L = 2.691;
TO06  : DRIFT,    L = 0.270;
TO07  : DRIFT,    L = 0.060;
TO08  : DRIFT,    L = 0.190;
TO09  : DRIFT,    L = 0.270;
TO10  : DRIFT,    L = 0.270;
TO11  : DRIFT,    L = 0.710;
TO12  : DRIFT,    L = 0.263;
TO13  : DRIFT,    L = 0.310;
TO14  : DRIFT,    L = 0.550;
TO15  : DRIFT,    L = 0.070;
TO16  : DRIFT,    L = 0.477;
TO17  : DRIFT,    L = 0.717;

! QUADRUPOLES
TL1   : QUADR,    L = 1.287, K1 =  0.23857;
TL2   : QUADR,    L = 1.287, K1 = -0.27657;
TL3   : QUADR,    L = 1.287, K1 =  0.36024;
TL4   : QUADR,    L = 1.287, K1 = -0.31948;

! WIGGLER: (W0, WM, WP, WM, W0)
W0    : SBEND,    L = 0.172, ANGLE = -0.009789808, K1 =  1.00400005;
WM    : SBEND,    L = 0.325, ANGLE =  0.019579623, K1 = -1.00400050;
WP    : SBEND,    L = 0.325, ANGLE = -0.019579623, K1 =  1.00400005;

! CORRECTORS
CTX   : HKICKER,  L = 0.070;
STZ1  : VKICKER,  L = 0.140;
STX1  : HKICKER,  L = 0.140;
STZ2  : VKICKER,  L = 0.140;
STZ3  : VKICKER,  L = 0.140;
STX2  : HKICKER,  L = 0.140;
NTZ1  : VKICKER,  L = 0.140;
NTX1  : HKICKER,  L = 0.140;
NTZ2  : VKICKER,  L = 0.140;
NTZ3  : VKICKER,  L = 0.140;
NTX2  : HKICKER,  L = 0.140;

! PICAPS
STP0  : MONITOR,  L = 0.020;
STP2  : MONITOR,  L = 0.020;
STP4  : MONITOR,  L = 0.020;
NTP0  : MONITOR,  L = 0.020;
NTP2  : MONITOR,  L = 0.020;
NTP4  : MONITOR,  L = 0.020;

! RF-CAVITES
RES1  : RFCAVITY, L = 0.960, HARMON = 222, VOLT = 0.0, LAG = 0.0;
RES2  : RFCAVITY, L = 0.960, HARMON = 222, VOLT = 0.0, LAG = 0.0;
RES3  : RFCAVITY, L = 0.960, HARMON = 222, VOLT = 0.0, LAG = 0.0;
RES4  : RFCAVITY, L = 0.960, HARMON = 222, VOLT = 0.0, LAG = 0.0;
RES5  : RFCAVITY, L = 0.960, HARMON = 222, VOLT = 0.0, LAG = 0.0;
RES6  : DRIFT,    L = 0.960; ! NOT INSTALL


! SOUTH HALF
S_TECH : LINE = (CTX, TO01, STZ1, TO02, STP0, TO03, TL1, TO04, TL2, TO05,    &
                 RES3, TO06, STX1, TO07, STP2, TO08, RES2, TO09, STZ2, TO10, &
                 RES1, TO11, TL3, TO12, TL4, TO13, STP4, TO14, STZ3, TO15,   &
                 STX2, TO16, W0, WM, WP, WM, W0, TO17);

! NORTH HALF
N_TECH : LINE = (TO17, W0, WM, WP, WM, W0, TO16, NTX2, TO15, NTZ3, TO14,     &
                 NTP4,TO13, TL4, TO12, TL3, TO11, RES6, TO10, NTZ2, TO09,    &
                 RES5, TO08, NTP2, TO07, NTX1, TO06, RES4, TO05, TL2, TO04,  &
                 TL1, TO03, NTP0, TO02, NTZ1, TO01, CTX);

! TECHNICAL
TECH   : LINE=(N_TECH, S_TECH);

RETURN;