This module contains subroutines for nonlinear implicit dynamic analysis. More...

Functions/Subroutines
subroutine	fstr_solve_nlgeom_dynamic_implicit_contactslag (hecMESH, hecMAT, fstrSOLID, fstrEIG, fstrDYNAMIC, fstrRESULT, fstrPARAM, fstrCPL, hecLagMAT, restart_step_num, restart_substep_num, infoCTChange, conMAT, restart_step_count)
	This subroutine provides function of nonlinear implicit dynamic analysis using the Newmark method. Standard Lagrange multiplier algorithm for contact analysis is included in this subroutine. More...

subroutine	fstr_newton_dynamic_contactslag (cstep, hecMESH, hecMAT, fstrSOLID, fstrEIG, fstrDYNAMIC, fstrPARAM, fstrCPL, hecLagMAT, infoCTChange, conMAT, restart_step_num, hecMAT0, istep, t_curr, t_delta)

subroutine	fstr_solve_dynamic_nlimplicit_couple_init (fstrPARAM, fstrCPL)

subroutine	fstr_solve_dynamic_nlimplicit_couple_pre (hecMESH, hecMAT, fstrSOLID, fstrPARAM, fstrDYNAMIC, fstrCPL, restart_step_num, i)

subroutine	fstr_solve_dynamic_nlimplicit_couple_post (hecMESH, hecMAT, fstrSOLID, fstrPARAM, fstrDYNAMIC, fstrCPL, a1, a2, a3, b1, b2, b3, i, is_cycle)

Variables
real(kind=kreal), parameter	pi = 3.14159265358979323846D0

Detailed Description

This module contains subroutines for nonlinear implicit dynamic analysis.

Function/Subroutine Documentation

◆ fstr_newton_dynamic_contactslag()

subroutine fstr_dynamic_nlimplicit::fstr_newton_dynamic_contactslag	(	integer(kind=kint), intent(in)	cstep,
		type(hecmwst_local_mesh)	hecMESH,
		type(hecmwst_matrix)	hecMAT,
		type(fstr_solid)	fstrSOLID,
		type(fstr_eigen)	fstrEIG,
		type(fstr_dynamic)	fstrDYNAMIC,
		type(fstr_param)	fstrPARAM,
		type(fstr_couple)	fstrCPL,
		type(hecmwst_matrix_lagrange)	hecLagMAT,
		type(fstr_info_contactchange)	infoCTChange,
		type(hecmwst_matrix)	conMAT,
		integer(kind=kint), intent(in)	restart_step_num,
		type(hecmwst_matrix), pointer	hecMAT0,
		integer(kind=kint), intent(in)	istep,
		real(kind=kreal), intent(in)	t_curr,
		real(kind=kreal), intent(in)	t_delta
	)

Definition at line 290 of file fstr_dynamic_nlimplicit.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_solve_dynamic_nlimplicit_couple_init()

subroutine fstr_dynamic_nlimplicit::fstr_solve_dynamic_nlimplicit_couple_init	(	type(fstr_param)	fstrPARAM,
		type(fstr_couple)	fstrCPL
	)

Definition at line 559 of file fstr_dynamic_nlimplicit.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_solve_dynamic_nlimplicit_couple_post()

subroutine fstr_dynamic_nlimplicit::fstr_solve_dynamic_nlimplicit_couple_post	(	type(hecmwst_local_mesh)	hecMESH,
		type(hecmwst_matrix)	hecMAT,
		type(fstr_solid)	fstrSOLID,
		type(fstr_param)	fstrPARAM,
		type(fstr_dynamic)	fstrDYNAMIC,
		type(fstr_couple)	fstrCPL,
		real(kreal)	a1,
		real(kreal)	a2,
		real(kreal)	a3,
		real(kreal)	b1,
		real(kreal)	b2,
		real(kreal)	b3,
		integer(kint)	i,
		logical	is_cycle
	)

Definition at line 608 of file fstr_dynamic_nlimplicit.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_solve_dynamic_nlimplicit_couple_pre()

subroutine fstr_dynamic_nlimplicit::fstr_solve_dynamic_nlimplicit_couple_pre	(	type(hecmwst_local_mesh)	hecMESH,
		type(hecmwst_matrix)	hecMAT,
		type(fstr_solid)	fstrSOLID,
		type(fstr_param)	fstrPARAM,
		type(fstr_dynamic)	fstrDYNAMIC,
		type(fstr_couple)	fstrCPL,
		integer(kint)	restart_step_num,
		integer(kint)	i
	)

Definition at line 570 of file fstr_dynamic_nlimplicit.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ fstr_solve_nlgeom_dynamic_implicit_contactslag()

subroutine fstr_dynamic_nlimplicit::fstr_solve_nlgeom_dynamic_implicit_contactslag	(	type(hecmwst_local_mesh)	hecMESH,
		type(hecmwst_matrix)	hecMAT,
		type(fstr_solid)	fstrSOLID,
		type(fstr_eigen)	fstrEIG,
		type(fstr_dynamic)	fstrDYNAMIC,
		type(hecmwst_result_data)	fstrRESULT,
		type(fstr_param)	fstrPARAM,
		type(fstr_couple)	fstrCPL,
		type(hecmwst_matrix_lagrange)	hecLagMAT,
		integer(kind=kint)	restart_step_num,
		integer(kind=kint)	restart_substep_num,
		type(fstr_info_contactchange)	infoCTChange,
		type(hecmwst_matrix)	conMAT,
		integer(kind=kint)	restart_step_count
	)

This subroutine provides function of nonlinear implicit dynamic analysis using the Newmark method. Standard Lagrange multiplier algorithm for contact analysis is included in this subroutine.

Parameters