*-- Author : Stephen Burke
SUBROUTINE FFPCEL(XY,JFT,ICELL,DRIFT)
*-----------------------------------------Updates 13/03/92-------
**: FFPCEL 30205.SB. Only call UGTBNK when run number changes
*-----------------------------------------Updates 13/02/92-------
**: FFPCEL 30205.SB. ERRLOG error numbers changed.
*-----------------------------------------Updates 07/02/92-------
**: FFPCEL 30205.SB. Remove unused FKMEAS sequence.
*-----------------------------------------Updates 24/01/92-------
**: FFPCEL 30205.SB. ERRLOG message format changed.
*-----------------------------------------Updates----------------
**********************************************************************
* *
* Calculate a planar cell number from a position *
* *
* Returns ICELL = -1 if JFT is invalid *
* *
**********************************************************************
*KEEP,BCS.
*KEEP,BOSMDL.
C ------BOSMDL
C ------
*KEEP,FKNPL.
*
* Per-track values can go in H1WORK; note that LTRUE and LFIRST must
* be set at least per event.
*
* This is about 36k words long; the remaining common blocks are
* about 3.6k in total. Some of this could be in /H1WORK/, but the
* blocks would have to be reorganised.
*
* /FKPROJ/
* /FKFILT/
* /FKSMTH/
* /FKINT/
* /FKRSID/
* /FKTRUE/
* /FKDBG/
*KEEP,FFSTEE.
*KEEP,FKPIDP.
*KEND.
**********************************************************************
* Get geometry bank
CALL UGTBNK('FGAP',INFGAP)
CALL ERRLOG(341,'S:FFPCEL: Bank FGAP not found')
CALL UCOPY(RW(INFGAP+1),FGAP,75)
* Orientation and wire number
* NB The format of FGAP is hard-coded here
* Cell number and drift (NB check stagger!)
* Adjust cell number for split cells
* Cell number
*