#!/usr/local/bin/perl -- #-*-perl-*-

# *********************************************************************
# testing driver for the intelligent agent program
# *********************************************************************

# sub Main {
	      
  for ($k = 1.5; $k >= 0.4; $k -= 0.1) {
    for ($i = 2, $j = 0; $i <= 16384; $i *= 2, $j++) {
      if (($k <= 0.9) || ($k > 1.0)) {
	print "Test Run:  NBody$k, NParticle:  $i\n";
	`date > test$k.$j.out`;
	`NBody$k -1 1 -1 1 $i 1 >> test$k.$j.out`;
	`date >> test$k.$j.out`;  
      } else {
	print "Test Run:  NBody$k.0, NParticle:  $i\n";
	`date > test$k.0.$j.out`;
	`NBody$k.0 -1 1 -1 1 $i 1 >> test$k.0.$j.out`;
	`date >> test$k.0.$j.out`;
      }
    }
  }

# }