Searched defs:SolveLocalFaceDOFs (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | DefUtils.F90 | 5565 SUBROUTINE SolveLocalFaceDOFs(BC, Element, n, Name, DOFValues, & subroutine
5574 REAL(KIND=dp) :: DOFValues(:) !< The values of DOFs
5575 INTEGER :: EDOFs !< The number of edge DOFs
5579 TYPE(Nodes_t), SAVE :: Nodes
5580 TYPE(GaussIntegrationPoints_t) :: IP
5582 LOGICAL :: Lstat
5584 INTEGER :: i,j,p,DOFs,BasisDegree
5586 REAL(KIND=dp) :: Basis(n),Vload(3,n),VL(3),Normal(3)
5587 REAL(KIND=dp) :: EdgeBasis(EDOFs+FDOFs,3)
5588 REAL(KIND=dp) :: Mass(FDOFs,FDOFs), Force(FDOFs)
[all …]
|