FIXME : Add documentation
subroutine read_parameters
implicit none
namelist /testgridgen/ source, gsource, &
nthetaout,nlambdaout,nperiodout, &
npadd,alknob,epsknob,bpknob,extrknob,smoothknob, nfinegrid, &
thetamax, deltaw, widthw, tension, gingrid, screenout, &
auto_width, cv_fraction, delth_max, max_autoiter, three_dim, &
iperiod, &
no_end_point, ncsource
gsource = "eik6.out"
source = "eik.out"
nthetaout = 32
nlambdaout = 20
nperiodout = 2
npadd = 2
alknob = 0.1
bpknob = 1.e-8
epsknob = 1e-9
extrknob = 10.0
smoothknob = 0.0
nfinegrid=200
thetamax = 0.0
deltaw = 0.0
widthw = 1.0
tension = 1.0
screenout = .false.
auto_width = .false.
cv_fraction = 0.6
delth_max = 0.5
max_autoiter = 3
gingrid = "gingrid"
three_dim = .false.
iperiod = 1
no_end_point = .false.
ncsource = ""
read (unit=input_unit("testgridgen"), nml=testgridgen)
nthetaout = nthetaout + 1
end subroutine read_parameters