source: JEM-EUSO/esaf_lal/tags/v1_r0/esaf/packages/simulation/externals/slast/src/cherenkov/energy_threshold.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: 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.