double precision xmin
      common/xmin/xmin