package PHASE
@ISA = qw()

sub ClearAll
sub ClearAll      { my $this=

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

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

sub SetFileName
sub SetFileName   { my ($this,$f)=
return $this->{'FileName'} = $f;

sub SetSampleName
sub SetSampleName { my ($this,$n)=
return $this->{'SampleName'} = $n;

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

sub KListDBDir
my $this = shift;
return $this->{'KListDBDir'} if($this->{'KListDBDir'});
return $this->{'KListDBDir'} = $KListDBDir;

sub SetKListDBDir
	my($this, $d) = 
return $d;

sub GetFileName
	my($this, $path, $fname) = 
return $path2;

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

sub DESTROY
sub DESTROY { my $this = 

sub ReadPPDataToHash
my ($this, $path) = @_;
return undef;
return \%hash;

sub MakeControlInp
my ($this, $path, $Crystal) = @_;
return undef;

sub MakeKPointFile
my ($this, $path, $Crystal) = @_;
return undef;
return 1;

sub GetPPPath
my ($this, $atomname, $PPType, $Functional) = @_;
return $f[0];

sub GetPHASELatticeSystemName
my ($this, $Crystal) = @_;
return $LatticeSystem;

sub GetDefaultFileNames
my ($this, $Function, $filebody) = @_;
return %FileNameList;

sub MakeFileNamesData
my ($this, $WriteDir, $path, $pFileNameList, $Functional, $PPType, $Crystal, $CopyFile) = @_;
return undef;
return 1;