S N SIS18-TE-ESR TE3UF FOCUS ;
; mode for injection into ESR on 2nd May 2021
; TE line geometry based on MIRKO file from Hans Geissel/Benno F.,
; added ESR dipole and ESR, Helmut Weick 25.11.2020
; added May2021 values, parammodi in/output , HWeick 02.05.2021
; mode for focus on TE3UF target by Hans Geissel, 3.5.2021
; isoc. modes of ESR from Sergey Litvinov, 05.05.2021
;
;
 MASS   = 72 ; [u]
 CHARGE = 32 ; [e]  
 ENERGY =  379.61 * MASS ; gamma=1.407
 ;
 BRHO = SQRT(ENERGY*ENERGY+2*ENERGY*931.4940*MASS)/CHARGE/2.99792458E8*1E6;
 GAMMA = 1 + ENERGY/MASS/931.4940 ;
 BETAV = 100*SQRT(1-(1/GAMMA^2)) ; [%]
 ;
R P ENERGY MASS CHARGE ;
;
; starting in SIS
 EX  =   20.E-06  ; [m]
 EY  =   20.E-06  ; [m]
 TXA =   -1.82809997  ; [1] 
 TXB =   17.9983997   ; [m]
 TYA =   0.102665998  ; [1]
 TYB =    6.38079977  ; [m]
 XD0 =  2.6210839844 /(1+1/gamma) ; [m]
 AD0 =  0.0873332163 /(1+1/gamma) ; [1]
;
;starting at TE target
 EX  =  20.E-06  ; [m]
 EY  =  20.E-06  ; [m]
 TXA =   0.0   ; [1] 
 TXB =  EX/(0.003)^2 ; [m] with 10 mrad
 TYA =   0.0   ; [1]
 TYB =  EY/(0.010)^2 ; [m] with 10 mrad
 XD0 =   0.0   ; [m]
 AD0 =   0.0   ; [1]
;
;starting in ESR, 2021 isoc. gamma_t=1.34
; EX  =  20E-06  ; [m]
; EY  =  20E-06  ; [m]
; TXA =   0.00   ; [1] 
; TXB =  7.356   ; [m]
; TYA =   0.00   ; [1]
; TYB =  39.93 ; [m]
; XD0 =  -9.953 /(1+1/gamma) ; [m]
; AD0 =  0.0 /(1+1/gamma) ; [1]
;
;starting in ESR, 2021 std mode
; EX  =  20E-06  ; [m]
; EY  =  20E-06  ; [m]
; TXA =   0.00   ; [1] 
; TXB =  10.47   ; [m]
; TYA =   0.00   ; [1]
; TYB =  4.042 ; [m]
; XD0 =  2.016 /(1+1/gamma) ; [m]
; AD0 =  0.0 /(1+1/gamma) ; [1]
;
;starting in ESR, 2021 asymm. isoc. gamma_t=1.407
; EX  =  20E-06  ; [m]
; EY  =  20E-06  ; [m]
; TXA =   0.00   ; [1] 
; TXB =  2.17   ; [m]
; TYA =   0.00   ; [1]
; TYB =  13.6 ; [m]
; XD0 =  0 /(1+1/gamma) ; [m]
; AD0 =  0.0 /(1+1/gamma) ; [1]
;
T X TXA TXB EX ;
T Y TYA TYB EY ;
D P  0 0.001 ;
;
O C N M L S ;
;O C N E T S ;
C M 3 ; use fringe field integrals
;F T H ;
C O 1 ; calculation order
O O 1 ; output order
;
;P A B E ;
;S F TEST E ;
;S O D ; set output disabled
;
; ------- Element part -------------------
; 
 MDS001 =   7.50000000      ; GTE3MU1         
 MDR001 =   17.8700008      ; GTE3MU1         
 MDG001 =   3.99999991E-02  ; GTE3MU1         
 MDS002 =   7.50000000      ; GTE4MU1         
 MDR002 =   11.2500000      ; GTE4MU1         
 MDG002 =   3.50000001E-02  ; GTE4MU1         
 MDS003 =   7.00000000      ; GTE4MU2         
 MDR003 =  -12.0524569      ; GTE4MU2         
 MDG003 =   3.50000001E-02  ; GTE4MU2         
 MDS004 =   3.77189994      ; GTE5MU0         
 MDR004 =  -21.3375092      ; GTE5MU0         
 MDG004 =   3.99999991E-02  ; GTE5MU0         
 MDS005 =   6.50000000      ; GE01MU4I        
 MDR005 =  -10.5769997      ; GE01MU4I        
 MDG005 =   1.99999996E-02  ; GE01MU4I        
