1  #define AUTOVEC_FORTRAN(OP) subroutine f (r, x, y); \
       2    real(kind=kind (1.0d0)) :: r(1000000), x(1000000), y(1000000); \
       3    integer :: i; \
       4    do i = 1, 1000000; \
       5      r(i) = OP (x(i), y(i)); \
       6    end do; \
       7  end