thin_wall_solvers.F90 File Reference

#include "local.h"

Modules
module	thin_wall_solvers
	Module for thin-wall modeling on 3D triangular meshes.

Functions/Subroutines
subroutine	frequency_response (self, direct, fr_limit, freq, driver, hodlr_op)
	Needs Docs.
recursive subroutine	gmres_comp (nrits, its, ncoils, a, u, g, graph, nlocal, loverlap)
	Needs Docs.
subroutine	lr_eigenmodes_arpack (self, neigs, eig_rval, eig_vec, eig_ival, hodlr_op)
	Compute L/R eigenmodes of ThinCurr model using an iterative Lanczos method via ARPACK.
subroutine	lr_eigenmodes_direct (self, neigs, eig_rval, eig_vec, eig_ival)
	Compute L/R eigenmodes of ThinCurr model using a direct approach via LAPACK.
subroutine	mat_comp (n, a, x, b)
	Dot product with a second vector.
subroutine	plot_td_sim (self, nsteps, nplot, sensors, compute_b, rebuild_sensors, sensor_vals, hodlr_op)
	Needs Docs.
subroutine	run_td_sim (self, dt, nsteps, vec, direct, lin_tol, use_cn, nstatus, nplot, sensors, curr_waveform, volt_waveform, sensor_vals, hodlr_op)
	Needs Docs.
subroutine	tw_reduce_model (self, sensors, neigs, eig_vec, filename, compute_b, hodlr_op)
	Needs Docs.
double complex function	vec_comp_dot (n, a, b)
	Dot product with a second vector.

Function/Subroutine Documentation

gmres_comp()

recursive subroutine gmres_comp ( integer(i4), intent(in) nrits, integer(i4), intent(in) its, integer(i4), intent(in) ncoils, double complex, dimension(ncoils,ncoils), intent(inout) a, double complex, dimension(:), intent(inout), contiguous u, double complex, dimension(:), intent(inout), contiguous g, type(oft_graph), intent(inout) graph, integer(i4), intent(in) nlocal, logical, intent(in) loverlap )

private

Needs Docs.

mat_comp()

subroutine mat_comp ( integer(i4), intent(in) n, double complex, dimension(n,n), intent(in) a, double complex, dimension(n), intent(in) x, double complex, dimension(n), intent(out) b )

private

Dot product with a second vector.

Parameters

[in]

a

Second vector for dot product

Returns

\( \sum_i self_i a_i \)

vec_comp_dot()

double complex function vec_comp_dot ( integer(i4), intent(in) n, double complex, dimension(n), intent(in) a, double complex, dimension(n), intent(in) b )

private

Dot product with a second vector.

Parameters

[in]

a

Second vector for dot product

Returns

\( \sum_i self_i a_i \)