#!/usr/bin/perl -W

$NumOfSim = shift(@ARGV);

chomp($me = `id -un`);
$PATH = "/home/$me/src/Tc/Scheme4/Simulation$NumOfSim";

open(FILEIN,"<$PATH/subfile") || die "Cannot open subfile\n";

@row_data = <FILEIN>;
close FILEIN;

for($j=0;$j<2968;$j++)   # jmax = number of job subs
{
  open(FILEOUT,">$PATH/subfile$j") || die "Cannot open subfile$j \n";
  
	foreach $line(@row_data)
	{
	        chomp($line);
		$cmd = "$line ";
		print FILEOUT "$cmd \n";
	}#$line

}