#!/bin/perl
# this code makes shell scripts to run the MSPHERE code

$num = scalar(@ARGV);
if ($num != 2) {
 die "Usage: makesh.pl <BASENAME> <NUM> \n";
}

print "Making $ARGV[0]-$ARGV[1].sh \n";
open(TMPLATE,"tmplate.sh") || die "Needs tmplate.sh \n!";
open(OUTFILE,">$ARGV[0]-$ARGV[1].sh") || 
     die "Cannot open #ARGV[1]-$ARGV[1].sh: !$\n";
$a = $ARGV[1];
$b = $a;
$a++; 
$b--;
while(<TMPLATE>) {
  $_ =~  s/BASE-STRT/$ARGV[0]-$ARGV[1]/g;
  $_ =~ s/BASE-STP/$ARGV[0]-$a/g;
  $_ =~ s/BASE-GET/$ARGV[0]-$b/g;
  print OUTFILE;
}
close(OUTFILE);
chmod 0755,"$ARGV[0]-$ARGV[1].sh";