m_static_lib_beam Module Reference

This module provide common functions of beam elements. More...

Functions/Subroutines
subroutine	framtr (refx, xl, le, t)
subroutine	stf_beam (etype, nn, ecoord, section, E, P, STIFF)
	Calculate stiff matrix of BEAM elements. More...
subroutine	updatest_beam (etype, nn, ecoord, u, du, section, gausses, QF)
subroutine	stf_beam_641 (etype, nn, ecoord, gausses, section, stiff, tt, t0)
	Calculate stiff matrix of BEAM elements. More...
subroutine	nqm_beam_641 (etype, nn, ecoord, gausses, section, stiff, tt, t0, tdisp, rnqm)
	Calculate N,Q,M vector of BEAM elements. More...
subroutine	dl_beam_641 (etype, nn, xx, yy, zz, rho, ltype, params, section, vect, nsize)
subroutine	tload_beam_641 (etype, nn, ndof, xx, yy, zz, tt, t0, gausses, section, vect)
subroutine	nodalstress_beam_641 (etype, nn, ecoord, gausses, section, edisp, ndstrain, ndstress, tt, t0, ntemp)
subroutine	elementalstress_beam_641 (gausses, estrain, estress, enqm)
subroutine	updatest_beam_641 (etype, nn, ecoord, u, du, gausses, section, qf, tt, t0)

Detailed Description

This module provide common functions of beam elements.

Function/Subroutine Documentation

dl_beam_641()

subroutine m_static_lib_beam::dl_beam_641	(	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,
		integer(kind = kint)	ltype,
		real(kind = kreal), dimension(0:6), intent(in)	params,
		real(kind = kreal), dimension(:), intent(in)	section,
		real(kind = kreal), dimension(:), intent(inout)	vect,
		integer(kind = kint)	nsize
	)

Definition at line 615 of file static_LIB_beam.f90.

Here is the call graph for this function:

elementalstress_beam_641()

subroutine m_static_lib_beam::elementalstress_beam_641	(	type(tgaussstatus), dimension(:), intent(inout)	gausses,
		real(kind = kreal), dimension(6), intent(out)	estrain,
		real(kind = kreal), dimension(6), intent(out)	estress,
		real(kind = kreal), dimension(12), intent(out)	enqm
	)

Definition at line 1215 of file static_LIB_beam.f90.

framtr()

subroutine m_static_lib_beam::framtr	(	real(kind=kreal), dimension(3), intent(in)	refx,
		real(kind=kreal), dimension(3,2), intent(in)	xl,
		real(kind=kreal), intent(out)	le,
		real(kind=kreal), dimension(3,3), intent(out)	t
	)

Parameters

[in]	refx	Reference Vector
[in]	xl	Element coordinates
[out]	le	length of the element
[out]	t	Transformation array

Definition at line 19 of file static_LIB_beam.f90.

Here is the caller graph for this function:

nodalstress_beam_641()

subroutine m_static_lib_beam::nodalstress_beam_641	(	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(inout)	gausses,
		real(kind = kreal), dimension(:), intent(in)	section,
		real(kind = kreal), dimension(3, nn), intent(in)	edisp,
		real(kind = kreal), dimension(nn, 6), intent(out)	ndstrain,
		real(kind = kreal), dimension(nn, 6), intent(out)	ndstress,
		real(kind=kreal), dimension(nn), intent(in), optional	tt,
		real(kind=kreal), dimension(nn), intent(in), optional	t0,
		integer(kind = kint), intent(in)	ntemp
	)

Definition at line 880 of file static_LIB_beam.f90.

Here is the call graph for this function:

nqm_beam_641()

subroutine m_static_lib_beam::nqm_beam_641	(	integer, intent(in)	etype,
		integer, intent(in)	nn,
		real(kind=kreal), dimension(3, nn), intent(in)	ecoord,
		type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), dimension(:), intent(in)	section,
		real(kind=kreal), dimension(nn*3, nn*3), intent(out)	stiff,
		real(kind=kreal), dimension(nn), intent(in), optional	tt,
		real(kind=kreal), dimension(nn), intent(in), optional	t0,
		real(kind=kreal), dimension(nn*3), intent(inout)	tdisp,
		real(kind=kreal), dimension(nn*3), intent(out)	rnqm
	)

Calculate N,Q,M vector of BEAM elements.

Parameters

[in]	etype	element type
[in]	nn	the total number of elemental nodes
[in]	ecoord	coordinates of elemental nodes
[in]	gausses	status of Gaussian qudrature points
[in]	section	section parameters
[out]	stiff	elemental stiffness matrix
[in,out]	tdisp	displcement vector
[out]	rnqm	elemental NQM

