COSMOS v7.655  COSMOSv7655
(AirShowerMC)
mntiny.f
Go to the documentation of this file.
1 *
2 * $Id: mntiny.F,v 1.1.1.1 1996/03/07 14:31:32 mclareni Exp $
3 *
4 * $Log: mntiny.F,v $
5 * Revision 1.1.1.1 1996/03/07 14:31:32 mclareni
6 * Minuit
7 *
8 *
9  SUBROUTINE mntiny(EPSP1,EPSBAK)
10 *
11 * $Id: d506dp.inc,v 1.1.1.1 1996/03/07 14:31:32 mclareni Exp $
12 *
13 * $Log: d506dp.inc,v $
14 * Revision 1.1.1.1 1996/03/07 14:31:32 mclareni
15 * Minuit
16 *
17 *
18 *
19 *
20 * d506dp.inc
21 *
22 C ************ DOUBLE PRECISION VERSION *************
23  IMPLICIT DOUBLE PRECISION (a-h,o-z)
24 CC Compares its argument with the value 1.0, and returns
25 CC the value .TRUE. if they are equal. To find EPSMAC
26 CC safely by foiling the Fortran optimizer
27 CC
28  parameter(one=1.0)
29  epsbak = epsp1 - one
30  RETURN
31  END
parameter
integer npitbl real *nx parameter(n=101, npitbl=46, nx=n-1) real *8 uconst
z
nodes z
Definition: cstdatmos0.fNew2.h:93
mntiny
subroutine mntiny(EPSP1, EPSBAK)
Definition: mntiny.f:10
o
struct ob o[NpMax]
Definition: Zprivate.h:34
a
nodes a
Definition: cstdatmos0.fNew2.h:93
h
dE dx *! Nuc Int sampling table h
Definition: cblkMuInt.h:130