source: JEM-EUSO/esaf_lal/tags/v1_r0/esaf/packages/simulation/externals/slast/src/kernel/first_depth_hadron.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: 263 bytes
Line 
1      SUBROUTINE FIRST_DEPTH_HADRON
2#include "event.inc"
3#include "erandom.inc"
4      REAL*8 IntLen, RNDM
5      RNDM = ESAFRNDM()
6      IF(TYPER.LT.1000) THEN
7*     ... HADRONS ...
8        X1 = -LOG(RNDM)*REAL(IntLen(TYPER*1.D0,DBLE(EINT)))
9      ENDIF
10      END
Note: See TracBrowser for help on using the repository browser.