module minima
      implicit none
      integer maxiter
      integer nextiter
      real*8 fctmin
      real*8 hguess
      save
      end