Index: branches/start/MagicSoft/Simulation/Corsika/Mmcs/Makefile
===================================================================
--- trunk/MagicSoft/Simulation/Corsika/Mmcs/Makefile	(revision 413)
+++ branches/start/MagicSoft/Simulation/Corsika/Mmcs/Makefile	(revision 4308)
@@ -117,5 +117,5 @@
 	@echo '                         OSF, Linux or AIX flavour of Unix'
 	@echo ''
-	@echo 'Additionally, you can add to your command line ADDFLAGS=<flags>'
+	@echo 'Additionally, you can add to your command line ADDFLAGS=<flags>"
 	@echo 'to include any new flag you want.'
 	@echo ''
Index: branches/start/MagicSoft/Simulation/Corsika/Mmcs/main.f
===================================================================
--- trunk/MagicSoft/Simulation/Corsika/Mmcs/main.f	(revision 413)
+++ branches/start/MagicSoft/Simulation/Corsika/Mmcs/main.f	(revision 4308)
@@ -11,6 +11,4 @@
 C  PERFORMS PRINTING OF TABLES AT END OF SHOWER AND AT END OF RUN
 C-----------------------------------------------------------------------
-
-      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
  
 c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
@@ -24,4 +22,5 @@
 c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
+      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
 *KEEP,BAL.
       COMMON /BAL/     EBAL
@@ -1308,5 +1307,5 @@
  209  FORMAT(//' ENERGY - MULTIPLICITY MATRIX FOR ALL SHOWERS'/
      *       ' ENERGY RUNS VERTICALLY, MULTIPLICITY HORIZONTALLY'//,
-     *       ' ',6X,5I9,3I8,5I7,'   ENERGY RANGE (GEV)'/
+     *       ' ',6X,5I9,3I8,5I7'   ENERGY RANGE (GEV)'/
      *       37(/' ',I4,1X,I10,4I9,3I8,5I7,1X,1P,2E10.1,0P)//
      *       ' MULT. ',5I9,3I8,5I7,4X,'LOWER BIN LIMIT'/
Index: branches/start/MagicSoft/Simulation/Corsika/Mmcs/start.f
===================================================================
--- trunk/MagicSoft/Simulation/Corsika/Mmcs/start.f	(revision 413)
+++ branches/start/MagicSoft/Simulation/Corsika/Mmcs/start.f	(revision 4308)
@@ -194,10 +194,10 @@
      *' COSMIC RAY SIMULATION FOR KASCADE'///
      *' A PROGRAM TO SIMULATE EXTENSIVE AIR SHOWERS IN ATMOSPHERE'//
-     *' BASED ON A PROGRAM OF P.K.F. GRIEDER, UNIVERSITY BERN,',
+     *' BASED ON A PROGRAM OF P.K.F. GRIEDER, UNIVERSITY BERN,'
      *' SWITZERLAND'/
      *' HDPM MODEL ACCORDING TO J.N. CAPDEVIELLE, COLLEGE DE FRANCE,',
      *' PARIS, FRANCE'/
      *' VENUS MODEL ACCORDING TO K. WERNER, UNIVERSITY NANTES, FRANCE'/
-     *' GHEISHA ROUTINES ACCORDING TO H. FESEFELDT, RWTH. AACHEN,',
+     *' GHEISHA ROUTINES ACCORDING TO H. FESEFELDT, RWTH. AACHEN,'
      *' GERMANY'/
      *' EGS4 AND NKG FORMULAS FOR SIMULATION OF EL.MAG. PARTICLES'//)
Index: branches/start/MagicSoft/Simulation/Corsika/Simone/simone.cxx
===================================================================
--- trunk/MagicSoft/Simulation/Corsika/Simone/simone.cxx	(revision 413)
+++ branches/start/MagicSoft/Simulation/Corsika/Simone/simone.cxx	(revision 4308)
@@ -24,5 +24,5 @@
               
     //    char  path[100] = "/hd61/Maggi/Data/mcMAGIC-1-30:30000-1" ; 
-    char  path[100] = "/hd02/Maggi/Data/prot_15/" ; 
+    char  path[100] = "/hd31/Data/mmcs_prod_1009_30:30000_14" ; 
     //    char  path[100] = "/data/mmcs/" ; 
     char  cername[120] ; 
@@ -32,11 +32,7 @@
 
     COREventHeader Event ;   
-    CORParticle    Photon ; 
-
+    
     MSimone    Infos ; 
-    
-    Int_t iPhotonInShower ; 
-
-    Float_t lambda ; 
+    Infos.Print() ; 
     //
     //    now create a root-file for the ntuple output
@@ -47,16 +43,8 @@
     TNtuple *Ntup = new TNtuple("simone",
 			       "Simone info of mmcs",
-			       "fPartId:fEnergy:fTheta:fPhi");
+			       "PartId:Energy:Theta:Phi");
 
 
-    for (int i_cer = 1; i_cer <= 100; i_cer++ ) {
-
-      //
-      //   info of progress
-      //
-      if (!( i_cer %10) )
-	{
-	  cout << i_cer << endl ; 
-	}
+    for (int i_cer = 1; i_cer < 1000; i_cer++ ) {
 
       //
@@ -80,53 +68,14 @@
       }
           
-      //   
-      //    cout << " Read event " << endl ;
-      //
-
+      cout << " Read event " << endl ;
       Event.read( cerfile );
+      
       Infos.Transfer ( &Event ) ; 
 
-      //
-      //   fill the ntuple
-      //
+      Infos.Print() ; 
+
       Infos.NtupFill ( Ntup ) ; 
  
-      //
-      //   loop over the particles (cerenkov photons) in 
-      //   the file 
-      //
-
-      iPhotonInShower = 0 ; 
-      
-      while( ! (cerfile.eof() || cerfile.bad() )) {
-	
-	//
-	//   read in the particles
-	//
-
-	Photon.read ( cerfile ) ; 
-	
-	//
-	//   only if the wavelength lambda is greater than 
-	//   1.0 it is a real cerenkov photon 
-	//
-	lambda = Photon.get_wl() ; 
-
-	if ( lambda < 1.0 ) 
-	  break ; 
-
-	iPhotonInShower++ ; 
-
-	Photon.print() ; 
-
-      }
-
-      cout << iPhotonInShower << endl ;       
-
-
-
       cerfile.close();
-      
-
 
     } 
@@ -138,10 +87,5 @@
     outfile->Write() ; 
 
-
-    //
-    //
-    //
-    
-  }
+  }