package DiffractionPeakArray
@ISA = qw()

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

sub DESTROY
my $this = shift;

sub nPeaks
return scalar @$a;

sub Sethkl
sub Sethkl { my ($this,$i,$s)=
return $this->{'hklArray'}->[$i] = $s;

sub hkl
sub hkl    { my ($this,$i)=
return $this->{'hklArray'}->[$i];
my ($this,$i)=@_;
return $this->{'2QObs'}->[$i];

sub Q2Obs
sub Q2Obs  { my ($this,$i)=
return $this->{'2QObs'}->[$i];
my ($this,$i)=@_;
return $this->{'2QCal'}->[$i];

sub Q2Cal
sub Q2Cal  { my ($this,$i)=
return $this->{'2QCal'}->[$i];

sub F
sub F      { my ($this,$i)=
return $this->{'F'}->[$i];

sub Add
my ($this, $hkl, $Q2Obs, $Q2Cal, $F) = @_;