/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/pmultg/ |
H A D | Poisson.f90 | 140 INTEGER :: m, i, j, l, p, Ldofs(N), Bdofs(Nb) local 145 Bdofs = (/ (i, i=n+1,n+nb) /) 147 Kbb = K(Bdofs,Bdofs) 148 Kbl = K(Bdofs,Ldofs) 149 Klb = K(Ldofs,Bdofs) 150 Fb = F(Bdofs)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/PoissonPFEM/ |
H A D | Poisson.f90 | 140 INTEGER :: m, i, j, l, p, Ldofs(N), Bdofs(Nb) local 145 Bdofs = (/ (i, i=n+1,n+nb) /) 147 Kbb = K(Bdofs,Bdofs) 148 Kbl = K(Bdofs,Ldofs) 149 Klb = K(Ldofs,Bdofs) 150 Fb = F(Bdofs)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ExtrudedMesh/ |
H A D | Poisson.f90 | 142 INTEGER :: m, i, j, l, p, Ldofs(N), Bdofs(Nb) local 147 Bdofs = (/ (i, i=n+1,n+nb) /) 149 Kbb = K(Bdofs,Bdofs) 150 Kbl = K(Bdofs,Ldofs) 151 Klb = K(Ldofs,Bdofs) 152 Fb = F(Bdofs)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ExtrudedMeshBaseline1/ |
H A D | Poisson.f90 | 142 INTEGER :: m, i, j, l, p, Ldofs(N), Bdofs(Nb) local 147 Bdofs = (/ (i, i=n+1,n+nb) /) 149 Kbb = K(Bdofs,Bdofs) 150 Kbl = K(Bdofs,Ldofs) 151 Klb = K(Ldofs,Bdofs) 152 Fb = F(Bdofs)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/StokesProj/ |
H A D | Pressure.f90 | 172 INTEGER :: m, i, j, l, p, Cdofs(n), Bdofs(nb) local 182 Kbb = K(Bdofs,Bdofs) 183 Kbl = K(Bdofs,Cdofs) 184 Klb = K(Cdofs,Bdofs) 185 Fb = F(Bdofs)
|
H A D | Velocity.f90 | 215 INTEGER :: m, i, j, l, p, Cdofs((dim)*n), Bdofs(dim*nb) local 229 Bdofs(m) = (dim)*(p-1) + i + n*(dim) 233 Kbb = K(Bdofs,Bdofs) 234 Kbl = K(Bdofs,Cdofs) 235 Klb = K(Cdofs,Bdofs) 236 Fb = F(Bdofs)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ModelPDEhandle/ |
H A D | ModelPDEhandle.F90 | 252 INTEGER :: m, i, j, l, p, Ldofs(N), Bdofs(Nb) local 257 Bdofs = (/ (i, i=n+1,n+nb) /) 259 Kbb = K(Bdofs,Bdofs) 260 Kbl = K(Bdofs,Ldofs) 261 Klb = K(Ldofs,Bdofs) 262 Fb = F(Bdofs)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/StokesPFEM/ |
H A D | Stokes.f90 | 248 INTEGER :: m, i, j, l, p, Cdofs((dim+1)*n), Bdofs(dim*nb) local 262 Bdofs(m) = (dim+1)*(p-1) + i + n*(dim+1) 266 Kbb = K(Bdofs,Bdofs) 267 Kbl = K(Bdofs,Cdofs) 268 Klb = K(Cdofs,Bdofs) 269 Fb = F(Bdofs)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ModelPDEipadapt/ |
H A D | ModelPDEhandle.F90 | 253 INTEGER :: m, i, j, l, p, Ldofs(N), Bdofs(Nb) local 258 Bdofs = (/ (i, i=n+1,n+nb) /) 260 Kbb = K(Bdofs,Bdofs) 261 Kbl = K(Bdofs,Ldofs) 262 Klb = K(Ldofs,Bdofs) 263 Fb = F(Bdofs)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ModelPDEsplitted/ |
H A D | ModelPDEsplitted.f90 | 137 INTEGER :: m, i, j, l, p, Ldofs(N), Bdofs(Nb) local 142 Bdofs = (/ (i, i=n+1,n+nb) /) 144 Kbb = K(Bdofs,Bdofs) 145 Kbl = K(Bdofs,Ldofs) 146 Klb = K(Ldofs,Bdofs) 147 Fb = F(Bdofs)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/Lua/ |
H A D | ModelPDEevol.F90 | 369 INTEGER :: m, i, j, l, p, Ldofs(N), Bdofs(Nb) local 374 Bdofs = (/ (i, i=n+1,n+nb) /) 376 Kbb = K(Bdofs,Bdofs) 377 Kbl = K(Bdofs,Ldofs) 378 Klb = K(Ldofs,Bdofs) 379 Fb = F(Bdofs)
|
H A D | ModelPDEthreaded.F90 | 404 INTEGER :: m, i, j, l, p, Ldofs(N), Bdofs(Nb) local 409 Bdofs = (/ (i, i=n+1,n+nb) /) 411 Kbb = K(Bdofs,Bdofs) 412 Kbl = K(Bdofs,Ldofs) 413 Klb = K(Ldofs,Bdofs) 414 Fb = F(Bdofs)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ModelPDEthreaded/ |
H A D | ModelPDEthreaded.F90 | 404 INTEGER :: m, i, j, l, p, Ldofs(N), Bdofs(Nb) local 409 Bdofs = (/ (i, i=n+1,n+nb) /) 411 Kbb = K(Bdofs,Bdofs) 412 Kbl = K(Bdofs,Ldofs) 413 Klb = K(Ldofs,Bdofs) 414 Fb = F(Bdofs)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
H A D | WPotentialSolver.F90 | 382 INTEGER :: m, i, j, l, p, Ldofs(N), Bdofs(Nb) local 387 Bdofs = (/ (i, i=n+1,n+nb) /) 389 Kbb = K(Bdofs,Bdofs) 390 Kbl = K(Bdofs,Ldofs) 391 Klb = K(Ldofs,Bdofs) 392 Fb = F(Bdofs)
|
H A D | IncompressibleNSVec.F90 | 876 INTEGER :: p, q, Cdofs((dim+1)*n), Bdofs(dim*nb) local 898 Bdofs(q) = DOFs*(p-1) + i + n*DOFs 926 Kbb = K(Bdofs,Bdofs) 927 Kbl = K(Bdofs,Cdofs) 928 Klb = K(Cdofs,Bdofs) 929 Fb = F(Bdofs)
|
H A D | CoupledNSUpdate.F90 | 1122 INTEGER :: i, Ldofs((dim+1)*nd-nd+n), Bdofs local 1125 Bdofs = n*(dim+1) 1127 Kbb(1,1) = K(Bdofs,Bdofs) 1129 Kbl(1,1:dim*n-1) = K(Bdofs,Ldofs) 1130 Klb(1:dim*n-1,1) = K(Ldofs,Bdofs)
|
H A D | ParStokes.F90 | 1441 INTEGER :: m, i, j, l, p, Cdofs((dim+1)*n), Bdofs(dim*nb) local 1455 Bdofs(m) = (dim+1)*(p-1) + i + n*(dim+1) 1459 Kbb = K(Bdofs,Bdofs) 1460 Kbl = K(Bdofs,Cdofs) 1461 Klb = K(Cdofs,Bdofs) 1462 Fb = F(Bdofs)
|
H A D | Stokes.F90 | 1262 INTEGER :: i, Ldofs((dim+1)*nd-nd+n), Bdofs local 1265 Bdofs = n*(dim+1) 1267 Kbb(1,1) = K(Bdofs,Bdofs) 1269 Kbl(1,1:dim*n-1) = K(Bdofs,Ldofs) 1270 Klb(1:dim*n-1,1) = K(Ldofs,Bdofs)
|
H A D | Acoustics.F90 | 5790 Bdofs = (/ ((dim+2)*n+i, i=1, dim*nb) /) 5792 Kbb = K(Bdofs,Bdofs) 5793 Kbl = K(Bdofs,Ldofs) 5794 Klb = K(Ldofs,Bdofs) 5795 Fb = F(Bdofs) 5823 INTEGER :: i, Ldofs((dim+2)*n), Bdofs(dim*n) local 5826 Bdofs = (/ ((dim+2)*n+i, i=1, dim*n) /) 5828 Kbb = K(Bdofs,Bdofs) 5829 Kbl = K(Bdofs,Ldofs) 5830 Klb = K(Ldofs,Bdofs) [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | SolidMechanicsUtils.F90 | 444 INTEGER :: i, m, p, Cdofs(dofs*n), Bdofs(dim*nb) local 453 Bdofs(m) = dofs*(n+p-1) + i 457 Kbb = K(Bdofs,Bdofs) 458 Kbl = K(Bdofs,Cdofs) 459 Klb = K(Cdofs,Bdofs) 460 Fb = F(Bdofs) 469 Fb = F1(Bdofs)
|
H A D | SolverUtils.F90 | 14660 Kbb = K(Bdofs,Bdofs) 14661 Kbl = K(Bdofs,Cdofs) 14662 Klb = K(Cdofs,Bdofs) 14663 Fb = F(Bdofs) 14672 Fb = F1(Bdofs) 14722 Kbb = K(Bdofs,Bdofs) 14725 Fb = F(Bdofs) 14731 Fb = F1(Bdofs) 14761 Kbb = K(Bdofs,Bdofs) 14764 Fb = F(Bdofs) [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/SaveData/ |
H A D | SaveScalars.F90 | 2931 SideElement % Bdofs = 0
|