Merge branch 'master' of https://github.com/scottza/fortran-csv-module into develop

Author: jacobwilliams

src/csv_module.F90

@@ -226,7 +226,6 @@ 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
 
-    call me%destroy()
     arrays_allocated = .false.
 
     open(newunit=iunit, file=filename, status='OLD', iostat=istat)
@@ -287,7 +286,9 @@ 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
@@ -339,8 +340,6 @@ 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
 
-    call me%destroy()
-
     me%n_cols = n_cols
 
     ! optional append argument: