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
8