;---------------------------
;
; new mode with small focus on TE3UF, H. Geissel 29.03.2021
 MQS001 =  0.226839095      *BRHO/6.62436835; GTE1QD11        
 MQS002 = -0.245030180      *BRHO/6.62436835; GTE1QD12        
 MQS003 =   6.20027855E-02  *BRHO/6.62436835; GTE2QT11        
 MQS004 = -0.195458934      *BRHO/6.62436835; GTE2QT12        
 MQS005 =  0.207069993      *BRHO/6.62436835; GTE2QT13        
 MQS006 =  0.198365897      *BRHO/6.62436835; GTE3QD11        
 MQS007 = -0.220464170      *BRHO/6.62436835; GTE3QD12        
 MQS008 = -0.207067579      *BRHO/6.62436835; GTE4QD11        
 MQS009 =  0.137642503      *BRHO/6.62436835; GTE4QD12        
 MQS010 =   7.44464919E-02  *BRHO/6.62436835; GTE4QT21        
 MQS011 = -0.137685254      *BRHO/6.62436835; GTE4QT22        
 MQS012 =   9.01356563E-02  *BRHO/6.62436835; GTE4QT23        
 MQS013 =  -3.97465331E-03  *BRHO/6.62436835; GTE4QT31        
 MQS014 =  0.137549922      *BRHO/6.62436835; GTE4QT32        
 MQS015 = -0.117877714      *BRHO/6.62436835; GTE4QT33        
 MQS017 =  0.103170395      *BRHO/6.62436835; GTE5QD11        
 MQS018 = -0.110985421      *BRHO/6.62436835; GTE5QD12        
 MQS019 = -0.134439200      *BRHO/6.62436835; GTE5QD21        
 MQS020 =  0.193664759      *BRHO/6.62436835; GTE5QD22     
;
;parammodi export on 2.5.2021 for U91+ injection at 300 MeV/u
GTE1QD11 = 0.2017 ;
GTE1QD12 = -0.2374 ;
GTE2QT11 = 0.2487 ;
GTE2QT12 = -0.4301 ;
GTE2QT13 = 0.3493 ;
GTE3QD11 = 0.4885 ;
GTE3QD12 = -0.5615 ;
GTE4QD11 = -0.5625 ;
GTE4QD12 = 0.4554 ;
GTE4QT21 = 0.3805 ;
GTE4QT22 = -0.4588 ;
GTE4QT23 = 0.2175 ;
GTE4QT31 = -0.0032 ;
GTE4QT32 = 0.2113 ;
GTE4QT33 = -0.2073 ;
GTE5QD11 = 0.4 ;
GTE5QD12 = -0.47 ;
GTE5QD21 = -0.9 ;
GTE5QD22 = 0.68 ;
;
 MQS001 = GTE1QD11 / 0.666 * 0.060 * BRHO ; 
 MQS002 = GTE1QD12 / 0.666 * 0.060 * BRHO ; 
 MQS003 = GTE2QT11 / 1.000 * 0.060 * BRHO ; 
 MQS004 = GTE2QT12 / 1.000 * 0.060 * BRHO ; 
 MQS005 = GTE2QT13 / 1.000 * 0.060 * BRHO ; 
 MQS006 = GTE3QD11 / 1.000 * 0.060 * BRHO ; 
 MQS007 = GTE3QD12 / 1.000 * 0.060 * BRHO ; 
 MQS008 = GTE4QD11 / 1.000 * 0.060 * BRHO ; 
 MQS009 = GTE4QD12 / 1.000 * 0.060 * BRHO ; 
 MQS010 = GTE4QT21 / 1.000 * 0.060 * BRHO ; 
 MQS011 = GTE4QT22 / 1.000 * 0.060 * BRHO ; 
 MQS012 = GTE4QT23 / 1.000 * 0.060 * BRHO ; 
 MQS013 = GTE4QT31 / 1.000 * 0.060 * BRHO ; 
 MQS014 = GTE4QT32 / 1.000 * 0.060 * BRHO ; 
 MQS015 = GTE4QT33 / 1.000 * 0.060 * BRHO ; 
 MQS017 = GTE5QD11 / 1.0482* 0.085 * BRHO ; 
 MQS018 = GTE5QD12 / 1.0482* 0.085 * BRHO ; 
 MQS019 = GTE5QD21 / 1.000 * 0.060 * BRHO ; 
 MQS020 = GTE5QD22 / 1.000 * 0.060 * BRHO ;    
