grad_shaf_fit.F90 File Reference

#include "local.h"

Data Types
type	coil_constraint
	Coil current constraint. More...
type	dflux_constraint
	Diamagnetic flux constraint. More...
type	field_constraint
	Local magnetic field constraint. More...
type	fit_constraint
	Abstract fit constraint. More...
type	fit_constraint_ptr
	Reconstruction constraint pointer. More...
type	flux_constraint
	Flux loop constraint. More...
type	itor_constraint
	Toroidal current constraint. More...
type	press_constraint
	Plasma pressure constraint. More...
type	q_constraint
	Safety factor constraint. More...
type	saddle_constraint
	Saddle loop constraint. More...
type	vcont_constraint
	Virtual VSC current constraint. More...

Modules
module	oft_gs_fit
	GS Fitting implementation.

Functions/Subroutines
real(8) function	fit_coil_error (self, gs)
	Needs Docs.
real(8) function	fit_coil_eval (self, gs)
	Needs Docs.
subroutine	fit_confidence (m, n, cofs)
	Estimate confidence in the fit from linearization.
subroutine	fit_destroy (self)
	Needs Docs.
real(8) function	fit_dflux_error (self, gs)
	Needs Docs.
real(8) function	fit_dflux_eval (self, gs)
	Needs Docs.
real(8) function	fit_dummy_error (self, gs)
	Needs Docs.
real(8) function	fit_dummy_eval (self, gs)
	Needs Docs.
real(8) function	fit_dummy_nax_corr (self, gs)
	Needs Docs.
logical function	fit_dummy_parallel (self)
	Needs Docs.
subroutine	fit_dummy_setup_comp (self)
	Needs Docs.
subroutine	fit_error (m, n, cofs, err, iflag)
	Needs docs.
subroutine	fit_error_grad (m, n, cofs, err, jac_mat, ldjac_mat, iflag)
	Needs docs.
real(8) function	fit_field_error (self, gs)
	Needs Docs.
real(8) function	fit_field_eval (self, gs)
	Needs Docs.
subroutine	fit_field_setup_comp (self)
	Needs Docs.
real(8) function	fit_flux_error (self, gs)
	Needs Docs.
real(8) function	fit_flux_eval (self, gs)
	Needs Docs.
subroutine, public	fit_gs (gs, inpath, outpath, fiti, fitp, fit_p_scale, fit_ffp_scale, fitr0, fitz0, fitcoils, fitf0, fixedcentering)
	Needs Docs.
subroutine, public	fit_gs_destroy (gs, constraints)
	Needs Docs.
subroutine, public	fit_gs_error (gs, constraints, outpath, error_mat)
	Needs Docs.
subroutine, public	fit_gs_setup (gs, constraints, inpath)
	Needs Docs.
real(8) function	fit_itor_error (self, gs)
	Needs Docs.
real(8) function	fit_itor_eval (self, gs)
	Needs Docs.
logical function	fit_itor_parallel (self)
	Needs Docs.
subroutine, public	fit_load (filename, cons)
	Needs Docs.
real(8) function	fit_press_error (self, gs)
	Needs Docs.
real(8) function	fit_press_eval (self, gs)
	Needs Docs.
real(8) function	fit_q_error (self, gs)
	Needs Docs.
real(8) function	fit_q_eval (self, gs)
	Needs Docs.
logical function	fit_q_parallel (self)
	Needs Docs.
real(8) function	fit_saddle_error (self, gs)
	Needs Docs.
real(8) function	fit_saddle_eval (self, gs)
	Needs Docs.
subroutine	fit_saddle_setup_comp (self)
	Needs Docs.
real(8) function	fit_vcont_error (self, gs)
	Needs Docs.
real(8) function	fit_vcont_eval (self, gs)
	Needs Docs.
character(len=oft_error_slen) function	minpack_exit_reason (info)
	Decode MINPACK exit flag info.
subroutine	reset_eq
subroutine	run_err (linear, err, m, ierr)

Variables
real(8)	chi_best = 1.d99
	Needs docs.
real(8), dimension(:), allocatable	cofs_best
	Needs docs.
real(8), dimension(:), allocatable	cofs_scale
	Needs docs.
type(fit_constraint_ptr), dimension(:), pointer	conlist => NULL()
	Needs docs.
real(8), dimension(:), allocatable	curr_in
	Needs docs.
integer(4), private	feval_count = 0
	Needs docs.
real(8)	ffp_scale_best = 1.d99
	Needs docs.
logical, private	fit_coils = .FALSE.
	Needs docs.
logical, private	fit_f0 = .FALSE.
	Needs docs.
logical, private	fit_ffpscale = .FALSE.
	Needs docs.
logical, private	fit_i = .TRUE.
	Needs docs.
logical, private	fit_p = .TRUE.
	Needs docs.
logical, public	fit_pm = .FALSE.
	Needs docs.
logical, private	fit_pscale = .TRUE.
	Needs docs.
logical, private	fit_r0 = .FALSE.
	Needs docs.
logical, private	fit_z0 = .FALSE.
	Needs docs.
logical, private	fixed_centering = .FALSE.
	Needs docs.
integer(4), private	geval_count = 0
	Needs docs.
type(gs_equil), pointer, public	gs_active => NULL()
	Needs docs.
logical, private	linearized_fit = .FALSE.
	Needs docs.
integer(4), private	ncofs = 0
	Needs docs.
integer(4), private	ncond_active = 0
	Needs docs.
integer(4), private	ncons = 0
	Needs docs.
real(8)	p_scale_best = 1.d99
	Needs docs.
class(oft_vector), pointer	psi_best => NULL()
	Needs docs.
real(8)	vcont_best = 1.d99
	Needs docs.

Function/Subroutine Documentation

minpack_exit_reason()

character(len=oft_error_slen) function minpack_exit_reason ( integer(4), intent(in) info )

private

Decode MINPACK exit flag info.

Parameters

[out]

info

Error flag

reset_eq()

subroutine reset_eq

private