This module provide common functions of 3D truss elements. More...

Functions/Subroutines
subroutine	stf_c1 (etype, nn, ecoord, area, gausses, stiff, u, temperature)
	This subroutine calculate stiff matrix of 2-nodes truss element. More...

subroutine	update_c1 (etype, nn, ecoord, area, u, du, qf, gausses, TT, T0)
	Update strain and stress inside element. More...

subroutine	nodalstress_c1 (ETYPE, NN, gausses, ndstrain, ndstress)

subroutine	elementstress_c1 (ETYPE, gausses, strain, stress)

subroutine	dl_c1 (etype, nn, xx, yy, zz, rho, thick, ltype, params, vect, nsize)

subroutine	truss_diag_modify (hecMAT, hecMESH)

subroutine	search_diag_modify (n, nn, hecMAT, hecMESH)

subroutine	stf_connector (etype, nn, ecoord, gausses, stiff, u, tincr, temperature)
	This subroutine calculate stiff matrix of 2-nodes connector element. More...

subroutine	update_connector (etype, nn, ecoord, u, du, qf, gausses, tincr, TT)
	Update strain and stress inside spring element. More...

subroutine	stf_spring_d (gausses, stiff)

subroutine	update_spring_d (gausses, ecoord, u, du, qf)

subroutine	stf_spring_a (gausses, ecoord, u, stiff)

subroutine	update_spring_a (gausses, ecoord, u, du, qf)

subroutine	stf_dashpot_d (gausses, tincr, stiff)

subroutine	update_dashpot_d (gausses, ecoord, du, tincr, qf)

subroutine	stf_dashpot_a (gausses, ecoord, u, tincr, stiff)

subroutine	update_dashpot_a (gausses, ecoord, u, du, tincr, qf)

Detailed Description

This module provide common functions of 3D truss elements.

Function/Subroutine Documentation

◆ dl_c1()

subroutine m_static_lib_1d::dl_c1	(	integer(kind = kint), intent(in)	etype,
		integer(kind = kint), intent(in)	nn,
		real(kind = kreal), dimension(:), intent(in)	xx,
		real(kind = kreal), dimension(:), intent(in)	yy,
		real(kind = kreal), dimension(:), intent(in)	zz,
		real(kind = kreal)	rho,
		real(kind = kreal)	thick,
		integer(kind = kint)	ltype,
		real(kind = kreal), dimension(0:6), intent(in)	params,
		real(kind = kreal), dimension(:), intent(inout)	vect,
		integer(kind = kint)	nsize
	)

Definition at line 187 of file static_LIB_1d.f90.

◆ elementstress_c1()

subroutine m_static_lib_1d::elementstress_c1	(	integer(kind=kint), intent(in)	ETYPE,
		type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), dimension(6), intent(out)	strain,
		real(kind=kreal), dimension(6), intent(out)	stress
	)

Definition at line 168 of file static_LIB_1d.f90.

◆ nodalstress_c1()

subroutine m_static_lib_1d::nodalstress_c1	(	integer(kind=kint), intent(in)	ETYPE,
		integer(kind=kint), intent(in)	NN,
		type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), dimension(nn,6), intent(out)	ndstrain,
		real(kind=kreal), dimension(nn,6), intent(out)	ndstress
	)

Definition at line 148 of file static_LIB_1d.f90.

◆ search_diag_modify()

subroutine m_static_lib_1d::search_diag_modify	(	integer	n,
		integer	nn,
		type (hecmwst_matrix)	hecMAT,
		type (hecmwst_local_mesh)	hecMESH
	)

Definition at line 289 of file static_LIB_1d.f90.

◆ stf_c1()

subroutine m_static_lib_1d::stf_c1	(	integer(kind=kint), intent(in)	etype,
		integer(kind=kint), intent(in)	nn,
		real(kind=kreal), dimension(3,nn), intent(in)	ecoord,
		real(kind=kreal), intent(in)	area,
		type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), dimension(:,:), intent(out)	stiff,
		real(kind=kreal), dimension(:,:), intent(in), optional	u,
		real(kind=kreal), dimension(nn), intent(in), optional	temperature
	)

This subroutine calculate stiff matrix of 2-nodes truss element.

Parameters

[in]	etype	element type
[in]	nn	number of elemental nodes
[in]	ecoord	coordinates of elemental nodes
[in]	area	section area
[in]	gausses	status of qudrature points
[out]	stiff	stiff matrix
[in]	u	nodal displacemwent

Definition at line 20 of file static_LIB_1d.f90.

◆ stf_connector()

subroutine m_static_lib_1d::stf_connector	(	integer(kind=kint), intent(in)	etype,
		integer(kind=kint), intent(in)	nn,
		real(kind=kreal), dimension(3,nn), intent(in)	ecoord,
		type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), dimension(:,:), intent(out)	stiff,
		real(kind=kreal), dimension(:,:), intent(in)	u,
		real(kind=kreal), intent(in)	tincr,
		real(kind=kreal), dimension(nn), intent(in)	temperature
	)

This subroutine calculate stiff matrix of 2-nodes connector element.

Parameters

[in]	etype	element type
[in]	nn	number of elemental nodes
[in]	ecoord	coordinates of elemental nodes
[in]	gausses	status of qudrature points
[out]	stiff	stiff matrix
[in]	u	nodal displacemwent
[in]	tincr	time increment

Definition at line 370 of file static_LIB_1d.f90.

Here is the call graph for this function:

◆ stf_dashpot_a()

subroutine m_static_lib_1d::stf_dashpot_a	(	type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), dimension(:,:), intent(in)	ecoord,
		real(kind=kreal), dimension(:,:), intent(in)	u,
		real(kind=kreal), intent(in)	tincr,
		real(kind=kreal), dimension(:,:), intent(out)	stiff
	)

Parameters

[in]	gausses	Status of quadrature points
[in]	ecoord	Coordinates of elemental nodes
[in]	u	Nodal displacement
[in]	tincr	[in] time increment
[out]	stiff	Stiffness matrix

Definition at line 663 of file static_LIB_1d.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ stf_dashpot_d()

subroutine m_static_lib_1d::stf_dashpot_d	(	type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), intent(in)	tincr,
		real(kind=kreal), dimension(:,:), intent(out)	stiff
	)

Parameters

[in]	gausses	status of qudrature points
[in]	tincr	time increment
[out]	stiff	stiff matrix

Definition at line 609 of file static_LIB_1d.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ stf_spring_a()

subroutine m_static_lib_1d::stf_spring_a	(	type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), dimension(:,:), intent(in)	ecoord,
		real(kind=kreal), dimension(:,:), intent(in)	u,
		real(kind=kreal), dimension(:,:), intent(out)	stiff
	)

Parameters

[in]	gausses	Status of quadrature points
[in]	ecoord	Coordinates of elemental nodes
[in]	u	Nodal displacement
[out]	stiff	Stiffness matrix

Definition at line 516 of file static_LIB_1d.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ stf_spring_d()

subroutine m_static_lib_1d::stf_spring_d	(	type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), dimension(:,:), intent(out)	stiff
	)

Parameters

[in]	gausses	status of qudrature points
[out]	stiff	stiff matrix

Definition at line 462 of file static_LIB_1d.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ truss_diag_modify()

subroutine m_static_lib_1d::truss_diag_modify	(	type (hecmwst_matrix)	hecMAT,
		type (hecmwst_local_mesh)	hecMESH
	)

Definition at line 250 of file static_LIB_1d.f90.

Here is the caller graph for this function:

◆ update_c1()

subroutine m_static_lib_1d::update_c1	(	integer(kind=kint), intent(in)	etype,
		integer(kind=kint), intent(in)	nn,
		real(kind=kreal), dimension(3,nn), intent(in)	ecoord,
		real(kind=kreal), intent(in)	area,
		real(kind=kreal), dimension(3,nn), intent(in)	u,
		real(kind=kreal), dimension(3,nn), intent(in)	du,
		real(kind=kreal), dimension(nn*3), intent(out)	qf,
		type(tgaussstatus), dimension(:), intent(inout)	gausses,
		real(kind=kreal), dimension(nn), intent(in), optional	TT,
		real(kind=kreal), dimension(nn), intent(in), optional	T0
	)

Update strain and stress inside element.

Parameters

[in]	etype	[in] element type
[in]	nn	[in] number of elemental nodes
[in]	ecoord	[in] coordinates of elemental nodes
[in]	area	section area
[in]	u	[in] nodal dislplacements
[in]	du	[in] nodal displacement ( solutions of solver )
[out]	qf	[out] Internal Force
[in,out]	gausses	[out] status of qudrature points
[in]	tt	current temperature
[in]	t0	reference temperature

Definition at line 75 of file static_LIB_1d.f90.

◆ update_connector()

subroutine m_static_lib_1d::update_connector	(	integer(kind=kint), intent(in)	etype,
		integer(kind=kint), intent(in)	nn,
		real(kind=kreal), dimension(3,nn), intent(in)	ecoord,
		real(kind=kreal), dimension(3,nn), intent(in)	u,
		real(kind=kreal), dimension(3,nn), intent(in)	du,
		real(kind=kreal), dimension(nn*3), intent(out)	qf,
		type(tgaussstatus), dimension(:), intent(inout)	gausses,
		real(kind=kreal), intent(in)	tincr,
		real(kind=kreal), dimension(nn), intent(in), optional	TT
	)

Update strain and stress inside spring element.

Parameters

[in]	etype	[in] element type
[in]	nn	[in] number of elemental nodes
[in]	ecoord	[in] coordinates of elemental nodes
[in]	u	[in] nodal dislplacements
[in]	du	[in] nodal displacement ( solutions of solver )
[out]	qf	[out] Internal Force
[in,out]	gausses	[out] status of qudrature points
[in]	tincr	time increment
[in]	tt	current temperature

Definition at line 410 of file static_LIB_1d.f90.

Here is the call graph for this function:

◆ update_dashpot_a()

subroutine m_static_lib_1d::update_dashpot_a	(	type(tgaussstatus), dimension(:), intent(inout)	gausses,
		real(kind=kreal), dimension(:,:), intent(in)	ecoord,
		real(kind=kreal), dimension(:,:), intent(in)	u,
		real(kind=kreal), dimension(:,:), intent(in)	du,
		real(kind=kreal), intent(in)	tincr,
		real(kind=kreal), dimension(:), intent(out)	qf
	)

Parameters

[in,out]	gausses	[out] status of quadrature points
[in]	ecoord	[in] coordinates of elemental nodes
[in]	u	[in] nodal displacements
[in]	du	[in] additional nodal displacements (solutions of solver)
[in]	tincr	[in] time increment
[out]	qf	[out] Internal Force vector

Definition at line 710 of file static_LIB_1d.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ update_dashpot_d()

subroutine m_static_lib_1d::update_dashpot_d	(	type(tgaussstatus), dimension(:), intent(inout)	gausses,
		real(kind=kreal), dimension(:,:), intent(in)	ecoord,
		real(kind=kreal), dimension(:,:), intent(in)	du,
		real(kind=kreal), intent(in)	tincr,
		real(kind=kreal), dimension(:), intent(out)	qf
	)

Parameters

[in,out]	gausses	[out] status of qudrature points
[in]	ecoord	[in] coordinates of elemental nodes
[in]	du	[in] nodal displacement ( solutions of solver )
[in]	tincr	[in] time increment
[out]	qf	[out] Internal Force

Definition at line 631 of file static_LIB_1d.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ update_spring_a()

subroutine m_static_lib_1d::update_spring_a	(	type(tgaussstatus), dimension(:), intent(inout)	gausses,
		real(kind=kreal), dimension(:,:), intent(in)	ecoord,
		real(kind=kreal), dimension(:,:), intent(in)	u,
		real(kind=kreal), dimension(:,:), intent(in)	du,
		real(kind=kreal), dimension(:), intent(out)	qf
	)

Parameters

[in,out]	gausses	[out] status of quadrature points
[in]	ecoord	[in] coordinates of elemental nodes
[in]	u	[in] nodal displacements
[in]	du	[in] additional nodal displacements (solutions of solver)
[out]	qf	[out] Internal Force vector

Definition at line 566 of file static_LIB_1d.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ update_spring_d()

subroutine m_static_lib_1d::update_spring_d	(	type(tgaussstatus), dimension(:), intent(inout)	gausses,
		real(kind=kreal), dimension(:,:), intent(in)	ecoord,
		real(kind=kreal), dimension(:,:), intent(in)	u,
		real(kind=kreal), dimension(:,:), intent(in)	du,
		real(kind=kreal), dimension(:), intent(out)	qf
	)

Parameters

[in,out]	gausses	[out] status of qudrature points
[in]	ecoord	[in] coordinates of elemental nodes
[in]	u	[in] nodal dislplacements
[in]	du	[in] nodal displacement ( solutions of solver )
[out]	qf	[out] Internal Force

Definition at line 483 of file static_LIB_1d.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

Functions/Subroutines

Detailed Description

Function/Subroutine Documentation

◆ dl_c1()

◆ elementstress_c1()

◆ nodalstress_c1()

◆ search_diag_modify()

◆ stf_c1()

◆ stf_connector()

◆ stf_dashpot_a()

◆ stf_dashpot_d()

◆ stf_spring_a()

◆ stf_spring_d()

◆ truss_diag_modify()

◆ update_c1()

◆ update_connector()

◆ update_dashpot_a()

◆ update_dashpot_d()

◆ update_spring_a()

◆ update_spring_d()