;
; ******** ESR dipoles ******
DIPGAP = 0.035 ; vertical aperture
N1 = 4.55401464E-03  ; n1 corresponds to the quadrupole error
N2 = 0.025991595717  ; from O.Gorda 3D simulations
N3 =-2.125422821E-03 ;
N4 =-4.952942899E-03 ;
N5 = 1.36464659E-03 ;
EDANGLE = 7.500 ;
DIPRADIUS = 6.35703 ; effective radius, geometrical 6.25
;
; ******** ESR quadrupoles *****
QUAGAP = 0.09 ; vertical aperture
;
;input in K'L as in parammodi
;
;----------std mode like 05.05.2021 ----------------
E01QS0D = -0.4175764 ; [1/m]
E01QS1F =  0.3833432 ;
E01QS2F =  0.2769876 ;
E01QS3D = -0.5628948 ;
E01QS4F =  0.3481972 ;
E01QS5F = E01QS4F ; 
E01QS6D = E01QS3D ;
E01QS7F = E01QS2F ;
E01QS8F = E01QS1F ;
E01QS9D = E01QS0D ;
;
;----------isoc--old-(ip-0)----------------
E01QS0D = -0.392974515278 ; [1/m]
E01QS1F =  0.394063234647 ;
E01QS2F =  0.0 ;
E01QS3D = -0.380833880289 ;
E01QS4F =  0.269288838358 ;
E01QS5F = E01QS4F ; 
E01QS6D = E01QS3D ;
E01QS7F = E01QS2F ;
E01QS8F = E01QS1F ;
E01QS9D = E01QS0D ;
;
QL01 = 0.8216; [m]
QL02 = 0.8346;
QL03 = 0.8216;
QL04 = 1.2404;
QL05 = 0.8216;
QL06 = 0.8216;
QL07 = 1.2404;
QL08 = 0.8216;
QL09 = 0.8346;
QL10 = 0.8216;
;
Q01 = E01QS0D * QUAGAP /QL01 * BRHO ;
Q02 = E01QS1F * QUAGAP /QL02 * BRHO ;
Q03 = E01QS2F * QUAGAP /QL03 * BRHO ;
Q04 = E01QS3D * QUAGAP /QL04 * BRHO ;
Q05 = E01QS4F * QUAGAP /QL05 * BRHO ;
Q06 = E01QS5F * QUAGAP /QL06 * BRHO ;
Q07 = E01QS6D * QUAGAP /QL07 * BRHO ;
Q08 = E01QS7F * QUAGAP /QL08 * BRHO ;
Q09 = E01QS8F * QUAGAP /QL09 * BRHO ;
Q10 = E01QS9D * QUAGAP /QL10 * BRHO ;
;
; Sergey asymm. isoc g_t ~ 1.407
; Q01=-2.956832426E-01 *BRHO/8.051237838 ;
; Q02= 3.056272295E-01 *BRHO/8.051237838;
; Q03= 1.900693277E-03 *BRHO/8.051237838;
; Q04=-2.172814153E-01 *BRHO/8.051237838;
; Q05= 1.120797096E-01 *BRHO/8.051237838;
; Q06= 2.545596870E-01 *BRHO/8.051237838;
; Q07=-1.782833793E-01 *BRHO/8.051237838;
; Q08= 1.900693277E-03 *BRHO/8.051237838;
; Q09= 2.219389699E-01 *BRHO/8.051237838;
; Q10=-2.245121342E-02 *BRHO/8.051237838;
;
; Q03= 0.0002360747 *BRHO ; the ESR cannot really accept zero
; Q08= 0.0002360747 *BRHO ;  
;
; ******** hexapole variables ********
 HEXLEN = 0.34 ;
 HEXGAP = 0.16 ; vertical and horizontal
 ;
 SEX1= 0.000000000E+00;
 SEX2= 0.0;
 SEX3= 0.010000000E+00;
 SEX4= 0.000000000E+00;
 SEX5= 0.000000000E+00;
 SEX6= 0.000000000E+00;
 SEX7= 0.0;
 SEX8= 0.000000000E+00;
