package ProgVars
@ISA = qw()

sub OS
return $OS;

sub Program
return $Program;

sub ProgramDir
return $ProgramDir;

sub ProgramOldDir
return $ProgramOldDir;

sub BaseDir
return $BaseDir;

sub BinDir
return $BinDir;

sub DBDir
return $DBDir;

sub VASPDir
return $VASPDir;

sub VASPProgOldDir
return $VASPProgOldDir;

sub PHASEDir
return $PHASEDir;

sub PHASEPerlDir
return $PHASEPerlDir;

sub PHASEPotDir
return $PHASEPotDir;

sub CRYSTAL06Dir
return $CRYSTAL06Dir;

sub DVXaDir
return $DVXaDir;

sub SCIGRESSDir
return $SCIGRESSDir;

sub RietanDir
return $RietanDir;

sub RietanTemplateDir
return $RietanTemplateDir;

sub RietanFPDir
return $RietanFPDir;

sub RietanFPTemplateDir
return $RietanFPTemplateDir;

sub PeriodicTableDir
return $PeriodicTableDir;

sub MXDDir
return $MXDDir;

sub MXDExecDir
return $MXDExecDir;

sub MXDOrtoDir
return $MXDOrtoDir;

sub MXDInputPath
return $MXDInputPath;

sub SX1DBPath
return $SX1DBPath;

sub WebRootDir
return $WebRootDir;

sub KListDBDir
return $KListDBDir;

sub SGROUPPath
return $SGROUPPath;

sub TEEPath
return $TEEPath;