Changeset 287 for trunk/MagicSoft/Simulation/Corsika

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!!

Location:

trunk/MagicSoft/Simulation/Corsika/Mmcs

Files:

• main.f (modified) (3 diffs)
• start.f (modified) (1 diff)

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'/

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

@@ -194 +194 @@
      *' 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'//)