COSMOS v7.655  COSMOSv7655
(AirShowerMC)
stand.f
Go to the documentation of this file.
1 *
2 * $Id: stand.F,v 1.1.1.1 1996/03/07 14:31:30 mclareni Exp $
3 *
4 * $Log: stand.F,v $
5 * Revision 1.1.1.1 1996/03/07 14:31:30 mclareni
6 * Minuit
7 *
8 *
9  SUBROUTINE stand
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 optional user-supplied subroutine is called whenever the
25 CC command "standard" appears.
26 CC
27  RETURN
28  END
z
nodes z
Definition: cstdatmos0.fNew2.h:93
o
struct ob o[NpMax]
Definition: Zprivate.h:34
a
nodes a
Definition: cstdatmos0.fNew2.h:93
stand
subroutine stand
Definition: stand.f:10
h
dE dx *! Nuc Int sampling table h
Definition: cblkMuInt.h:130