Merge pull request #1521 from ExtremeFLOW/fix/check-file-csv-countlines

Check for existence of csv file in `count_lines`
ExtremeFLOW · Sep 30, 2024 · fde7d4f · fde7d4f
2 parents 6859db9 + 79ee989
commit fde7d4f
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/io/csv_file.f90 b/src/io/csv_file.f90
@@ -308,7 +308,11 @@ function csv_file_count_lines(this) result(n)
     integer :: n
     integer :: ierr, file_unit
 
-    open(file = trim(this%fname), status = 'old', newunit = file_unit)
+    call this%check_exists()
+
+    open(file = trim(this%fname), status = 'old', newunit = file_unit, &
+         iostat = ierr)
+    if (ierr .ne. 0) call neko_error("Error while opening " // trim(this%fname))
     rewind(file_unit)
 
     n = 0