gpamela/gpxint/gxint.F

*
* $Id$
*
* $Log$
*
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.06  by  Francesco Cafagna
*CMZ :  1.00/02 06/12/95  16.05.16  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   06/12/95
CDECK  ID>, GXINT.
*CMZ :  3.16/00 06/12/93  11.22.04  by  Federico Carminati
*-- Author :    Rene Brun   03/01/89
      PROGRAM GXINT
*
*     GEANT main program. To link with the MOTIF user interface
*     the routine GPAWPP(NWGEAN,NWPAW) should be called, whereas
*     the routine GPAW(NWGEAN,NWPAW) gives access to the basic
*     graphics version.
*
#include "gpmem.inc"
#include "gpzcom.inc"
#include "gpzhbo.inc"
*
#if defined(GPAMELA_X11)
      CALL GPAW(NWGEAN,NWPAW)
#endif
#if defined(GPAMELA_PP)
      CALL GPAWPP(NWGEAN,NWPAW)
#endif
      END
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola
7			*CMZ : 2.00/00 03/03/2000 15.39.06 by Francesco Cafagna
8			*CMZ : 1.00/02 06/12/95 16.05.16 by Francesco Cafagna
9			*-- Author : Francesco Cafagna 06/12/95
10			CDECK ID>, GXINT.
11			*CMZ : 3.16/00 06/12/93 11.22.04 by Federico Carminati
12			*-- Author : Rene Brun 03/01/89
13			PROGRAM GXINT
14			*
15			* GEANT main program. To link with the MOTIF user interface
16			* the routine GPAWPP(NWGEAN,NWPAW) should be called, whereas
17			* the routine GPAW(NWGEAN,NWPAW) gives access to the basic
18			* graphics version.
19			*
20			#include "gpmem.inc"
21			#include "gpzcom.inc"
22			#include "gpzhbo.inc"
23			*
24			#if defined(GPAMELA_X11)
25			CALL GPAW(NWGEAN,NWPAW)
26			#endif
27			#if defined(GPAMELA_PP)
28			CALL GPAWPP(NWGEAN,NWPAW)
29			#endif
30			END