Searched refs:SlavePerm (Results 1 – 1 of 1) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | SolverUtils.F90 | 15285 INTEGER, ALLOCATABLE, TARGET :: SlavePerm(:), SlaveIPerm(:), MasterPerm(:), MasterIPerm(:) local
15627 ALLOCATE(SlaveDiag(m),MasterDiag(m),SlavePerm(n),MasterPerm(n),&
15629 SlavePerm = 0; SlaveIPerm = 0;
15647 SlavePerm(m) = i
15683 UsePerm => SlavePerm
15701 CALL tota( StiffMatrix, TotValues, SlavePerm )
15775 IF( k > SIZE( SlavePerm ) ) CYCLE
15777 l = SlavePerm(k)
15821 scl = -SlaveDiag(SlavePerm(k)) / UseDiag(m)
15858 j = SlavePerm(StiffMatrix % Cols(m))
[all …]
|