Index: trunk/MagicSoft/Simulation/Corsika/Mmcs/main.f
===================================================================
--- trunk/MagicSoft/Simulation/Corsika/Mmcs/main.f	(revision 286)
+++ trunk/MagicSoft/Simulation/Corsika/Mmcs/main.f	(revision 287)
@@ -11,4 +11,6 @@
 C  PERFORMS PRINTING OF TABLES AT END OF SHOWER AND AT END OF RUN
 C-----------------------------------------------------------------------
+
+      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
  
 c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
@@ -22,5 +24,4 @@
 c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
-      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
 *KEEP,BAL.
       COMMON /BAL/     EBAL
@@ -1307,5 +1308,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: trunk/MagicSoft/Simulation/Corsika/Mmcs/start.f
===================================================================
--- trunk/MagicSoft/Simulation/Corsika/Mmcs/start.f	(revision 286)
+++ trunk/MagicSoft/Simulation/Corsika/Mmcs/start.f	(revision 287)
@@ -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'//)