cpp: void init_array (int n,\nDATA_TYPE POLYBENCH_2D(path,N,N,n,n))\n{\nint i, j;\n\nfor (i = 0; i < n; i++)\nfor (j = 0; j < n; j++)\npath[i][j] = ((DATA_TYPE) (i+1)*(j+1)) / n;\n}
fortran: subroutine init_array(n, path)\nimplicit none\n\nDATA_TYPE, dimension(n,n) :: path\ninteger :: i, j, n\n\ndo i=1, n\ndo j=1, n\npath(j, i) = (DBLE(i * j))/ DBLE(n)\nend do\nend do\nend subroutine