*
* $Id$
*
* $Log$
*
*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                         *
*                                                                      *
************************************************************************
      INTEGER IFLAG
      RETURN
      END
