m_fstr_residual Module Reference

This module provides function to calcualte residual of nodal force. More...

Functions/Subroutines
subroutine, public	fstr_update_ndforce (cstep, hecmesh, hecmat, fstrsolid, conmat)
subroutine, public	fstr_update_ndforce_spc (cstep, hecmesh, fstrsolid, b)
real(kind=kreal) function, public	fstr_get_residual (force, hecmesh)
	Calculate magnitude of a real vector.
real(kind=kreal) function	fstr_get_energy (force, displacement, hecmesh)
	Calculate magnitude of a real vector.
real(kind=kreal) function, public	fstr_get_norm_contact (flag, hecmesh, hecmat, fstrsolid, fstrmat)
	Calculate square norm.
real(kind=kreal) function, public	fstr_get_norm_para_contact (hecmat, fstrmat, conmat, hecmesh)
real(kind=kreal) function, public	fstr_get_x_norm_contact (hecmat, fstrmat, hecmesh)

Detailed Description

This module provides function to calcualte residual of nodal force.

Function/Subroutine Documentation

fstr_get_energy()

real(kind=kreal) function m_fstr_residual::fstr_get_energy	(	real(kind=kreal), dimension(:), intent(in)	force,
		real(kind=kreal), dimension(:), intent(in)	displacement,
		type(hecmwst_local_mesh), intent(in)	hecmesh
	)

Calculate magnitude of a real vector.

Parameters

[in]

hecmesh

mesh information

Definition at line 153 of file fstr_Residual.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

fstr_get_norm_contact()

real(kind=kreal) function, public m_fstr_residual::fstr_get_norm_contact	(	character(len=13)	flag,
		type(hecmwst_local_mesh), intent(in)	hecmesh,
		type(hecmwst_matrix), intent(in)	hecmat,
		type(fstr_solid), intent(in)	fstrsolid,
		type(fstrst_matrix_contact_lagrange), intent(in)	fstrmat
	)

Calculate square norm.

Parameters

[in]

hecmesh

mesh information

Definition at line 163 of file fstr_Residual.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

fstr_get_norm_para_contact()

real(kind=kreal) function, public m_fstr_residual::fstr_get_norm_para_contact	(	type(hecmwst_matrix), intent(in)	hecmat,
		type(fstrst_matrix_contact_lagrange), intent(in)	fstrmat,
		type(hecmwst_matrix), intent(in)	conmat,
		type(hecmwst_local_mesh), intent(in)	hecmesh
	)

Definition at line 190 of file fstr_Residual.f90.

Here is the caller graph for this function:

fstr_get_residual()

real(kind=kreal) function, public m_fstr_residual::fstr_get_residual	(	real(kind=kreal), dimension(:), intent(in)	force,
		type(hecmwst_local_mesh), intent(in)	hecmesh
	)

Calculate magnitude of a real vector.

Parameters

[in]

hecmesh

mesh information

Definition at line 143 of file fstr_Residual.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

fstr_get_x_norm_contact()

real(kind=kreal) function, public m_fstr_residual::fstr_get_x_norm_contact	(	type(hecmwst_matrix), intent(in)	hecmat,
		type(fstrst_matrix_contact_lagrange), intent(in)	fstrmat,
		type(hecmwst_local_mesh), intent(in)	hecmesh
	)

Definition at line 256 of file fstr_Residual.f90.

Here is the caller graph for this function:

fstr_update_ndforce()

subroutine, public m_fstr_residual::fstr_update_ndforce	(	integer(kind=kint), intent(in)	cstep,
		type(hecmwst_local_mesh), intent(in)	hecmesh,
		type(hecmwst_matrix), intent(inout)	hecmat,
		type(fstr_solid), intent(inout)	fstrsolid,
		type(hecmwst_matrix), intent(inout), optional	conmat
	)

Parameters

[in]	cstep	In this subroutine, nodal force arose from prescribed displacement constarints are cleared and nodal force residual is calculated. Those constraints considered here includes: nodal displacement equation (or mpc)
[in]	cstep	current step
[in]	hecmesh	mesh information
[in,out]	hecmat	linear equation, its right side modified here
[in,out]	fstrsolid	we need boundary conditions of curr step

Definition at line 23 of file fstr_Residual.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

fstr_update_ndforce_spc()

subroutine, public m_fstr_residual::fstr_update_ndforce_spc	(	integer(kind=kint), intent(in)	cstep,
		type(hecmwst_local_mesh), intent(in)	hecmesh,
		type(fstr_solid), intent(in)	fstrsolid,
		real(kind=kreal), dimension(:), intent(inout)	b
	)

Parameters

[in]	cstep	current step
[in]	hecmesh	mesh information
[in]	fstrsolid	we need boundary conditions of curr step
[in,out]	b	right hand side

Definition at line 103 of file fstr_Residual.f90.

Here is the call graph for this function:

Here is the caller graph for this function: