Searched refs:ILUValues (Results 1 – 11 of 11) sorted by relevance
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | SParIterPrecond.F90 | 75 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 D | CRSMatrix.F90 | 1258 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 D | SParIterSolver.F90 | 341 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 D | VankaCreate.F90 | 56 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 D | IterSolve.F90 | 525 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 D | Types.F90 | 123 DampValues(:),ILUValues(:),PrecValues(:) component 196 REAL(KIND=dp), POINTER CONTIG :: Values(:)=>NULL(), ILUValues(:)=>NULL(), &
|
H A D | BandMatrix.F90 | 285 NULLIFY( A % ILUValues )
|
H A D | ElementUtils.F90 | 132 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 D | SParIterComm.F90 | 3223 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 D | GeneralUtils.F90 | 2015 NULLIFY( Matrix % ILUValues )
|
H A D | SolverUtils.F90 | 13622 IF( ASSOCIATED(A % ILUValues) ) THEN 13623 IF( SIZE( A % ILUValues) /= SIZE(A % Values) ) & 13625 DEALLOCATE(A % ILUValues)
|