Merge pull request #43 from Euler-37/patch-1

jacobwilliams · Jun 22, 2024 · d588548 · d588548
2 parents faac2a3 + 3570429
commit d588548
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/csv_module.F90 b/src/csv_module.F90
@@ -249,7 +249,7 @@ subroutine read_csv_file(me,filename,header_row,skip_rows,status_ok)
         end if
         if (present(header_row)) then
             iheader = max(0,header_row)
-            n_rows = n_rows - 1
+            n_rows = n_rows - merge(0,1,iheader==0)
         else
             iheader = 0
         end if