;
;----------------------------------------------
S S ;
[X,D] = XD0 ;
[A,D] = AD0 ;
D L 0 ;
G L TETARGET ;
;G L COOLER ;
D L 0 ;
 ;                                    16  "PSE"            
 ;                                    12  DISP-MAT         
 ;                                   -37  Labels           
 D L    3.9057000 ;
 ;                                    22  GTE1KY1          
 D L    0.8420000 ;
 ;S B   -1.00539997E-03   0.00000      0.0 0.0 ;   TE1QD11-x       
 ;S B    0.0 0.0    3.03649995E-02   0.00      ;   TE1QD11-y       
 M Q    0.66600000      MQS001    0.060 ;  GTE1QD11        
 D L    0.1670000 ;
 ;                                     1  GTE1DK1          
 D L    0.1700000 ;
 ;                                    29  GTE1DG1          
 D L    0.0000000 ;
 D L    0.6470000 ;
 ;S B   -1.05189998E-03   0.00000000      0.0 0.0 ;   TE1QD12-x       
 ;S B    0.0 0.0    3.01099997E-02   0.00000      ;   TE1QD12-y       
 M Q    0.66600000      MQS002    0.060 ;  GTE1QD12        
 D L    0.4094942 ;
 D L    1.1706057 ;
 ;                                    16  "VZP31"          
 ;                                    21  GTS1MU1          
 D L   -1.1706057 ;
 D L    2.34121132      ; slit                 
 A S P  6.49999976E-02   1.00000000      ;                
 D L   -2.3412113 ;
 D L    2.34121132      ; slit                 
 A S P  1.00000000       3.50000001E-02  ;                
 D L   -1.1706057 ;
 D L    7.1270976 ;
 ;                                    21  GTE2KX1          
 D L    4.0826998 ;
 M Q    1.00000000      MQS003    0.060 ;  GTE2QT11        
 D L    1.0004001 ;
 M Q    1.00000000      MQS004    0.060 ;  GTE2QT12        
 D L    1.0059000 ;
 M Q    1.00000000      MQS005    0.060 ;  GTE2QT13        
 D L    0.3909000 ;
 ;                                     1  GTE2DK4          
 D L    0.1700000 ;
 ;                                    29  GTE2DG4          
 D L    0.2596000 ;
 ;                                    29  GTE2DF4          
 D L    2.9633996 ;
 ;                                    16  "VZP33"          
 D L   -1.1712610 ;
 F F 0  3.75000000      ;
 M S MDR001 MDS001 MDG001 ;  GTE3MU1         
 F F 0  3.75000000      ;
 D L    0.0000000 ;
 D L    4.6407251 ;
 ;                                    22  GTE3KY1          
 D L    0.5755000 ;
 M Q    1.00000000      MQS006    0.060 ;  GTE3QD11        
 D L    0.9994000 ;
 M Q    1.00000000      MQS007    0.060 ;  GTE3QD12        
 D L    2.1566000 ;
 ;                                     1  GTE3DK3          
 D L    0.1830000 ;
 ;                                    29  GTE3DG3          
 D L    1.1531496 ;
 ;
 TETARGET: ;                          33  TE3UF
 ;
 A S P 0.03 0.03 ;
 ;
 D L    3.5000000 ;
 M Q    1.00000000      MQS008    0.060 ;  GTE4QD11        
 D L    1.0000000 ;
 M Q    1.00000000      MQS009    0.060 ;  GTE4QD12        
 D L    1.0000000 ;
 F F 0    3.75000000      ;
 M S MDR002 MDS002 MDG002 ;  GTE4MU1         
 F F 0    3.75000000      ;
 D L    7.0000000 ;
 D L   -0.0550000 ;
 A S P    6.49999976E-02   1.00000000      ;GTE4DS5H        
 D L    0.3279000 ;
 ;                                    29  GTE4DG5          
 D L    2.2911787 ;
 ;                                    22  GTE4KY1          
 D L    1.4360000 ;
 M Q    1.00000000      MQS010    0.060 ;  GTE4QT21        
 D L    1.0000000 ;
 M Q    1.00000000      MQS011    0.060 ;  GTE4QT22        
 D L    1.0000000 ;
 M Q    1.00000000      MQS012    0.060 ;  GTE4QT23        
 D L    0.7839000 ;
 ;                                     1  GTE4DK8          
 D L    0.1700000 ;
 ;                                    29  GTE4DG8          
 D L    1.3929775 ;
 F F 0    3.50000000      ;
 M S MDR003 MDS003 MDG003 ;  GTE4MU2         
 F F 0    3.50000000      ;
 D L    0.8890000 ;
 D L    0.6000000 ;
 ;                                    22  GTE4KY2          
 D L    1.1859000 ;
 ;                                     1  GTE4DK9          
 D L    0.1700000 ;
 ;                                    29  GTE4DG9          
 D L    4.4550977 ;
 M Q    1.00000000      MQS013    0.060 ;  GTE4QT31        
 D L    1.0000000 ;
 M Q    1.00000000      MQS014    0.060 ;  GTE4QT32        
 D L    1.0000000 ;
 M Q    1.00000000      MQS015    0.060 ;  GTE4QT33        
 D L    1.7719997 ;
 ;                                    21  GTE4KX3          
 D L    0.8000000 ;
 ;                                    22  GTE4KY3          
 D L    0.8859000 ;
 ;                                     1  GTE4DKC          
 D L    0.1700000 ;
 ;                                    29  GTE4DGC          
 D L    4.3395143 ;
 ;                                    21  GTS6MU1          
 ;                                    38  A-FRS-Q1         
 ;                                    38   FF#1_001        
 ;                                    16  "VZP36"          
 ;                                   -16  VZP36?           
 D L    3.0144279 ;
 D L    0.6355918 ;
 ;                                    21  GTE5KS1          
 M Q   0.250000000      0   0.118799999 ; dummy aperture 
 D L    0.1109000 ;
 ;S B    4.35790000E-03   0.00000      0.0 0.0 ;   TE5QD11-x       
 ;S B  0.0 0.0    1.02700004E-02   0.00000     ;   TE5QD11-y       
 M Q    1.04820      MQS017    0.085  ;  GTE5QD11        
 ;                                     0  QVK              
 D L    0.4518000 ;
 M Q    1.04820      MQS018    0.085  ;  GTE5QD12        
 ;                                     0  QVK              
 D L    1.1119000 ;
 ;                                    22  GTE5KY1          
 D L    0.6810000 ;
 ;                                     1  GTE5DKA          
 D L    0.1700000 ;
 A S P    4.45000008E-02   1.00000000  ; GTE5DSAH        
 D L    1.2689791 ;
 D L    0.0200000 ;
 ;                                    29  GTE5DGBG         
 D L    1.2180661 ;
 D L   -0.7026000 ;
 F F 0    1.88600004      ;
 M S MDR004 MDS004 MDG004 ;  GTE5MU0         
 F F 0    1.88600004      ;
 D L    0.0000000 ;
 D L    1.1861100 ;
 ;S B    5.75790042E-03   0.00000000      0.0 0.0 ;   TE5QD21-x       
 ;S B    0.0 0.0    7.05000013E-03   0.00000000   ;   TE5QD21-y       
 M Q    1.00000000      MQS019    0.060 ;  GTE5QD21        
 D L    0.6600000 ;
 ;S B    7.39589985E-03   0.00000000      0.0 0.0 ;   TE5QD22-x       
 ;S B    0.0 0.0    6.44000014E-03   0.00000000   ;   TE5QD22-y       
 M Q    1.00000000      MQS020    0.060 ;  GTE5QD22        
 ;D L    2.4324179 ;
 ;
