oft_gs_fit Module Reference

Detailed Description

GS Fitting implementation.

Authors

Chris Hansen

Date

March 2014

Data Types
type	coil_constraint
	Needs Docs. More...
type	dflux_constraint
	Needs Docs. More...
type	field_constraint
	Needs Docs. More...
type	fit_constraint
	Needs Docs. More...
type	fit_constraint_ptr
	Needs Docs. More...
type	flux_constraint
	Needs Docs. More...
type	itor_constraint
	Needs Docs. More...
type	press_constraint
	Needs Docs. More...
type	q_constraint
	Needs Docs. More...
type	saddle_constraint
	Needs Docs. More...
type	vcont_constraint
	Needs Docs. More...

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.
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)
subroutine	fit_error_grad (m, n, cofs, err, jac_mat, ldjac_mat, iflag)
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, fiti, fitp, fitpnorm, fitalam, fitr0, fitv0, fitcoils, fitf0, fixedcentering)
	Needs Docs.
real(8) function	fit_itor_error (self, gs)
	Needs Docs.
real(8) function	fit_itor_eval (self, gs)
	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.
subroutine	run_err (linear, err, m, ierr)

Variables
real(8)	alam_best = 1.d99
real(8)	chi_best = 1.d99
real(8), dimension(:), allocatable	cofs_best
real(8), dimension(:), allocatable	cofs_scale
type(fit_constraint_ptr), dimension(:), pointer	conlist => NULL()
real(8), dimension(:), allocatable	curr_in
integer(4), private	feval_count = 0
logical, private	fit_alam = .FALSE.
logical, private	fit_coils = .FALSE.
logical, private	fit_f0 = .FALSE.
logical, private	fit_i = .TRUE.
logical, private	fit_p = .TRUE.
logical, public	fit_pm = .FALSE.
logical, private	fit_pnorm = .TRUE.
logical, private	fit_r0 = .FALSE.
logical, private	fit_v0 = .FALSE.
logical, private	fixed_centering = .FALSE.
integer(4), private	geval_count = 0
type(gs_eq), pointer, public	gs_active => NULL()
logical, private	linearized_fit = .FALSE.
integer(4), private	ncofs = 0
integer(4), private	ncond_active = 0
integer(4), private	ncons = 0
real(8)	pnorm_best = 1.d99
class(oft_vector), pointer	psi_best => NULL()
real(8)	vcont_best = 1.d99

Function/Subroutine Documentation

fit_coil_error()

