c===============================================================================
c			COM_KAMMER.INC
c===============================================================================

c Veraenderungen in diesem File sind nur mit angemessener Vorsicht vorzunehmen!
c Die Groessen, die sich auf Bereiche beziehen, in denen mittels Potentialmappen
c integriert wird (und die in anderen COMMON-Bloecken als dem 'blank'-Block
c stehen) werden in den include files 'MAP_DEF_xx.INC' nochmals mit anderen
c Bezeichnungen definiert (ohne die Extensionen '_L1','_L2','_L3','_FO' und '_M2').
c Auch sind die dort definierten COMMON-Bloecke umfassender als die hier
c angegebenen Teilbereiche. Daher muessen Aenderungen in dem vorliegenden File
c im Regelfall von entsprechenden Aenderungen in diesen Files begleitet werden!

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

c Vakuumrohr:

	real radius_Rohr	! Radius

c Target:

	real xtarget		! Position
	real dytarget		! Breite
	real dztarget		! Hoehe

c erstes Beschleunigungsgitter:

	real  xgrid1		! Position
	real dygrid1		! Breite
	real dzgrid1		! Hoehe
	real dWires_G1		! Drahtdurchmesser
	real dist_Wires_G1      ! Drahtabstand

c zweites Beschleunigungsgitter:

	real  xgrid2		! Position
	real dygrid2		! Breite
	real dzgrid2		! Hoehe
	real dWires_G2		! Drahtdurchmesser
	real dist_Wires_G2      ! Drahtabstand

c He-Schild:

	real  rHeShield		! Radius
	real dyHeShield		! Breite
	real dzHeShield		! Hoehe

c LN-Schild:

	real  rLNShield		! Radius
	real dyLNShield		! Breite
	real dzLNShield		! Hoehe

c Linse 1:

	real Beschl_Faktor_L1
	COMMON /Beschl_Faktor_L1/ Beschl_Faktor_L1

	character*40 MappenName_L1 /' '/
	real dl_max_L1

	COMMON /integration_L1/ MappenName_L1,dl_max_L1

	real xCenterOfLense_L1
	real xEnterMap_L1
	real xLeaveMap_L1

	COMMON /integration_L1/ xCenterOfLense_L1,xEnterMap_L1,xLeaveMap_L1

	real DistanceCyl_L1
	real iRadiusCyl_L1
	real LengthOuterCyl_L1
	real oRadiusOuterCyl_L1
	real LengthInnerCyl_L1
	real oRadiusInnerCyl_L1
	real RadiusVacTube_L1

	COMMON /integration_L1/ DistanceCyl_L1,iRadiusCyl_L1
	COMMON /integration_L1/ LengthOuterCyl_L1,oRadiusOuterCyl_L1
	COMMON /integration_L1/ LengthInnerCyl_L1,oRadiusInnerCyl_L1
	COMMON /integration_L1/ RadiusVacTube_L1

c Spiegel:

	real Beschl_Faktor_Sp
	COMMON /Beschl_Faktor_Sp/ Beschl_Faktor_Sp

	character*40 MappenName_Sp  /' '/
        real dl_max_Sp

        COMMON /integration_Sp/ MappenName_Sp,dl_max_Sp

	real xSpGrid1,xSpGrid2   ! Gitterpositionen innerhalb der Mappe [mm]
        real DSpiegel            ! Abstand der Spiegelgitter
        real dWires_Sp           ! Drahtdurchmesser
        real dist_Wires_Sp       ! Drahtabstand

        COMMON /integration_Sp/ xSpGrid1,xSpGrid2,DSpiegel,
     *				dWires_Sp,dist_Wires_Sp

	real xmin_Sp_1,xmax_Sp_1
	real xmin_Sp_2,xmax_Sp_2
	real xmin_Sp_3,xmax_Sp_3

	COMMON /integration_SP_1/ xmin_Sp_1,xmax_Sp_1
	COMMON /integration_SP_2/ xmin_Sp_2,xmax_Sp_2
	COMMON /integration_SP_3/ xmin_Sp_3,xmax_Sp_3

	real xSpiegel		! Position
	real DreharmLaenge	! horizontaler Abstand zwischen Spielgel-
				!	aufhaengung und Spiegelmittelpkt.
	real BSpiegel		! Breite
	real hSpiegel		! Hoehe

c Linse 2:

	character*40 MappenName_L2andFo  /' '/
	real dl_max_L2andFo

	COMMON /integration_L2andFo/ MappenName_L2andFo,dl_max_L2andFo

	real xCenterOfLense_L2,xEndLense_L2
	real xEnterMap_L2andFo
	real xLeaveMap_L2andFo

	COMMON /integration_L2andFo/ xCenterOfLense_L2,xEndLense_L2,
     +				     xEnterMap_L2andFo,xLeaveMap_L2andFo

	real DistanceCyl_L2
	real iRadiusCyl_L2
	real LengthOuterCyl_L2
	real oRadiusOuterCyl_L2
	real LengthInnerCyl_L2
	real oRadiusInnerCyl_L2
	real RadiusVacTube_L2

	COMMON /integration_L2andFo/ DistanceCyl_L2,iRadiusCyl_L2
	COMMON /integration_L2andFo/ LengthOuterCyl_L2,oRadiusOuterCyl_L2
	COMMON /integration_L2andFo/ LengthInnerCyl_L2,oRadiusInnerCyl_L2
	COMMON /integration_L2andFo/ RadiusVacTube_L2


c Triggerdetektor:

	real Beschl_Faktor_Fo
	COMMON /Beschl_Faktor_Fo/ Beschl_Faktor_Fo

	character*40 MappenName_Fo  /' '/
	real dl_max_Fo

	real MappenLaenge_Fo
	real xEnterMap_Fo

	COMMON /integration_Fo/ MappenName_Fo,dl_max_Fo
	COMMON /integration_Fo/ MappenLaenge_Fo,xEnterMap_Fo

	real xTD,TransTDFoil


c Linse 3:

	real Beschl_Faktor_L3
	COMMON /Beschl_Faktor_L3/ Beschl_Faktor_L3

	character*40 MappenName_L3  /' '/
	real dl_max_L3

	COMMON /integration_L3/ MappenName_L3,dl_max_L3

	real xCenterOfLense_L3
	real xEnterMap_L3
	real xLeaveMap_L3

	COMMON /integration_L3/ xCenterOfLense_L3,xEnterMap_L3,xLeaveMap_L3

	real DistanceCyl_L3
	real iRadiusCyl_L3
	real LengthOuterCyl_L3
	real oRadiusOuterCyl_L3
	real LengthInnerCyl_L3
	real oRadiusInnerCyl_L3
	real RadiusVacTube_L3

	COMMON /integration_L3/ DistanceCyl_L3,iRadiusCyl_L3
	COMMON /integration_L3/ LengthOuterCyl_L3,oRadiusOuterCyl_L3
	COMMON /integration_L3/ LengthInnerCyl_L3,oRadiusInnerCyl_L3
	COMMON /integration_L3/ RadiusVacTube_L3

c MCP2:

	real Beschl_Faktor_M2
	COMMON /Beschl_Faktor_M2/ Beschl_Faktor_M2

	character*40 MappenName_M2  /' '/
	real dl_max_M2

	COMMON /integration_M2/ MappenName_M2,dl_max_M2

	real xMCP2
	real xEnterMap_M2
	real radius_MCP2	! Radius des MCP2

	COMMON /integration_M2/ xMCP2,xEnterMap_M2,radius_MCP2


	real radius_MCP2active	! Radius der aktiven Flaeche des MCP2
	real xBlende		! Position der Blende
	real radius_Blende	! Radius der Blende

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

	COMMON /KAMMER_GEO/
     +		radius_Rohr,
     +		xtarget,dytarget,dztarget,
     +		xgrid1,dygrid1,dzgrid1,dWires_G1,dist_Wires_G1,
     +		xgrid2,dygrid2,dzgrid2,dWires_G2,dist_Wires_G2,
     +		rHeShield,dyHeShield,dzHeShield,
     +		rLNShield,dyLNShield,dzLNShield,
     +		xSpiegel,DreharmLaenge,BSpiegel,hSpiegel,
     +		xTD,TransTDFoil,
     +		radius_MCP2active,
     +		xBlende,radius_Blende

c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
