*-- Author :    S.J. Maxfield
      FUNCTION FLOREN(RADIUS,DRIFT,DRFSGN)
*                                                                                                             
*     Function to calculate the Lorenz angle correction to the                                                
*     radius of hits (along the wire).                                                                        
*                                                                                                             
*     The correction is simply linear with drift distance for now.                                            
*                                                                                                             
*     Usage:                                                                                                  
*     -----                                                                                                   
*          Rcorrected = RADIUS + FLOREN(RADIUS,DRIFT,DRFSGN)                                                  
*                                                                                                             
*     where RADIUS :  uncorrected radial coordinate,                                                          
*           DRIFT  :  drift coordinate and                                                                    
*           DRFSGN :  sign of the drift (+1.0 or -1.0)                                                        
*     are the inputs to the function.                                                                         
*     The tangent of the Lorenz angle, ATLORR, is provided in                                                 
*     COMMON block FRLORA.                                                                                    
*                                                                                                             
*                                                                                                             
*KEEP,FRLORA.                                                                                                 
      REAL            ATLORR, ATLORP, DTANGR, DTANGP                    
      COMMON /FRLORA/ ATLORR, ATLORP, DTANGR, DTANGP                    
*KEND.                                                                                                        
      FLOREN = - DRFSGN * ATLORR * DRIFT                                
      RETURN                                                            
      END                                                               
*