source: JEM-EUSO/esaf_cc_at_lal/packages/simulation/externals/slast/src/kernel/surface_point.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: 362 bytes
Line 
1      SUBROUTINE SURFACE_POINT(R1,A1)
2      IMPLICIT NONE
3#include "detector.inc"
4#include "erandom.inc"
5#include "constants.inc"
6
7*
8*     ... OUTPUT VARIAVLES ...
9      REAL R1,A1
10*     ... TAKE RANDOM RADIUS ON THE SURFACE ...
11      R1 = SDIA/2*SQRT(ESAFRNDM())
12*     ... TAKE RANDOM ANGLE ON THE SURFACE ...
13      A1 = 360*ESAFRNDM()
14*
15      RETURN
16      END
Note: See TracBrowser for help on using the repository browser.