anchor.diff:    do while (time .lt. tfin)
       iter = iter + 1
   
  -    ! Simulation the fluid flow
  -    !$OMP PARALLEL
  +    ! Simulate the fluid flow
       call step
       time = time + dt
   
  
positive.code:   integer,dimension(:,:),allocatable :: nbs
    integer,dimension(:,:,:),allocatable :: part_count
    integer,dimension(:,:,:,:),allocatable :: binpart
  
    ! Expected max particles in single bin
    integer :: nbinx, nbiny, nbinz
  
negative.code:   use precision
    implicit none
    real(WP),dimension(:),allocatable :: fx, fy, fz  ! Total force
    !dir$ attributes align:64 :: fx, fy, fz
    !DIR$ ASSUME_ALIGNED fx: 64
    !DIR$ ASSUME_ALIGNED fy: 64
    !DIR$ ASSUME_ALIGNED fz: 64
  end module forces
  
  ! ===================================== !
  