Elmer FEM solver Elmer is an open source finite element software for multiphysical problems
Smitc.src File Reference

## Functions/Subroutines

subroutine smitcsolver_init (Model, Solver, dt, Transient)

subroutine smitcsolver (Model, Solver, dt, TransientSimulation)

subroutine localmatrix (STIFF, DAMP, MASS, Force, Load, Element, n, DOFs, Nodes, DampingCoef, SpringCoef)

subroutine isotropicelasticity (Ematrix, Gmatrix, Poisson, Young, Thickness, Basis, n)

subroutine perforatedelasticity (Ematrix, Gmatrix, Poisson, Young, Thickness, HoleFraction, HoleSize, Basis, n)

subroutine shearcorrectionfactor (Kappa, Thickness, x, y, n)

subroutine addinnerproducts (A, B, C, m, n, s)

subroutine covariantinterpolation (ShearStrain, Basis, X, Y, U, V, n)

subroutine jacobi3 (Jmat, invJ, detJ, x, y)

subroutine jacobi4 (Jmat, invJ, detJ, xi, eta, x, y)

## Function/Subroutine Documentation

 subroutine smitcsolver::addinnerproducts ( real(kind=dp), dimension(:,:) A, real(kind=dp), dimension(:,:) B, real(kind=dp), dimension(:,:) C, integer m, integer n, real(kind=dp) s )
 subroutine smitcsolver::covariantinterpolation ( real(kind=dp), dimension(:,:) ShearStrain, real(kind=dp), dimension(:) Basis, real(kind=dp), dimension(:) X, real(kind=dp), dimension(:) Y, real(kind=dp) U, real(kind=dp) V, integer n )

References jacobi3(), jacobi4(), and messages::warn().

Here is the call graph for this function:

 subroutine smitcsolver::isotropicelasticity ( real(kind=dp), dimension(:,:) Ematrix, real(kind=dp), dimension(:,:) Gmatrix, real(kind=dp), dimension(:) Poisson, real(kind=dp), dimension(:) Young, real(kind=dp), dimension(:) Thickness, real(kind=dp), dimension(:) Basis, integer n )
 subroutine smitcsolver::jacobi3 ( real(kind=dp), dimension(:,:) Jmat, real(kind=dp), dimension(:,:) invJ, real(kind=dp) detJ, real(kind=dp), dimension(:) x, real(kind=dp), dimension(:) y )
 subroutine smitcsolver::jacobi4 ( real(kind=dp), dimension(:,:) Jmat, real(kind=dp), dimension(:,:) invJ, real(kind=dp) detJ, real(kind=dp) xi, real(kind=dp) eta, real(kind=dp), dimension(:) x, real(kind=dp), dimension(:) y )
 subroutine smitcsolver::localmatrix ( real(kind=dp), dimension(:,:) STIFF, real(kind=dp), dimension(:,:) DAMP, real(kind=dp), dimension(:,:) MASS, real(kind=dp), dimension(:) Force, real(kind=dp), dimension(:) Load, type(element_t), pointer Element, integer n, integer DOFs, type(nodes_t) Nodes, real(kind=dp), dimension(:) DampingCoef, real(kind=dp), dimension(:) SpringCoef )

Here is the call graph for this function:

 subroutine smitcsolver::perforatedelasticity ( real(kind=dp), dimension(:,:) Ematrix, real(kind=dp), dimension(:,:) Gmatrix, real(kind=dp), dimension(:) Poisson, real(kind=dp), dimension(:) Young, real(kind=dp), dimension(:) Thickness, real(kind=dp), dimension(:) HoleFraction, real(kind=dp), dimension(:) HoleSize, real(kind=dp), dimension(:) Basis, integer n )

The elastic model for perforated plates is taken directly from M. Pedersen, W. Olthuis, P. BergWald: 'On the mechanical behavior of thin perforated plates and their application in silicon condenser microphones', Sensors and Actuators A 54 (1996) 499-504.

Referenced by localmatrix().

Here is the caller graph for this function:

 subroutine smitcsolver::shearcorrectionfactor ( real(kind=dp) Kappa, real(kind=dp) Thickness, real(kind=dp), dimension(:) x, real(kind=dp), dimension(:) y, integer n )

References messages::warn().

Here is the call graph for this function:

 subroutine smitcsolver_init ( type(model_t) Model, type(solver_t) Solver, real(kind=dp) dt, logical Transient )

Initialization for the primary solver: SmitcSolver.

Here is the call graph for this function: