Nature Language: openFile :Attempts to open the file passed as an argument. 
  
CPP: int openFile(char *fileName){\n\tprintf(\"Attempting to open %s ....\",fileName);\n\tinputFile = fopen(fileName, \"r\");\n\t/* Check that file opened successfully */\n\tif (inputFile == NULL){\n\t\tprintf(\"ERROR.\\n\");\n\t}\n\telse{\n\t\tprintf(\"Success.\\n\");\n\t}\n\treturn 0;\n}
  
Fortran: SUBROUTINE openFile()\n\tinteger :: argStatus\n\tcharacter (len = MAXSTRING) :: fileName\n\n\t!Read input file name from command line\n\t!CALL getarg(1,fileName)\n\tCALL GET_COMMAND_ARGUMENT(1,fileName,STATUS=argStatus)\n\tIF(argStatus > 0) THEN\n\t print , 'ERROR Reading input file from command line.'\n\t print , 'Usage: mpiexec -np mixedModeBenchmark <fileName>'\n\tEND IF\n\n\twrite(,fmt='(2x,A,A,A)',advance='no') 'Attempting to open '''&\n\t ,trim(fileName),'''''....'\n\n\t!Open fileName; assign it to unit 10\n\tOPEN(UNIT=10, FILE=fileName, STATUS='OLD', &\n\t ACTION='READ', FORM='FORMATTED', IOSTAT=ioStatus)\n\n\t!Check that file opened successfully\n\tIF(ioStatus > 0) THEN\n\t write(,) 'ERROR. IOSTAT =', ioStatus\n\tELSE\n\t write(,*) 'Success.'\n\tEND IF\n\nEND SUBROUTINE openFile
  