From d80f58a7a09bd53c4be39c4c2f2e62664ccdaf38 Mon Sep 17 00:00:00 2001 From: fca Date: Sat, 24 Feb 2001 10:46:32 +0000 Subject: [PATCH] Moving to double precision and introducing an additional security check --- GEANT321/ggeom/gnpgon.F | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/GEANT321/ggeom/gnpgon.F b/GEANT321/ggeom/gnpgon.F index fbaf81d9116..f707b023e6a 100644 --- 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 -- 2.39.3