source: JEM-EUSO/esaf_lal/tags/v1_r0/esaf/packages/simulation/externals/slast/src/cherenkov/cherenkov_spectrum.F @ 117

Last change on this file since 117 was 117, checked in by moretto, 11 years ago

ESAF version compilable on mac OS
File size: 479 bytes
Line 
1      SUBROUTINE CHERENKOV_SPECTRUM(randomwave)
2      IMPLICIT NONE
3#include "detector.inc"
4#include "erandom.inc"
5*
6*     ... OUTPUT VARIAVLES ...
7      REAL randomwave
8*     ... LOCAL VARIABLES  ...
9      REAL*8 W
10*     GENERATE WAVELENGTH ACCORDING TO 1/Lambda^2 DISTRIBUTION
11*     GENERATE FREQUENCY W=1/LAMBDA UNIFORMLY IN W1,W2 INTERVAL AND THEN CONVERT IT TO THE WAVELENGTH
12      W = 1./WAVE(1) + (1./WAVE(2)-1./WAVE(1))*ESAFRNDM()     
13      RANDOMWAVE = 1./W
14      END
Note: See TracBrowser for help on using the repository browser.