solution3.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	solution3 (SOLVER, ifail)
	This subroutine solves transport equations using matrix PROGONKA method. More...
subroutine	mprogonka (NP, NDIM, A, B, C, F, U, V, W, Y)
	Finds Solution of discrete equation of the form A_i * Y_i+1 + B_i * Y_i +C_i * Y_i-1 = F_i where: Y_i - unknown wektor at point i (Y_i(NDIM)) F_i - Rhs at point i (F_i(NDIM)) A_i,B_i,C_i - equation coefficients (matrixes (NDIM,NDIM)) U,V,W - matrixes with boundary conditions. More...
subroutine	invmatrix (n, AA, Ainv)
	Computes inverse of matrix Input AA - Matrix A (n by n) N - Dimension of matrix AA. More...
subroutine	derivn3 (N, NFUN, X, FUN, DFUN)
	These subroutines calculate first and second derivatives, DY1 and DY2, of function Y respect to argument X. More...

Function/Subroutine Documentation

subroutine derivn3	(	integer	N,
		integer	NFUN,
		real (r8), dimension(n)	X,
		real (r8), dimension(nfun,n)	FUN,
		real (r8), dimension(nfun,n)	DFUN
	)

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

Author

R.Stankiewicz

Version

"$Id: solution3.f90 87 2009-01-28 20:37:31Z dpc $"

Definition at line 583 of file solution3.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine invmatrix	(	integer, intent(in)	n,
		real(r8), dimension(n,n), intent(in)	AA,
		real(r8), dimension(n,n), intent(out)	Ainv
	)

Computes inverse of matrix Input AA - Matrix A (n by n) N - Dimension of matrix AA.

Ainv - Inverse of matrix AA (n by n)

Author

R.Stankiewicz

Version

"$Id: solution3.f90 87 2009-01-28 20:37:31Z dpc $"

Definition at line 456 of file solution3.f90.

Here is the caller graph for this function:

subroutine mprogonka	(	integer, intent(in)	NP,
		integer, intent(in)	NDIM,
		real(r8), dimension(np,ndim,ndim), intent(in)	A,
		real(r8), dimension(np,ndim,ndim), intent(in)	B,
		real(r8), dimension(np,ndim,ndim), intent(in)	C,
		real(r8), dimension(np,ndim), intent(in)	F,
		real(r8), dimension(2,ndim,ndim), intent(in)	U,
		real(r8), dimension(2,ndim,ndim), intent(in)	V,
		real(r8), dimension(2,ndim), intent(in)	W,
		real(r8), dimension(np,ndim), intent(out)	Y
	)

Finds Solution of discrete equation of the form A_i * Y_i+1 + B_i * Y_i +C_i * Y_i-1 = F_i where: Y_i - unknown wektor at point i (Y_i(NDIM)) F_i - Rhs at point i (F_i(NDIM)) A_i,B_i,C_i - equation coefficients (matrixes (NDIM,NDIM)) U,V,W - matrixes with boundary conditions.

Author

R.Stankiewicz

Version

"$Id: solution3.f90 87 2009-01-28 20:37:31Z dpc $"

Definition at line 287 of file solution3.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine solution3	(	type(numerics)	SOLVER,
		integer	ifail
	)

This subroutine solves transport equations using matrix PROGONKA method.

Author

R.Stankiewicz

Version

"$Id: solution3.f90 87 2009-01-28 20:37:31Z dpc $"

Definition at line 8 of file solution3.f90.

Here is the call graph for this function:

Here is the caller graph for this function: