/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
H A D | GetHydrostaticLoads.F90 | 86 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 D | SIASolver.F90 | 322 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 D | Flowdepth.F90 | 272 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 D | ComputeDevStressNS.F90 | 86 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 D | IntegrateVertically.F90 | 218 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 D | IntegratedVelocity.F90 | 230 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 D | SSASolver.F90 | 601 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 D | ExportVertically.F90 | 161 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 D | AIFlowSolve_nlD2.F90 | 88 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 D | AIFlowSolve_nlS2.F90 | 88 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 D | DeformationalHeat.F90 | 160 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 D | ForceToStress.F90 | 320 REAL(KIND=dp) :: Basis(2*n), ddBasisddx(1,1,1) local 362 Basis,dBasisdx,ddBasisddx,.FALSE.,.FALSE.)
|
H A D | ComputeStrainRate.F90 | 334 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 D | GetConnectedAreas.F90 | 58 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 D | Compute2DNodalGradient.F90 | 72 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 D | MMG2D_MetricAniso.F90 | 302 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 D | AdvectionDiffusion.F90 | 1183 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 D | StatMagSolve.F90 | 570 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 D | MovingElstatSolver.F90 | 76 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 D | ElectricForce.F90 | 361 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 D | Acoustics.F90 | 4618 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 D | ArtificialCompressibility.F90 | 599 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 D | NavierStokesGeneral.F90 | 120 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 D | AdjointSSA_SSASolver.F90 | 458 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 D | LevelSetSolver.F90 | 307 REAL(KIND=dp) :: ddBasisddx(n,3,3) local 377 Basis,dBasisdx,ddBasisddx,Stabilize,Bubbles )
|