source/include/gxint321.f

0001 *
0002 * $Id$
0003 *
0004 * $Log$
0005 * Revision 1.2  1997/01/07 10:25:42  cernlib
0006 * Remove #ifdef CERNLIB_MAIN; this shall be done via Imakefile.
0007 *
0008 * Revision 1.1.1.1  1995/10/24 10:21:50  cernlib
0009 * Geant
0010 *
0011 *
0012 *CMZ :  3.21/02 29/03/94  15.41.33  by  S.Giani
0013 *-- Author :
0014       PROGRAM GXINT
0015 *
0016 *     GEANT main program. To link with the MOTIF user interface
0017 *     the routine GPAWPP(NWGEAN,NWPAW) should be called, whereas
0018 *     the routine GPAW(NWGEAN,NWPAW) gives access to the basic
0019 *     graphics version.
0020 *
0021       PARAMETER (NWGEAN=3000000,NWPAW=1000000)
0022       COMMON/GCBANK/GEANT(NWGEAN)
0023       COMMON/PAWC/PAW(NWPAW)
0024 *
0025       CALL GPAW(NWGEAN,NWPAW)
0026 *
0027       END
0028       SUBROUTINE QNEXT
0029       END
0030       SUBROUTINE CZOPEN
0031       END
0032       SUBROUTINE CZTCP
0033       END
0034       SUBROUTINE CZCLOS
0035       END
0036       SUBROUTINE CZPUTA
0037       END