Changeset 687 for trunk/MagicSoft/Simulation/Corsika/Mmcs/cerenkov.f

Timestamp:

03/05/01 16:20:45 (24 years ago)

Author:

harald

Message:

Changes of Ciro and Dennis to write all events of one run in only
one file. Be careful, from now on you need also a new reflector.

File:

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

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

@@ -344 +344 @@
  102      CARTIM = ((ETADSN*(THCKOB(NOBSLV)-THICK(DBLE(ZEMIS)))
      *         /WEMIS+PATHCR-VCOR/BETAE)/C(25)+TIME(NP))* 1.E9
-          
+         
 c          CALL OUTPT2(IQ(NP),I)
           CALL OUTPT2(NCT,I)
-
-c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-          call jctime(cartim)
-c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+C
+CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+C
+C     Modified by C. Bigongiari 2001 Jan 16 
+C
+C
+Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+C          call jctime(cartim)
+Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+C
+C
+CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+C    
 
           GOTO 1000
@@ -401 +410 @@
       CHARACTER*4      CRUNH,CRUNE,CEVTH,CEVTE
       EQUIVALENCE      (RUNH(1),CRUNH), (RUNE(1),CRUNE)
-      EQUIVALENCE      (EVTH(1),CEVTH), (EVTE(1),CEVTE)
+      EQUIVALENCE      (EVTH(1),CEVTH), (EVTE(1),CEVTE)   
 *KEEP,CONST.
       COMMON /CONST/   PI,PI2,OB3,TB3,ENEPER
@@ -680 +689 @@
           CALL OUTPT2(NCT,I)
 
-c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-          call jctime(cartim)
-c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+C
+CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+C
+C     Modified by C. Bigongiari 2001 Jan 16 
+C
+C
+Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+C          call jctime(cartim)
+Cc>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+C
+C
+CBC++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+C    
 
           GOTO 1000