Changeset 287 for trunk/MagicSoft/Simulation/Corsika/Mmcs/main.f

Timestamp:

10/26/99 20:17:37 (25 years ago)

Author:

harald

Message:

Some minor changes in the files main.f and start.f due to some problems
during the compilation on a linux computer (pchegra4.mppmu.mpg.de).
After this changes it is possible to compile the program under linux, but
there are still a lot of warnings!
A small discussion with Jose Carlos and Aitor leads to the conclusion that
the executable is good for mass production!!

File:

• trunk/MagicSoft/Simulation/Corsika/Mmcs/main.f (modified) (3 diffs)

trunk/MagicSoft/Simulation/Corsika/Mmcs/main.f

@@ -11 +11 @@
 C  PERFORMS PRINTING OF TABLES AT END OF SHOWER AND AT END OF RUN
 C-----------------------------------------------------------------------
+
+      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
  
 c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
@@ -22 +24 @@
 c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
-      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
 *KEEP,BAL.
       COMMON /BAL/     EBAL
@@ -1307 +1308 @@
  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'/