Searched refs:VeloBlock (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | ParStokes.F90 | 1197 SUBROUTINE LocalMatrix( STIFF, VeloBlock, Mass, FORCE, LOAD, Nodalrho, &
1201 REAL(KIND=dp), TARGET :: STIFF(:,:), VeloBlock(:,:), Mass(:,:), FORCE(:), LOAD(:,:) local
1236 VeloBlock = 0.0d0
1350 VeloBlock( dim*(p-1)+i, dim*(q-1)+i ) = VeloBlock( dim*(p-1)+i, dim*(q-1)+i ) + &
|