File indexing completed on 2025-08-05 08:11:03
0001
0002
0003 use strict;
0004 use warnings;
0005 my @momarray = (1,2,4,8,12,16,32,40,50);
0006 my @etaarray = (0);
0007 my @partarray = ("gamma","k+","k-");
0008 foreach my $particle (@partarray)
0009 {
0010 foreach my $eta (@etaarray)
0011 {
0012 foreach my $mom (@momarray)
0013 {
0014 my $cmdline = sprintf("perl run_condor.pl %s %s %s /sphenix/user/jpinkenburg/ShowerSize",$particle,$eta,$mom);
0015 print "cmd: $cmdline\n";
0016 system($cmdline);
0017 }
0018 }
0019 }