V3FIT
VMEC2000
Sources
Initialization_Cleanup
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
Generated on Thu Mar 5 2020 15:49:27 for V3FIT by
1.8.17