GEANT321/gxint/gxint.F.ori

   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