spektrCompound2C.m

function rowNumber = spektrCompound2C(compound)
%%**************************************************************************
%% System name:      SPEKTR
%% Module name:      spektrCompound2C.m
%% Version number:   1
%% Revision number:  00
%% Revision date:    15-Mar-2004
%%
%% 2016 (C) Copyright by Jeffrey H. Siewerdsen.
%%          I-STAR Lab
%%          Johns Hopkins University
%%
%%  Usage: rowNumber = spektrCompound2C(compound)
%%
%%  Inputs:
%%      'compound' - string containing one of the ACRP compounds
%%
%%  Outputs:
%%      'rowNumber' - integer index assigned to compound
%%
%%  Description:
%%      The function of this method is to return the row of a desired
%%      compound for the list of compound densities in density_compounds (.mat
%%      file)
%%
%%  Notes:
%%
%%*************************************************************************
%% References: 
%%
%%*************************************************************************
%% Revision History
%%  0.000    2003 05 01     AW  Initial code
%%	1.000    2004 03 15     DJM Initial released version
%%*************************************************************************
%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%% PARAMETERS

% Filename for matlab file containing the list of compounds
Filename_CompoundList='spektrCompoundList.m';
%%% ... in mat database for density of elements and compounds
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Access periodic table spreadsheet from " periodic_table.m "
data = textread(Filename_CompoundList,'%s\r'); %abbrev. of the elements & atomic #'s are stored here
if isstrprop(compound(1), 'lower')
    compound(1) = upper(compound(1));
end
rowNumber = strmatch(compound,data,'exact');