Fix compiler

ExtremeFLOW · Sep 30, 2024 · 1325fca · 1325fca
1 parent f5fd3e5
commit 1325fca
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/io/csv_file.f90 b/src/io/csv_file.f90
@@ -310,9 +310,9 @@ function csv_file_count_lines(this) result(n)
 
     call this%check_exists()
 
-    open(file = trim(f%fname), status = 'old', newunit = file_unit, &
+    open(file = trim(this%fname), status = 'old', newunit = file_unit, &
          iostat = ierr)
-    if (ierr .ne. 0) call neko_error("Error while opening " // trim(f%fname))
+    if (ierr .ne. 0) call neko_error("Error while opening " // trim(this%fname))
 
     n = 0