anchor.diff:  MODULE growing
  +  use omp
     IMPLICIT NONE
   CONTAINS
     SUBROUTINE plant(field, size, seed)
  
positive.code:       carrots(i) = field(i)
      end do
    END SUBROUTINE
  END MODULE growing
  
negative.code:       field(i) = field(i)*growing_factor;
      end do
    END SUBROUTINE
  !OMP PARALLEL DO
    SUBROUTINE harvest(field, carrots, size)
      integer, intent(in) :: size
      integer, dimension(size), intent(inout) :: field, carrots
  