D L 0.470 ;
;
;  F22 = (TXA$ -14.52)^2*999 ; 
;  F23 = (TXB$ -63.06)^2*9 ;   
;  F24 = (TYA$ +1.057)^2*9999 ;
;  F25 = (TYB$ -2.425)^2*99 ;
;
;  FESR = F22 + F23 + F24 + F25 + F21 ;
;  F V FESR ;
;  F E 1E-20 1000 6;
;
;----------------- P. Spillers take over point ------------
TAKEOVER: ; (old position of end of TE5MU0)
;D H E (X,A) 10000 0.10 0.025 1 1 ;
;D H E (Y,B) 10000 0.10 0.025 1 1 ;
;
D L 1.971 ; from TOP, from drawing
;
;stray field matrix composed of dipoles and thin lenses, zero total length
; B. Schillinger thesis, TUD p.138
;
;dispersion in many steps of 0.1m length, 1st half
D L -1.200 ;
M S 781.25 0.00733385977767454 0.1 ;
M S 625.00 0.00916732472209317 0.1 ;
M S 250.00 0.0229183118052329 0.1 ;
M S 164.473684210526 0.0348358339439541 0.1 ;
M S 122.549019607843 0.0467533560826752 0.1 ;
M S 102.459016393443 0.0559206808047683 0.1 ;
M S 89.2857142857143 0.0641712730546522 0.1 ;
M S 78.125 0.0733385977767454 0.1 ;
M S 74.4047619047619 0.0770055276655826 0.1 ;
M S 71.0227272727273 0.0806724575544199 0.1 ;
M S 63.7755102040816 0.0898397822765131 0.1 ;
M S 58.9622641509434 0.0971736420541876 0.1 ;
;
; create matrix in X
HD1= -5.217085678E-01 ;
HD2=  9.178422156E-01 ;
HM1= -3.608900793E-01 ;
HM2= -8.637857573E-02 ;
D L  HD1 ;
M T  HM1 0 ;
D L  HD2 ;
M T  HM2 0 ;
D L  (-HD1-HD2) ;
;
; create matrix in Y
HD1= -5.749341413E-01 ;
HD2=  7.481637125E-01 ;
HM1=  2.756925401E-01 ;
HM2=  1.558595713E-01 ;
D L  HD1 ;
M T  0 HM1 ;
D L  HD2 ;
M T  0 HM2 ;
D L  (-HD1-HD2) ;
;
;dispersion in many steps of 0.1m length, 2nd half
M S 50.4032258064516 0.113674826553955 0.1 ;
M S 45.9558823529412 0.124675616220467 0.1 ;
M S 38.5802469135802 0.148510660497909 0.1 ;
M S 34.3406593406593 0.166845309942096 0.1 ;
M S 28.8018433179724 0.198930946469422 0.1 ;
M S 25.3036437246964 0.226432920635701 0.1 ;
M S 22.4014336917563 0.255768359746399 0.1 ;
M S 19.9680511182109 0.286937263801516 0.1 ;
M S 25.7201646090535 0.222765990746864 0.1 ;
M S 60.0961538461538 0.095340177109769 0.1 ;
M S 195.3125 0.0293354391106982 0.1 ;
M S 694.444444444444 0.00825059224988386 0.1 ;
D L -1.200 ;
;
D L 0.876 ; from drawing, adjusted Jan 2016
M S (-1.2*180/6.5/PI$) 6.5 0.05 ; septum magnet, length 1.2m
;
;*********************************************************
;   the ESR - starting behind septum
;*********************************************************
EXITSEPTUM: ;
E Q 0 0 0.19 ; exit of septum
;D H E (X,Y) 10000 0.050 0.050 1 1 ;
P E ;
;S B 0.107 0.0064 0.0 0.0 ;  shift at exit of septum
;
;------- after septum ref. point ---------
 D L 0.242700 ; rough from drawing
 D L 0.095000 ;
 F F 1 ;
 M Q 0.834600 Q02 QUAGAP ; 
 F F 1 ;
 D L 0.095000 ;
 D L 0.325400 ;
 D L 0.095000 ;
 F F 1 ;
 M Q 0.821600 Q01 QUAGAP ;
 F F 1 ;
 D L 0.095000 ;
 D L 0.205000 ;
 D L 0.797700 ;
 D L 0.600000 ; Solenoid
 D L 0.295000 ;
 D L 0.878000 ;
 D L 2.100000 ; Solenoid
