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