Get_Atomic_Mass.m

Go to the documentation of this file.

%%   Eotvos Quantum Transport Utilities
%    Copyright (C) 2018 Peter Rakyta, Ph.D
%
%    This program is free software: you can redistribute it and/or modify
%    it under the terms of the GNU General Public License as published by
%    the Free Software Foundation, either version 3 of the License, or
%    (at your option) any later version.
%
%    This program is distributed in the hope that it will be useful,
%    but WITHOUT ANY WARRANTY; without even the implied warranty of
%    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%    GNU General Public License for more details.
%
%    You should have received a copy of the GNU General Public License
%    along with this program.  If not, see http://www.gnu.org/licenses/.
%
%> @file Get_Atomic_Mass.m
%> @brief Gives the molar mass of the element
%> @param Z is the index of the element in the periodic table
%> @return molar mass of the element
%> @Available
%> EQuUs v4.9.... or later
%> @}
function    am = Get_Atomic_Mass(Z )

    amass =[1.01,  4.00,  6.94,  9.01, 10.81, 12.01, ...
        14.01, 16.00, 19.00, 20.18, 22.99, 24.31,  ...
        26.98, 28.09, 30.97, 32.07, 35.45, 39.95, ...
        39.10, 40.08, 44.96, 47.88, 50.94, 52.00, ...
        54.94, 55.85, 58.93, 58.69, 63.55, 65.39, ...
        69.72, 72.61, 74.92, 78.96, 79.90, 83.80, ...
        85.47, 87.62, 88.91, 91.22, 92.91, 95.94, ...
        98.91,101.07,102.91,106.42,107.87,112.41, ...
       114.82,118.71,121.75,127.60,126.90,131.29, ...
       132.91,137.33,138.91,140.12,140.91,144.24, ...
       146.92,150.36,151.97,157.25,158.93,162.50, ...
       164.93,167.26,168.93,173.04,174.97,178.49, ...
       180.95,183.85,186.21,190.20,192.22,195.08, ...
       196.97,200.59,204.38,207.20,208.98,208.98, ...
       209.99,222.02,223.02,226.03,227.03,232.04, ...
       231.04,238.03,237.05,244.06];

    if (Z==0 || Z>length(amass)) 
       disp(['ATMASS: ERROR: No data for Z =' str2num(Z)])
       exit
    else
       am=amass(Z);
    end

end