* $Id$
*
* $Log$
+* Revision 1.1.1.1 1999/05/18 15:55:17 fca
+* AliRoot sources
+*
* Revision 1.1.1.1 1995/10/24 10:20:54 cernlib
* Geant
*
C. * *
C. ******************************************************************
C.
+ IMPLICIT DOUBLE PRECISION (A-H,O-Z)
#include "geant321/gconsp.inc"
- DIMENSION X(6), PAR(50), TPAR(50)
+ REAL X(6), PAR(50), SNEXT, SNXT, SAFE
+ DIMENSION TPAR(50)
C-----------------------------------------------------------------
SRIN = RIN
DIST = ABS (COSPHC * X(1) + SINPHC * X(2) - SRIN)
FACTC = (PT4 - PT2) * ZLENI
+ ELSE
+ PRINT *, 'GNPGON: FACTC not calculated!!!'
+ FACTC=0
ENDIF
ENDIF