Moving to double precision and introducing an additional security check
authorfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sat, 24 Feb 2001 10:46:32 +0000 (10:46 +0000)
committerfca <fca@f7af4fe6-9843-0410-8265-dc069ae4e863>
Sat, 24 Feb 2001 10:46:32 +0000 (10:46 +0000)
GEANT321/ggeom/gnpgon.F

index fbaf81d..f707b02 100644 (file)
@@ -2,6 +2,9 @@
 * $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
 *
@@ -31,9 +34,11 @@ C.    *         Author  A.McPherson,  P.Weidhaas  *********            *
 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-----------------------------------------------------------------
  
@@ -263,6 +268,9 @@ 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