function [name,freq,kmpr]=constituents;
% [name,freq,kmpr]=constituents
% loads tidal constituent table (containing 146 constituents).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 1/11/99
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

fid=fopen('constituents.dat','r'); 
A=fread(fid,[34, Inf]);
A=setstr(A');
name=A(:,5:8);
freq=sscanf(A(:,14:25)','%f');
kmpr=A(:,30:33);
fclose(fid);

