solution1.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	solution1 (SOLVER, ifail)
	This subroutine is prepared to solve single transport equation in standardised form adopted by the ETS. More...
subroutine	solver_ritm (X, N, V, U, W, A, B, C, SOL, DSOL, ISP)
	This is interface for RITM solver, which allows to use the solver on grids starting from zero. More...
subroutine	solver_ritm1 (x, n, v, u, w, a, b, f, y, d, isp)
	This subroutine provides solution for the equation Y''(x)+a(x)*Y'(x)=b(x)*Y(x)-f(x) with boundary conditions: v(1)*Y'(1)+u(1)*Y(1)=w(1) & v(2)*Y'(n)+u(2)*Y(n)=w(2) More...
subroutine	hyp_trig_spline1 (i, n, x, f, a, b, c, d, l)
	This subroutine interpolates the experimental data by using qubic spline so that k additional points are inserted between any two experimental ones. More...
subroutine	derivn1 (N, X, Y, DY1)
	These subroutines calculate first and second derivatives, DY1 and DY2, of function Y respect to argument X. More...
subroutine	axis1 (n, r, f)
	This subroutine finds f(r_1=0) from f(r_2), f(r_3) and f(r_4) More...

Function/Subroutine Documentation

subroutine axis1	(	integer	n,
		real *8, dimension(n)	r,
		real *8, dimension(n)	f
	)

This subroutine finds f(r_1=0) from f(r_2), f(r_3) and f(r_4)

Author

D.Kalupin

Version

"$Id: solution1.f90 141 2009-03-22 17:57:29Z coster $"

Definition at line 685 of file solution1.f90.

Here is the caller graph for this function:

subroutine derivn1	(	integer	N,
		real (r8), dimension(n)	X,
		real (r8), dimension(n)	Y,
		real (r8), dimension(n)	DY1
	)

These subroutines calculate first and second derivatives, DY1 and DY2, of function Y respect to argument X.

Author

M.Tokar, D.Kalupin

Version

"$Id: solution1.f90 141 2009-03-22 17:57:29Z coster $"

Definition at line 640 of file solution1.f90.

Here is the caller graph for this function:

subroutine hyp_trig_spline1	(	integer	i,
		integer	n,
		real (r8), dimension(n)	x,
		real (r8), dimension(n)	f,
		real (r8)	a,
		real (r8)	b,
		real (r8)	c,
		real (r8)	d,
		real (r8)	l
	)

This subroutine interpolates the experimental data by using qubic spline so that k additional points are inserted between any two experimental ones.

Author

M.Tokar, D.Kalupin

Version

"$Id: solution1.f90 141 2009-03-22 17:57:29Z coster $"

Definition at line 565 of file solution1.f90.

Here is the caller graph for this function:

subroutine solution1	(	type (numerics), intent(inout)	SOLVER,
		integer, intent(inout)	ifail
	)

This subroutine is prepared to solve single transport equation in standardised form adopted by the ETS.

Author

M.Tokar, D.Kalupin

Version

"$Id: solution1.f90 141 2009-03-22 17:57:29Z coster $"

Definition at line 9 of file solution1.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine solver_ritm	(	real (r8), dimension(n)	X,
		integer	N,
		real (r8), dimension(2)	V,
		real (r8), dimension(2)	U,
		real (r8), dimension(2)	W,
		real (r8), dimension(n)	A,
		real (r8), dimension(n)	B,
		real (r8), dimension(n)	C,
		real (r8), dimension(n)	SOL,
		real (r8), dimension(n)	DSOL,
		integer, intent(inout)	ISP
	)

This is interface for RITM solver, which allows to use the solver on grids starting from zero.

The subroutine interploates the function at X=0 by parabola: Y=E+F*X^2

Author

M.Tokar, D.Kalupin

Version

"$Id: solution1.f90 141 2009-03-22 17:57:29Z coster $"

Definition at line 236 of file solution1.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine solver_ritm1	(	real (r8), dimension(n)	x,
		integer	n,
		real (r8), dimension(2)	v,
		real (r8), dimension(2)	u,
		real (r8), dimension(2)	w,
		real (r8), dimension(n)	a,
		real (r8), dimension(n)	b,
		real (r8), dimension(n)	f,
		real (r8), dimension(n)	y,
		real (r8), dimension(n)	d,
		integer	isp
	)

This subroutine provides solution for the equation Y''(x)+a(x)*Y'(x)=b(x)*Y(x)-f(x) with boundary conditions: v(1)*Y'(1)+u(1)*Y(1)=w(1) & v(2)*Y'(n)+u(2)*Y(n)=w(2)

Author

M.Tokar, D.Kalupin

Version

"$Id: solution1.f90 141 2009-03-22 17:57:29Z coster $"

Definition at line 351 of file solution1.f90.

Here is the call graph for this function:

Here is the caller graph for this function: