V3FIT
reset_params.f
1  SUBROUTINE reset_params
2  USE precon2d, ONLY: ictrl_prec2d
3  USE vmec_main, ONLY: iequi, ivac, ftolv, fsqr, fsqz, fsq, dp,
4  1 res0, delt0r, iter1, iter2, ijacob, irst
5  USE vmec_input, ONLY: delt
6  USE timer_sub, ONLY: timer
7  IMPLICIT NONE
8 C-----------------------------------------------
9 
10 
11 ! 2d preconditioner
12  ictrl_prec2d = 0
13 
14  iequi = 0
15  ivac = -1
16 
17  fsqr = 1
18  fsqz = 1
19  ftolv = fsqr
20 
21  fsq = 1
22  iter2 = 1
23  iter1 = iter2
24  ijacob = 0
25  irst = 1
26  res0 = -1 !move to vmec_main, remove from runvmec SAVE
27  delt0r = delt !move delt0 to vmec_main from runvmec SAVE (renamed delt0r)
28 
29  timer = 0
30 
31  END SUBROUTINE reset_params