source: branches/start/MagicSoft/Simulation/Corsika/Mmcs/istack.f@ 12426

Last change on this file since 12426 was 286, checked in by harald, 25 years ago
This is the start point for further developments of the Magic Monte Carlo Simulation written by Jose Carlos Gonzales. Now it is under control of one CVS repository for the whole collaboration. Everyone should use this CVS repository for further developments.
File size: 1.9 KB
Line 
1 SUBROUTINE ISTACK
2
3C-----------------------------------------------------------------------
4C I(NITIALIZE) STACK
5C
6C PREPARES STACK AND EXTERNAL DISK FILE
7C THIS SUBROUTINE IS CALLED FROM MAIN
8C-----------------------------------------------------------------------
9
10 IMPLICIT NONE
11*KEEP,ETHMAP.
12 COMMON /ETHMAP/ ECTMAP,ELEFT
13 DOUBLE PRECISION ECTMAP,ELEFT
14*KEEP,RUNPAR.
15 COMMON /RUNPAR/ FIXHEI,THICK0,HILOECM,HILOELB,
16 * STEPFC,NRRUN,NSHOW,PATAPE,MONIIN,
17 * MONIOU,MDEBUG,NUCNUC,
18 * CETAPE,
19 * SHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL,
20 * N1STTR,MDBASE,
21 * DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR,
22 * FIX1I,FMUADD,FNKG,FPRINT,FDBASE
23 * ,GHEISH,GHESIG
24 COMMON /RUNPAC/ DSN,HOST,USER
25 DOUBLE PRECISION FIXHEI,THICK0,HILOECM,HILOELB
26 REAL STEPFC
27 INTEGER NRRUN,NSHOW,PATAPE,MONIIN,MONIOU,MDEBUG,NUCNUC,
28 * SHOWNO,ISHW,NOPART,NRECS,NBLKS,MAXPRT,NDEBDL,
29 * N1STTR,MDBASE
30 INTEGER CETAPE
31 CHARACTER*79 DSN
32 CHARACTER*20 HOST,USER
33
34 LOGICAL DEBDEL,DEBUG,FDECAY,FEGS,FIRSTI,FIXINC,FIXTAR,
35 * FIX1I,FMUADD,FNKG,FPRINT,FDBASE
36 * ,GHEISH,GHESIG
37*KEEP,STACKF.
38 COMMON /STACKF/ STACK,STACKP,EXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM
39 INTEGER MAXSTK
40 PARAMETER (MAXSTK = 12*340*2)
41 DOUBLE PRECISION STACK(MAXSTK)
42 INTEGER STACKP,EXST,NSHIFT,NOUREC,ICOUNT,NTO,NFROM
43*KEND.
44
45C-----------------------------------------------------------------------
46
47 IF ( DEBUG ) WRITE(MDEBUG,*) 'ISTACK:'
48
49 NTO = 0
50 NFROM = 0
51 NOUREC = 0
52 NSHIFT = 0
53 STACKP = 0
54 ELEFT = 0.D0
55 ICOUNT = 1
56 RETURN
57 END
Note: See TracBrowser for help on using the repository browser.