Updates needed for FLUKA2005.6

[u/mrichter/AliRoot.git] / TFluka / crnkvp.f

diff --git a/TFluka/crnkvp.f b/TFluka/crnkvp.f
index 7a3fb0eff5e1812c4d6fb1d5b06915650f3d9908..55198f950464ac7578263bbf3d3bd8dca579a4df 100644 (file)
--- a/TFluka/crnkvp.f
+++ b/TFluka/crnkvp.f
@@ -35,12 +35,12 @@
 *----------------------------------------------------------------------*
 *
       INCLUDE '(FHEAVY)'
-      INCLUDE '(MAPA)'
+      INCLUDE '(FLKMAT)'
       INCLUDE '(MULBOU)'
       INCLUDE '(OPPHCM)'
       INCLUDE '(OPPHST)'
       INCLUDE '(PAPROP)'
-      INCLUDE '(STARS)'
+      INCLUDE '(SUMCOU)'
       INCLUDE '(TRACKR)'
 *
       PARAMETER ( CSNPRN = 100.D+00 * CSNNRM )
@@ -429,7 +429,7 @@ D    &              SCADOT
 *
 *
 *  |  !!!!!! Here Stuprf should be used !!!!!!
-         LOUOPP (LSTOPP) = ITFL
+         LOUOPP (LSTOPP) = LLOUSE
          DO 2100 ISPR = 1, MKBMX1
             SPAROK (ISPR,LSTOPP) = SPAUSR (ISPR)
  2100    CONTINUE