Changing fabs into TMath::Abs

[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / hijsft.F

diff --git a/HIJING/hijing1_36/hijsft.F b/HIJING/hijing1_36/hijsft.F
index 54fa8eb4f55d2da9e8a7f1d564aca2b2c0e6c0de..e90b1c4ead091739021271a78b21d2886f33140b 100644 (file)
--- a/HIJING/hijing1_36/hijsft.F
+++ b/HIJING/hijing1_36/hijsft.F
@@ -8,6 +8,7 @@ C                                                                  *
 C  Scatter two excited strings, JP from proj and JT from target    *
 C*******************************************************************
        SUBROUTINE HIJSFT(JP,JT,JOUT,IERROR)
+#define BLANKET_SAVE
 #include "hijcrdn.inc"
 #include "hiparnt.inc"
 #include "hijdat.inc"