Home
last modified time | relevance | path

Searched refs:ParentBasis (Results 1 – 14 of 14) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/
H A DFluidicForce.F90364 REAL(KIND=dp) :: ParentBasis(pn), ParentdBasisdx(pn,3) local
440 stat = ElementInfo( Parent, ParentNodes, u, v, w, detJ, ParentBasis, &
452 Visc = SUM( Viscosity(1:pn) * ParentBasis(1:pn) )
466 SUM( Velocity(1,1:pn) * ParentBasis(1:pn) ) / xpos + &
479 Stress(i,i) = Stress(i,i) - SUM( Pressure(1:pn) * ParentBasis )
483 Stress(i,i) = Stress(i,i) - SUM( Pressure(1:pn) * ParentBasis ) &
H A DPoissonDG.F90480 REAL(KIND=dp) :: ParentBasis(k), ParentdBasisdx(k,3), & local
540 ParentBasis, ParentdBasisdx )
557 STIFF(p,q) = STIFF(p,q) - c1 * ParentdBasisdn(p) * ParentBasis(q) * s
558 STIFF(p,q) = STIFF(p,q) - c1 * ParentBasis(p) * ParentdBasisdn(q) * s
559 STIFF(p,q) = STIFF(p,q) + c2 * ParentBasis(p) * ParentBasis(q) * s
563 FORCE(p) = FORCE(p) + c2 * ParentBasis(p) * L * s
H A DArteryOutlet.F90747 ParentBasis(:), ParentdBasisdx(:,:), x(:), y(:), z(:) local
895 ParentBasis(:), ParentdBasisdx(:,:), x(:), y(:), z(:) local
902 ParentBasis, ParentdBasisdx, x, y, z, Pressure, Viscosity, Velocity
931 ParentBasis(n), ParentdBasisdx(n,3), &
1056 stat = ElementInfo( Parent, ParentNodes, u, v, w, detJ, ParentBasis, ParentdBasisdx )
1067 NormalVelo = NormalVelo + Normal(j) * SUM( ParentBasis(1:pn) * Velocity(j,1:pn) )
1072 Visc = SUM( Viscosity(1:pn) * ParentBasis(1:pn) )
1081 SUM( Velocity(1,1:pn) * ParentBasis(1:pn) ) / xpos + &
1090 Stress(i,i) = Stress(i,i) - SUM( Pressure(1:pn) * ParentBasis ) &
H A DDataToFieldSolver.F90630 REAL(KIND=dp) :: ParentBasis(np),ParentdBasisdx(np,3),DiffMatrix(3,3) local
692 ParentBasis, ParentdBasisdx)
700 DiffMatrix(p,q) = SUM( DataDiffusivity(p,q,1:np) * ParentBasis(1:np) )
709 STIFF(p,q) = STIFF(p,q) - s * ParentBasis(p)* &
712 STIFF(p,q) = STIFF(p,q) - s * ParentBasis(p) * &
H A DAdvectionReaction.F90626 REAL(KIND=dp) :: ParentBasis(np), ParentdBasisdx(np,3) local
669 detJ, ParentBasis, ParentdBasisdx )
680 FORCE(p) = FORCE(p) - s * Udotn*L*ParentBasis(p)
683 STIFF(p,q) = STIFF(p,q) + s*Udotn*ParentBasis(q)*ParentBasis(p)
H A DNonphysicalMeshSolve.F90514 REAL(KIND=dp), ALLOCATABLE :: ParentBasis(:), dParentBasisdx(:,:) local
524 SAVE Nodes, ParentNodes, AllocationsDone, ParentBasis, dParentBasisdx
538 ALLOCATE( ParentBasis(np), dParentBasisdx(np,3))
593 ParentBasis,dParentBasisdx )
H A DMovingElstatSolver.F9077 ParentBasis(:),ParentdBasisdx(:,:),xelem(:),yelem(:),zelem(:) local
99 ParentBasis, ParentdBasisdx, MovingNodes, MinMaxMoving, &
145 ParentBasis(n), &
1072 stat = ElementInfo( Parent, ParentNodes, u, v, w, detJ, ParentBasis, &
H A DElectricForce.F90362 REAL(KIND=dp) :: ParentBasis(pn),ParentdBasisdx(pn,3) local
436 stat = ElementInfo( Parent, ParentNodes, u, v, w, detJ, ParentBasis, &
H A DAdvectionDiffusion.F901548 REAL(KIND=dp) :: Basis(n), ParentBasis(pn) local
1610 ParentBasis, ParentdBasisdx, ddBasisddx, .FALSE. )
2246 REAL(KIND=dp) :: Basis(n), ParentBasis(pn) local
2318 ParentBasis, ParentdBasisdx, ddBasisddx, .FALSE. )
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/AdvReactDG_P/
H A DAdvReactDG_P.F90560 REAL(KIND=dp) :: Basis(nd), ParentBasis(npd) local
601 detJ, ParentBasis)
612 FORCE(p) = FORCE(p) - s*Udotn*L*ParentBasis(p)
615 STIFF(p,q) = STIFF(p,q) + s*Udotn*ParentBasis(q)*ParentBasis(p)
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/
H A DCaffeSolver.F901640 REAL(KIND=dp) :: ParentBasis(np), ParentdBasisdx(np,3), ParentddBasisddx(np,3,3) local
1702 detJ, ParentBasis, ParentdBasisdx, ParentddBasisddx, .FALSE. )
1840 M = ParentBasis(p) * ParentBasis(q)
1845 A = A + C0 * ParentBasis(q) * ParentBasis(p)
1851 A = A - Velo(j) * ParentBasis(q) * ParentdBasisdx(p,j)
1928 FORCE(1:np) = FORCE(1:np) + S*LoadAtIp*ParentBasis(1:np)
1945 REAL(KIND=dp) :: ParentBasis(np), ParentdBasisdx(np,3), ParentddBasisddx(np,3,3) local
1983 detJ, ParentBasis, ParentdBasisdx, ParentddBasisddx, .FALSE. )
1994 BoundaryMatrix(p,q) = BoundaryMatrix(p,q) + s*Udotn*ParentBasis(q)*ParentBasis(p)
H A DFabricSolve.F901238 REAL(KIND=dp) :: ParentBasis(np), ParentdBasisdx(np,3), ParentddBasisddx(np,3,3) local
1299 detJ, ParentBasis, ParentdBasisdx, ParentddBasisddx, .FALSE. )
1310 FORCE(p) = FORCE(p) - s * Udotn*L*ParentBasis(p)
1313 STIFF(p,q) = STIFF(p,q) + s*Udotn*ParentBasis(q)*ParentBasis(p)
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/SaveData/
H A DSaveScalars.F902294 ParentBasis(Model % MaxElementNodes),& local
2621 ParentBasis,ParentdBasisdx )
2627 Flow(j) = Flow(j) + SUM( EnergyTensor(j,k,1:pn) * ParentBasis(1:pn) ) * &
2630 Flow(j) = Flow(j) + SUM( EnergyTensor(j,k,1:pn) * ParentBasis(1:pn) ) * &
2862 ParentBasis(Model % MaxElementNodes),& local
3174 ParentBasis,ParentdBasisdx )
3183 Flow(j) = Flow(j) + SUM( EnergyTensor(j,k,1:pn) * ParentBasis(1:pn) ) * &
3191 coeff = SUM( EnergyCoeff(1:pn) * ParentBasis(1:pn))
3198 SUM( Var % Values(NoDofs*(PermIndexes(1:pn)-1)+j) * ParentBasis(1:pn) )
3204 coeff = SUM( EnergyCoeff(1:pn) * ParentBasis(1:pn))
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/LevelSet/
H A DLevelSetCurvature.F90385 REAL(KIND=dp) :: ParentBasis(pn), ParentdBasisdx(pn,3) local
453 stat = ElementInfo( Parent, ParentNodes, u, v, w, detJ, ParentBasis, ParentdBasisdx )