+*
+*
+* Hook to TFluka
+*
+ PXCR = EPHSMP * TXOPPH (LSTOPP)
+ PYCR = EPHSMP * TYOPPH (LSTOPP)
+ PZCR = EPHSMP * TZOPPH (LSTOPP)
+ POX = TXPOPP(LSTOPP)
+ POY = TYPOPP(LSTOPP)
+ POZ = TZPOPP(LSTOPP)
+ CALL pshckp(PXCR, PYCR, PZCR, EPHSMP, XTRKCR,
+ & YTRKCR , ZTRKCR, ATRKCR, POX, POY, POZ, WTRACK, ITFL)
+ NPROD = NPROD + 1
+ CALL ustckv(NPROD, MREG, XTRKCR, YTRKCR, ZTRKCR)
+*
+*
+*