Common Blocks Description
January 1999
Table of Contents
integer*4 MaxAxes,MaxPlanesGlobal,MaxTLNaxes,MaxNbPts
parameter (MaxAxes=20 ,MaxPlanesGlobal=100 ,MaxTLNaxes=150
*, MaxNbPts=8)
common/Axes/
* NbAxes
c number of axes systems
*, NbPlanesGlobal
c total number of detector planes
*, NbTLNaxes
c number of local (TLN) axes systems
*, MoRefAxes (MaxAxes)
c identification number (Id No) of each axes system
*, EulerCodes (MaxAxes)
c Euler angles code of each axes system
c (only type 1 is used, i.e XYZ)
*, EulerAxes (3,MaxAxes)
c 3 rotation angles used to define the rotation
c matrices "TLNaxes" (see below)
*, OriginAxes (3,MaxAxes)
c x,y,z coordinates of origin: by choice, all systems
c have the same origin 0,0,0.
*, NamesAxes (MaxAxes)
c axes system name
*, OriginPlanesGlobal (3,MaxPlanesGlobal)
c not used
*, OriginPlanesLocal (3,MaxPlanesGlobal)
c T,L,N coordinates of
*, MoPlanesToTLN (MaxPlanesGlobal,2)
c (.,1) = close axes system number
c (.,2) = real axes system number
*, TLNaxes (3,3,MaxTLNaxes)
c TLN axes system rotation matrix
*, RefToDetPlanes (2,MaxPlanesGlobal)
c (1,.) = detector Id No
c (2,.) = local plane Id No in detector
*, RefToMeasPlanes (MaxPlanesGlobal)
*, PtsLocal (3,MaxNbPts,MaxPlanesGlobal)
c xyz coordinates of 8 points defining
c 2 boundary planes of a box surrounding the
c detection plane:
c points 1 to 4 on upstream side
c points 5 to 8 on downstream side
*, MoPlanesAllGlobal (MaxPlanesGlobal)
integer*4 NbAxes,NbPlanesGlobal,NbTLNaxes,MoRefAxes,EulerCodes
*, MoPlanesToTLN,RefToDetPlanes,RefToMeasPlanes
*, MoPlanesAllGlobal
real*4 EulerAxes,OriginAxes
*, OriginPlanesGlobal,OriginPlanesLocal,TLNaxes,PtsLocal
character*10 NamesAxes
c
integer*4 MaxBlocks
parameter (MaxBlocks = 27)
common/Blocks/EventDelimiter
*, NbBlocksKnown ,MoIdBlock(MaxBlocks) ,MinIdDataBlock
*, NameOfBlock (MaxBlocks)
*, MbBlocksInput (MaxBlocks,2) ,MbBlocksOutput(MaxBlocks)
*, MbBlocksInpAll(MaxBlocks,2) ,MbBlocksOutAll(MaxBlocks)
*, PtrBlocksInput(MaxBlocks,2) ,PtrBlocksOutput(MaxBlocks)
*, needBlock (MaxBlocks) ,acceptBlock(MaxBlocks)
*, foundBlock (MaxBlocks) ,useBlock(MaxBlocks)
*, newBlock (MaxBlocks) ,spitBlock(MaxBlocks)
*, ioBlockOffset ,ioBlockGeneral
*, ioBlockRun ,ioBlockBegOfBurst ,ioBlockEndOfBurst
*, ioBlockMon ,ioBlockTune ,ioBlockMemory
*, ioBlockMSGC0 ,ioBlockMSGC1 ,ioBlockMSGC2 ,ioBlockMSGC3
*, ioBlockScFi ,ioBlockDeDx
*, ioBlockDC0 ,ioBlockDC1 ,ioBlockDC2
*, ioBlockHodVer ,ioBlockHodHor ,ioBlockCere1 ,ioBlockCere2
*, ioBlockPreShow ,ioBlockMuon
*, ioBlockMonteCarlo ,ioBlockProcessed
integer*4 EventDelimiter
*, NbBlocksKnown ,MoIdBlock ,MinIdDataBlock
*, MbBlocksInput ,MbBlocksOutput
*, MbBlocksInpAll ,MbBlocksOutAll
*, PtrBlocksInput ,PtrBlocksOutput
*, ioBlockOffset,ioBlockGeneral
*, ioBlockRun,ioBlockBegOfBurst,ioBlockEndOfBurst
*, ioBlockMon,ioBlockTune,ioBlockMemory
*, ioBlockMSGC0,ioBlockMSGC1,ioBlockMSGC2,ioBlockMSGC3
*, ioBlockScFi,ioBlockDeDx
*, ioBlockDC0,ioBlockDC1,ioBlockDC2
*, ioBlockHodVer,ioBlockHodHor,ioBlockCere1,ioBlockCere2
*, ioBlockPreShow,ioBlockMuon
*, ioBlockMonteCarlo,ioBlockProcessed
logical*4 needBlock,acceptBlock,foundBlock,useBlock
*, spitBlock,newBlock
character*12 NameOfBlock
c
integer*4 MaxInteractionsMC,MaxVertexMC,MaxPartMC
*, MaxDetPerPartMC, MaxHitsMC
c parameter (MaxInteractionsMC=10 , MaxVertexMC=10
c *, MaxPartMC=100 , MaxDetPerPartMC=100
c *, MaxHitsMC=500 )
parameter (MaxInteractionsMC=10 , MaxVertexMC=50
*, MaxPartMC=400 , MaxDetPerPartMC=100
*, MaxHitsMC=2000 )
common/DataMC/
* NbInteractionsMC
*, MoInteractionMC (MaxInteractionsMC)
*, MobVertexMC (2,MaxInteractionsMC)
*, NbVerticesMC
*, MobParticlesMC (2,MaxVertexMC)
*, TimeVertexMC (MaxVertexMC)
*, ReactionVertexMC (MaxVertexMC)
*, xyzVertexMC (3,MaxVertexMC)
*, NbParticlesMC
*, KodeParticlesMC (MaxPartMC)
*, MobMeasMC (2,MaxPartMC)
*, PxyzEParticleMC (4,MaxPartMC)
*, MoParentVertexMC (MaxPartMC)
*, MoChildVertexMC (MaxPartMC)
*, NbAllHitsMC,NbAllHitsUsedMC
*, MoPlaneHitsMC (MaxHitsMC)
*, MoDetectorHitsMC (MaxHitsMC)
*, xyzHitsMC (3,MaxHitsMC)
*, TimeHitsMC (MaxHitsMC)
*, SignalHitsMC (MaxHitsMC)
*, EventWeightMC ,VersionMC
*, SeedsGeant(2),SeedsAriane(2)
integer*4 NbInteractionsMC,MoInteractionMC
*, MobVertexMC,NbVerticesMC,ReactionVertexMC
*, NbParticlesMC,MobParticlesMC,KodeParticlesMC
*, MobMeasMC,NbAllHitsMC,NbAllHitsUsedMC
*, MoPlaneHitsMC,MoDetectorHitsMC
*, MoParentVertexMC,MoChildVertexMC,VersionMC
*, SeedsGeant,SeedsAriane
real*4 TimeVertexMC,xyzVertexMC,PxyzEParticleMC
*, xyzHitsMC,TimeHitsMC,SignalHitsMC,EventWeightMC
c
integer*4 MaxDetectors
parameter (MaxDetectors=10)
common/Divers/DegToRad
*, CurrentDateTime ,CurrentRunNo ,LevelDebug
*, LevelJob ,MonteCarloPattern
*, debugFlag ,histoFlag ,Switch(100)
*, ReconstInited ,selectEvtIn ,selectEvtOut
*, EndofFile ,EndofRun ,SkipEvent
*, SkipRecord ,GlobalMode ,ExitJob
*, MonteCarloEvent ,ExitEvent ,CopyEvent
*, saveHistos(3) ,DisplayFlag ,LastEvtInRun
*, NewRunNo ,TimeJobStart ,TimeJobStop
*, PSNominalFlux ,NominalFieldVoltage
*, DetectorNoToName(MaxDetectors)
integer*4 LevelDebug ,CurrentRunNo,LevelJob,MonteCarloPattern
real*4 DegToRad,TimeJobStart,TimeJobStop
*, PSNominalFlux,NominalFieldVoltage
logical debugFlag ,histoFlag ,Switch ,ReconstInited
*, selectEvtIn,selectEvtOut,EndofFile ,EndofRun
*, SkipEvent ,SkipRecord ,GlobalMode ,ExitJob
*, MonteCarloEvent ,ExitEvent,CopyEvent,saveHistos
*, DisplayFlag ,LastEvtInRun ,NewRunNo
character CurrentDateTime*24,DetectorNoToName*4
c
integer*4 MaxEuler
parameter (MaxEuler=8)
common/Euler/NbEuler
*, MoEuler (MaxEuler), EulerNames (MaxEuler)
integer*4 NbEuler,MoEuler
character*3 EulerNames
c
common/EventStatus/NoRun ,TriggerPattern , T3Label
*, NoEventInRun, NoEventInBurst ,NoBurst
*, DMYHMSofBurst(6)
*, TimeInBurst ,EventLiveTime ,EventDeadTime
*, hasRecordInput ,hasRecordOutput ,hasEvent
*, hasData ,hasSelectedEvent ,wantOutput
*, hasMSGC ,hasDC ,hasCere
*, wantMSGC ,wantDC ,wantCere
integer*4 NoRun ,TriggerPattern, T3Label
*, NoEventInRun,NoEventInBurst,NoBurst
*, DMYHMSofBurst,TimeInBurst,EventLiveTime,EventDeadTime
logical hasRecordInput,hasRecordOutput,hasEvent
*, hasData,hasSelectedEvent,wantOutput
*, hasMSGC,hasDC,hasCere
*, wantMSGC,wantDC,wantCere
c
integer nCharperWord ,nBitsperWord
*, nBitsperByte ,nByteperWord
parameter (nCharperWord = 4 ,nBitsperWord = 32
*, nBitsperByte = 8 ,nByteperWord = 4 )
common/ffreadinfo/Keysize
integer Keysize
c
common/FilesFlags/hasDiskInput ,hasPoolInput
*, hasDiskOutput ,hasTapeOutput
*, StreamInput ,RemoteInput
*, StreamOutput ,RemoteOutput
logical hasDiskInput, hasPoolInput, hasDiskOutput, hasTapeOutput
*, StreamInput, RemoteInput, StreamOutput, RemoteOutput
c
common/FilesStatus/hasFileInput ,hasOpenInput
*, hasFileOutput ,hasOpenOutput
*, FileDesInput ,FileDesOutput
*, FileNameInput ,FileNameOutput
integer*4 FileDesInput ,FileDesOutput
logical hasFileInput ,hasOpenInput
*, hasFileOutput ,hasOpenOutput
character*80 FileNameInput ,FileNameOutput
c
c.......so far empty
c
integer*4 MaxPlanesDC
parameter (MaxPlanesDC=28)
common/GeomDC/
* NbPlanesDC
*, MoPlanesDC (MaxPlanesDC)
*, MoCloseAxisDC (MaxPlanesDC)
*, MoEulerCodeDC (MaxPlanesDC)
*, MbWiresDC (MaxPlanesDC)
*, DirMeasDC (MaxPlanesDC)
*, EulerAnglesDC (3,MaxPlanesDC)
*, WiHeThDC (3,MaxPlanesDC)
*, CenterPlaneDC (3,MaxPlanesDC)
*, PosFirstWireDC (MaxPlanesDC)
*, PitchDC (MaxPlanesDC)
*, MoPlaneGlobalFromDC (MaxPlanesDC)
integer*4 NbPlanesDC,MoPlanesDC,MoCloseAxisDC,MoEulerCodeDC
*, MbWiresDC,DirMeasDC,MoPlaneGlobalFromDC
real*4 EulerAnglesDC,WiHeThDC,CenterPlaneDC
*, PosFirstWireDC,PitchDC
c
integer*4 MaxPlanesDEDX
parameter (MaxPlanesDEDX=3)
common/GeomDEDX/
* NbPlanesDEDX
*, MoPlanesDEDX (MaxPlanesDEDX)
*, MoCloseAxisDEDX (MaxPlanesDEDX)
*, MoEulerCodeDEDX (MaxPlanesDEDX)
*, MbSlabsDEDX (MaxPlanesDEDX)
*, DirMeasDEDX (MaxPlanesDEDX)
*, EulerAnglesDEDX (3,MaxPlanesDEDX)
*, WiHeThDEDX (3,MaxPlanesDEDX)
*, CenterPlaneDEDX (3,MaxPlanesDEDX)
*, PosFirstSlabDEDX (MaxPlanesDEDX)
*, PitchDEDX (MaxPlanesDEDX)
*, MoPlaneGlobalFromDEDX (MaxPlanesDEDX)
integer*4 NbPlanesDEDX,MoPlanesDEDX,MoCloseAxisDEDX
*, MoEulerCodeDEDX
*, MbSlabsDEDX,DirMeasDEDX,MoPlaneGlobalFromDEDX
real*4 EulerAnglesDEDX,WiHeThDEDX,CenterPlaneDEDX
*, PosFirstSlabDEDX ,PitchDEDX
c
integer*4 MaxPlanesHodH
parameter (MaxPlanesHodH=2)
common/GeomHodH/
* NbPlanesHodH
*, MoPlanesHodH (MaxPlanesHodH)
*, MoCloseAxisHodH (MaxPlanesHodH)
*, MoEulerCodeHodH (MaxPlanesHodH)
*, MbSlabsHodH (MaxPlanesHodH)
*, DirMeasHodH (MaxPlanesHodH)
*, EulerAnglesHodH (3,MaxPlanesHodH)
*, WiHeThHodH (3,MaxPlanesHodH)
*, CenterPlaneHodH (3,MaxPlanesHodH)
*, PosFirstSlabHodH (MaxPlanesHodH)
*, PitchHodH (MaxPlanesHodH)
*, MoPlaneGlobalFromHodH (MaxPlanesHodH)
integer*4 NbPlanesHodH,MoPlanesHodH,MoCloseAxisHodH
*, MoEulerCodeHodH,MbSlabsHodH,DirMeasHodH
*, MoPlaneGlobalFromHodH
real*4 EulerAnglesHodH,WiHeThHodH,CenterPlaneHodH
*, PosFirstSlabHodH ,PitchHodH
c
integer*4 MaxPlanesHodV
parameter (MaxPlanesHodV=2)
common/GeomHodV/
* NbPlanesHodV
*, MoPlanesHodV (MaxPlanesHodV)
*, MoCloseAxisHodV (MaxPlanesHodV)
*, MoEulerCodeHodV (MaxPlanesHodV)
*, MbSlabsHodV (MaxPlanesHodV)
*, DirMeasHodV (MaxPlanesHodV)
*, EulerAnglesHodV (3,MaxPlanesHodV)
*, WiHeThHodV (3,MaxPlanesHodV)
*, CenterPlaneHodV (3,MaxPlanesHodV)
*, PosFirstSlabHodV (MaxPlanesHodV)
*, PitchHodV (MaxPlanesHodV)
*, MoPlaneGlobalFromHodV (MaxPlanesHodV)
integer*4 NbPlanesHodV,MoPlanesHodV,MoCloseAxisHodV
*, MoEulerCodeHodV,MbSlabsHodV,DirMeasHodV
*, MoPlaneGlobalFromHodV
real*4 EulerAnglesHodV,WiHeThHodV,CenterPlaneHodV
*, PosFirstSlabHodV,PitchHodV
c
integer*4 MaxPlanesMuon
parameter (MaxPlanesMuon=2)
common/GeomMuon/
* NbPlanesMuon
*, MoPlanesMuon (MaxPlanesMuon)
*, MoCloseAxisMuon (MaxPlanesMuon)
*, MoEulerCodeMuon (MaxPlanesMuon)
*, MbSlabsMuon (MaxPlanesMuon)
*, DirMeasMuon (MaxPlanesMuon)
*, EulerAnglesMuon (3,MaxPlanesMuon)
*, WiHeThMuon (3,MaxPlanesMuon)
*, CenterPlaneMuon (3,MaxPlanesMuon)
*, PosFirstSlabMuon (MaxPlanesMuon)
*, PitchMuon (MaxPlanesMuon)
*, MoPlaneGlobalFromMuon (MaxPlanesMuon)
integer*4 NbPlanesMuon,MoPlanesMuon,MoCloseAxisMuon
*, MoEulerCodeMuon,MbSlabsMuon,DirMeasMuon
*, MoPlaneGlobalFromMuon
real*4 EulerAnglesMuon,WiHeThMuon,CenterPlaneMuon
*, PosFirstSlabMuon,PitchMuon
c
integer*4 MaxPlanesMSGC
parameter (MaxPlanesMSGC=4)
common/GeomMSGC/
* NbPlanesMSGC
*, MoPlanesMSGC (MaxPlanesMSGC)
*, MoCloseAxisMSGC (MaxPlanesMSGC)
*, MoEulerCodeMSGC (MaxPlanesMSGC)
*, MbPadMSGC (MaxPlanesMSGC)
*, DirMeasMSGC (MaxPlanesMSGC)
*, EulerAnglesMSGC (3,MaxPlanesMSGC)
*, WiHeThMSGC (3,MaxPlanesMSGC)
*, CenterPlaneMSGC (3,MaxPlanesMSGC)
*, PosFirstPadMSGC (MaxPlanesMSGC)
*, PitchMSGC (MaxPlanesMSGC)
*, MoPlaneGlobalFromMSGC (MaxPlanesMSGC)
integer*4 NbPlanesMSGC,MoPlanesMSGC,MoCloseAxisMSGC
*, MoEulerCodeMSGC
*, MbPadMSGC,DirMeasMSGC,MoPlaneGlobalFromMSGC
real*4 EulerAnglesMSGC,WiHeThMSGC,CenterPlaneMSGC
*, PosFirstPadMSGC,PitchMSGC
c
integer*4 MaxPlanesPreShow
parameter (MaxPlanesPreShow=2)
common/GeomPreShow/
* NbPlanesPreShow
*, MoPlanesPreShow (MaxPlanesPreShow)
*, MoCloseAxisPreShow (MaxPlanesPreShow)
*, MoEulerCodePreShow (MaxPlanesPreShow)
*, MbSlabsPreShow (MaxPlanesPreShow)
*, DirMeasPreShow (MaxPlanesPreShow)
*, EulerAnglesPreShow (3,MaxPlanesPreShow)
*, WiHeThPreShow (3,MaxPlanesPreShow)
*, CenterPlanePreShow (3,MaxPlanesPreShow)
*, PosFirstSlabPreShow (MaxPlanesPreShow)
*, PitchPreShow (MaxPlanesPreShow)
*, MoPlaneGlobalFromPreShow (MaxPlanesPreShow)
integer*4 NbPlanesPreShow,MoPlanesPreShow,MoCloseAxisPreShow
*, MoEulerCodePreShow,MbSlabsPreShow,DirMeasPreShow
*, MoPlaneGlobalFromPreShow
real*4 EulerAnglesPreShow,WiHeThPreShow,CenterPlanePreShow
*, PosFirstSlabPreShow,PitchPreShow
c
integer*4 MaxPlanesSCIFI
parameter (MaxPlanesSCIFI=2)
common/GeomSCIFI/
* NbPlanesSCIFI
*, MoPlanesSCIFI (MaxPlanesSCIFI)
*, MoCloseAxisSCIFI (MaxPlanesSCIFI)
*, MoEulerCodeSCIFI (MaxPlanesSCIFI)
*, MbFibresSCIFI (MaxPlanesSCIFI)
*, DirMeasSCIFI (MaxPlanesSCIFI)
*, EulerAnglesSCIFI (3,MaxPlanesSCIFI)
*, WiHeThSCIFI (3,MaxPlanesSCIFI)
*, CenterPlaneSCIFI (3,MaxPlanesSCIFI)
*, PosFirstFibreSCIFI (MaxPlanesSCIFI)
*, PitchSCIFI (MaxPlanesSCIFI)
*, MoPlaneGlobalFromSCIFI (MaxPlanesSCIFI)
integer*4 NbPlanesSCIFI,MoPlanesSCIFI,MoCloseAxisSCIFI
*, MoEulerCodeSCIFI
*, MbFibresSCIFI,DirMeasSCIFI,MoPlaneGlobalFromSCIFI
real*4 EulerAnglesSCIFI,WiHeThSCIFI,CenterPlaneSCIFI
*, PosFirstFibreSCIFI ,PitchSCIFI
c
integer*4 MaxPlanesTarget
parameter (MaxPlanesTarget=12)
common/GeomTarget/
* NoPlaneTarget
*, NbPlanesTarget
*, MoPlanesTarget (MaxPlanesTarget)
*, MoCloseAxisTarget (MaxPlanesTarget)
*, MoEulerCodeTarget (MaxPlanesTarget)
*, EulerAnglesTarget (3,MaxPlanesTarget)
*, WiHeThTarget (3,MaxPlanesTarget)
*, CenterPlaneTarget (3,MaxPlanesTarget)
*, RefToGlobalFromTarget (MaxPlanesTarget)
*, NamesTarget (MaxPlanesTarget)
c...............to be defined
c $#$ *, MatterTarget (MaxPlanesTarget)
integer*4 NoPlaneTarget,NbPlanesTarget,MoPlanesTarget
*, MoCloseAxisTarget,MoEulerCodeTarget
*, RefToGlobalFromTarget
real*4 EulerAnglesTarget,WiHeThTarget,CenterPlaneTarget
character*16 NamesTarget
c
common/Global/HostHP ,HostMac ,HostAiX ,HostName
*, userPath ,publicPath
*, InteractiveMode
logical HostHP,HostMac ,HostAiX ,InteractiveMode
character userPath*60 ,publicPath*60 ,HostName*32
c
integer MxFGeom ,MxFEvtIn ,MxFEvtOut ,MxFCalib ,MxHoll
*, MxItems ,MxRunEvt ,MxHistOpt
parameter (MxFGeom = 2 ,MxFEvtIn = 100
+, MxRunEvt = 100 ,MxItems = 10
+, MxHistOpt = 15
+, MxFEvtOut = 2 ,MxFCalib = 2 ,MxHoll = 20)
common/JobControl/jobEventSel(3) ,jobEventPri(4)
+, jobIOtype(4) ,jobEvtOut(2)
+, jobDisplayEvt(2) ,jobSpare(2)
+, jobPhasePrint(20) ,jobPhaseExe(20)
+, jobRecInDump(4) ,jobRecOutDump(4)
+, jobHistOptions(MxHistOpt)
+, Items(MxItems) ,NamesHoll(MxHoll)
+, nRunEvt ,jobRunEvt(4,MxRunEvt)
+, nRundone(MxRunEvt)
+, nFGeom ,GeometryFile (MxFGeom)
+, nFEvtIn ,EventFileIn (MxFEvtIn)
+, nFEvtOut ,EventFileOut (MxFEvtOut)
+, nFCalib ,CalibrationFile (MxFCalib)
integer*4 jobEventSel,jobEventPri ,jobHistOptions ,jobIOtype
+, jobPhasePrint ,jobPhaseExe ,jobRecInDump ,jobRecOutDump
+, jobEvtOut ,jobDisplayEvt ,jobSpare
+, Items ,nRunEvt ,jobRunEvt ,nRundone
+, NamesHoll
+, nFGeom,nFEvtIn ,nFEvtOut , nFCalib
character*80 GeometryFile ,EventFileIn
+, EventFileOut ,CalibrationFile
c
integer*4 JobStarting ,jobInputReading ,jobBlocksPointing
*, jobTitlesReading, jobGenDecoding ,jobBlocksDecoding
*, jobEventProcessing ,jobOutputWriting
*, jobEventEnding ,jobRunEnding ,JobTerminating
*, jobRunStarting
parameter ( JobStarting = 1 , jobInputReading = 2
*, jobBlocksPointing = 3 , jobGenDecoding = 4
*, jobTitlesReading = 5 , jobBlocksDecoding = 6
*, jobEventProcessing = 7 , jobOutputWriting = 8
*, jobEventEnding = 9 , JobTerminating = 10
*, jobRunEnding = 11 , jobRunStarting = 12)
c
integer*4 MaxClasses,MaxMeasPlanes,MaxMeas
parameter (MaxClasses=20 ,MaxMeasPlanes=100 ,MaxMeas=5000)
common/Measurements/NbClasses,NbMeasPlanes,NbMeasPts
*, MoAxesPerClass(MaxClasses)
*, MobMeasPlanesPerClass(2,MaxClasses)
*, MobMeasPerPlane(2,MaxMeasPlanes)
*, RefFromMeasPlanes(MaxMeasPlanes)
*, ListAllPlanes(MaxMeasPlanes)
*, nDist(MaxMeasPlanes)
*, tSigma(MaxMeasPlanes),tMeas(MaxMeas)
*, tDrift(MaxMeas),tDriftTime(MaxMeas)
*, tTime(MaxMeas),tCharge(MaxMeas)
*, MobProjPerClass(2,MaxClasses)
*, SignalMeas(MaxMeas),TimeMeas(MaxMeas)
integer*4 NbClasses,NbMeasPlanes,NbMeasPts,MoAxesPerClass
*, MobMeasPlanesPerClass,MobMeasPerPlane
*, RefFromMeasPlanes,ListAllPlanes
*, MobProjPerClass,SignalMeas,TimeMeas
real*4 nDist,tSigma,tMeas,tDrift,tDriftTime,tTime,tCharge
c
integer*4 MaxWordsMonteCarlo
parameter (MaxWordsMonteCarlo=5000)
common/MonteCarlo/NbWordsMonteCarlo
*, BufferMonteCarlo (MaxWordsMonteCarlo)
integer*4 NbWordsMonteCarlo ,BufferMonteCarlo
c
integer*4 MaxWordsOutBuffer
parameter (MaxWordsOutBuffer=8192)
common/OutBuffer/NbWordsOutBuffer,OutBuffer(MaxWordsOutBuffer)
integer*4 NbWordsOutBuffer,OutBuffer
c
integer*4 MaxWordsProcessed
parameter (MaxWordsProcessed=5000)
common/Processed/NbWordsProcessed
*, BufferProcessed (MaxWordsProcessed)
integer*4 NbWordsProcessed ,BufferProcessed
c
integer*4 MaxWordsRecordInput,MaxWordsRecordOutput
*, MaxFeras,MaxBlocks2,MaxRunParam,MaxRunParamStrings
parameter (MaxWordsRecordInput = 2100000 ! 1048576
*, MaxWordsRecordOutput = 65536
*, MaxFeras = 256
c...LOOKOUT: MaxBlocks2 should be equal to MaxBlocks in /Blocks/
*, MaxBlocks2 = 27
*, MaxRunParam=100 , MaxRunParamStrings=10)
common/RawData/
* NbWordsRecordInput
*, SupWordsRecordOutput
*, BufferInput (MaxWordsRecordInput)
*, VersionEventInput
*, NbWordsEventInput
*, PtrEventInput
*, NbWordsRecordOutput
*, BufferOutput (MaxWordsRecordOutput)
*, VersionEventOutput
*, NbWordsEventOutput
*, PtrEventOutput
*, NbRunParam
*, NbRunParamStrings
*, NbRunParamBlocks
*, RunParamMoBrCrSl(3,0:MaxFeras)
*, RunParam(MaxRunParam)
*, RunParamBlocks(MaxBlocks2)
*, RunParamDate
*, RunParamStrings(MaxRunParamStrings)
*, FeraNames (0:MaxFeras)
*, FeraTypes(0:MaxFeras)
*, FromVSN(0:MaxFeras)
*, NbBufferInputOVFL
*, StartRunTimeUnix
integer*4 NbWordsRecordInput ,SupWordsRecordOutput ,BufferInput
*, VersionEventInput ,NbWordsEventInput ,PtrEventInput
*, NbWordsRecordOutput ,BufferOutput
*, VersionEventOutput ,NbWordsEventOutput ,PtrEventOutput
*, NbRunParam,NbRunParamStrings,NbRunParamBlocks
*, RunParamMoBrCrSl,RunParam,RunParamBlocks
*, FromVSN,NbBufferInputOVFL,StartRunTimeUnix
character FeraNames*12,FeraTypes*12
*, RunParamDate*24,RunParamStrings*80
c
integer*4 MaxFailPosts,MaxFailTypes
parameter (MaxFailPosts = 200
*, MaxFailTypes = 10)
common/StatRun/
* NbFilesInput ,NbRecordsInput ,NbEventsInput
*, NbDataEvtsInput ,NbAllRecordsIn
*, MaxFilesInput ,MaxEventsInput
*, MinSizeEvtIn ,MaxSizeEvtIn
*, NbFilesOutput ,NbRecordsOutput ,NbEventsOutput
*, NbDataEvtsOutput
*, MaxFilesOutput ,MaxEventsOutput
*, MinSizeEvtOut ,MaxSizeEvtOut
*, NbFailPosts ,NbIOPosts
*, FailCounts (MaxFailPosts,0:MaxFailTypes)
*, GlobalCounts (MaxFailPosts,0:MaxFailTypes)
*, NamesFailCounts (MaxFailPosts)
*, NbEventsStart , NbEventsStop
*, NbDataEvtsStart ,NbDataEvtsStop
*, TimeRunStart , TimeRunStop
*, NbEvtsInRun
integer*4 NbFilesInput,NbRecordsInput,NbEventsInput
*, NbDataEvtsInput,NbAllRecordsIn
*, MaxFilesInput,MaxEventsInput
*, MinSizeEvtIn ,MaxSizeEvtIn
*, NbFilesOutput,NbRecordsOutput,NbEventsOutput
*, NbDataEvtsOutput
*, MaxFilesOutput ,MaxEventsOutput
*, MinSizeEvtOut ,MaxSizeEvtOut
*, NbFailPosts ,NbIOPosts ,FailCounts ,GlobalCounts
*, NbEventsStart ,NbEventsStop
*, NbDataEvtsStart ,NbDataEvtsStop, NbEvtsInRun
real*4 TimeRunStart ,TimeRunStop
character NamesFailCounts*12
c
integer*4 MaxSubTitles
parameter (MaxSubTitles=50) ! MUST be larger than MaxBlocks
common/Titles/NbWantSubTitles ,NbGetSubTitles
*, MoGetSubTitles (MaxSubTitles)
*, RefToAllTitles (MaxSubTitles)
*, MoRun (2,MaxSubTitles)
*, NbNamesAllTitles
*, NamesAllTitles (MaxSubTitles)
*, NameSubTitle (MaxSubTitles)
integer*4 NbWantSubTitles, NbGetSubTitles, MoGetSubTitles
*, RefToAllTitles, MoRun, NbNamesAllTitles
character NamesAllTitles*10, NameSubTitle*21
c
c....logical units
common/UnitsIO/LunitKeyboard ,LunitScreen
*, LunitErrors ,LunitLog ,LunitDump
*, LunitInput ,LunitOutput
*, LunitFFread ,LunitDummy ,LunitDraw, LunitMore
c
integer*4 LunitKeyboard,LunitScreen,LunitErrors,LunitLog
*, LunitDump ,LunitInput,LunitOutput
*, LunitFFread ,LunitDummy ,LunitDraw, LunitMore
c