Merging the VirtualMC branch to the main development branch (HEAD)

[u/mrichter/AliRoot.git] / GEANT321 / fluka / amga.F

diff --git a/GEANT321/fluka/amga.F b/GEANT321/fluka/amga.F
deleted file mode 100644 (file)
index 4b758a8..0000000
--- a/GEANT321/fluka/amga.F
+++ /dev/null
@@ -1,59 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1995/10/24 10:19:59  cernlib
-* Geant
-*
-*
-#include "geant321/pilot.h"
-*CMZ :  3.21/02 29/03/94  15.41.44  by  S.Giani
-*-- Author :
-*$ CREATE AMGA.FOR
-*COPY AMGA
-*
-*=== amga =============================================================*
-*
-      FUNCTION AMGA(IT)
- 
-#include "geant321/dblprc.inc"
-#include "geant321/dimpar.inc"
-#include "geant321/iounit.inc"
-C*** RANDOM SELECTION OF MASSES OF DECAYING PARTICLES
-      COMMON/FKABLT/AMM(110),GA(110),TAU(110),ICH(110)
-     *,IBAR(110),K1(110),K2(110)
-      COMMON /FKGAMR/ REDU,AMO,AM (15 )
-      DIMENSION GASUNI(14)
-      REAL RNDM(1)
-      SAVE GASUNI, GAUNO, GAUNON, IO, NSTAB
-      DATA GASUNI/
-     *-1.D0,-.98D0,-.95D0,-.87D0,-.72D0,-.48D0,-.17D0,.17D0,.48D0,
-     *.72D0,.87D0,.95D0,.98D0,1.D0/
-      DATA GAUNO/2.352D0/
-      DATA GAUNON/2.4D0/
-      DATA IO/14/
-      DATA NSTAB/23/
-      I=1
-      IF (IT.LE.0) GO TO 3
-      IF (IT.LE.NSTAB) GO TO 2
-      DGAUNI=GAUNO*GAUNON/(IO-1.D0)
-      CALL GRNDM(RNDM,1)
-      VV = RNDM(1)
-      VV = VV*2.D0-1.D0+1.D-16
-    1 CONTINUE
-      VO=GASUNI(I)
-      I=I+1
-      V1=GASUNI(I)
-      IF (VV.GT.V1) GO TO 1
-      UNIGA=DGAUNI*(I-2.D0+(VV-VO+1.D-16)/(V1-VO)-(IO-1.D0)*.5D0)
-      DAM=GA(IT)*UNIGA/GAUNO
-      AAM=AMM(IT)+DAM
-      AMGA=AAM
-      RETURN
-    2 CONTINUE
-      AMGA=AMM(IT)
-      RETURN
-    3 CONTINUE
-      AMGA=0.D0
-      RETURN
-      END