This module provides common functions of Solid elements. More...

Functions/Subroutines
subroutine	geomat_c3 (stress, mat)

subroutine	stf_c3 (etype, nn, ecoord, gausses, stiff, cdsys_ID, coords, time, tincr, u, temperature)
	This subroutine calculate stiff matrix of general solid elements. More...

subroutine	dl_c3 (etype, nn, XX, YY, ZZ, RHO, LTYPE, PARAMS, VECT, NSIZE)
	Distributed external load. More...

subroutine	tload_c3 (etype, nn, XX, YY, ZZ, TT, T0, gausses, VECT, cdsys_ID, coords)
	This subroutien calculate thermal loading. More...

subroutine	cal_thermal_expansion_c3 (tt0, ttc, material, coordsys, matlaniso, EPSTH)

subroutine	hughes_winget_rotation_3d (rot, stress_in, stress_out)

subroutine	update_stress3d (flag, gauss, rot, dstrain, F, coordsys, time, tincr, ttc, tt0, ttn, hdflag)

subroutine	update_c3 (etype, nn, ecoord, u, ddu, cdsys_ID, coords, qf, gausses, iter, time, tincr, TT, T0, TN)
	Update strain and stress inside element. More...

subroutine	nodalstress_c3 (etype, nn, gausses, ndstrain, ndstress)

subroutine	elementstress_c3 (etype, gausses, strain, stress)

real(kind=kreal) function	volume_c3 (etype, nn, XX, YY, ZZ)
	Volume of element. More...

Detailed Description

This module provides common functions of Solid elements.

Function/Subroutine Documentation

◆ cal_thermal_expansion_c3()

subroutine m_static_lib_3d::cal_thermal_expansion_c3	(	real(kind=kreal), intent(in)	tt0,
		real(kind=kreal), intent(in)	ttc,
		type( tmaterial ), intent(in)	material,
		real(kind=kreal), dimension(3,3), intent(in)	coordsys,
		logical, intent(in)	matlaniso,
		real(kind=kreal), dimension(6), intent(out)	EPSTH
	)

Definition at line 519 of file static_LIB_3d.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ dl_c3()

subroutine m_static_lib_3d::dl_c3	(	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(inout)	VECT,
		integer(kind=kint)	NSIZE
	)

Distributed external load.

Definition at line 214 of file static_LIB_3d.f90.

Here is the call graph for this function:

◆ elementstress_c3()

subroutine m_static_lib_3d::elementstress_c3	(	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 1020 of file static_LIB_3d.f90.

Here is the call graph for this function:

◆ geomat_c3()

subroutine m_static_lib_3d::geomat_c3	(	real(kind=kreal), dimension(6), intent(in)	stress,
		real(kind=kreal), dimension(6, 6), intent(out)	mat
	)

Definition at line 19 of file static_LIB_3d.f90.

Here is the caller graph for this function:

◆ hughes_winget_rotation_3d()

subroutine m_static_lib_3d::hughes_winget_rotation_3d	(	real(kind=kreal), dimension(3,3), intent(in)	rot,
		real(kind=kreal), dimension(3,3), intent(in)	stress_in,
		real(kind=kreal), dimension(3,3), intent(out)	stress_out
	)

Definition at line 570 of file static_LIB_3d.f90.

Here is the call graph for this function:

◆ nodalstress_c3()

subroutine m_static_lib_3d::nodalstress_c3	(	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 979 of file static_LIB_3d.f90.

Here is the call graph for this function:

◆ stf_c3()

subroutine m_static_lib_3d::stf_c3	(	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 of general solid elements.

Author: X. YUAN, K. SATO (AdavanceSoft)

Date: 2009/08/03

Version: 0.00

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 53 of file static_LIB_3d.f90.

Here is the call graph for this function:

◆ tload_c3()

subroutine m_static_lib_3d::tload_c3	(	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 389 of file static_LIB_3d.f90.

Here is the call graph for this function:

◆ update_c3()

subroutine m_static_lib_3d::update_c3	(	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)	ddu,
		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 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]	u	[in] nodal dislplacements
[in]	ddu	[in] nodal displacement
[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 774 of file static_LIB_3d.f90.

Here is the call graph for this function:

◆ update_stress3d()

subroutine m_static_lib_3d::update_stress3d	(	integer(kind=kint), intent(in)	flag,
		type(tgaussstatus), intent(inout)	gauss,
		real(kind=kreal), dimension(3,3), intent(in)	rot,
		real(kind=kreal), dimension(6), intent(in)	dstrain,
		real(kind=kreal), dimension(3,3), intent(in)	F,
		real(kind=kreal), dimension(3,3), intent(in)	coordsys,
		real(kind=kreal), intent(in)	time,
		real(kind=kreal), intent(in)	tincr,
		real(kind=kreal), intent(in)	ttc,
		real(kind=kreal), intent(in)	tt0,
		real(kind=kreal), intent(in)	ttn,
		integer(kind=kint), intent(in), optional	hdflag
	)

Definition at line 587 of file static_LIB_3d.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ volume_c3()

real(kind=kreal) function m_static_lib_3d::volume_c3	(	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
	)

Volume of element.

Definition at line 1057 of file static_LIB_3d.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

Functions/Subroutines

Detailed Description

Function/Subroutine Documentation

◆ cal_thermal_expansion_c3()

◆ dl_c3()

◆ elementstress_c3()

◆ geomat_c3()

◆ hughes_winget_rotation_3d()

◆ nodalstress_c3()

◆ stf_c3()

◆ tload_c3()

◆ update_c3()

◆ update_stress3d()

◆ volume_c3()