]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.2 1997/01/07 10:25:42 cernlib | |
6 | * Remove #ifdef CERNLIB_MAIN; this shall be done via Imakefile. | |
7 | * | |
8 | * Revision 1.1.1.1 1995/10/24 10:21:50 cernlib | |
9 | * Geant | |
10 | * | |
11 | * | |
12 | #include "geant321/pilot.h" | |
13 | *CMZ : 3.21/02 29/03/94 15.41.33 by S.Giani | |
14 | *-- Author : | |
15 | PROGRAM GXINT | |
16 | * | |
17 | * GEANT main program. To link with the MOTIF user interface | |
18 | * the routine GPAWPP(NWGEAN,NWPAW) should be called, whereas | |
19 | * the routine GPAW(NWGEAN,NWPAW) gives access to the basic | |
20 | * graphics version. | |
21 | * | |
22 | #if !defined(CERNLIB_IBM) | |
23 | PARAMETER (NWGEAN=3000000,NWPAW=1000000) | |
24 | #endif | |
25 | #if defined(CERNLIB_IBM) | |
26 | PARAMETER (NWGEAN=1000000,NWPAW=500000) | |
27 | #endif | |
28 | COMMON/GCBANK/GEANT(NWGEAN) | |
29 | COMMON/PAWC/PAW(NWPAW) | |
30 | #if defined(CERNLIB_HPUX) | |
31 | ON REAL UNDERFLOW IGNORE | |
32 | #endif | |
33 | * | |
34 | #if defined(CERNLIB_IBM) | |
35 | CALL INITC | |
36 | CALL ERRSET(151,999,-1) | |
37 | #endif | |
38 | #if (defined(CERNLIB_MOTIF))&&(!defined(CERNLIB_IBM)) | |
39 | CALL GPAWPP(NWGEAN,NWPAW) | |
40 | #endif | |
41 | #if !defined(CERNLIB_MOTIF)||defined(CERNLIB_IBM) | |
42 | CALL GPAW(NWGEAN,NWPAW) | |
43 | #endif | |
44 | * | |
45 | END | |
46 | SUBROUTINE QNEXT | |
47 | END | |
48 | #if !defined(CERNLIB_CZ) | |
49 | SUBROUTINE CZOPEN | |
50 | END | |
51 | SUBROUTINE CZTCP | |
52 | END | |
53 | SUBROUTINE CZCLOS | |
54 | END | |
55 | SUBROUTINE CZPUTA | |
56 | END | |
57 | #endif | |
58 | #if defined(CERNLIB_IBM) | |
59 | FUNCTION IOSCLR() | |
60 | IOSCLR=0 | |
61 | END | |
62 | #endif |