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