;
COOLER: ;
;--------- center of cooler ----------
D H E (X,A) 10000 0.03 0.003 1 1 ;
D H E (Y,B) 10000 0.03 0.003 1 1 ;
;
;==========half of the ring
B B HALF ;
 D L 2.1 ; GECEMO3C
 D L 0.0 ; GECEMT4K
 D L 0.878 ;
 D L 0.0 ; GECEKX2
 D L 0.295 ;
 D L 0.6 ; GECEMO1P
 D L 0.7977 ;
 D L 0.205 ;
 D L 0.095 ;
 ; F F 1;
 M Q 0.8216 Q01 QUAGAP ; Q-1
 ; F F 1; 
 D L 0.095 ;
 D L 0.1627 ;
 D L 0.1627 ;
 D L 0.0950 ;
 ; F F 1;
 M Q 0.8346 Q02 QUAGAP ;  Q-2
 ; F F 1;
 D L 0.0950 ;
 D L 0.48135 ;
;------septum-(mirror position)!!!--------
;M S (-1.2*180/6.5/PI$) 6.5 0.05 ; septum magnet, length 1.2m
; D L -0.600 ;
; M Q 0.6 0 0.026 ; until exit of septum
; S B 0.0 0.00 0.0 0.0 ;
;  P S 'SEPT-TWISS-X =',TXA,TXB ;
;  P S 'SEPT-TWISS-Y =',TYA,TYB ;
MUSEP =ATAND([X,A]/([A,A]*TXB$+[X,A]*TXA$)) ;
;-------------septum---------
 D L 0.48135 ;
 D L 1.0 ;
 ;
 D L 0.0439592 ; DRIFT108
 F F 0 EDANGLE ;
 M S DIPRADIUS 60.0 DIPGAP N1 N2 N3 N4 N5; DIP-1
 F F 0 EDANGLE ;
 D L 0.0439592 ; DRIFT108
 ;
 D L 0.350 ;
 D L 0.162700 ;
 D L 0.0950 ;
 ; F F 1;
 M Q 0.8216 Q03 QUAGAP ; Q-3 
 ; F F 1; 
 D L 0.095000 ;
 D L 0.006000 ;
 M H HEXLEN SEX1 HEXGAP ; SEX-1
 D L 0.006000 ;
 D L 0.095000 ;
 ; F F 1;
 M Q 1.2404 Q04 QUAGAP ; Q-4
 ; F F 1;
 D L 0.095000 ;
 D L 0.326000 ;
 D L 0.095000 ;
 ; F F 1;
 M Q 0.8216 Q05 QUAGAP ; Q-5
 ; F F 1;
 D L 0.095000 ;  
 D L 0.0597 ;
 D L 0.006000 ;
 M H HEXLEN SEX2 HEXGAP ; SEX-2
 D L 0.006000 ;
 D L 0.174 ;
 D L 0.2627229 ;
 D L 1.07525 ;
