=pod

Build up our list of hashes from 14th Chart of the Nuclides data.

=cut

my $hydrogen = {};
{
    $hydrogen->{element}{Z} = 1;

    $hydrogen->{name}{default}    = 'Hydrogen';
    $hydrogen->{name}{'en-CA'}    = 'Hydrogen';
    # Names for other countries/languages/charactersets.

    $hydrogen->{symbol}{default} = 'H';
    $hydrogen->{symbol}{'en-CA'} = 'H';
    # Symbols for other countries/languages/charactersets.

    $hydrogen->{element}{mass}    =  Materia::Variable::Generic->new({
	value => '1.00794(7)',
	name => 'MolarMass',
	units => 'g',
								     });
    $hydrogen->{boilT} = Materia::Variable::Pressure->new({
	value    =>  '20.268',
	name     => 'BoilT',
	units    => 'K',
	pressure => {
	    value => '101.325E3',
	    units => 'Pa',
	}, 
							  });