Home
last modified time | relevance | path

Searched refs:ddBasisddx (Results 1 – 25 of 51) sorted by relevance

123

/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/
H A DGetHydrostaticLoads.F9086 ddBasisddx(:,:,:) local
92 SAVE Basis, dBasisdx, ddBasisddx
110 IF (AllocationsDone) DEALLOCATE(pwt, Basis, dBasisdx, ddBasisddx)
112 ALLOCATE(pwt(n), Basis(n), dBasisdx(n,3), ddBasisddx(n,3,3), STAT=istat )
161 IP % W(p), detJ, Basis, dBasisdx, ddBasisddx, .FALSE.)
H A DSIASolver.F90322 REAL(KIND=dp) :: Basis(n), dBasisdx(n,3), ddBasisddx(n,3,3), detJ local
343 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
400 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .TRUE. )
408 dU2dxz = SUM(VeloU(1:n)*ddBasisddx(1:n,1,DIM))
410 IF (DIM==3) dV2dyz = SUM(VeloV(1:n)*ddBasisddx(1:n,2,3))
427 REAL(KIND=dp) :: Basis(n), dBasisdx(n,3), ddBasisddx(n,3,3), detJ local
444 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
464 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3), & local
482 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
505 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3), & local
[all …]
H A DFlowdepth.F90272 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3),DetJ,& local
296 Basis,dBasisdx,ddBasisddx,.FALSE.,.FALSE. )
327 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3),DetJ local
344 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
364 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3), & local
382 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
H A DComputeDevStressNS.F9086 REAL(KIND=dp), ALLOCATABLE :: Basis(:),ddBasisddx(:,:,:) local
130 SAVE Basis, dBasisdx, ddBasisddx
196 Basis, ddBasisddx, &
208 Basis( 2*N ),ddBasisddx(1,1,1), dBasisdx( 2*N,3 ), &
389 REAL(KIND=dp) :: Basis(2*n),ddBasisddx(1,1,1) local
441 Basis,dBasisdx,ddBasisddx,.FALSE.,.FALSE.)
H A DIntegrateVertically.F90218 REAL(KIND=dp) :: Basis(n), dBasisdx(n,3), ddBasisddx(n,3,3), detJ,grad local
235 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
258 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3), & local
276 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
H A DIntegratedVelocity.F90230 REAL(KIND=dp) :: Basis(n), dBasisdx(n,3), ddBasisddx(n,3,3), detJ,grad local
247 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
270 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3), & local
288 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
H A DSSASolver.F90601 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
801 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3), & local
1096 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
1119 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3), & local
1137 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
1524 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
1562 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .TRUE. )
1570 dU2dxz = SUM(VeloU(1:n)*ddBasisddx(1:n,1,dim))
1572 IF (DIM==3) dV2dyz = SUM(VeloV(1:n)*ddBasisddx(1:n,2,3))
1626 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3), & local
[all …]
H A DExportVertically.F90161 REAL(KIND=dp) :: Basis(n), dBasisdx(n,3), ddBasisddx(n,3,3), detJ local
179 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
H A DAIFlowSolve_nlD2.F9088 REAL(KIND=dp), ALLOCATABLE :: Basis(:),ddBasisddx(:,:,:) local
158 SAVE TimeForce, Basis, dBasisdx, ddBasisddx
269 Basis( 2*N ),ddBasisddx(1,1,1), dBasisdx( 2*N,3 ), &
643 Basis,dBasisdx,ddBasisddx,.FALSE.,.FALSE.)
653 Basis,dBasisdx,ddBasisddx,.FALSE.,.FALSE.)
834 REAL(KIND=dp) :: Basis(2*n),ddBasisddx(1,1,1) local
907 Basis,dBasisdx,ddBasisddx,.FALSE.,.TRUE. )
1110 REAL(KIND=dp) :: Basis(n),ddBasisddx(1,1,1) local
1163 Basis, dBasisdx, ddBasisddx, .FALSE. )
1263 REAL(KIND=dp) :: Basis(2*n), ddBasisddx(1,1,1) local
H A DAIFlowSolve_nlS2.F9088 REAL(KIND=dp), ALLOCATABLE :: Basis(:),ddBasisddx(:,:,:) local
158 SAVE TimeForce, Basis, dBasisdx, ddBasisddx
269 Basis( 2*N ),ddBasisddx(1,1,1), dBasisdx( 2*N,3 ), &
644 Basis,dBasisdx,ddBasisddx,.FALSE.,.FALSE.)
654 Basis,dBasisdx,ddBasisddx,.FALSE.,.FALSE.)
835 REAL(KIND=dp) :: Basis(2*n),ddBasisddx(1,1,1) local
908 Basis,dBasisdx,ddBasisddx,.FALSE.,.TRUE. )
1145 REAL(KIND=dp) :: Basis(n),ddBasisddx(1,1,1) local
1198 Basis, dBasisdx, ddBasisddx, .FALSE. )
1298 REAL(KIND=dp) :: Basis(2*n), ddBasisddx(1,1,1) local
H A DDeformationalHeat.F90160 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3),DetJ,LGrad(3,3) local
180 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
H A DForceToStress.F90320 REAL(KIND=dp) :: Basis(2*n), ddBasisddx(1,1,1) local
362 Basis,dBasisdx,ddBasisddx,.FALSE.,.FALSE.)
H A DComputeStrainRate.F90334 REAL(KIND=dp) :: Basis(2*n), ddBasisddx(1,1,1) local
379 Basis,dBasisdx,ddBasisddx,.FALSE.,.FALSE.)
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/MeshAdaptation_2D/
H A DGetConnectedAreas.F9058 ddBasisddx(:,:,:) local
80 ALLOCATE( Basis(n), dBasisdx(n,3), ddBasisddx(n,3,3))
185 IP % W(p), detJ, Basis, dBasisdx, ddBasisddx, .FALSE.)
224 DEALLOCATE(Basis,dBasisdx,ddBasisddx)
H A DCompute2DNodalGradient.F9072 REAL(KIND=dp),allocatable,save :: Basis(:),dBasisdx(:,:),ddBasisddx(:,:,:) local
113 Basis,dBasisdx,ddBasisddx,&
119 Basis(N),dBasisdx(N,3),ddBasisddx(N,3,3),&
166 Basis,dBasisdx, ddBasisddx,.FALSE. )
186 W, detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
H A DMMG2D_MetricAniso.F90302 REAL(KIND=dp) :: Basis(2*n), ddBasisddx(1,1,1) local
337 Basis,dBasisdx,ddBasisddx,.FALSE.,.FALSE.)
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/
H A DAdvectionDiffusion.F901183 REAL(KIND=dp) :: ddBasisddx(n,3,3) local
1399 SU(p) = SU(p) - C2(i,j) * ddBasisddx(p,i,j)
1585 Basis,dBasisdx,ddBasisddx,.FALSE. )
1676 REAL(KIND=dp) :: ddBasisddx(n,3,3) local
1714 Basis,dBasisdx,ddBasisddx,.FALSE. )
1813 REAL(KIND=dp) :: ddBasisddx(n,3,3) local
2081 SU(p) = SU(p) - C2(i,j) * ddBasisddx(p,i,j)
2098 SW(p) = SW(p) - C2(i,j) * ddBasisddx(p,i,j)
2284 Basis,dBasisdx,ddBasisddx,.FALSE. )
2383 REAL(KIND=dp) :: ddBasisddx(n,3,3) local
[all …]
H A DStatMagSolve.F90570 REAL (KIND=DP) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3) local
613 Basis,dBasisdx,ddBasisddx,.FALSE. )
696 REAL (KIND=DP) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3) local
741 Basis,dBasisdx,ddBasisddx,.FALSE. )
825 REAL (KIND=DP) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3) local
863 Basis,dBasisdx,ddBasisddx,.FALSE. )
940 REAL (KIND=DP) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3) local
978 Basis,dBasisdx,ddBasisddx,.FALSE. )
H A DMovingElstatSolver.F9076 Basis(:),dBasisdx(:,:),ddBasisddx(:,:,:), AplacResults(:,:), & local
98 MatrixValues, Visited, Basis, dBasisdx, ddBasisddx, ElemPotential, &
144 ddBasisddx(n,3,3), &
909 Basis,dBasisdx,ddBasisddx,.FALSE. )
965 Basis,dBasisdx,ddBasisddx,.FALSE. )
1040 detJ, Basis, dBasisdx, ddBasisddx, .FALSE., .FALSE. )
1073 ParentdBasisdx, ddBasisddx, .FALSE., .FALSE. )
H A DElectricForce.F90361 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3) local
398 detJ, Basis, dBasisdx, ddBasisddx, .FALSE., .FALSE. )
437 ParentdBasisdx, ddBasisddx, .FALSE., .FALSE. )
H A DAcoustics.F904618 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
5275 Basis, dBasisdx, ddBasisddx, .FALSE., .FALSE. )
5884 Basis, dBasisdx, ddBasisddx, .FALSE., .FALSE. )
6009 Basis, dBasisdx, ddBasisddx, .FALSE., .FALSE. )
6100 Basis, dBasisdx, ddBasisddx, .FALSE., .FALSE. )
6386 ddBasisddx(Model % MaxElementNodes,3,3), dSymb(3,3,3,3) local
6534 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3) local
6556 Basis, dBasisdx, ddBasisddx, .FALSE., .FALSE. )
6632 Basis, dBasisdx, ddBasisddx, .FALSE., Bubbles )
6863 Basis, dBasisdx, ddBasisddx, .FALSE., .FALSE. )
[all …]
H A DArtificialCompressibility.F90599 REAL(KIND=dp) :: Basis(n), dBasisdx(n,3), ddBasisddx(1,1,1), PresAtIp local
639 stat = ElementInfo( Element, Nodes1, U, V, W, DetJ1, Basis, dBasisdx, ddBasisddx, .FALSE. )
640 stat = ElementInfo( Element, Nodes0, U, V, W, DetJ0, Basis, dBasisdx, ddBasisddx, .FALSE. )
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DNavierStokesGeneral.F90120 REAL(KIND=dp) :: ddBasisddx(n,3,3) local
193 Basis,dBasisdx,ddBasisddx,Stabilize )
313 SU(p,i,i) = SU(p,i,i) - Viscosity * Metric(j,k) * ddBasisddx(p,j,k)
317 SU(p,i,j) = SU(p,i,j) - Viscosity * Metric(i,k) * ddBasisddx(p,j,k)
365 SW(p,i,i) = SW(p,i,i) + Viscosity * Metric(j,k) * ddBasisddx(p,j,k)
369 SW(p,i,j) = SW(p,i,j) + Viscosity * Metric(j,k) * ddBasisddx(p,i,k)
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/AdjointSSA/
H A DAdjointSSA_SSASolver.F90458 REAL(KIND=dp) :: Basis(n), dBasisdx(n,3), ddBasisddx(n,3,3), detJ local
493 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
681 REAL(KIND=dp) :: Basis(n),dBasisdx(n,3),ddBasisddx(n,3,3), & local
713 IP % W(t), detJ, Basis, dBasisdx, ddBasisddx, .FALSE. )
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/LevelSet/
H A DLevelSetSolver.F90307 REAL(KIND=dp) :: ddBasisddx(n,3,3) local
377 Basis,dBasisdx,ddBasisddx,Stabilize,Bubbles )

123