;==============kicker=============
 A S P 0.113 0.025 ;
;   S B 0 0.005 0 0 ;
;  E K (-180/PI$*0.005) ;     KICKER 
MUKICK =ATAND([X,A]/([A,A]*TXB$+[X,A]*TXA$)) ;
;==============kicker=============
 D L 1.07525 ;
 D L 0.129301 ;
 ;
 D L 0.0439592 ; DRIFT108
 F F 0 EDANGLE ;
 M S DIPRADIUS 60.00 DIPGAP N1 N2 N3 N4 N5;  DIP-2
 F F 0 EDANGLE ;
 D L 0.0439592 ; DRIFT108 ;
 ;
 D L 0.70000 ;
 D L 1.8425234 ;
 ; Y-Steerer
 D L 0.174 ;
 D L 0.006000 ;
 M H HEXLEN SEX3 HEXGAP ; SEX-3
 D L 0.006000 ;
 D L 0.0597 ;
 D L 0.095000 ;
 ; F F 1;
 M Q 0.8216 Q06 QUAGAP ; Q-6
 ; F F 1;
 D L 0.095000 ;
 D L 0.326000 ;
 D L 0.095000 ;
 ; F F 1;
 M Q 1.2404 Q07 QUAGAP ; Q-7
 ; F F 1;
  BYD3 = (1/TYB)*(([Y,Y]*TYB)^2+[Y,B]^2);
 D L 0.095000 ;
 D L 0.006 ;
 M H HEXLEN SEX4 HEXGAP ; SEX-4
 D L 0.006;
 D L 0.095000 ;
 ; F F 1;
 M Q 0.8216 Q08 QUAGAP ; Q-8
 ; F F 1;
 D L 0.095000 ;
 D L 0.162700 ;
 D L 0.350000 ;
 ;
 D L 0.0439592 ; DRIFT108 
 F F 0 EDANGLE ;
 M S DIPRADIUS 60.0 DIPGAP N1 N2 N3 N4 N5; DIP-3
 F F 0 EDANGLE ;
 D L 0.0439592 ; DRIFT108
 ;
  D L 0.202320 ;
 D L 0.110000 ;
 D L 0.290000 ;
 D L 0.397680 ;
 D L 0.962700 ;
 D L 0.095000 ;
 ; F F 1;
 M Q 0.8346 Q09 QUAGAP ; Q-9
 ; F F 1;
 D L 0.095000 ;
 D L 0.325400 ;
 D L 0.095000 ;
 ; F F 1;
 M Q 0.8216 Q10 QUAGAP ; Q-10
 ; F F 1;
 D L 0.095000 ;
 D L 0.205000 ;
 D L 4.6706992 ;
