function [jc]=find_const(nam1,name);
% [jc]=find_const(nam1,name)
% finds the consistuent name from the constituent table.

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

namc=['    '];
n=length(nam1);namc(1:n)=nam1;

for l=1:length(name);
 j(l)=strcmp(namc,name(l,:));
 end;
jc=find(j==1);

