package Gaussian
@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;
return shift->{'DataArray'};
my ($this, $da) = @_;
return $this->{'DataArray'} = $da;

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

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

sub CheckFileType
my ($path) = @_;
return undef unless($in);
return "Gaussian03 Output file";
return undef;

sub Read
my ($this, $filename) = @_;
return $this->MoToGraphData($MO);

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

sub DESTROY
sub DESTROY { my $this = 

sub ReadOutputFile
my ($this, $path) = @_;
return undef unless($in);
return $MO;

sub MoToGraphData
my ($this, $MO, $target) = @_;
return $MO->SourcePath();