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