![]() |
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. | |
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) |
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.