double precision bex0, bexx, bexy
      double precision bexxx, bexyy, bexxy
      double precision bey0, beyx, beyy
      double precision beyxx, beyyy, beyxy
      double precision bez0, bezx, bezy
      double precision bezxx, bezyy, bezxy
      double precision fnbex, fnbey, fnbez, xbe,ybe