SUBROUTINE : FFRCEL(XY,JFT,ICELL,IWEDGE,DRIFT) AUTHOR : Stephen Burke DATE : 06/08/92 LANGUAGE : FORTRAN SHORT SUMMARY of PURPOSE: Calculate a radial cell number from an x/y position. Returns ICELL = -1 if JFT is invalid. LIST and DESCRIPTION of INPUT VARIABLES/ARGUMENTS: XY - (x,y) coordinates (REAL*8) JFT - z plane number (1 to 72) FGAR bank (radial geometry) LIST and DESCRIPTION of OUTPUT VARIABLES/ARGUMENTS: ICELL - cell number IWEDGE - sign of wedge in wedge-pair DRIFT - drift distance of point from wire (signed) CALLING TREE from FFRCEL : None FUNCTIONS USED : None KEEP SEQUENCES USED : BCS BOSMDL FKNPL FFSTEE FKPIDP
Comments from FFRCEL