#!/usr/bin/perl

# Gregory D. Troxel <gtroxel@bbn.com>

do "sub-rsadj.pl";

foreach $host (@HOSTS)
  {
    select(STDOUT);
    print "CRUNCH $host:\n";

    &cdhost($host);

    system "rm -f LOG PARAM*";
    system "rm -f xplot*";

    &cdtop;
    system "./pd $host";
  }
