Index: fact/tools/marsmacros/singlepe.C
===================================================================
--- fact/tools/marsmacros/singlepe.C	(revision 14231)
+++ fact/tools/marsmacros/singlepe.C	(revision 14241)
@@ -417,12 +417,13 @@
                              Int_t maxbin,  double fwhm, Double_t gain );
 
-int singlepe()
+int singlepe(const char *runfile, const char *drsfile, const char *outfile)
 {
     // ======================================================
 
-    const char *drsfile = "/fact/raw/2012/05/18/20120518_012.drs.fits.gz";
+    //const char *drsfile = "/fact/raw/2012/05/18/20120518_012.drs.fits.gz";
 
     MDirIter iter;
-     iter.AddDirectory("/fact/raw/2012/05/18", "20120518_005.fits.gz");
+    //iter.AddDirectory("/fact/raw/2012/05/18", "20120518_005.fits.gz");
+    iter.AddDirectory(gSystem->DirName(runfile), gSystem->BaseName(runfile));
 
     // ======================================================
@@ -1026,5 +1027,7 @@
     gPad->SetLogy();
     hSep.DrawCopy();
-     */
+    */
+
+    d->SaveAs(outfile);
     return 0;
 }