Moving to double precision and introducing an additional security check

[u/mrichter/AliRoot.git] / GEANT321 / ggeom / gnpgon.F

diff --git a/GEANT321/ggeom/gnpgon.F b/GEANT321/ggeom/gnpgon.F
index fbaf81d91167b13e586c392c0ba97d5bed502399..f707b023e6a0b4132ac12f8f3c10e4c326a38cc2 100644 (file)
--- a/GEANT321/ggeom/gnpgon.F
+++ b/GEANT321/ggeom/gnpgon.F
@@ -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