solution6.f90 File Reference

Go to the source code of this file.

Data Types
module	gts_parameters
module	gts_matrix
module	gts_grid
module	gts_gauss
module	gts_values
module	gts_schema
module	gts_coefficients

Functions/Subroutines
subroutine	solution6 (solver, ifail)
REAL *8 function	spwert (N, XWERT, A, B, C, D, X, ABLTG)
subroutine	gts_initialise_coefficients (n_in, x_in, gts_a, gts_b, gts_c, gts_d, gts_e, gts_f, gts_g, gts_h)
subroutine	gts_initialise_profiles (n_in, x_in, y_in, ym_in)
subroutine	gts_element_matrix (ife, time, timestep, ELM, RHS)
subroutine	gts_construct_grid (n_in, x_in)
subroutine	gts_construct_matrix (u, v, w, time, timestep)
subroutine	gts_finite_elements (xm, FE, DFE, DDFE)
subroutine	gts_solve_matrix
subroutine	spline (N, X, Y, ALFA, BETA, TYP, A, B, C, D)
subroutine	dgtsl (N, C, D, E, B, INFO)

Function/Subroutine Documentation

subroutine solution6::dgtsl	(	integer	N,
		real*8, dimension(*)	C,
		real*8, dimension(*)	D,
		real*8, dimension(*)	E,
		real*8, dimension(*)	B,
		integer	INFO
	)

Definition at line 812 of file solution6.f90.

Referenced by spline().

Here is the caller graph for this function:

subroutine solution6::gts_construct_grid	(	integer	n_in,
		real*8, dimension(n_in)	x_in
	)

Definition at line 469 of file solution6.f90.

References gts_finite_elements(), spline(), and spwert().

Referenced by solution6().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine solution6::gts_construct_matrix	(	real*8, dimension(neq,2)	u,
		real*8, dimension(neq,2)	v,
		real*8, dimension(neq,2)	w,
		real*8	time,
		real*8	timestep
	)

Definition at line 524 of file solution6.f90.

References gts_element_matrix().

Referenced by solution6().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine solution6::gts_element_matrix	(	integer	ife,
		real*8	time,
		real*8	timestep,
		real*8, dimension(2*nvar*neq,2*nvar*neq)	ELM,
		real*8, dimension(2*nvar*neq)	RHS
	)

Definition at line 354 of file solution6.f90.

References gts_finite_elements().

Referenced by gts_construct_matrix().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine solution6::gts_finite_elements	(	real*8	xm,
		real*8, dimension(*)	FE,
		real*8, dimension(*)	DFE,
		real*8, dimension(*)	DDFE
	)

Definition at line 609 of file solution6.f90.

Referenced by gts_construct_grid(), and gts_element_matrix().

Here is the caller graph for this function:

subroutine solution6::gts_initialise_coefficients	(	integer	n_in,
		real*8, dimension(n_in)	x_in,
		real*8, dimension(neq,n_in)	gts_a,
		real*8, dimension(neq,n_in)	gts_b,
		real*8, dimension(neq,n_in)	gts_c,
		real*8, dimension(neq,n_in)	gts_d,
		real*8, dimension(neq,n_in)	gts_e,
		real*8, dimension(neq,n_in)	gts_f,
		real*8, dimension(neq,n_in)	gts_g,
		real*8	gts_h
	)

Definition at line 202 of file solution6.f90.

References spline(), and spwert().

Referenced by solution6().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine solution6::gts_initialise_profiles	(	integer	n_in,
		real*8, dimension(n_in)	x_in,
		real*8, dimension(neq,n_in)	y_in,
		real*8, dimension(neq,n_in)	ym_in
	)

Definition at line 312 of file solution6.f90.

References spline(), and spwert().

Referenced by solution6().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine solution6::gts_solve_matrix

(

)

Definition at line 630 of file solution6.f90.

Referenced by solution6().

Here is the caller graph for this function:

subroutine solution6	(	type (solver_io)	solver,
		integer	ifail
	)

Definition at line 55 of file solution6.f90.

References gts_construct_grid(), gts_construct_matrix(), gts_initialise_coefficients(), gts_initialise_profiles(), and gts_solve_matrix().

Referenced by solution_interface().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine solution6::spline	(	integer	N,
		real*8, dimension(n)	X,
		real*8, dimension(n)	Y,
		real*8	ALFA,
		real*8	BETA,
		integer	TYP,
		real*8, dimension(n)	A,
		real*8, dimension(n)	B,
		real*8, dimension(n)	C,
		real*8, dimension(n)	D
	)

Definition at line 655 of file solution6.f90.

References dgtsl().

Referenced by gts_construct_grid(), gts_initialise_coefficients(), and gts_initialise_profiles().

Here is the call graph for this function:

Here is the caller graph for this function:

REAL*8 function solution6::spwert	(	integer	N,
		real*8	XWERT,
		real*8, dimension(n)	A,
		real*8, dimension(n)	B,
		real*8, dimension(n)	C,
		real*8, dimension(n)	D,
		real*8, dimension(n)	X,
		real*8, dimension(3)	ABLTG
	)

Definition at line 155 of file solution6.f90.

Referenced by gts_construct_grid(), gts_initialise_coefficients(), and gts_initialise_profiles().

Here is the caller graph for this function: