reset_params.f

      SUBROUTINE reset_params
      USE precon2d, ONLY: ictrl_prec2d
      USE vmec_main, ONLY: iequi, ivac, ftolv, fsqr, fsqz, fsq, dp,
     1                     res0, delt0r, iter1, iter2, ijacob, irst
      USE vmec_input, ONLY: delt
      USE timer_sub, ONLY: timer
      IMPLICIT NONE
C-----------------------------------------------
 
 
!     2d preconditioner
      ictrl_prec2d = 0
 
      iequi = 0
      ivac  = -1
 
      fsqr = 1
      fsqz = 1
      ftolv = fsqr
 
      fsq   = 1
      iter2 = 1
      iter1 = iter2
      ijacob = 0
      irst = 1
      res0 = -1       !move to vmec_main, remove from runvmec SAVE
      delt0r = delt   !move delt0 to vmec_main from runvmec SAVE (renamed delt0r)
 
      timer =  0
 
      END SUBROUTINE reset_params