update for MR #27

Fixers #28

Author: jacobwilliams

src/csv_module.F90

@@ -226,7 +226,10 @@ subroutine read_csv_file(me,filename,header_row,skip_rows,status_ok)
                                 !! (0 if no header specified)
     character(len=1) :: tmp     !! for skipping a row
 
+    ! clear existing data:
     arrays_allocated = .false.
+    if (allocated(me%csv_data)) deallocate(me%csv_data)
+    if (allocated(me%header))   deallocate(me%header)
 
     open(newunit=iunit, file=filename, status='OLD', iostat=istat)
 
@@ -286,9 +289,7 @@ subroutine read_csv_file(me,filename,header_row,skip_rows,status_ok)
                 ! columns.
                 n_cols = size(row_data)
                 me%n_cols = n_cols
-                if(allocated(me%csv_data)) deallocate(me%csv_data)
                 allocate(me%csv_data(n_rows,n_cols))
-                if(allocated(me%header)) deallocate(me%header)
                 if (iheader/=0) allocate(me%header(n_cols))
                 arrays_allocated = .true.
             end if
@@ -340,6 +341,10 @@ subroutine open_csv_file(me,filename,n_cols,status_ok,append)
     logical :: append_flag !! local copy of `append` argument
     logical :: file_exists !! if the file exists
 
+    ! clear existing data:
+    if (allocated(me%csv_data)) deallocate(me%csv_data)
+    if (allocated(me%header))   deallocate(me%header)
+
     me%n_cols = n_cols
 
     ! optional append argument: