| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/SecondOrderEdgeElement2D/ |
| H A D | EdgeElementTest.F90 | 126 IF (GetElementFamily() == 5 .AND. nd /= 6) THEN
130 IF (GetElementFamily() == 6 .AND. nd /= 10) THEN
134 IF (GetElementFamily() == 7 .AND. nd /= 15) THEN
138 IF (GetElementFamily() == 8 .AND. nd /= 27) THEN
240 IF ( (GetElementFamily() == 5 .AND. TetraVisited) .OR. &
241 (GetElementFamily() == 6 .AND. PyramidsVisited) .OR. &
242 (GetElementFamily() == 7 .AND. PrismsVisited) .OR. &
243 (GetElementFamily() == 8 .AND. BricksVisited) ) THEN
264 SELECT CASE( GetElementFamily() )
293 SELECT CASE( GetElementFamily() )
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/EdgeElementInterpolation/ |
| H A D | EdgeElementSolve.f90 | 122 IF (GetElementFamily() == 5 .AND. nd /= 6) THEN
126 IF (GetElementFamily() == 6 .AND. nd /= 10) THEN
130 IF (GetElementFamily() == 7 .AND. nd /= 15) THEN
134 IF (GetElementFamily() == 8 .AND. nd /= 27) THEN
235 IF ( (GetElementFamily() == 5 .AND. TetraVisited) .OR. &
236 (GetElementFamily() == 6 .AND. PyramidsVisited) .OR. &
237 (GetElementFamily() == 7 .AND. PrismsVisited) .OR. &
238 (GetElementFamily() == 8 .AND. BricksVisited) ) THEN
259 SELECT CASE( GetElementFamily() )
288 SELECT CASE( GetElementFamily() )
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/UserFunctions/ |
| H A D | Buoyancy.F90 | 90 IF(GetElementFamily(Model % CurrentElement) < 2) THEN
202 IF( GetElementFamily(BCElement) == 1 ) CYCLE
280 IF( GetElementFamily(BCElement) == 1 ) CYCLE
310 IF( GetElementFamily(BCElement) == 1 ) CYCLE
397 IF(GetElementFamily(Model % CurrentElement) < 2) THEN
475 IF( GetElementFamily(BCElement) == 1 ) CYCLE
501 IF( GetElementFamily(BCElement) == 1 ) CYCLE
|
| H A D | USF_ShapeFactor.F90 | 174 IF( GetElementFamily(BCElement) == 1 ) CYCLE
209 IF( GetElementFamily(BCElement) == 1 ) CYCLE
263 IF( GetElementFamily(BCElement) == 1 ) CYCLE
308 IF( GetElementFamily(BCElement) == 1 ) CYCLE
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | ModelMixedPoisson.F90 | 164 SELECT CASE( GetElementFamily(Element) )
185 np = n * Solver % Def_Dofs(GetElementFamily(Element), Element % BodyId, 1)
281 Family = GetElementFamily(Element)
331 FaceMap => GetEdgeMap(GetElementFamily(Parent))
361 np = n * Solver % Def_Dofs(GetElementFamily(Parent), Parent % BodyId, 1)
|
| H A D | BeamSolver3D.F90 | 124 IF ( .NOT. (GetElementFamily(Element) == 2) ) CYCLE
|
| H A D | ElementStats.F90 | 254 ElemFamily = GetElementFamily( Element )
300 ElemFamily = GetElementFamily( Element )
|
| H A D | HelmholtzProjection.F90 | 150 n_pot = n*SolverPtr % Def_Dofs(GetElementFamily(Element), Element % BodyId, 1)
436 n_pot = n*SolverPtr % Def_Dofs(GetElementFamily(Element), Element % BodyId, 1)
|
| H A D | SteadyPhaseChange.F90 | 192 IF ( GetElementFamily() == 1 ) CYCLE
220 IF ( GetElementFamily() == 1 ) CYCLE
306 IF ( GetElementFamily() == 1 ) CYCLE
416 IF ( GetElementFamily() == 1 ) CYCLE
|
| H A D | Poisson.F90 | 90 IF ( GetElementFamily() == 1 ) CYCLE
|
| H A D | ShellSolver.F90 | 429 Family = GetElementFamily(BGElement)
1091 Family = GetElementFamily(Element)
1200 Family = GetElementFamily(Element)
1608 Family = GetElementFamily(Element)
2514 Family = GetElementFamily(Element)
5537 Family = GetElementFamily(Element)
5803 Family = GetElementFamily(Element)
6271 Family = GetElementFamily(Element)
6525 Family = GetElementFamily(Element)
6571 Family = GetElementFamily(Element)
[all …]
|
| H A D | VectorHelmholtz.F90 | 74 SELECT CASE(GetElementFamily(Boundary))
317 SELECT CASE(GetElementFamily())
650 np = n * MAXVAL(Solver % Def_Dofs(GetElementFamily(Element),:,1))
1139 np = n*pSolver % Def_Dofs(GetElementFamily(Element),Element % BodyId,1)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/SecondOrderEdgeElement3D/ |
| H A D | EdgeElementTest.F90 | 216 IF ( (GetElementFamily() == 5 .AND. TetraVisited) .OR. &
217 (GetElementFamily() == 6 .AND. PyramidsVisited) .OR. &
218 (GetElementFamily() == 7 .AND. PrismsVisited) .OR. &
219 (GetElementFamily() == 8 .AND. BricksVisited) ) THEN
240 SELECT CASE( GetElementFamily() )
269 SELECT CASE( GetElementFamily() )
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/BDM2D/ |
| H A D | ComputeError.F90 | 119 np = n * TargetSolver % Def_Dofs(GetElementFamily(Element), &
165 SELECT CASE( GetElementFamily(Element) )
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/RaviartThomas2D/ |
| H A D | ComputeError.F90 | 119 np = n * TargetSolver % Def_Dofs(GetElementFamily(Element), &
165 SELECT CASE( GetElementFamily(Element) )
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/BDM3D/ |
| H A D | ComputeError.F90 | 119 np = n * TargetSolver % Def_Dofs(GetElementFamily(Element), &
165 SELECT CASE( GetElementFamily(Element) )
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/RaviartThomas3D/ |
| H A D | ComputeError.F90 | 119 np = n * TargetSolver % Def_Dofs(GetElementFamily(Element), &
165 SELECT CASE( GetElementFamily(Element) )
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/MagnetoDynamics/ |
| H A D | WhitneyAVSolver.F90 | 760 SELECT CASE(GetElementFamily())
1451 np = n*Solver % Def_Dofs(GetElementFamily(Element),Element % BodyId,1)
1596 np = n*Solver % Def_Dofs(GetElementFamily(Element),Element % BodyId,1)
2011 np = n*MAXVAL(Solver % Def_Dofs(GetElementFamily(Element),:,1))
2141 np = n*MAXVAL(Solver % Def_Dofs(GetElementFamily(Element),:,1))
2197 np = n*MAXVAL(Solver % Def_Dofs(GetElementFamily(Element),:,1))
2283 IF ( GetElementFamily()==1 ) CYCLE
2290 SELECT CASE(GetElementFamily())
2328 IF ( GetElementFamily()==1 ) CYCLE
2365 IF ( GetElementFamily()==1 ) CYCLE
[all …]
|
| H A D | WhitneyAVHarmonicSolver.F90 | 468 SELECT CASE(GetElementFamily())
1182 np = n*Solver % Def_Dofs(GetElementFamily(Element),Element % BodyId,1)
1448 np = n*Solver % Def_Dofs(GetElementFamily(Element),Element % BodyId,1)
1513 np = n*MAXVAL(Solver % Def_Dofs(GetElementFamily(Element),:,1))
1610 np = n*MAXVAL(Solver % Def_Dofs(GetElementFamily(Element),:,1))
1674 np = n*MAXVAL(Solver % Def_Dofs(GetElementFamily(Element),:,1))
1813 IF ( GetElementFamily()==1 ) CYCLE
1820 SELECT CASE(GetElementFamily())
1857 IF ( GetElementFamily()==1 ) CYCLE
1895 IF ( GetElementFamily()==1 ) CYCLE
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/FaceElement2D_BCs/ |
| H A D | FaceFEInterpolationTest.F90 | 212 np = n * Solver % Def_Dofs(GetElementFamily(Element), Element % BodyId, 1)
306 np = n * Solver % Def_Dofs(GetElementFamily(Element), Element % BodyId, 1)
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/FaceElement3D_BCs/ |
| H A D | FaceFEInterpolationTest.F90 | 212 np = n * Solver % Def_Dofs(GetElementFamily(Element), Element % BodyId, 1)
306 np = n * Solver % Def_Dofs(GetElementFamily(Element), Element % BodyId, 1)
|
| /dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
| H A D | AdjointSolver.F90 | 192 IF ( GetElementFamily() == 1 ) CYCLE
|
| H A D | SSAmask.F90 | 292 ElemFamily = GetElementFamily( Element )
|
| H A D | IntegrateVertically.F90 | 178 IF ( GetElementFamily() == 1 ) CYCLE
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | ViewFactors.F90 | 292 IF ( GetElementFamily() == 1 ) CYCLE
327 IF ( GetElementFamily() == 1 ) CYCLE
375 IF ( GetElementFamily() == 3 ) THEN
|