GEANT321/guser/guxcs.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:21:47  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/04 06/12/94  16.09.54  by  S.Ravndal
  11 *-- Author :    S.Ravndal   06/12/94
  12       SUBROUTINE GUXCS
  13 *
  14 *              User routine  to declare addresses of FORTRAN routines
  15 *              and COMMONs  which may be invoked from COMIS routines.
  16 *              Called by GXCS
  17 *
  18 #include "geant321/gcomis.inc"
  19 *
  20       DIMENSION P(1)
  21 *
  22 *
  23       END