package TSPACE
@ISA = qw()

sub GetTSPACELatticeTypeHash
return \%TSPACELatticeTypeHash;

sub GetTSPACELatticeTypeList
return \@TSPACELatticeTypeList;

sub GetRotationOperationTable
my ($this, $Sym, $Type) = @_;
return $this->{"p${Sym}RotationOperationTableList"};

sub GetWycoffPositionList
my ($this) = @_;
return $this->{pWycoffPositionList};

sub GetWycoffPositionHash
my ($this, $iSPG, $iSet) = @_;
return $p->[$iSPG][$iSet];

sub GetGeneratorList
my ($this) = @_;
return $this->{pGeneratorList};

sub GetGeneratorHash
my ($this, $iSPG, $iSet) = @_;
return $p->[$iSPG][$iSet];

sub GetSPGName
my ($this, $iSPG, $iSet) = @_;
return ('', '') if(!defined $p);
return ($h->{PointGroup}, $h->{SpaceGroup});

sub GetRotationOperationGroup
my ($this, $PointGroup) = @_;
return $PointGroupDB{$PointGroup}->{RotationOperation};
return 'Oh';
return 'Oh';
return 'D6h';
return 'Oh';

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

sub DESTROY
sub DESTROY { my $this = 

sub ReadDatabases
my ($this) = @_;

sub ReadWycoffPositions
my ($this) = @_;
return;

sub ReadGeneratorDB
my ($this) = @_;
return;

sub ReadRotationOperationTable
my ($this, $Sym) = @_;
return;