package SpaceGroup
@ISA = qw()

sub SymOpToMatrix
my ($op) = @_;
return SpaceGroupObject::SymOpToMatrix($op);
package 

sub GetWIEN2kSPG
my ($spgnum, $NotDeleteiSPG) = @_;
return $s if($NotDeleteiSPG);
return $spgname;
return "NotFound";

sub ICONDTypeStrByRietanIndex
my ($idx) = @_;
return $ICONDTypeStr[$idx];

sub ICONDCondStrByRietanIndex
my ($idx) = @_;
return $ICONDCondStr[$idx];

sub iLaueGroup
return shift->{iLaueG};

sub LaueGroup
return shift->{LaueG};

sub SetiLaueGroup
my ($this, $iLaueG) = @_;
return $this->{LaueG};

sub LatticeSystem
return shift->{LatticeSystem};

sub LatticeSystemFromLaueGroup
my ($this, $LaueG) = @_;
return $LatticeSystem;

sub LaueGroupByRietanIndex
my ($idx) = @_;
return '' if(not defined $idx or $idx < 1 or $idx > 15);
return $LaueGroup[$idx-1];

sub SearchiSPGFromSPGName
my ($this, $spgname, $iset) = @_;
return 0;
return ($SPGR, $NSPGR, $NSET);
return ($SPGR, $NSPGR, $NSET);
return 1;

sub ReadRietanSpaceGroupDB
my ($this, $spgnum, $iset) = @_;
return 0;
return undef unless($NSPGR == $spgnum);
return 1;

sub BEGIN

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

sub DESTROY
my $this = shift;

sub SetRietanDiffractinCondition
my ($this, @ICOND) = @_;
return;

sub RietanDiffractinCondition
my ($this, $i) = @_;
return $this->{"RietanDiffractionCondition[$i]"};