Geant4  9.6.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
main.F
Go to the documentation of this file.
1 #ifdef batch
2 
3  PROGRAM main
4 *
5 *
6  parameter(ngbank=500000, nhbook=5000)
7  common/gcbank/q(ngbank)
8  common/pawc /h(nhbook)
9 *
10  CALL gzebra( ngbank)
11  CALL hlimit(-nhbook)
12 *
13 * *** initialize higz
14  CALL hplint(0)
15 *
16 * *** geant initialisation
17  CALL uginit
18 *
19 * *** start events processing
20  CALL grun
21 *
22 * *** End of run
23  CALL uglast
24 *
25  stop
26  END
27 
28 #else
29 
30  PROGRAM main
31 *
32 * geant main program. to link with the motif user interface
33 * the routine gpawpp(nwgean,nwpaw) should be called, whereas
34 * the routine gpaw(nwgean,nwpaw) gives access to the basic
35 * graphics version.
36 *
37  parameter(nwgean=3000000, nwpaw=1000000)
38  common/gcbank/geant(nwgean)
39  common/pawc /paw(nwpaw)
40 *
41 *
42  CALL gpaw(nwgean,nwpaw)
43 *
44  END
45 *
46  SUBROUTINE qnext
47  END
48 *
49  SUBROUTINE czopen
50  END
51 *
52  SUBROUTINE cztcp
53  END
54 *
55  SUBROUTINE czclos
56  END
57 *
58  SUBROUTINE czputa
59  END
60 
61 #endif