This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / fluka / dost.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:19:54  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.42  by  S.Giani
11 *-- Author :
12 *$ CREATE DOST.FOR
13 *COPY DOST
14 *                                                                      *
15 *=== dost==============================================================*
16 *                                                                      *
17       FUNCTION DOST(I,Z)
18  
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
22 C--------------------------------------------------------------------
23 C SUBNAME = DOST
24 C--------------------------------------------------------------------
25 #include "geant321/eva0.inc"
26 C--------------------------------------------------------------------
27       IF(Z-70.D0)1,2,2
28     2 DOST=T(I,7)
29     3 RETURN
30     1 IF(Z-10.D0)5,5,6
31     5 DOST=T(I,1)
32       GOTO3
33     6 N=.1D0*Z+1.D0
34       X=10*N
35       X=(X-Z)*.1D0
36       DOST=X*T(I,N-1)+(1.D0-X)*T(I,N)
37       GOTO3
38       END