#!/usr/bin/perl


@gov = split (/\//,$0); pop @gov; $BINDIR = join ('/',@gov);
$getpar   = "$BINDIR/getpar";

$add_eff_exe = "$BINDIR/add_eff_exe";
$fcopy  = "$BINDIR/fitscopy"; # it is more efficient to use fitscopy because
                              # we will be creating columns

$UNDEF = "undefined";

# Read common PERL subs
require "$BINDIR/perlutil.pl";

(@ARGV0) = @ARGV;
@PARS = &fixpars (@ARGV); # this is needed to escape arguments with parens etc
chop ( ($infile,$outfile) = `$getpar evtfile,o @PARS` );

if ( $infile  eq $UNDEF ) { die "evtfile=?\n" }
if ( $outfile eq $UNDEF ) { die "o=?\n" }

system ($fcopy,$infile."[events][col eff(1E)=0; effinv(1E)=0; *]",$outfile) && die;

$outfile =~ s/^!//;

system ("echo",
	"evtfile=$outfile",@ARGV0) && die;
system ($add_eff_exe,
	"evtfile=$outfile",@ARGV0) && die;
