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