source: JEM-EUSO/esaf_cc_at_lal/packages/simulation/externals/slast/src/kernel/random_output.F @ 114

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

actual version of ESAF at CCin2p3
File size: 461 bytes
Line 
1      SUBROUTINE RANDOM_OUTPUT
2#include "detector.inc"
3*
4      CALL HBOOK1(10,' ',1000,WAVE(1),WAVE(2),0.)
5      CALL HBOOK1(11,' ',1000,WAVE(1),WAVE(2),0.)
6*
7      DO i = 1, 1000000
8        CALL FLUOR_SPECTRUM(w)
9        CALL HF1(10,w,1.)
10        CALL CHERENKOV_SPECTRUM(w)
11        CALL HF1(11,w,1.)
12      ENDDO
13      CALL HRPUT(10,'auxilar/random.hbk','N')
14      CALL HRPUT(11,'auxilar/random.hbk','U')
15      CALL HDELET(10)
16      CALL HDELET(11)
17*
18      END
Note: See TracBrowser for help on using the repository browser.