/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/LinearFormsAssembly/ |
H A D | LinearFormsAssembly.F90 | 472 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 D | InitializeDGVariable.f90 | 18 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 D | ElectricForce.F90 | 66 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 D | ProjectToPlane.F90 | 225 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 D | FluidicForce.F90 | 76 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 D | ArteryOutlet.F90 | 111 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 D | MovingElstatSolver.F90 | 70 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 D | DistributeSource.F90 | 101 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 D | StatCurrentSolve.F90 | 102 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 D | StructuredFlowLine.F90 | 524 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 D | AdjointSSA_CostContSolver.F90 | 80 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 D | AdjointSSA_CostDiscSolver.F90 | 86 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 D | AdjointSSA_CostRegSolver.F90 | 90 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 D | Adjoint_CostContSolver.F90 | 90 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 D | Adjoint_CostRegSolver.F90 | 112 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 D | Adjoint_CostDiscSolver.F90 | 98 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 D | LevelSetCurvature.F90 | 57 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 D | LevelSetTimestep.F90 | 55 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 D | ForceToStress.F90 | 78 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 D | ComputeStrainRate.F90 | 80 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 D | BasalMelt3D.F90 | 64 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 D | ComputeDevStressNS.F90 | 81 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 D | Compute2DNodalGradient.F90 | 45 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 D | InterpolateMeshToMesh.F90 | 565 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 D | Interpolation.F90 | 195 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 …]
|