source: JEM-EUSO/esaf_lal/tags/v1_r0/esaf/packages/simulation/externals/slast/src/atm/atm.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: 173 bytes
Line 
1      REAL FUNCTION ATM(h)
2#include "detector.inc"
3      IF(ATMO.EQ.1) THEN
4         ATM = ATM1(h)
5      ELSEIF(ATMO.EQ.2) THEN
6         ATM = ATM2(h)
7      ENDIF
8      END
Note: See TracBrowser for help on using the repository browser.