*CMZ :  2.00/00 17/12/90  15.55.42  by  Girish D. Patel
*-- Author :    S.J. Maxfield
*HTMLP
*
*     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.
*
*HTMLI
*
*           RADIUS :  uncorrected radial coordinate,
*           DRIFT  :  drift coordinate and
*           DRFSGN :  sign of the drift (+1.0 or -1.0)
*
*HTMLO
*
*     Usage:
*     ----- 
*          Rcorrected = RADIUS + FLOREN(RADIUS,DRIFT,DRFSGN)
*
*HTMLE
      FUNCTION FLOREN(RADIUS,DRIFT,DRFSGN)
*