;
B E HALF ;
;
B I HALF ;
B I HALF R ;
B I HALF ;
B I HALF R ;
B I HALF ;
B I HALF R ;
;
;output of beam parameters
XD = [X,D] ;
AD = [A,D] ;
TXB = TXB$ ;
TXA = TXA$ ;
TYB = TYB$ ;
TYA = TYA$ ;
P S 'BRHO = ',BRHO,' Tm' ;
P S 'X: ',TXB, TXA ;
P S 'Y: ',TYB, TYA ;
P S 'D: ',XD, AD ;
;
;---------------------------------------
; export for parammodi
;
GTE1QD11 =  MQS001/0.060*0.666 /BRHO; 
GTE1QD12 =  MQS002/0.060*0.666 /BRHO; 
GTE2QT11 =  MQS003/0.060*1.000 /BRHO; 
GTE2QT12 =  MQS004/0.060*1.000 /BRHO; 
GTE2QT13 =  MQS005/0.060*1.000 /BRHO; 
GTE3QD11 =  MQS006/0.060*1.000 /BRHO; 
GTE3QD12 =  MQS007/0.060*1.000 /BRHO; 
GTE4QD11 =  MQS008/0.060*1.000 /BRHO; 
GTE4QD12 =  MQS009/0.060*1.000 /BRHO; 
GTE4QT21 =  MQS010/0.060*1.000 /BRHO; 
GTE4QT22 =  MQS011/0.060*1.000 /BRHO; 
GTE4QT23 =  MQS012/0.060*1.000 /BRHO; 
GTE4QT31 =  MQS013/0.060*1.000 /BRHO;
GTE4QT32 =  MQS014/0.060*1.000 /BRHO;
GTE4QT33 =  MQS015/0.060*1.000 /BRHO;
GTE5QD11 =  MQS017/0.085*1.0482/BRHO;
GTE5QD12 =  MQS018/0.085*1.0482/BRHO;
GTE5QD21 =  MQS019/0.006*1.000 /BRHO;
GTE5QD22 =  MQS020/0.006*1.000 /BRHO;
;
P F '# Version: 1.0';
P F '# Comment: ParamModi Export SIS-TE-ESR' ;
P F '# Context: SIS18_FAST.C1' ;
P F '# Comment: std. mode 1998, H. Weick 02.05.2021';
P F '# Columns: PARAMETERNAME,VALUE,UNIT,BEAMPROCPU' ;
P F 'GTE1QD11/KL,',GTE1QD11, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE1QD12/KL,',GTE1QD12, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE2QT11/KL,',GTE2QT11, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE2QT12/KL,',GTE2QT12, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE2QT13/KL,',GTE2QT13, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE3QD11/KL,',GTE3QD11, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE3QD12/KL,',GTE3QD12, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QD11/KL,',GTE4QD11, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QD12/KL,',GTE4QD12, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT21/KL,',GTE4QT21, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT23/KL,',GTE4QT22, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT23/KL,',GTE4QT23, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT31/KL,',GTE4QT31, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT13/KL,',GTE4QT32, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE4QT33/KL,',GTE4QT33, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE5QD11/KL,',GTE5QD11, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE5QD12/KL,',GTE5QD12, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE5QD21/KL,',GTE5QD21, ',1/m,TRANSFER_EXTRACTION' ;
P F 'GTE5QD22/KL,',GTE5QD22, ',1/m,TRANSFER_EXTRACTION' ;
;
FINI: ;
;                 x a g d y b n
;D B 0.07 0.07 100 3 3 1 1 3 3 2 ;
D S 1.0 2 80 3 3 1 3 ;
D M 0.07 0.07 300 1 2000 ;
;
END ;