*
* $Id: gpukin.F,v 3.2 2005/12/14 03:12:43 cafagna Exp $
*
* $Log: gpukin.F,v $
* Revision 3.2  2005/12/14 03:12:43  cafagna
* Neutron detector added. Geometry and GPCALOR package
*
* Revision 3.1.1.1  2002/07/11 16:02:00  cafagna
* First GPAMELA release on CVS
*
*
*CMZ :  2.01/00 05/04/2000  14.35.18  by  Marialuigia Ambriola
*CMZ :  2.00/00 03/03/2000  15.39.05  by  Francesco Cafagna
*CMZ :  1.00/03 15/04/96  17.01.33  by  Francesco Cafagna
*-- Author :    Francesco Cafagna   15/04/96
      SUBROUTINE GPUKIN(IFLAG)
************************************************************************
*                                                                      *
* User routine called in GUKINE to pass the control to GPAMELA user    *
* before and after VERTEX and KINE definitions                         *
*                                                                      *
* Variables definition:                                                *
* IN:                                                                  *
*  IFLAG = 1, before GSVERT and GSKINE calls in GUKINE                 *
*  IFLAG = 2, after  GSVERT and GSKINE calls in GUKINE                 *
*                                                                      *
* Called by: GUKINE                                                    *
* Author: Francesco Cafagna, 15/04/96 15.26.03                         *
*                                                                      *
************************************************************************
#include "gcflag.inc"
#include "gckine.inc"
#include "gconst.inc"
#include "gpkine.inc"
#include "gpgene.inc"
#include "gpkey.inc"
#include "gpgeo.inc"
            
      RETURN
      END

