Improve error handling

Author: trossi

openmp/helper_functions.F90

@@ -98,19 +98,19 @@ subroutine write_array(filename, array, ierr)
 
     open(newunit=unit, file=filename, form='unformatted', access='stream', status='replace', action='write', iostat=ios)
     if (ios /= 0) then
-      print *, "Failed to open file"
+      write(0,*) "Failed to open file"
       local_err = 1
       if (present(ierr)) ierr = local_err
       level = c_roctxRangePop()
       return
     end if
 
     write(unit) size(array, kind=8)
-    write(unit) array
+    write(unit, iostat=ios) array
     close(unit)
 
     if (ios /= 0) then
-      print *, "Failed to write all elements to file"
+      write(0,*) "Failed to write all elements to file"
       local_err = 2
     else
       local_err = 0