source: trunk/MagicSoft/Simulation/Corsika/Mmcs/dpfunc.f

Last change on this file was 286, checked in by harald, 25 years ago
This is the start point for further developments of the Magic Monte Carlo Simulation written by Jose Carlos Gonzales. Now it is under control of one CVS repository for the whole collaboration. Everyone should use this CVS repository for further developments.
File size: 553 bytes
Line 
1 DOUBLE PRECISION FUNCTION DPFUNC( ENER )
2
3C-----------------------------------------------------------------------
4C D(IFFRACTION) P(ORTION) FUNC(TION)
5C
6C CALCULATES THE FRACTION OF DIFFRACTION
7C THIS FUNCTION IS CALLED FROM HDPM
8C ARGUMNENT:
9C ENER = C.M. ENERGY
10C-----------------------------------------------------------------------
11
12 IMPLICIT NONE
13 DOUBLE PRECISION ENER
14C-----------------------------------------------------------------------
15
16C FUNCTION DPFUNC IS DUMMY
17 DPFUNC = 0.15D0
18
19 RETURN
20 END
Note: See TracBrowser for help on using the repository browser.