FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
m_static_lib_c3d8 Module Reference

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

Functions/Subroutines

subroutine stf_c3d8bbar (etype, nn, ecoord, gausses, stiff, cdsys_id, coords, time, tincr, u, temperature)
 This subroutine calculate stiff matrix using b-bar method.
 
subroutine update_c3d8bbar (etype, nn, ecoord, u, du, cdsys_id, coords, qf, gausses, iter, time, tincr, tt, t0, tn)
 Update Strain stress of this element.
 
subroutine tload_c3d8bbar (etype, nn, xx, yy, zz, tt, t0, gausses, vect, cdsys_id, coords)
 This subroutien calculate thermal loading.
 

Detailed Description

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

Function/Subroutine Documentation

◆ stf_c3d8bbar()

subroutine m_static_lib_c3d8::stf_c3d8bbar ( 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), optional  temperature 
)

This subroutine calculate stiff matrix using b-bar method.

See also
Hughes, T. J. "Generalization of Selective Integration Procedures to Anisotropic and Nonlinear Media", Intl. J. Numer. Methods Engng, 15, pp1413-1418,1980
Parameters
[in]etypeelement type
[in]nnnumber of elemental nodes
[in]ecoordcoordinates of elemental nodes
[in]gaussesstatus of qudrature points
[out]stiffstiff matrix
[in,out]coordsvariables to define matreial coordinate system
[in]timecurrent time
[in]tincrtime increment
[in]unodal displacemwent

Definition at line 23 of file static_LIB_C3D8.f90.

Here is the call graph for this function:

◆ tload_c3d8bbar()

subroutine m_static_lib_c3d8::tload_c3d8bbar ( 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]gaussesstatus of qudrature points
[in,out]coordsvariables to define matreial coordinate system

Definition at line 459 of file static_LIB_C3D8.f90.

Here is the call graph for this function:

◆ update_c3d8bbar()

subroutine m_static_lib_c3d8::update_c3d8bbar ( 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), optional  tt,
real(kind=kreal), dimension(nn), intent(in), optional  t0,
real(kind=kreal), dimension(nn), intent(in), optional  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]coordsvariables to define matreial coordinate system
[out]qf[out] Internal Force
[in,out]gausses[out] status of qudrature points
[in]timecurrent time
[in]tincrtime increment
[in]ttcurrent temperature
[in]t0reference temperature
[in]tnreference temperature

Definition at line 203 of file static_LIB_C3D8.f90.

Here is the call graph for this function: