anchor.diff:      end if
       tmpP(:)=p(1:grid%nC)
       call setBC()
  -    call findMassFlow(grid,rhou,flowRho1)
       call pressureEq%solve(tmpP,info=info)
       needRetry=info<0
       call pressureEq%getNIt(n)
  
positive.code:     use ieee_arithmetic
      use modNumerics
      use modGradient
      use modAdvection
      use modDiffusion
      use modRhieChow
      type(C_PTR),value::oldVector !< old N_Vector
      type(C_PTR),value::newVector !< new N_Vector
      type(C_PTR),value::dat !< optional user data object
  
negative.code:       end forall
      end if
      call setBC()
      call findMassFlow(grid,rhou,p,presF,dt,flowRho)
      call findAdv(grid,flowRho,advRho)
    end subroutine
    
  