package EnergyBandArray
@ISA = qw()

sub SetTitle
sub SetTitle { my ($this,$t)=
return $this->{'Title'} = $t;

sub Title
return shift->{'Title'};

sub GetpEnergyBandArray
return shift->{'pEnergyBnadArray'};

sub SetCrystal
my ($this,$crystal) = @_;
return $this->Crystal();

sub Crystal
return shift->{'Crystal'};

sub SetUnit
my ($this,$u) = @_;
return $this->Unit();

sub Unit
return shift->{'Unit'};

sub CalXMinMax
my ($this) = @_;

sub CalYMinMax
my ($this) = @_;

sub CalMinMax
my ($this) = @_;

sub nEnergyBand
my ($this) = @_;
return @$pEnergyBandArray;

sub GetEnergyBand
my ($this,$i) = @_;
return $pEnergyBandArray->[$i];

sub pDistance
my ($this, $i) = @_;
return undef unless(defined $this->GetEnergyBand($i));
return $this->GetEnergyBand($i)->pDistance();

sub pEnergy
my ($this, $i) = @_;
return $this->GetEnergyBand($i)->pEnergy();

sub GetXMinMax
my ($this, $i) = @_;
return $this->GetEnergyBand($i)->GetXMinMax();

sub GetYMinMax
my ($this, $i) = @_;
return $this->GetEnergyBand($i)->GetYMinMax();

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

sub DESTROY
my $this = shift;

sub AddEnergyBand
my ($this) = @_;

sub GetBandBoundary
my ($this, $fRecalc) = @_;
return (\@BandBoundaryDistance, \@BoundaryPositions);

sub AddByKE
my ($this, $i, $kx, $ky, $kz, $e) = @_;

sub SetGraphDataArray
my ($this, $DataArray) = @_;