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

      INCLUDE '(DBLPRC)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2004-2020      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*     PuSH SCintillaton Photon:                                        *
*                                                                      *
*     Created on 01 December 2004  by          Paola Sala              *
*                                             Infn - Milan             *
*                                                                      *
*     Last change on  04-Oct-20    by        Alfredo Ferrari           *
*                                               Private                *
*                                                                      *
*                                                                      *
*----------------------------------------------------------------------*
*
      RETURN
*=== End of subroutine Pshscp =========================================*
      END

