#! /usr/bin/env perl use strict; use warnings; $parameters = default_values $parameters = command_line_values atthkgen atthkset=$atthkset timestep=$timestep for $ccd (@ccdlist) { epframes set='$set' eventset=$outfile0 \ gtiset=$outgti wrongpixlimit=$wrongpixlimit \ srcposition=$srcposition mipthreshold=$mipthreshold \ mipmethod=$mipmethod qualmax=$qualmax \ witheventmap=$witheventmap if ($runbadpixfind == "y") { badpixfind eventset=$outfile0 badpixset=$bad } badpix eventset=$outfile0 badpixset=$bad \ getuplnkbadpix=$getuplnkbadpix \ getotherbadpix=$getotherbadpix \ getnewbadpix=$getnewbadpix \ emptyextension=$emptyextension \ windowfilter=$windowfilter epevents eventset=$outfile1 outset=$outfile2 \ reemissionthresh=$reemissionthresh \ randomizeenergy=$randomizeenergy \ randomizeposition=$randomizeposition \ gainctiaccuray=$gainctiaccuracy \ withphotonmap=$withphotonmap attcalc eventset=$outfile2 attitudelabel=$attsou \ refpointlabel=$refpoint atthkset=$atthkset \ withmedianpnt=$withmedianpnt imagesize=$imagesize \ [ fixedra=$attra fixeddec=$attdec fixedposangle=$attPA ] [ nominalra=$nominalra nominaldec=$nominaldec ] } SAS_MEMORY_MODEL = $memorymodel evlistcomb eventsets=\"$evlist\" instrument=epn imagingset=$imagingset \ timingset=$timingset othertables=$othertables evselect table=[$imagingset $timingset] expression=\"$evselexpr\" \ withfilteredset=Y keepfilteroutput=Y filteredset=$outfil \ writedss=Y updateexposure=N destruct=Y SAS_MEMORY_MODEL = original_value