Searched refs:DiagScaling (Results 1 – 6 of 6) sorted by relevance
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
| H A D | ParStokes.F90 | 603 ALLOCATE(PMatrix%DiagScaling(j))
605 PMatrix%DiagScaling(:)=1.0_dp
609 AMatrix%DiagScaling(:)=1.0_dp
611 PMatrix%DiagScaling(i) = Solver%Matrix%DiagScaling((dim+1)*i)
613 AMatrix%DiagScaling( dim*(i-1)+p ) = &
617 CALL ScaleLinearSystem( VelocitySolver, AMatrix, DiagScaling=AMatrix%DiagScaling)
618 CALL ScaleLinearSystem( PressureSolver, PMatrix, DiagScaling=PMatrix%DiagScaling)
633 ALLOCATE(PMatrix%DiagScaling(j))
635 PMatrix%DiagScaling(:)=1.0_dp
639 AMatrix%DiagScaling(:)=1.0_dp
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | BlockSolve.F90 | 2149 ALLOCATE( TotMatrix % SubVector(k) % DiagScaling(n) )
2152 Diag => TotMatrix % SubVector(k) % DiagScaling
2328 Diag => TotMatrix % SubVector(k) % DiagScaling
2394 IF( ALLOCATED( TotMatrix % SubVector(k) % DiagScaling ) ) THEN
2395 DEALLOCATE( TotMatrix % SubVector(k) % DiagScaling )
2424 IsComplex, BlockScaling, DiagScaling, ThisScaling, UsePrecMat local
2455 DiagScaling = .FALSE.
2457 DiagScaling = ASSOCIATED( Solver % Matrix % diagscaling )
2460 IF( DiagScaling .AND. BlockScaling ) THEN
2572 IF( .NOT. Found ) ThisScaling = DiagScaling
[all …]
|
| H A D | Feti.F90 | 604 IF (ASSOCIATED(A % DiagScaling)) THEN
605 B % RHS(nLC) = Vals(k)/A % DiagScaling(l)
1511 IF (ASSOCIATED(A % DiagScaling)) THEN
1512 dscale => A % DiagScaling
1547 IF (.NOT.ASSOCIATED(A % DiagScaling)) DEALLOCATE(dscale)
1597 IF (.NOT.ASSOCIATED(A % DiagScaling)) DEALLOCATE(dscale)
1703 IF (.NOT.ASSOCIATED(A % DiagScaling)) DEALLOCATE(dscale)
|
| H A D | Types.F90 | 131 REAL(KIND=dp), ALLOCATABLE :: DiagScaling(:) component
197 DiagScaling(:) => NULL(), TValues(:) => Null()
|
| H A D | SolverUtils.F90 | 8026 DiagScaling => A % DiagScaling
12004 IF( PRESENT( DiagScaling ) ) THEN
12006 Diag => DiagScaling
12012 Diag => A % DiagScaling
12266 Diag => A % DiagScaling
12377 Diag => DiagScaling
12379 Diag => A % DiagScaling
12491 DEALLOCATE(A % DiagScaling); A % DiagScaling=>NULL()
12510 Diag => A % DiagScaling
12539 DEALLOCATE(A % DiagScaling)
[all …]
|
| H A D | DefUtils.F90 | 4723 REAL(KIND=dp), POINTER :: DiagScaling(:) local
|