real(8) function fit_coil_error ( class(coil_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_coil_eval()

real(8) function fit_coil_eval ( class(coil_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_confidence()

subroutine fit_confidence ( integer(4), intent(in)  m, integer(4), intent(in)  n, real(8), dimension(n), intent(in)  cofs  )

private

Estimate confidence in the fit from linearization.

fit_dflux_error()

real(8) function fit_dflux_error ( class(dflux_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_dflux_eval()

real(8) function fit_dflux_eval ( class(dflux_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_dummy_error()

real(8) function fit_dummy_error ( class(fit_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_dummy_eval()

real(8) function fit_dummy_eval ( class(fit_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_dummy_nax_corr()

real(8) function fit_dummy_nax_corr ( class(fit_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_dummy_parallel()

logical function fit_dummy_parallel ( class(fit_constraint), intent(inout)  self )

private

Needs Docs.

fit_dummy_setup_comp()

subroutine fit_dummy_setup_comp ( class(fit_constraint), intent(inout)  self )

private

Needs Docs.

fit_error()

subroutine fit_error ( integer(4), intent(in)  m, integer(4), intent(in)  n, real(8), dimension(n), intent(in)  cofs, real(8), dimension(m), intent(out)  err, integer(4), intent(inout)  iflag  )

private

fit_error_grad()

subroutine fit_error_grad ( integer(4), intent(in)  m, integer(4), intent(in)  n, real(8), dimension(n), intent(in)  cofs, real(8), dimension(m), intent(out)  err, real(8), dimension(ldjac_mat,n), intent(out)  jac_mat, integer(4), intent(in)  ldjac_mat, integer(4), intent(in)  iflag  )

private

fit_field_error()

real(8) function fit_field_error ( class(field_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_field_eval()

real(8) function fit_field_eval ( class(field_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_field_setup_comp()

subroutine fit_field_setup_comp ( class(field_constraint), intent(inout)  self )

private

Needs Docs.

fit_flux_error()

real(8) function fit_flux_error ( class(flux_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_flux_eval()

real(8) function fit_flux_eval ( class(flux_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_gs()

subroutine, public fit_gs	(	type(gs_eq), intent(inout), target	gs,
		logical, intent(in), optional	fiti,
		logical, intent(in), optional	fitp,
		logical, intent(in), optional	fitpnorm,
		logical, intent(in), optional	fitalam,
		logical, intent(in), optional	fitr0,
		logical, intent(in), optional	fitv0,
		logical, intent(in), optional	fitcoils,
		logical, intent(in), optional	fitf0,
		logical, intent(in), optional	fixedcentering
	)

Needs Docs.

fit_itor_error()

real(8) function fit_itor_error ( class(itor_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_itor_eval()

real(8) function fit_itor_eval ( class(itor_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_load()

subroutine, public fit_load	(	character(len=*), intent(in)	filename,
		type(fit_constraint_ptr), dimension(:), intent(out), pointer	cons
	)

Needs Docs.

fit_press_error()

real(8) function fit_press_error ( class(press_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_press_eval()

real(8) function fit_press_eval ( class(press_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_q_error()

real(8) function fit_q_error ( class(q_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_q_eval()

real(8) function fit_q_eval ( class(q_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_q_parallel()

logical function fit_q_parallel ( class(q_constraint), intent(inout)  self )

private

Needs Docs.

fit_saddle_error()

real(8) function fit_saddle_error ( class(saddle_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_saddle_eval()

real(8) function fit_saddle_eval ( class(saddle_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_saddle_setup_comp()

subroutine fit_saddle_setup_comp ( class(saddle_constraint), intent(inout)  self )

private

Needs Docs.

fit_vcont_error()

real(8) function fit_vcont_error ( class(vcont_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

fit_vcont_eval()

real(8) function fit_vcont_eval ( class(vcont_constraint), intent(inout)  self, type(gs_eq), intent(inout)  gs  )

private

Needs Docs.

run_err()

subroutine run_err ( logical, intent(in)  linear, real(8), dimension(m), intent(inout)  err, integer(4), intent(in)  m, integer(4), intent(out)  ierr  )

private

Variable Documentation

alam_best

real(8) alam_best = 1.d99

private

chi_best

real(8) chi_best = 1.d99

private

cofs_best

real(8), dimension(:), allocatable cofs_best

private

cofs_scale

real(8), dimension(:), allocatable cofs_scale

private

conlist

type(fit_constraint_ptr), dimension(:), pointer conlist => NULL()

private

curr_in

real(8), dimension(:), allocatable curr_in

private

feval_count

integer(4), private feval_count = 0

private

fit_alam

logical, private fit_alam = .FALSE.

private

fit_coils

logical, private fit_coils = .FALSE.

private

fit_f0

logical, private fit_f0 = .FALSE.

private

fit_i

logical, private fit_i = .TRUE.

private

fit_p

logical, private fit_p = .TRUE.

private

fit_pm

logical, public fit_pm = .FALSE.

fit_pnorm

logical, private fit_pnorm = .TRUE.

private

fit_r0

logical, private fit_r0 = .FALSE.

private

fit_v0

logical, private fit_v0 = .FALSE.

private

fixed_centering

logical, private fixed_centering = .FALSE.

private

geval_count

integer(4), private geval_count = 0

private

gs_active

type(gs_eq), pointer, public gs_active => NULL()

linearized_fit

logical, private linearized_fit = .FALSE.

private

ncofs

integer(4), private ncofs = 0

private

ncond_active

integer(4), private ncond_active = 0

private

ncons

integer(4), private ncons = 0

private

pnorm_best

real(8) pnorm_best = 1.d99

private

psi_best

class(oft_vector), pointer psi_best => NULL()

private

vcont_best

real(8) vcont_best = 1.d99

private