Index: trunk/MagicSoft/Mars/Changelog
===================================================================
--- trunk/MagicSoft/Mars/Changelog	(revision 9227)
+++ trunk/MagicSoft/Mars/Changelog	(revision 9228)
@@ -42,4 +42,6 @@
      - Improved the new Set function
 
+  * readcorsika.cc:
+    - added
 
 
@@ -79,7 +81,4 @@
    * mhist/MHEvent.[h,cc]:
      - ReInit to allow the change of the camera geoemtry in ReInit
-
-   * mpedestal/MPedestalSubtract.[h,cc]:
-     - added Print function
 
 
Index: trunk/MagicSoft/Mars/NEWS
===================================================================
--- trunk/MagicSoft/Mars/NEWS	(revision 9227)
+++ trunk/MagicSoft/Mars/NEWS	(revision 9228)
@@ -18,4 +18,10 @@
      rather than options (usually everything which starts with a
      minus). This allows to use file names starting with a -
+
+   * added a new program called ''readcorsika''. It's purpose is (in analogy
+     to readraw and readdaq) to read a Corsika output file (for now
+     only cherenkov output is supported) and print its contents in a 
+     human readable form. It can also write the contents of this file
+     into a root-file.
 
  ;Database
Index: trunk/MagicSoft/Mars/readcorsika.cc
===================================================================
--- trunk/MagicSoft/Mars/readcorsika.cc	(revision 9228)
+++ trunk/MagicSoft/Mars/readcorsika.cc	(revision 9228)
@@ -0,0 +1,191 @@
+#include <TClass.h>
+#include <TSystem.h>
+#include <TVector2.h>
+
+#include "MParList.h"
+#include "MTaskList.h"
+#include "MEvtLoop.h"
+
+#include "MLog.h"
+#include "MLogManip.h"
+
+#include "MArgs.h"
+#include "MPrint.h"
+
+#include "MCorsikaRead.h"
+
+#include "MWriteRootFile.h"
+
+
+using namespace std;
+
+static void StartUpMessage()
+{
+    gLog << all << endl;
+
+    //                1         2         3         4         5
+    //       12345678901234567890123456789012345678901234567890
+    gLog << "==================================================" << endl;
+    gLog << "            ReadCorsika - MARS V" << MARSVER        << endl;
+    gLog << "     MARS - Read and print corsika data files"      << endl;
+    gLog << "   Compiled with ROOT v" << ROOT_RELEASE << " on <" << __DATE__ << ">" << endl;
+    gLog << "==================================================" << endl;
+    gLog << endl;
+}
+
+static void Usage()
+{
+    gLog << all << endl;
+    gLog << "Sorry the usage is:" << endl;
+    gLog << "   readcorsika [-h] [-?] [-vn] [-dec] [-a0] inputfile[.raw]" << endl << endl;
+    gLog << "     input file:   Magic DAQ binary file." << endl;
+    gLog.Usage();
+//    gLog << "     -f:  force reading of runheader" << endl;
+    gLog << "     -?, -h, --help: This help" << endl << endl;
+}
+
+int main(int argc, char **argv)
+{
+    if (!MARS::CheckRootVer())
+        return 0xff;
+
+    MLog::RedirectErrorHandler(MLog::kColor);
+
+    //
+    // Evaluate arguments
+    //
+    MArgs arg(argc, argv);
+    gLog.Setup(arg);
+
+    StartUpMessage();
+
+    if (arg.HasOnly("-?") || arg.HasOnly("-h") || arg.HasOnly("--help"))
+    {
+        Usage();
+        return 2;
+    }
+
+    arg.RemoveRootArgs();
+
+    const Int_t  kCompLvl = arg.GetIntAndRemove("--comp=", 1);
+    const Bool_t kForce   = arg.HasOnlyAndRemove("-f");
+
+    //
+    // check for the right usage of the program
+    //
+    if (arg.GetNumArguments()<1 || arg.GetNumArguments()>2)
+    {
+        Usage();
+        return 2;
+    }
+
+    //
+    // This is to make argv[i] more readable insidethe code
+    //
+    TString kNamein  = arg.GetArgumentStr(0);
+    TString kNameout = arg.GetArgumentStr(1);
+  
+//    if (!kNamein.EndsWith(".raw") && !kNamein.EndsWith(".raw.gz"))
+//        kNamein += ".raw";
+
+    if (!kNameout.IsNull() && !kNameout.EndsWith(".root"))
+        kNameout += ".root";
+
+    //
+    // Initialize Non-GUI (batch) mode
+    //
+    TObject::Class()->IgnoreTObjectStreamer();
+    TVector2::Class()->IgnoreTObjectStreamer();
+    MParContainer::Class()->IgnoreTObjectStreamer();
+
+    gROOT->SetBatch();
+
+    //
+    // check whether the given files are OK.
+    //
+    if (gSystem->AccessPathName(kNamein, kFileExists))
+    {
+        gLog << err << "Sorry, the input file '" << kNamein << "' doesn't exist." << endl;
+        return 2;
+    }
+
+    //
+    //  open the file
+    //
+    gLog << " Open the file '" << kNamein << "'" << endl;
+
+
+    //
+    // create a (empty) list of parameters which can be used by the tasks
+    // and an (empty) list of tasks which should be executed
+    //
+    MParList plist;
+
+    MTaskList tasks;
+    tasks.SetOwner();
+    plist.AddToList(&tasks);
+
+    //
+    // ---- The following is only necessary to supress some output ----
+    //
+    /*
+    MCorsikaRunHeader runheader;
+    plist.AddToList(&runheader);
+
+    MCorsikaEvtHeader evtheader;
+    plist.AddToList(&evtheader);
+
+    MCorsikaData evtdata;
+    plist.AddToList(&evtdata);
+    */
+    //
+    // create the tasks which should be executed and add them to the list
+    // in the case you don't need parameter containers, all of them can
+    // be created by MCorsikaRead::PreProcess
+    //
+    MCorsikaRead read(kNamein);
+    tasks.AddToList(&read);
+
+    MPrint print0;
+    MPrint print1("MCorsikaEvtHeader", "", "PrintEvtHeader");
+    MPrint print4("MPhotonEvent",      "", "PrintEvent");
+
+    MWriteRootFile write(kNameout, kForce?"RECREATE":"NEW", "Corsika File", kCompLvl);
+    write.AddContainer("MCorsikaEvtHeader", "Events");
+    write.AddContainer("MPhotonEvent",      "Events");
+
+    if (kNameout.IsNull())
+    {
+        tasks.AddToList(&print0);
+        tasks.AddToList(&print1);
+        tasks.AddToList(&print4);
+    }
+    else
+        tasks.AddToList(&write);
+
+    //
+    // create the looping object and tell it about the parameters to use
+    // and the tasks to execute
+    //
+    MEvtLoop magic;
+    magic.SetParList(&plist);
+
+    //
+    // Start the eventloop which reads the raw file (MCorsikaRead) and
+    // write all the information into a root file (MCorsikaFileWrite)
+    //
+    // between reading and writing we can do, transformations, checks, etc.
+    // (I'm think of a task like MCorsikaDataCheck)
+    //
+    if (!magic.Eventloop())
+    {
+        gLog << err << "ERROR: Reading Corsika file failed!" << endl;
+        return 2;
+    }
+
+    gLog << all << "Reading Corsika file finished successfull!" << endl;
+
+    // end of small readin program
+
+    return 0;
+}