Home
last modified time | relevance | path

Searched refs:ElementNodes (Results 1 – 25 of 141) sorted by relevance

123456

/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/LinearFormsAssembly/
H A DLinearFormsAssembly.F90472 IF (ASSOCIATED(ElementNodes % x)) DEALLOCATE(ElementNodes % x)
473 IF (ASSOCIATED(ElementNodes % y)) DEALLOCATE(ElementNodes % y)
479 ElementNodes % x => ElementNodes % xyz(1:n,1)
480 ElementNodes % y => ElementNodes % xyz(1:n,2)
481 ElementNodes % z => ElementNodes % xyz(1:n,3)
486 ElementNodes % x => ElementNodes % xyz(1:n,1)
487 ElementNodes % y => ElementNodes % xyz(1:n,2)
488 ElementNodes % z => ElementNodes % xyz(1:n,3)
490 ElementNodes % x => ElementNodes % xyz(1:n,1)
491 ElementNodes % y => ElementNodes % xyz(1:n,2)
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Tests/DGsolver/PROG/
H A DInitializeDGVariable.f9018 TYPE(Nodes_t) :: ElementNodes local
27 ALLOCATE(ElementNodes % x(n), ElementNodes % y(n), ElementNodes % z(n), &
44 CALL GetElementNodes( ElementNodes )
51 z = ElementNodes % z(i)
59 DEALLOCATE(ElementNodes % x, ElementNodes % y, ElementNodes % z, Depth)
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/
H A DElectricForce.F9066 TYPE(Nodes_t) :: ElementNodes, ParentNodes local
129 ALLOCATE( ElementNodes % x( n ), &
130 ElementNodes % y(n), ElementNodes % z(n) )
162 ElementNodes % x = 0.0d0
163 ElementNodes % y = 0.0d0
164 ElementNodes % z = 0.0d0
207 ElementNodes % x(1:n) = Mesh % Nodes % x(NodeIndexes)
208 ElementNodes % y(1:n) = Mesh % Nodes % y(NodeIndexes)
209 ElementNodes % z(1:n) = Mesh % Nodes % z(NodeIndexes)
332 DEALLOCATE( ElementNodes % x, ElementNodes % y, ElementNodes % z )
[all …]
H A DProjectToPlane.F90225 ALLOCATE(ElementNodes % x(n), ElementNodes % y(n), ElementNodes % z(n), Basis(n) )
282 MinHeight3D(t) = MINVAL(ElementNodes % z(1:n))
283 MaxHeight3D(t) = MAXVAL(ElementNodes % z(1:n))
286 MinWidth3D(t) = SQRT( MINVAL(ElementNodes % x(1:n)**2 + ElementNodes % y(1:n)**2) )
287 MaxWidth3D(t) = SQRT( MAXVAL(ElementNodes % x(1:n)**2 + ElementNodes % y(1:n)**2) )
289 MinWidth3D(t) = MINVAL(ElementNodes % x(1:n))
1031 ALLOCATE(ElementNodes % x(n), ElementNodes % y(n), ElementNodes % z(n), Basis(n) )
1086 MinHeight3D(t) = MINVAL(ElementNodes % z(1:n))
1087 MaxHeight3D(t) = MAXVAL(ElementNodes % z(1:n))
1091 ElementNodes % y(1:n)**2) )
[all …]
H A DFluidicForce.F9076 TYPE(Nodes_t) :: ElementNodes, ParentNodes local
96 ALLOCATE( ElementNodes % x(n), ElementNodes % y(n), ElementNodes % z(n))
166 ElementNodes % x(1:n) = Mesh % Nodes % x(NodeIndexes)
167 ElementNodes % y(1:n) = Mesh % Nodes % y(NodeIndexes)
168 ElementNodes % z(1:n) = Mesh % Nodes % z(NodeIndexes)
240 ShearData(NbrShearValues,2) = SUM( ElementNodes % x(1:n) ) / n
347 DEALLOCATE( ElementNodes % x, ElementNodes % y, ElementNodes % z )
400 stat = ElementInfo( CurrentElement, ElementNodes, u, v, w, &
408 xpos = SUM( ElementNodes % x(1:n) * Basis(1:n) )
409 ypos = SUM( ElementNodes % y(1:n) * Basis(1:n) )
[all …]
H A DArteryOutlet.F90111 TYPE(Nodes_t) :: ElementNodes local
197 ALLOCATE( ElementNodes % x( N ), &
198 ElementNodes % y( N ), &
199 ElementNodes % z( N ), &
742 TYPE(Nodes_t) :: ElementNodes, ParentNodes local
763 ALLOCATE( ElementNodes % x(n), &
764 ElementNodes % y(n), &
765 ElementNodes % z(n), &
924 ALLOCATE( ElementNodes % x(n), &
925 ElementNodes % y(n), &
[all …]
H A DMovingElstatSolver.F9070 TYPE(Nodes_t) :: ElementNodes, ParentNodes local
133 ALLOCATE( ElementNodes % x(N), &
134 ElementNodes % y(N), &
135 ElementNodes % z(N), &
212 ElementNodes % x(1:n) = xorig(NodeIndexes)
213 ElementNodes % y(1:n) = yorig(NodeIndexes)
214 ElementNodes % z(1:n) = zorig(NodeIndexes)
299 ElementNodes % x(1:n) = xorig(NodeIndexes)
300 ElementNodes % y(1:n) = yorig(NodeIndexes)
301 ElementNodes % z(1:n) = zorig(NodeIndexes)
[all …]
H A DDistributeSource.F90101 TYPE(Nodes_t) :: ElementNodes, ElementNodesB local
128 SAVE :: ElementNodes, ElementNodesB
170 ALLOCATE( ElementNodes % x(n), ElementNodes % y(n), ElementNodes % z(n) )
248 ElementNodes % x(1:n) = LocalMesh % Nodes % x(NodeIndexes(1:n))
249 ElementNodes % y(1:n) = LocalMesh % Nodes % y(NodeIndexes(1:n))
250 ElementNodes % z(1:n) = LocalMesh % Nodes % z(NodeIndexes(1:n))
271 Stat = ElementInfo( Element, ElementNodes, u, v, w, detJ, Basis, dBasisdx )
273 Point(1) = SUM( Basis(1:n) * ElementNodes % x(1:n) )
274 Point(2) = SUM( Basis(1:n) * ElementNodes % y(1:n) )
275 Point(3) = SUM( Basis(1:n) * ElementNodes % z(1:n) )
H A DStatCurrentSolve.F90102 TYPE(Nodes_t) :: ElementNodes local
184 DEALLOCATE( ElementNodes % x, &
185 ElementNodes % y, &
186 ElementNodes % z, &
193 ALLOCATE( ElementNodes % x(N), &
194 ElementNodes % y(N), &
195 ElementNodes % z(N), &
859 x = SUM( ElementNodes % x(1:n)*Basis(1:n) )
860 y = SUM( ElementNodes % y(1:n)*Basis(1:n) )
861 z = SUM( ElementNodes % z(1:n)*Basis(1:n) )
[all …]
H A DStructuredFlowLine.F90524 TYPE(Nodes_t) :: ElementNodes local
538 SAVE :: CurrentElement, ElementNodes, Basis, dBasisdx
542 ALLOCATE( ElementNodes % x(n), ElementNodes % y(n), ElementNodes % z(n))
563 ElementNodes % x(1:n) = Mesh % Nodes % x(NodeIndexes)
564 ElementNodes % y(1:n) = Mesh % Nodes % y(NodeIndexes)
565 ElementNodes % z(1:n) = Mesh % Nodes % z(NodeIndexes)
567 IF ( PointInElement( CurrentElement, ElementNodes, &
587 ElementNodes % x(1:n) = Mesh % Nodes % x(NodeIndexes)
588 ElementNodes % y(1:n) = Mesh % Nodes % y(NodeIndexes)
589 ElementNodes % z(1:n) = Mesh % Nodes % z(NodeIndexes)
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/AdjointSSA/
H A DAdjointSSA_CostContSolver.F9080 TYPE(Nodes_t) :: ElementNodes local
96 save ElementNodes
115 allocate(ElementNodes % x(N), ElementNodes % y(N), ElementNodes % z(N))
190 ElementNodes % x(1:n) = Solver % Mesh % Nodes % x(NodeIndexes)
192 ElementNodes % y(1:n) = 0.0_dp
193 ElementNodes % z(1:n) = 0.0_dp
195 ElementNodes % y(1:n) = Solver % Mesh % Nodes % y(NodeIndexes)
196 ElementNodes % z(1:n) = 0.0_dp
234 stat = ElementInfo( Element,ElementNodes,U,V,W,SqrtElementMetric, &
237 x = SUM( ElementNodes % x(1:n) * Basis(1:n) )
H A DAdjointSSA_CostDiscSolver.F9086 TYPE(Nodes_t) :: ElementNodes local
118 save ElementNodes
153 allocate(ElementNodes % x(N), ElementNodes % y(N), ElementNodes % z(N))
426 ElementNodes % y(1:n) = 0.0_dp
427 ElementNodes % z(1:n) = 0.0_dp
430 ElementNodes % z(1:n) = 0.0_dp
444 ElementNodes % y(1:n) = 0.0_dp
445 ElementNodes % z(1:n) = 0.0_dp
485 ElementNodes % y(1:n) = 0.0_dp
486 ElementNodes % z(1:n) = 0.0_dp
[all …]
H A DAdjointSSA_CostRegSolver.F9090 TYPE(Nodes_t) :: ElementNodes local
110 save ElementNodes
180 allocate(ElementNodes % x(N), ElementNodes % y(N), ElementNodes % z(N))
251 ElementNodes % x(1:n) = Solver % Mesh % Nodes % x(NodeIndexes)
253 ElementNodes % y(1:n) = 0.0_dp
254 ElementNodes % z(1:n) = 0.0_dp
256 ElementNodes % y(1:n) = Solver % Mesh % Nodes % y(NodeIndexes)
257 ElementNodes % z(1:n) = 0.0_dp
307 stat = ElementInfo( Element,ElementNodes,U,V,W,SqrtElementMetric, &
310 x = SUM( ElementNodes % x(1:n) * Basis(1:n) )
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/Adjoint/
H A DAdjoint_CostContSolver.F9090 TYPE(Nodes_t),SAVE :: ElementNodes local
120 allocate(ElementNodes % x(N), ElementNodes % y(N), ElementNodes % z(N))
192 ElementNodes % x(1:n) = Solver % Mesh % Nodes % x(NodeIndexes)
194 ElementNodes % y(1:n) = 0.0_dp
195 ElementNodes % z(1:n) = 0.0_dp
197 ElementNodes % y(1:n) = Solver % Mesh % Nodes % y(NodeIndexes)
198 ElementNodes % z(1:n) = 0.0_dp
200 ElementNodes % y(1:n) = Solver % Mesh % Nodes % y(NodeIndexes)
201 ElementNodes % z(1:n) = Solver % Mesh % Nodes % z(NodeIndexes)
237 stat = ElementInfo( Element,ElementNodes,U,V,W,SqrtElementMetric, &
[all …]
H A DAdjoint_CostRegSolver.F90112 TYPE(Nodes_t),SAVE :: ElementNodes local
184 allocate(ElementNodes % x(N), ElementNodes % y(N), ElementNodes % z(N))
250 ElementNodes % x(1:n) = Solver % Mesh % Nodes % x(NodeIndexes)
253 ElementNodes % y(1:n) = 0.0_dp
254 ElementNodes % z(1:n) = 0.0_dp
256 ElementNodes % y(1:n) = Solver % Mesh % Nodes % y(NodeIndexes)
257 ElementNodes % z(1:n) = 0.0_dp
259 ElementNodes % y(1:n) = Solver % Mesh % Nodes % y(NodeIndexes)
260 ElementNodes % z(1:n) = Solver % Mesh % Nodes % z(NodeIndexes)
300 stat = ElementInfo( Element,ElementNodes,U,V,W,SqrtElementMetric, &
[all …]
H A DAdjoint_CostDiscSolver.F9098 TYPE(Nodes_t),SAVE :: ElementNodes local
171 allocate(ElementNodes % x(N), ElementNodes % y(N), ElementNodes % z(N))
559 ElementNodes % y(1:n) = 0.0_dp
560 ElementNodes % z(1:n) = 0.0_dp
563 ElementNodes % z(1:n) = 0.0_dp
577 ElementNodes % y(1:n) = 0.0_dp
578 ElementNodes % z(1:n) = 0.0_dp
581 ElementNodes % z(1:n) = 0.0_dp
618 ElementNodes % y(1:n) = 0.0_dp
619 ElementNodes % z(1:n) = 0.0_dp
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/LevelSet/
H A DLevelSetCurvature.F9057 TYPE(Nodes_t) :: ElementNodes, ParentNodes local
105 ALLOCATE( ElementNodes % x( N ), &
106 ElementNodes % y( N ), &
107 ElementNodes % z( N ), &
148 ElementNodes % x(1:n) = Solver % Mesh % Nodes % x(NodeIndexes)
149 ElementNodes % y(1:n) = Solver % Mesh % Nodes % y(NodeIndexes)
155 Surf, Element, n, ElementNodes )
376 Surf, Element, Parent, n, pn, ElementNodes, ParentNodes )
380 TYPE(Nodes_t) :: ElementNodes, ParentNodes local
428 xpos = SUM( ElementNodes % x(1:n)*Basis(1:n) )
[all …]
H A DLevelSetTimestep.F9055 TYPE(Nodes_t) :: ElementNodes local
70 SAVE AllocationsDone, Basis, dBasisdx, NodalVelo, Surf, ElementNodes, prevdt
106 ElementNodes % x(n), ElementNodes % y(n), ElementNodes % z(n) )
125 ElementNodes % x(1:n) = Solver % Mesh % Nodes % x(NodeIndexes)
126 ElementNodes % y(1:n) = Solver % Mesh % Nodes % y(NodeIndexes)
127 ElementNodes % z(1:n) = Solver % Mesh % Nodes % z(NodeIndexes)
167 stat = ElementInfo( CurrentElement,ElementNodes,u,v,w,detJ, Basis,dBasisdx)
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/
H A DForceToStress.F9078 TYPE(Nodes_t) :: ElementNodes local
114 ElementNodes, AllocationsDone
165 DEALLOCATE( ElementNodes % x, &
166 ElementNodes % y, &
167 ElementNodes % z, &
174 ALLOCATE( ElementNodes % x( N ), &
175 ElementNodes % y( N ), &
176 ElementNodes % z( N ), &
221 ElementNodes % x(1:n) = Model % Nodes % x(NodeIndexes(1:n))
222 ElementNodes % y(1:n) = Model % Nodes % y(NodeIndexes(1:n))
[all …]
H A DComputeStrainRate.F9080 TYPE(Nodes_t) :: ElementNodes local
114 ElementNodes, AllocationsDone
172 DEALLOCATE( ElementNodes % x, &
173 ElementNodes % y, &
174 ElementNodes % z, &
181 ALLOCATE( ElementNodes % x( N ), &
182 ElementNodes % y( N ), &
183 ElementNodes % z( N ), &
236 ElementNodes % x(1:n) = Model % Nodes % x(NodeIndexes(1:n))
237 ElementNodes % y(1:n) = Model % Nodes % y(NodeIndexes(1:n))
[all …]
H A DBasalMelt3D.F9064 TYPE(Nodes_t) :: ElementNodes local
262 ALLOCATE(ElementNodes % x(n),&
263 ElementNodes % y(n),&
264 ElementNodes % z(n))
282 ElementNodes % x(1:n) = Mesh % Nodes % x(NodeIndexes(1:n))
283 ElementNodes % y(1:n) = Mesh % Nodes % y(NodeIndexes(1:n))
284 ElementNodes % z(1:n) = Mesh % Nodes % z(NodeIndexes(1:n))
297 stat = ElementInfo( Element,ElementNodes,U,V,W,SqrtElementMetric, &
310 DEALLOCATE(ElementNodes % x, ElementNodes % y, ElementNodes % z)
H A DComputeDevStressNS.F9081 TYPE(Nodes_t) :: ElementNodes local
132 ElementNodes, &
192 DEALLOCATE( ElementNodes % x, &
193 ElementNodes % y, &
194 ElementNodes % z, &
204 ALLOCATE( ElementNodes % x( N ), &
205 ElementNodes % y( N ), &
206 ElementNodes % z( N ), &
263 ElementNodes % x(1:n) = Model % Nodes % x(NodeIndexes(1:n))
264 ElementNodes % y(1:n) = Model % Nodes % y(NodeIndexes(1:n))
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/MeshAdaptation_2D/
H A DCompute2DNodalGradient.F9045 TYPE(Nodes_t),SAVE :: ElementNodes local
111 IF (AllocationsDone) DEALLOCATE(ElementNodes % x, &
112 ElementNodes % y, ElementNodes % z, &
118 ALLOCATE(ElementNodes % x(N), ElementNodes % y(N), ElementNodes % z(N), &
143 ElementNodes % x(1:n) = Solver % Mesh % Nodes % x(NodeIndexes)
145 ElementNodes % y(1:n) = 0.0_dp
146 ElementNodes % z(1:n) = 0.0_dp
148 ElementNodes % y(1:n) = Solver % Mesh % Nodes % y(NodeIndexes)
149 ElementNodes % z(1:n) = 0.0_dp
164 stat = ElementInfo(Element, ElementNodes, IP % U(j), &
[all …]
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DInterpolateMeshToMesh.F90565 TYPE(Nodes_t) :: ElementNodes local
671 ALLOCATE( ElementNodes % x(n), ElementNodes % y(n), &
672 ElementNodes % z(n), ElementValues(n) )
1155 DEALLOCATE( ElementNodes % x, ElementNodes % y, &
1156 ElementNodes % z, ElementValues )
1254 ALLOCATE( GaussNodes, ElementNodes )
1323 ALLOCATE( ElementNodes % x(n), ElementNodes % y(n), ElementNodes % z(n), &
1328 ALLOCATE( ElementNodes % x(n), ElementNodes % y(n), ElementNodes % z(n), Basis(n) )
1433 ElementNodes % x(1:n) = RealNodes % x(Indexes(1:n))
1555 DEALLOCATE( ElementNodes % x, ElementNodes % y, ElementNodes % z )
[all …]
H A DInterpolation.F90195 minx = MINVAL( ElementNodes % x(1:n) )
196 maxx = MAXVAL( ElementNodes % x(1:n) )
198 miny = MINVAL( ElementNodes % y(1:n) )
199 maxy = MAXVAL( ElementNodes % y(1:n) )
201 minz = MINVAL( ElementNodes % z(1:n) )
202 maxz = MAXVAL( ElementNodes % z(1:n) )
216 minx = MINVAL( ElementNodes % x(1:n) )
217 maxx = MAXVAL( ElementNodes % x(1:n) )
221 miny = MINVAL( ElementNodes % y(1:n) )
222 maxy = MAXVAL( ElementNodes % y(1:n) )
[all …]

123456