fem/src/SParIterSolver.F90

341   NULLIFY( SplittedMatrix % InsideMatrix % ILUValues )
382         IF ( NeedILU ) ALLOCATE( NbsIfMatrix(i) % ILUValues( NbsIfMCols(i) ) )
397         IF ( NeedILU  ) ALLOCATE( OwnIfMatrix(i) % ILUValues(OwnIfMCols(i)) )
662            ALLOCATE( SplittedMatrix % IfMatrix(i) % ILUValues(  &
664            SplittedMatrix % IfMatrix(i) % ILUValues = 0._dp
757   A % ILUValues => NULL()
758   IF ( NeedILU ) ALLOCATE(A % ILUValues(sz))
827        NeedILU = ALLOCATED(SplittedMatrix % IfMatrix(i) % ILUValues)
829        IF ( NeedILU ) SplittedMatrix % IfMatrix(i) % ILUValues  = 0._dp
843          SplittedMatrix % NbsIfMatrix(i) % ILUValues  = 0._dp
852   IF(NeedILU) SplittedMatrix % InsideMatrix % ILUValues = 0._dp
900           NeedILU = ALLOCATED(SplittedMatrix % IfMatrix(i) % ILUValues)
938                   SplittedMatrix % InsideMatrix % ILUValues( GT % Inds(j) ) = &
939                        SplittedMatrix % InsideMatrix % ILUValues( &
940                           GT % Inds(j) ) + SourceMatrix % ILUValues(j)
967                           CurrIf % ILUValues(l) = CurrIf % ILUValues(l) + &
968                                SourceMatrix % ILUValues(j)
999                            CurrIf % ILUValues(l) = CurrIf % ILUValues(l) + &
1000                                 SourceMatrix % ILUValues(j)
1968       NeedILU = ALLOCATED( SplittedMatrix % IfMatrix(i) % ILUValues )
2010               SplittedMatrix % InsideMatrix % ILUValues( GT % Inds(j) ) = &
2011                    SplittedMatrix % InsideMatrix % ILUValues( &
2012                       GT % Inds(j) ) + SourceMatrix % ILUValues(j)
2040                        CurrIf % ILUValues(l) = CurrIf % ILUValues(l) + &
2041                             SourceMatrix % ILUValues(j)
2072                        CurrIf % ILUValues(l) = CurrIf % ILUValues(l) + &
2073                             SourceMatrix % ILUValues(j)
3052       NeedILU = ALLOCATED(SplittedMatrix % IfMatrix(i) % ILUValues)
3112                         CurrIf % ILUValues(l) = CurrIf % ILUValues(l) + &
3113                                RecvdIfMatrix(i) % ILUValues(k)
3154                           InsideMatrix % ILUValues(l) = InsideMatrix % ILUValues(l) + &
3155                                    RecvdIfMatrix(i) % ILUValues(k)
3183        IF (ALLOCATED(RecvdIfMatrix(i) % ILUValues)) &
3184          DEALLOCATE(RecvdIfMatrix(i) % ILUValues)