
#
# Verify the solver's path 
#

unless (-s "SOLVE") {
  print "missing path of local Argonne driver.\n"; 
  exit 1;
}

$_ = `cat SOLVE`;
s/\s*$//;

if (/\s/) {
  print "\"$_\" cannot contain any white space.\n";
  exit 1;
}

unless (/^(\/)/) {
  print "\"$_\" is not an absolute path.\n"; 
  exit 1;
}

system("echo $_ > SOLVE");
