#!/usr/bin/perl

print "Enter the size of the matrix ( = nprocs in ring ): ";
my $nprocs = <>;
chomp($nprocs);
`rm -f I R IR RI`;
`./mkRandomMatrix R $nprocs`;
print `ls -lh R`;
`./mkIdentityMatrix I $nprocs`;
print `ls -lh I`;
`mpirun -np $nprocs mpimm I R IR $nprocs`;
`mpirun -np $nprocs mpimm R I RI $nprocs`;
my $diff = `diff IR RI`;
if($diff){
    print "IR and RI differ\n";
} else {
    print "IR and RI agree\n";
}