approxmodel

   1 #!/usr/bin/perl
   2 require 'library.pl';
   3 die unless @ARGV==4;
   4 ($primer,$instructions,$aout,$output) = @ARGV;
   5 $output =~ s/^\-o// or die "$output ?";
   6 die if $primer =~ m/^\-/;
   7 die if $instructions =~ m/^\-/;
   8
   9 $aoutin= "$output.aoutin.tmp";
  10 $initdata= "$output.initdata.tmp";
  11
  12 run("cat $instructions >$aoutin");
  13 run("./$primer 'pointmap ' ' ' ' ' ' ' ' ' ' # '  'echo ' ' ' u >>$aoutin");
  14
  15 open A, ">>$aoutin" or die $!;
  16 print A "quit\n" or die $!;
  17 close A or die $!;
  18
  19 run("./$aout <$aoutin >$initdata");
  20
  21 make_initdata();