Definition at line 401 of file static_LIB_beam.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

stf_beam()

subroutine m_static_lib_beam::stf_beam	(	integer, intent(in)	etype,
		integer, intent(in)	nn,
		real(kind=kreal), dimension(3,nn), intent(in)	ecoord,
		real(kind=kreal), dimension(:), intent(in)	section,
		real(kind=kreal), intent(in)	E,
		real(kind=kreal), intent(in)	P,
		real(kind=kreal), dimension(nn*6,nn*6), intent(out)	STIFF
	)

Calculate stiff matrix of BEAM elements.

Parameters

[in]	etype	element's type
[in]	nn	number of element's nodes
[in]	ecoord	coordinates of elemental nodes
[in]	section	section parameters
[in]	p	status of qudrature points
[out]	stiff	elemental stiff matrix

Definition at line 60 of file static_LIB_beam.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

stf_beam_641()

subroutine m_static_lib_beam::stf_beam_641	(	integer, intent(in)	etype,
		integer, intent(in)	nn,
		real(kind=kreal), dimension(3, nn), intent(in)	ecoord,
		type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), dimension(:), intent(in)	section,
		real(kind=kreal), dimension(nn*3, nn*3), intent(out)	stiff,
		real(kind=kreal), dimension(nn), intent(in), optional	tt,
		real(kind=kreal), dimension(nn), intent(in), optional	t0
	)

Calculate stiff matrix of BEAM elements.

Parameters

[in]	etype	element type
[in]	nn	the total number of elemental nodes
[in]	ecoord	coordinates of elemental nodes
[in]	gausses	status of Gaussian qudrature points
[in]	section	section parameters
[out]	stiff	elemental stiffness matrix

Definition at line 187 of file static_LIB_beam.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

tload_beam_641()

subroutine m_static_lib_beam::tload_beam_641	(	integer(kind = kint), intent(in)	etype,
		integer(kind = kint), intent(in)	nn,
		integer(kind = kint), intent(in)	ndof,
		real(kind = kreal), dimension(nn), intent(in)	xx,
		real(kind = kreal), dimension(nn), intent(in)	yy,
		real(kind = kreal), dimension(nn), intent(in)	zz,
		real(kind = kreal), dimension(nn), intent(in)	tt,
		real(kind = kreal), dimension(nn), intent(in)	t0,
		type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind = kreal), dimension(:), intent(in)	section,
		real(kind = kreal), dimension(nn*ndof), intent(out)	vect
	)

Definition at line 732 of file static_LIB_beam.f90.

Here is the call graph for this function:

updatest_beam()

subroutine m_static_lib_beam::updatest_beam	(	integer, intent(in)	etype,
		integer, intent(in)	nn,
		real(kind=kreal), dimension(3,nn), intent(in)	ecoord,
		real(kind=kreal), dimension(6,nn), intent(in)	u,
		real(kind=kreal), dimension(6,nn), intent(in)	du,
		real(kind=kreal), dimension(:), intent(in)	section,
		type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), dimension(nn*6), intent(out)	QF
	)

Parameters

[in]	etype	element's type
[in]	nn	number of element's nodes
[in]	ecoord	coordinates of elemental nodes
[in]	u	displacement of elemental nodes
[in]	du	coordinates of elemental nodes
[in]	section	section parameters
[in]	gausses	status of Gaussian qudrature points
[out]	qf	elemental force matrix

Definition at line 154 of file static_LIB_beam.f90.

Here is the call graph for this function:

updatest_beam_641()

subroutine m_static_lib_beam::updatest_beam_641	(	integer, intent(in)	etype,
		integer, 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,
		type(tgaussstatus), dimension(:), intent(in)	gausses,
		real(kind=kreal), dimension(:), intent(in)	section,
		real(kind=kreal), dimension(nn*3), intent(out)	qf,
		real(kind=kreal), dimension(nn), intent(in), optional	tt,
		real(kind=kreal), dimension(nn), intent(in), optional	t0
	)

Parameters

[in]	etype	element type
[in]	nn	the total number of elemental nodes
[in]	ecoord	coordinates of elemental nodes
[in]	u	[in] nodal dislplacements
[in]	du	[in] nodal dislplacement increment
[in]	gausses	status of Gaussian qudrature points
[in]	section	section parameters
[out]	qf	elemental stiffness matrix

Definition at line 1238 of file static_LIB_beam.f90.

Here is the call graph for this function: