*$ CREATE PSHCKP.FOR
*COPY PSHCKP
*
*=== Pshckp ===========================================================*
*
      SUBROUTINE PSHCKP ( PXCR  , PYCR  , PZCR  , EPHSMP, XTRKCR,
     &                    YTRKCR, ZTRKCR, ATRKCR, POXCR , POYCR ,
     &                    POZCR , WTRACK, ITFL   )

      INCLUDE '(DBLPRC)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
*
*----------------------------------------------------------------------*
*                                                                      *
*     PuSH CerenKov Photon:                                            *
*                                                                      *
*     Created on 01 december 2004  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 01-dec-04     by    Alfredo Ferrari               *
*                                                                      *
*                                                                      *
*----------------------------------------------------------------------*
*
      RETURN
*=== End of subroutine Pshckp =========================================*
      END

