Home
last modified time | relevance | path

Searched refs:ILUValues (Results 1 – 11 of 11) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DSParIterPrecond.F9075 u(i) = v(i) * PIGpntr % SplittedMatrix % InsideMatrix % ILUValues(i)
107 Vals => PIGpntr % SplittedMatrix % InsideMatrix % ILUValues
219 u(i) = PIGpntr % SplittedMatrix % InsideMatrix % ILUValues( &
251 Matrix % ILUValues(i) = Matrix % Values(i)
267 Matrix % ILUValues( Matrix % Diag( Matrix % Cols(k) ))
272 Matrix % ILUValues(k) = Matrix % ILUValues (k) &
273 / Matrix % ILUValues(Matrix % Diag( Matrix % Cols(k)))
283 Matrix % ILUValues(j) = Matrix % ILUValues(j) - &
284 Matrix % ILUValues(k) * Matrix % ILUValues(l)
297 Matrix % ILUValues(Matrix % Diag(i)) = 1.0 / &
[all …]
H A DCRSMatrix.F901258 NULLIFY( A % ILUValues )
3135 ILUValues => A % ILUValues
3165 S(j) = ILUValues(k)
3262 ILUValues(ILUDiag(i)) = 1.0d0 / ILUValues(ILUDiag(i))
3270 PRINT *,'ILU range:',MINVAL(ILUValues),MAXVAL(ILUValues),&
3271 SUM(ILUValues)/SIZE(ILUValues),SUM(ABS(ILUValues))/SIZE(ILUValues)
3614 ILUValues(ILUDiag(i)) = 1._dp / ILUValues(ILUDiag(i))
3928 ILUValues(ILUDiag(i)) = 1.0d0 / ILUValues(ILUDiag(i))
3933 A % ILUValues => ILUValues
4133 ILUValues(ILUDiag(i)) = 1.0d0 / ILUValues(ILUDiag(i))
[all …]
H A DSParIterSolver.F90341 NULLIFY( SplittedMatrix % InsideMatrix % ILUValues )
757 A % ILUValues => NULL()
758 IF ( NeedILU ) ALLOCATE(A % ILUValues(sz))
967 CurrIf % ILUValues(l) = CurrIf % ILUValues(l) + &
999 CurrIf % ILUValues(l) = CurrIf % ILUValues(l) + &
2040 CurrIf % ILUValues(l) = CurrIf % ILUValues(l) + &
2072 CurrIf % ILUValues(l) = CurrIf % ILUValues(l) + &
3112 CurrIf % ILUValues(l) = CurrIf % ILUValues(l) + &
3154 InsideMatrix % ILUValues(l) = InsideMatrix % ILUValues(l) + &
3183 IF (ALLOCATED(RecvdIfMatrix(i) % ILUValues)) &
[all …]
H A DVankaCreate.F9056 A % Values => A % ILUValues
68 SP % IfMatrix(i) % Values = SP % IfMatrix(i) % ILUValues
100 REAL(KIND=dp), POINTER CONTIG :: ILUValues(:), SValues(:), TotValues(:)
119 IF ( .NOT. ASSOCIATED(A % ILUValues) ) THEN
122 ILUValues => A % ILUValues
248 ILUValues = 0._dp
269 A % Values => ILUValues
H A DIterSolve.F90525 IF (.NOT.(ASSOCIATED(A % ILUValues).OR.ASSOCIATED(A % CILUValues)).OR. &
631 IF(ASSOCIATED(A % ILUValues)) DEALLOCATE(A % ILUValues)
689 IF( .NOT. ASSOCIATED( A % ILUValues ) ) THEN
695 A % ILUValues => Adiag % ILUValues
H A DTypes.F90123 DampValues(:),ILUValues(:),PrecValues(:) component
196 REAL(KIND=dp), POINTER CONTIG :: Values(:)=>NULL(), ILUValues(:)=>NULL(), &
H A DBandMatrix.F90285 NULLIFY( A % ILUValues )
H A DElementUtils.F90132 IF ( ASSOCIATED( Matrix % ILUValues ) ) DEALLOCATE( Matrix % ILUValues )
179 IF(ALLOCATED(m % ILUValues)) DEALLOCATE(m % ILUValues)
195 IF(ALLOCATED(m % ILUValues)) DEALLOCATE(m % ILUValues)
H A DSParIterComm.F903223 ALLOCATE( RecvdIfMatrix(sproc+1) % ILUValues(Cols) )
3421 CALL MPI_iRECV( RecvdIfMatrix(sproc+1) % ILUValues, cols, &
3431 CALL MPI_BSEND( NbsIfMatrix(destproc+1) % ILUValues, &
H A DGeneralUtils.F902015 NULLIFY( Matrix % ILUValues )
H A DSolverUtils.F9013622 IF( ASSOCIATED(A % ILUValues) ) THEN
13623 IF( SIZE( A % ILUValues) /= SIZE(A % Values) ) &
13625 DEALLOCATE(A % ILUValues)