f = fopen('Dave.csv','r')
Provenance = fgetl(f)
cName = fgetl(f)
cTitle = fgetl(f)
Grist = textscan(f,'%s%f%f%f%f%f%f%f%f%f','Delimiter',',','TreatAsEmpty','?','CommentStyle','%');
fclose(f);
disp(['Size of Grist:',int2str(size(Grist))]);
for l = 1:10; disp(['part ',int2str(l),': ',int2str(size(Grist{l}))]); end;
disp('Unexpected zero elements in Grist{10}');
z = find(Grist{10} <= 0)
disp('Grist{1:4}, elements 1158:1162');
for t=1158:1162; disp([t,Grist{1}(t),Grist{2}(t),Grist{3}(t)]); end
disp('');
disp('The tail end...');
for t=6770:6778; disp([t,Grist{1}(t),Grist{2}(t),Grist{3}(t)]); end