rlu_hijing has to be float to work correctly with gfortran (Fedora Core 7)
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 15 Aug 2007 17:14:00 +0000 (17:14 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 15 Aug 2007 17:14:00 +0000 (17:14 +0000)
HIJING/AliHijingRndm.cxx

index 0aad668..9840e84 100644 (file)
@@ -68,13 +68,13 @@ extern "C" {
   void rluset_hijing(Int_t & /*lfn*/, Int_t & /*move*/)
   {printf("Dummy version of rluset_hijing reached\n");}
 
-  Double_t rlu_hijing(Int_t & /*idum*/) 
+  Float_t rlu_hijing(Int_t & /*idum*/) 
   {
     // Wrapper to FINCTION RLU_HIJING from HIJING
     // Uses static method to retrieve the pointer to the (C++) generator
       Double_t r;
       do r=AliHijingRndm::GetHijingRandom()->Rndm(); 
       while(0 >= r || r >= 1);
-      return r;
+      return (Float_t)r;
   }
 }