source: JEM-EUSO/esaf_cc_at_lal/packages/simulation/externals/slast/src/kernel/firstpoint.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: 239 bytes
Line 
1      SUBROUTINE FIRSTPOINT(Lmax)
2      IMPLICIT NONE
3#include "event.inc"
4      REAL Lmax
5     
6      IF(TYPER.LT.1000) THEN
7        CALL FIRSTPOINT_HADRON(Lmax)
8      ELSE
9        CALL FIRSTPOINT_NEUTRINO(Lmax)
10      ENDIF
11*
12      END
13
Note: See TracBrowser for help on using the repository browser.