*-- Author : S.J. Maxfield
SUBROUTINE FPTDIA
******========== ======*********************************************
* DIAGNOSTICS FOR PATTERN RECOGNITION IN FORWARD DRIFT CHAMBERS *
* =========== === ======= =========== == ======= ===== ======== *
* *
********************************************************************
* BOS Commons...
*KEEP,BCS.
*KEEP,BOSMDL.
C ------BOSMDL
C ------
*KEEP,FRDIMS.
*KEEP,FPPRAM.
C
C--- MAXSEG is maximum number of segments per supermodule
C--- MAXCON is maximum number of amibiguous segments associatable with
C--- one segment
C--- LIMSTO is maximum number of 2 cluster planes intersections to be
C--- stored per supermodule
C--- MSEGLM is maximum number of clusters that can be found before
C--- connectivity considered
C--- MAXCLU is maximum number of clusters that can be found after
C--- forming non-connected set MUST BE 50 IF RUN WITH OLD RCW
C--- (cluster = 3/4 digits found in a straight line in one
C--- 4-wire orientation)
C
C---
*KEEP,H1EVDT.
*
* IDATA type of information (HEAD bank word 6) :
*
* 0 - real data H1
* 1 - MC data H1SIM
* 2 - real data CERN tests
* 3 - MC data ARCET
*
* MONTE = .TRUE. if IDATA=1
* KEVENT = event processed counter for H1REC
*
*KEND.
* Diagnostic flag from FRCS BANK
*KEEP,FDIFLG.
*KEND.
* Vertex...
*KEEP,FPTVTX.
**the common/VERTEX/ becomes /VERTVV/ (in analogy to /VERTFF/) on the
** 17/6/91, since it is in conflict with the VERTEX module (g.bernardi)
** (note that all these common names should start by F in this deck...)
*KEND.
* Radial geometry...
* Planar geometry...
* Radial hits...
* Planar hits...
*KEEP,FH1WORK.
* Planar geometry
*
* Radial geometry
*
* Radial data...
*
* Planar Data
*
* Pointers into DIGI bank for IOS labelled hits
*
* Track segment data
*
* Fit data
*
*
*KEEP,FPLSEG.
C---
C---
*KEND.
* Common for work bank indices...
*------statement functions for table access--------------------------
*KEEP,STFUNCT.
* index of element before row number IROW
* index of L'th element of row number IROW
* L'th integer element of the IROW'th row of bank with index IND
* L'th real element of the IROW'th row of bank with index IND
*KEND.
*------------------------Begin --------------------------------------
* Short printout...
IWFTUR = NLINK('FTUR',0)
* Check to see if any information...
*
* For all events, REAL and MONTE CARLO...
CALL FPFTUR
CALL FPFPUR
CALL FPFRUX
CALL FPFPUX
CALL FPFRRE
CALL FPFRPE
CALL FPFRLC
CALL FPFRHC
CALL FPFPLC
CALL FPFPHC
*---- real data diagnostics end here-------------------------
*
*