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

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

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