#!/usr/local/links/bin/perl -w

# Treat this as pseudo code. Programs will
# be launched similar to this.


# CVS info
# $Date: 2007/03/14 20:37:22 $
# $Revision: 1.2 $
# $RCSfile: gen_RES_input.pl,v $
# $Name: rel_7 $

use strict;
use English;
use Cwd;

my $comd;
my $future;
my $mype;
my $odir         = "/data/stage/RES/io_test_input";
my $starttime;
my $filename = "res_in";
my $outname   = "the_standard_out";
my $errorname = "the_standard_error";
my $npes;
my $seed = 1;

$npes       = ARGV[ 1 ];
$starttime  = ARGV[ 2 ];

$command = "resub  -f $filename -o $outname -e $errorname" ;

$x = "read_from_cnode_cache    $mype $npes $seed $starttime $odir";

#$x = "mmap_file_in             $mype $npes $seed $starttime $odir";
#$x = "read_from_ioserver_cache $mype $npes $seed $starttime $odir"
#$x = "read_from_disk           $mype $npes $seed $starttime $odir";
#$x = "write_many_files         $mype $npes $seed $starttime $odir";

# generate input to RES (ressub)
$starttime = time()+20;   # When read_from_cnode_cache starts timing itself
open(RES_IN, $filename );

for ($mype=0; $mype<$npes; $mype++){
  print RES_IN, $x, "\n";
}
close(RES_IN);

# start ressub with its input file res_in
system( $command );