cpp: void print_array(DATA_TYPE out)\n{\nfprintf (stderr, DATA_PRINTF_MODIFIER, out);\nfprintf (stderr, "\n");\n}
fortran: subroutine print_array(output)\nimplicit none\n\nDATA_TYPE :: output\nwrite(0, DATA_PRINTF_MODIFIER) output\nwrite(0, *)\nend subroutine