pawianfixparameters.pl

#!/usr/bin/perl

#************************************************************************#
#                                                                        #
#  Copyright 2014 Bertram Kopf (bertram@ep1.rub.de)                      #
#                 Julian Pychy (julian@ep1.rub.de)                       #
#                 - Ruhr-Universität Bochum                              #
#                                                                        #
#  This file is part of Pawian.                                          #
#                                                                        #
#  Pawian is free software: you can redistribute it and/or modify        #
#  it under the terms of the GNU General Public License as published by  #
#  the Free Software Foundation, either version 3 of the License, or     #
#  (at your option) any later version.                                   #
#                                                                        #
#  Pawian is distributed in the hope that it will be useful,             #
#  but WITHOUT ANY WARRANTY; without even the implied warranty of        #
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         #
#  GNU General Public License for more details.                          #
#                                                                        #
#  You should have received a copy of the GNU General Public License     #
#  along with Pawian.  If not, see <http:#www.gnu.org/licenses/>.        #
#                                                                        #
#************************************************************************#

#######################################################
##                                                   ##
##  pawianfixparameters                              ##
##                                                   ##
##  This script generated the mnParFix list to be    ##
##  used in the Pawian configuration file.           ##
##                                                   ##
##  - Julian Pychy     julian@ep1.rub.de             ##
##                                                   ##
#######################################################

use strict;
use warnings;
use Getopt::Long;

my $showHelp=0;
my $filename="";
my $prio="";

GetOptions ("help|h" => \$showHelp,
	    "file=s" => \$filename,
	    "prio=s" => \$prio)  or die "Bad arguments!";

if($showHelp){
    Help();
    exit;
}

if($filename eq "" || !(-e $filename)){
    die "File not found.";
}


# Read the parameter file
open FILE, "<", $filename or die $!;

my @linesInFile;
while (<FILE>) { 
    push(@linesInFile, $_);
}

close FILE;


my @fixedproddec = FixProductionsAndDecays(\@linesInFile);