COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Zstackv.h
Go to the documentation of this file.
1 ! ###include "Zmaxdef.h"
2 ! ###include "Ztrack.h"
3  integer Max_stack_size
4  parameter (
5 #ifdef MAX_STACK
6  * Max_stack_size = MAX_STACK
7 #else
8  * Max_stack_size =15000
9 #endif
10  * )
11  integer Stack_pos
12  type(track):: Stack(Max_stack_size)
13  common /Zstack/ Stack, Stack_pos
parameter
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
integer
int integer
Definition: Zdef.h:3
track
Definition: Ztrack.h:44
MAX_STACK
#define MAX_STACK
Definition: Zmaxdef.h:7