GEANT321/gdraw/gchnwk.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:18  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.25  by  S.Giani
  11 *-- Author :
  12 *
  13       SUBROUTINE GCHNWK
  14 *
  15 #include "geant321/gcbank.inc"
  16 #include "geant321/gcdraw.inc"
  17 #include "geant321/gcunit.inc"
  18 #include "geant321/gcflag.inc"
  19 #include "geant321/gcspee.inc"
  20 *
  21       SAVE FIRST
  22       LOGICAL FIRST
  23       DATA FIRST/.TRUE./
  24 *
  25       IF(FIRST)THEN
  26          FIRST=.FALSE.
  27          CALL IOPWK(2,1,9)
  28       ENDIF
  29       CALL IDAWK(1)
  30       CALL IACWK(2)
  31 *
  32  999  END