![]() |
FrontISTR
5.2.0
Large-scale structural analysis program with finit element method
|
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. More... | |
real(kind=kreal) function | fstr_get_energy (force, displacement, hecMESH) |
Calculate magnitude of a real vector. More... | |
real(kind=kreal) function, public | fstr_get_norm_contact (flag, hecMESH, hecMAT, fstrSOLID, fstrMAT) |
Calculate square norm. More... | |
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) |
This module provides function to calcualte residual of nodal force.
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.
[in] | hecmesh | mesh information |
Definition at line 153 of file fstr_Residual.f90.
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.
[in] | hecmesh | mesh information |
Definition at line 163 of file fstr_Residual.f90.
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 | ||
) |
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.
[in] | hecmesh | mesh information |
Definition at line 143 of file fstr_Residual.f90.
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 | ||
) |
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 | ||
) |
[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:
|
[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.
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 | ||
) |
[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.