m_static_lib_1d Module Reference

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)

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 147 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 290 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 17 of file static_LIB_1d.f90.

truss_diag_modify()

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

Definition at line 251 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 73 of file static_LIB_1d.f90.