m_static_lib_fbar Module Reference

This module contains several strategy to free locking problem in Eight-node hexagonal element. More...

Functions/Subroutines
subroutine	stf_c3d8fbar (etype, nn, ecoord, gausses, stiff, cdsys_ID, coords, time, tincr, u, temperature)
	This subroutine calculate stiff matrix using F-bar method. More...
subroutine	update_c3d8fbar (etype, nn, ecoord, u, du, cdsys_ID, coords, qf, gausses, iter, time, tincr, TT, T0, TN)
	Update Strain stress of this element. More...
subroutine	tload_c3d8fbar (etype, nn, XX, YY, ZZ, TT, T0, gausses, VECT, cdsys_ID, coords)
	This subroutien calculate thermal loading. More...

Detailed Description

This module contains several strategy to free locking problem in Eight-node hexagonal element.

Function/Subroutine Documentation

stf_c3d8fbar()

subroutine m_static_lib_fbar::stf_c3d8fbar	(	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,
		integer(kind=kint), intent(in)	cdsys_ID,
		real(kind=kreal), dimension(3, 3), intent(inout)	coords,
		real(kind=kreal), intent(in)	time,
		real(kind=kreal), intent(in)	tincr,
		real(kind=kreal), dimension(:, :), intent(in), optional	u,
		real(kind=kreal), dimension(nn), intent(in)	temperature
	)

This subroutine calculate stiff matrix using F-bar method.

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,out]	coords	variables to define material coordinate system
[in]	time	current time
[in]	tincr	time increment
[in]	u	nodal displacemwent

Definition at line 25 of file static_LIB_Fbar.f90.

Here is the call graph for this function:

tload_c3d8fbar()

subroutine m_static_lib_fbar::tload_c3d8fbar	(	integer(kind=kint), intent(in)	etype,
		integer(kind=kint), intent(in)	nn,
		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(nn*ndof), intent(out)	VECT,
		integer(kind=kint), intent(in)	cdsys_ID,
		real(kind=kreal), dimension(3, 3), intent(inout)	coords
	)

This subroutien calculate thermal loading.

Parameters

[in]	gausses	status of qudrature points
[in,out]	coords	variables to define material coordinate system

Definition at line 660 of file static_LIB_Fbar.f90.

Here is the call graph for this function:

update_c3d8fbar()

subroutine m_static_lib_fbar::update_c3d8fbar	(	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,
		integer(kind=kint), intent(in)	cdsys_ID,
		real(kind=kreal), dimension(3, 3), intent(inout)	coords,
		real(kind=kreal), dimension(nn*3), intent(out)	qf,
		type(tgaussstatus), dimension(:), intent(inout)	gausses,
		integer, intent(in)	iter,
		real(kind=kreal), intent(in)	time,
		real(kind=kreal), intent(in)	tincr,
		real(kind=kreal), dimension(nn), intent(in)	TT,
		real(kind=kreal), dimension(nn), intent(in)	T0,
		real(kind=kreal), dimension(nn), intent(in)	TN
	)

Update Strain stress of this 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 increment
[in,out]	coords	variables to define material coordinate system
[out]	qf	[out] Internal Force
[in,out]	gausses	[out] status of qudrature points
[in]	time	current time
[in]	tincr	time increment
[in]	tt	current temperature
[in]	t0	reference temperature
[in]	tn	reference temperature

Definition at line 340 of file static_LIB_Fbar.f90.

Here is the call graph for this function: