225 lines
5.8 KiB
C++
225 lines
5.8 KiB
C++
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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|