anchor.diff:  
           read(file_unit_no, '(A)') local_buffer
           rewind(file_unit_no)
  +
  +        if(local_buffer(bigcharlen:bigcharlen) /= " ") stop "local_buffer is too small"
   
           file_columns =  count(transfer(local_buffer, 'a', len(local_buffer)) == ",") + 1
   
  
positive.code:         character(len=charlen), intent(in):: csv_file !! Filename
          integer(ip), optional, intent(in):: skip_header !! Number of lines to skip in read
  
          character(len=charlen):: local_buffer
          integer(ip) :: file_unit_no, file_columns, file_rows, i, skip_header_local
  
          if(present(skip_header)) then
  
negative.code:         do i = 1, nd
  
              read(fid, '(A)') string_buf
              if(string_buf(bigcharlen:bigcharlen) /= " ") stop "string_buf is too small"
              !string_buf = trim(string_buf)
              !print*, 'string_buf: ', string_buf
  
              ! "Clear" the buffer
  