anchor.diff:       a = 0._xp
   
        !$OMP PARALLEL PRIVATE(j, vec, tmp)
  -     !$OMP DO SCHEDULE(GUIDED)
  +     !$OMP DO SCHEDULE(RUNTIME)
        do i = istart, iend
   
           do j = 1, npoints
  
positive.code: 
           end do
  
        end do
        !$OMP END DO
        !$OMP END PARALLEL
  
negative.code:       real(kind = xp), intent(in)  :: r(:,:)
        real(kind = xp), intent(out) :: v(:,:)
  
        v(1, :) =   r(2, :)
        v(2, :) = - r(1, :)
        v(3, :) = 0._xp
  
     end subroutine initial_speeds
  