--- gpamela/gpnd/gpcad.F	2006/10/13 16:36:58	1.1
+++ gpamela/gpnd/gpcad.F	2006/11/10 11:39:35	1.2
@@ -2,7 +2,7 @@
       SUBROUTINE GPCAD
 ************************************************************************
 *                                                                      *
-* To define special tracking parameters for cadmium                    *
+* To define special tracking parameters for Cadmium                    *
 *                                                                      *
 * Called by: GPDAT                                                     *
 * Author: Marialuigia Ambriola, 12/10/2006 20.40                       *
@@ -10,27 +10,30 @@
 ************************************************************************
 #include "gpcad.inc"
 *
-      CUTGAMCAD = 0.00001
-      CUTHADCAD = 0.001
-      BCUTECAD=0.00001
-      DCUTECAD=0.00001
-      CUTELECAD = 0.00001
-      CUTMUOCAD=0.01
-      BCUTMCAD=0.00001
-      DCUTMCAD=0.00001
-      CUTNEUCAD = 0.001
+      CUTGAMCAD = 0.0001
+      CUTELECAD = 0.0001
+      CUTNEUCAD = 0.0001
+      CUTHADCAD = 0.0001
+c ml:
+      BCUTECAD=0.001
+      DCUTECAD=0.0001
+      CUTMUOCAD=0.0001
+      BCUTMCAD=0.001
+      DCUTMCAD=0.0001
       PPCUTMCAD=0.01
-      PAIRCAD = 1  
-      COMPCAD = 1  
-      PHOTCAD = 1  
-      PFISCAD = 0  
-      DRAYCAD = 1  
-      ANNICAD = 1  
-      BREMCAD = 1  
-      HADRCAD = 1  
-      MUNUCAD = 1  
-      DCAYCAD = 1  
-      LOSSCAD = 1  
-      MULSCAD = 2  
+c end ml.
+      PAIRCAD = 1
+      COMPCAD = 1
+      PHOTCAD = 1
+      PFISCAD = 0
+      DRAYCAD = 1
+      ANNICAD = 1
+      BREMCAD = 1
+      HADRCAD = 4
+      MUNUCAD = 1
+      DCAYCAD = 1
+      LOSSCAD = 1
+      MULSCAD = 1
       RETURN
       END
+