/[PAMELA software]/gpamela/gpmain/gpmain.F
ViewVC logotype

Diff of /gpamela/gpmain/gpmain.F

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.1.1.1 by cafagna, Thu Jul 11 16:02:14 2002 UTC revision 3.2 by mocchiut, Thu Jan 23 13:56:02 2014 UTC
# Line 1  Line 1 
1  *  *
2  * $Id$  * $Id: gpmain.F,v 3.1.1.1 2002/07/11 16:02:14 cafagna Exp $
3    *
4    * $Log: gpmain.F,v $
5    * Revision 3.1.1.1  2002/07/11 16:02:14  cafagna
6    * First GPAMELA release on CVS
7  *  *
 * $Log$  
8  *  *
9  #if !defined(GPAMELA_INTER)  #if !defined(GPAMELA_INTER)
10  *CMZ :  2.02/00 10/10/2000  15.15.49  by  Francesco Cafagna  *CMZ :  2.02/00 10/10/2000  15.15.49  by  Francesco Cafagna
# Line 49  Line 52 
52  *             Main structures printings.  *             Main structures printings.
53  *  *
54  *      CALL GPRINT('PART',0)  *      CALL GPRINT('PART',0)
55        CALL GPRINT('MATE',0)  c      CALL GPRINT('MATE',0)
56        CALL GPRINT('TMED',0)  c      CALL GPRINT('TMED',0)
57  * VOLU printout commented to avoid GEANT bug  * VOLU printout commented to avoid GEANT bug
58  *      CALL GPRINT('VOLU',0)  *      CALL GPRINT('VOLU',0)
59  *  *
60  *  *
61  *             Start events processing.  *             Start events processing.
62    c      print *,' ciccio '
63        CALL GRUN        CALL GRUN
64    c      print *,' fiffi '
65  *  *
66  *             End of run.  *             End of run.
67        CALL UGLAST        CALL UGLAST
68    c      print *,' pluto '
69        STOP        STOP
70        END        END
71  #endif  #endif
Legend:
Removed from v.3.1.1.1  
changed lines
  Added in v.3.2
  ViewVC Help
Powered by ViewVC 1.1.23