function [serialdate f bw energy Hs Tp] = ParseDataWellSpectrum(tline)
%UNTITLED2 Summary of this function goes here
%   Detailed explanation goes here
filename = strtok(tline{1}(strfind(tline{1},'sp'):end));
Hs = str2num(strtok(tline{7}(7:end)));
Tp = str2num(strtok(tline{7}(23:end)));
serialdate = datenum(str2num(filename(8:11)),str2num(filename(12:13)),str2num(filename(14:15)), str2num(filename(16:17)),str2num(filename(18:19)),0)

for i = 11:74
  [token remain] = strtok(tline{i});
  f(i-10) = str2num(token);
  [token remain] = strtok(remain);
  bw(i-10) = str2num(token);
  [token remain] = strtok(remain);
  energy(i-10) = str2num(token);
end

end

