package DiffractionPeak;
use Exporter;
@ISA = qw(Exporter);

#公開したいサブルーチン
@EXPORT = qw();

use strict;
#use Crystal::MyUtility;

BEGIN {
}

sub new
{
	my ($module) = @_;
	my $this = {};
	bless $this;
	return $this;
}

sub DESTROY
{
	my $this = shift;
}

sub SetPeak
{
	my ($this, $h, $k, $l, $d, $Q) = @_;
	$this->{'h'} = $h;
	$this->{'k'} = $k;
	$this->{'l'} = $l;
	$this->{'d'} = $d;
	$this->{'Q'} = $Q;
	return;
}

sub Peak
{
	my ($this) = @_;
	return ($this->{'h'}, $this->{'k'}, $this->{'l'},
		$this->{'d'}, $this->{'Q'});
}

1;