c
integer fgnhsci ! Nhit of SCIFI detector
integer fgnhscix ! Nhit in xx-layer
integer fgnhsciy ! Nhit in yy-layer
integer fghlsci ! Nhits of each layer, 2dim:1,2 (x,y)
c
real*4 fghsci ! Space coordinates (cm unit)
integer fgxysci ! x,y (1,2)
integer fgsctsci ! section number (minus offset)
integer fghsciiit ! iit number
integer fghscinpix ! total number of pixels
integer fghscitadc ! total ADC sum
integer fghpesci ! Np.e.
c relation to sfdata.ch
integer fghscifcid ! Fiber Cluster ID (sfdata.ch)
integer fghscifcw ! FC weight
c...moved from fiber_hit_class.ch
integer fiber_rs_tag ! track correlated ?
integer fsig_fib,fnos_fib,noise_fib
integer fsig_list,fnos_list
c
common/fghsci/fgnhsci
& ,fgnhscix,fgnhsciy
& ,fghlsci(FGNLYRSCI,2)
& ,fghsci(FGMAXHSCI,3)
& ,fgxysci(FGMAXHSCI)
& ,fgsctsci(FGMAXHSCI)
& ,fghsciiit(FGMAXHSCI)
& ,fghscinpix(FGMAXHSCI)
& ,fghscitadc(FGMAXHSCI)
& ,fghpesci(FGMAXHSCI)
& ,fghscifcid(FGMAXHSCI)
& ,fghscifcw(FGMAXHSCI)
c
& ,fiber_rs_tag(FGMAXHSCI)
& ,fsig_fib,fnos_fib,noise_fib
& ,fsig_list(FGMAXHSCI)
& ,fnos_list(FGMAXHSCI)
Although this common is desirable to be replaced with Libscifi Fiber Cluster Common Block, it still exists in many SciFi codes, mainly for scitr / gdrsft. As to compromize, variable to make connection to Fiber Cluster is given as fghscifcid.