source: JEM-EUSO/esaf_cc_at_lal/packages/simulation/externals/slast/src/cherenkov/energy_threshold.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: 255 bytes
Line 
1      REAL FUNCTION ENERGY_THRESHOLD(S,ET)
2      IMPLICIT NONE
3#include "detector.inc"
4#include "shower.inc"
5      REAL S,ET,ENERGY_THRESHOLD_HILLAS
6      IF (DIST.EQ.1) THEN
7         ENERGY_THRESHOLD = ENERGY_THRESHOLD_HILLAS(S,ET)
8      ENDIF
9      END
Note: See TracBrowser for help on using the repository browser.