fix issue #17, status_ok=.true. for read_header() and variable_types()

Author: jbdv-no

src/csv_module.F90

@@ -614,7 +614,7 @@ subroutine get_header_csv_str(me,header,status_ok)
         do i=1,me%n_cols
             header(i) = me%header(i)
         end do
-        status_ok = .false.
+        status_ok = .true.
 
     else
         if (me%verbose) write(error_unit,'(A)') 'Error: no header in class.'
@@ -645,7 +645,7 @@ subroutine get_header_str(me,header,status_ok)
         do i=1,me%n_cols
             header(i) = me%header(i)%str
         end do
-        status_ok = .false.
+        status_ok = .true.
 
     else
         if (me%verbose) write(error_unit,'(A)') 'Error: no header in class.'
@@ -804,6 +804,7 @@ subroutine variable_types(me,itypes,status_ok)
         do i=1,me%n_cols
             call infer_variable_type(me%csv_data(1,i)%str,itypes(i))
         end do
+        status_ok = .true.
     else
         if (me%verbose) write(error_unit,'(A,1X,I5)') 'Error: class has not been initialized'
         status_ok = .false.