elstressmodule Module Reference

Module with subroutines for element stress and strain calculation. More...

Functions/Subroutines
subroutine, public	extractev (IEL, sam, SV, EV, NEDOF)
	Extracts element displacements from superelement displacements. More...
subroutine, public	elstress (IEL, IELTYP, V, S, E, Sigma, Epsil, F, NENOD, NSTRP, IPSW, LPU, IERR)
	Computes FE stresses and strains for the specified element. More...
subroutine	getelementdata (PRG, IEL, XG, YG, ZG, EMOD, RNY, THK, ierr)
	Utility to retrieve element data needed for stress recovery. More...

Variables
logical, parameter	lstiffproj = .true.
	Activate stiffness projection. More...
real(dp), parameter	sqrt3_p = sqrt(3.0_dp)
	For Gauss-point extrapolation. More...

Detailed Description

Module with subroutines for element stress and strain calculation.

Function/Subroutine Documentation

elstress()

subroutine, public elstressmodule::elstress	(	integer, intent(in)	IEL,
		integer, intent(in)	IELTYP,
		real(dp), dimension(:), intent(inout)	V,
		real(dp), dimension(:), intent(out)	S,
		real(dp), dimension(:), intent(out)	E,
		real(dp), dimension(:), intent(out)	Sigma,
		real(dp), dimension(:), intent(out)	Epsil,
		real(dp), dimension(:), intent(out), optional	F,
		integer, intent(out)	NENOD,
		integer, intent(out)	NSTRP,
		integer, intent(in)	IPSW,
		integer, intent(in)	LPU,
		integer, intent(out)	IERR
	)

Computes FE stresses and strains for the specified element.

Parameters

[in]	IEL	Local element index
[in]	IELTYP	Element type flag
[in]	V	Nodal displacements of the element
[out]	S	Stress resultants
[out]	E	Stress resultant-conjugate strains
[out]	Sigma	stresses
[out]	Epsil	strains
[out]	F	Element nodal forces
[out]	NENOD	Number of element nodes
[out]	NSTRP	Number of stress calculation points
[in]	IPSW	Print switch
[in]	LPU	File unit number for res-file output
[out]	IERR	Error flag

This subroutine computes beam section forces and shell stress resultants at element nodes, and stresses and strains at predefined results points (for beams and shells) or at the element nodes (for solids).

Author

Knut Morten Okstad

Date

11 Oct 2000

Here is the caller graph for this function:

extractev()

subroutine, public elstressmodule::extractev	(	integer, intent(in)	IEL,
		type(samtype), intent(in)	sam,
		real(rk), dimension(:), intent(in)	SV,
		real(dp), dimension(:), intent(out)	EV,
		integer, intent(out)	NEDOF
	)

Extracts element displacements from superelement displacements.

Parameters

[in]	IEL	Local element index
[in]	sam	Assembly management data for the superelement
[in]	SV	Nodal displacements of the superelement
[out]	EV	Nodal displacements of the element
[out]	NEDOF	Number of DOFs in element

This subroutine does the same as the SAM subroutine EXTEV/EXTEV2, but needs to be reimplemented to account for different real kind of the input argument SV.

Author

Knut Morten Okstad

Date

11 Oct 2000

Here is the caller graph for this function:

getelementdata()

subroutine elstressmodule::getelementdata	(	character(len=*), intent(in)	PRG,
		integer, intent(in)	IEL,
		real(dp), dimension(:), intent(out)	XG,
		real(dp), dimension(:), intent(out)	YG,
		real(dp), dimension(:), intent(out)	ZG,
		real(dp), intent(out)	EMOD,
		real(dp), intent(out)	RNY,
		real(dp), dimension(:), intent(out), optional	THK,
		integer, intent(out)	ierr
	)

Utility to retrieve element data needed for stress recovery.

Parameters

[in]	PRG	Name of calling subroutine
[in]	IEL	Local element index
[out]	XG	Global X-coordinates of the element nodes
[out]	YG	Global Y-coordinates of the element nodes
[out]	ZG	Global Z-coordinates of the element nodes
[out]	EMOD	Youngs modulus
[out]	RNY	Poisson's ratio
[out]	THK	Nodal shell thicknesses
[out]	ierr	Error flag

Author

Knut Morten Okstad

Date

29 Jan 2021

Here is the call graph for this function:

Variable Documentation

lstiffproj

logical, parameter elstressmodule::lstiffproj = .true.

Activate stiffness projection.

sqrt3_p

real(dp), parameter elstressmodule::sqrt3_p = sqrt(3.0_dp)

For Gauss-point extrapolation.