solution4.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	solution4 (SOLVER, ifail)
	This subroutine solves transport equations using matrix PROGONKA method. More...
subroutine	mprogonka_4 (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_4 (n, AA, Ainv)
	Computes inverse of matrix Input AA - Matrix A (n by n) N - Dimension of matrix AA. More...
subroutine	derivn3_4 (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_4	(	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 708 of file solution4.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine invmatrix_4	(	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 579 of file solution4.f90.

Here is the caller graph for this function:

subroutine mprogonka_4	(	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 408 of file solution4.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine solution4	(	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 solution4.f90.

Here is the call graph for this function:

Here is the caller graph for this function: