Skip to content
Snippets Groups Projects
Commit 31755978 authored by Carla Barquest's avatar Carla Barquest
Browse files

clean up test files

parent 581d1bcc
No related branches found
No related tags found
No related merge requests found
79.3591 0 0 33533.8 7 0 ! En[MeV], mom., brho, mass[MeV], charge, bunch-charge
5 5 1. 1.E-5 ! iprint (5=xml output to fort.8), imode (w/wt space-charge), initial RK step, RK error tol.
0 0. 0. 0. ! for external Bs field: nb. lines in data file (0=disable), s offset, unit of s (1=cm), unit of Bs (1=kG)
0.11 .00274 0.11 .00274 9. .0001 ! bunch dim: x,x',y,y',z(bun. len.),dp/p
1. 1. 1. 1. 1. 1. 0. 1. ! 1 means (x,y,z) in cm, (x',y',dp/p) in rad (dimensionless)
2 ! number of correlation parameters
1 2 -0. 3 4 0.
1
12.14 0.0 85.0 0 ! SEBT:Q21:CUR EQ0 A
1.E-4 100
10 0. 0.95 20
\ No newline at end of file
This diff is collapsed.
SUBROUTINE TSYSTEM
COMMON/SCPARM/QSC,ISC,CMPS
COMMON /PRINT/IPRINT,IQ1,JQ1,IQ2,JQ2,IQ3,JQ3,IQ4,JQ4
COMMON/MOM/P,BRHO,pMASS,ENERGK,GSQ,ENERGKi,charge,current
common/fitval/ fv(100),ifit(100)
common/refcoord/cummat(3,3),xyz(3),roti(3)
COMMON/BLOC1/EQ0
CMPS=0.5 !Number of cm per step, for plotting only
wo=1 !weight aberration from optical elements
wfbeam=1 !default weight for fit(N=1,..) (beam parameters)
wfmat=1 !default weight for fit(N=2,..) (transfer matrix coeffs)
nso=2 !nb of subdivisions.
!nso will become obsolete once NCMPS has effect on every elements
IQ1=4 !to get fort.91/2/3/4
IQ2=1
JQ2=6 !IQ2=1 and JQ2=6 force horizontal dispersion output in the12th's column of fort.1
IQ3=3
JQ3=6 !IQ2=3 and JQ2=6 force vertical dispersion output in the13th's column of fort.1
call dr(231.25,0,0)
!Element of unknown type: fortran
call dr(-16.575,0,0)
!Magnetic quadrupole SEBT:Q21
call MQUAD(1.0*EQ0*(1.174e-11*EQ0**4.0-8.2e-09*EQ0**2.0-
&0.009177),2.6,33.15,wo,'Q21 ')
call print_transfer_matrix
return
end
<?xml version='1.0' encoding='UTF-8' ?>
<beampath xmlns:xi='http://www.w3.org/2001/XInclude'>
<xi:include href='../sequence/testucn.xml' />
</beampath>
\ No newline at end of file
<?xml version='1.0' encoding='UTF-8'?>
<seq xmlns='http://www.w3.org/2001/XMLSchema'>
<element id='B1U:HARP0' type='harp' at='XXX*units'>
<epics>
<ao rw='RO' type='scan'>B1U:HARP0:HARPARR</ao>
</epics>
</element>
<element id='B1U:HARP2' type='harp' at='XXX*units'>
<epics>
<ao rw='RO' type='scan'>B1U:HARP2:HARPARR</ao>
</epics>
</element>
</seq>
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment