cpp: void print_array(int n,\nDATA_TYPE POLYBENCH_1D(x1,N,n),\nDATA_TYPE POLYBENCH_1D(x2,N,n))\n\n{\nint i;\n\nfor (i = 0; i < n; i++) {\nfprintf (stderr, DATA_PRINTF_MODIFIER, x1[i]);\nfprintf (stderr, DATA_PRINTF_MODIFIER, x2[i]);\nif (i % 20 == 0) fprintf (stderr, "\n");\n}\n}
fortran: subroutine print_array(n, x1, x2)\nimplicit none\n\nDATA_TYPE, dimension(n) :: x1\nDATA_TYPE, dimension(n) :: x2\ninteger :: n\ninteger :: i\ndo i = 1, n\nwrite(0, DATA_PRINTF_MODIFIER) x1(i)\nwrite(0, DATA_PRINTF_MODIFIER) x2(i)\nif (mod((i - 1), 20) == 0) then\nwrite(0, *)\nend if\nend do\nwrite(0, *)\nend subroutine