| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ModelPDEevol/ |
| H A D | ModelPDEevol.F90 | 45 LOGICAL :: Found, VecAsm, InitHandles local
72 VecAsm = (nColours > 1) .OR. (nthr == 1)
96 CALL LocalMatrixVec( Element, n, nd+nb, nb, VecAsm, InitHandles )
108 VecAsm = (nColours > 1) .OR. (nthr == 1)
132 CALL LocalMatrixBC( Element, n, nd+nb, nb, VecAsm, InitHandles )
160 SUBROUTINE LocalMatrixVec( Element, n, nd, nb, VecAsm, InitHandles )
166 LOGICAL, INTENT(IN) :: VecAsm local
296 CALL DefaultUpdateEquations(STIFF,FORCE,UElement=Element, VecAssembly=VecAsm)
304 SUBROUTINE LocalMatrixBC( Element, n, nd, nb, VecAsm, InitHandles )
309 LOGICAL :: VecAsm local
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/Lua/ |
| H A D | ModelPDEevol.F90 | 25 LOGICAL :: Found, VecAsm, InitHandles local
46 VecAsm = (nColours > 1) .OR. (nthr == 1)
70 CALL LocalMatrixVec( Element, n, nd+nb, nb, VecAsm, InitHandles )
82 VecAsm = (nColours > 1) .OR. (nthr == 1)
106 CALL LocalMatrixBC( Element, n, nd+nb, nb, VecAsm, InitHandles )
131 SUBROUTINE LocalMatrixVec( Element, n, nd, nb, VecAsm, InitHandles )
137 LOGICAL, INTENT(IN) :: VecAsm local
268 CALL DefaultUpdateEquations(STIFF,FORCE,UElement=Element, VecAssembly=VecAsm)
276 SUBROUTINE LocalMatrixBC( Element, n, nd, nb, VecAsm, InitHandles )
281 LOGICAL :: VecAsm local
[all …]
|
| H A D | ModelPDEthreaded.F90 | 25 LOGICAL :: Found, VecAsm local
46 VecAsm = (nColours > 1) .OR. (nthr == 1)
69 CALL LocalMatrixVec( Element, n, nd+nb, nb, VecAsm )
81 VecAsm = (nColours > 1) .OR. (nthr == 1)
104 CALL LocalMatrixBC( Element, n, nd+nb, nb, VecAsm )
129 SUBROUTINE LocalMatrixVec( Element, n, nd, nb, VecAsm )
135 LOGICAL, INTENT(IN) :: VecAsm local
313 CALL DefaultUpdateEquations(STIFF,FORCE,UElement=Element, VecAssembly=VecAsm)
320 SUBROUTINE LocalMatrixBC( Element, n, nd, nb, VecAsm )
325 LOGICAL :: VecAsm local
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ModelPDEthreaded/ |
| H A D | ModelPDEthreaded.F90 | 25 LOGICAL :: Found, VecAsm local
46 VecAsm = (nColours > 1) .OR. (nthr == 1)
69 CALL LocalMatrixVec( Element, n, nd+nb, nb, VecAsm )
81 VecAsm = (nColours > 1) .OR. (nthr == 1)
104 CALL LocalMatrixBC( Element, n, nd+nb, nb, VecAsm )
129 SUBROUTINE LocalMatrixVec( Element, n, nd, nb, VecAsm )
135 LOGICAL, INTENT(IN) :: VecAsm local
313 CALL DefaultUpdateEquations(STIFF,FORCE,UElement=Element, VecAssembly=VecAsm)
320 SUBROUTINE LocalMatrixBC( Element, n, nd, nb, VecAsm )
325 LOGICAL :: VecAsm local
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | StatCurrentSolveVec.F90 | 145 LOGICAL :: Found, VecAsm, InitHandles, AxiSymmetric local
171 VecAsm = ListGetLogical( Params,'Vector Assembly',Found )
173 VecAsm = (nColours > 1) .OR. (nthr > 1)
176 IF( VecAsm .AND. AxiSymmetric ) THEN
180 IF( VecAsm ) THEN
220 IF( VecAsm ) THEN
260 CALL LocalMatrixBC( Element, n, nd+nb, nb, VecAsm, InitHandles )
288 SUBROUTINE LocalMatrixVec( Element, n, nd, nb, VecAsm, InitHandles )
294 LOGICAL, INTENT(IN) :: VecAsm local
528 SUBROUTINE LocalMatrixBC( Element, n, nd, nb, VecAsm, InitHandles )
[all …]
|
| H A D | HeatSolveVec.F90 | 119 LOGICAL :: Found, VecAsm, InitHandles, InitDiscontHandles, AxiSymmetric, & local
168 VecAsm = ListGetLogical( Params,'Vector Assembly',Found )
170 VecAsm = (nColours > 1) .OR. (nthr > 1)
173 IF( VecAsm .AND. AxiSymmetric ) THEN
175 VecAsm = .FALSE.
178 IF( VecAsm ) THEN
231 IF( VecAsm ) THEN
232 CALL LocalMatrixVec( Element, n, nd+nb, nb, VecAsm, InitHandles )
342 SUBROUTINE LocalMatrixVec( Element, n, nd, nb, VecAsm, InitHandles )
348 LOGICAL, INTENT(IN) :: VecAsm local
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/PoissonThreaded/ |
| H A D | Poisson.F90 | 36 LOGICAL :: VecAsm, MCAsm local
49 VecAsm = .TRUE.
51 IF (VecAsm .AND. MCAsm .AND. Found) THEN
126 CALL DefaultUpdateEquations( STIFF, FORCE, UElement=Element, VecAssembly=VecAsm )
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/PoissonThreaded3/ |
| H A D | Poisson.F90 | 33 LOGICAL :: VecAsm local
36 VecAsm = .TRUE.
79 VecAssembly=VecAsm )
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/tests/PoissonThreaded2/ |
| H A D | Poisson.F90 | 34 LOGICAL :: VecAsm, MCAsm local
45 VecAsm = .TRUE.
96 CALL DefaultUpdateEquations( STIFF, FORCE, UElement=Element, VecAssembly=VecAsm )
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | DefUtils.F90 | 3453 LOGICAL :: Found, BUpd, VecAsm, MCAsm local
3470 VecAsm = .FALSE.
3472 VecAsm = VecAssembly
3520 IF (VecAsm) THEN
|