source: JEM-EUSO/esaf_cc_at_lal/packages/simulation/externals/slast/src/kernel/slastinit.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: 590 bytes
Line 
1      SUBROUTINE SLASTINIT
2#include "detector.inc"
3#include "event.inc"
4#include "shower.inc"
5#include "paw.inc"
6
7      LOGICAL slast_aux,lowtran_aux,DEBUG/.FALSE./
8*     ... PAW STUFF ...
9      CHARACTER*1 HOPTION/'U'/
10      REAL t
11*
12      CALL TIMEX(t)
13      CALL HLIMIT(10 000 000)
14      IQUEST(10)=256000
15*     ... INITIALIZATIONS ...
16      OPEN(UNIT=16,FILE='.slastinit')
17      WRITE(6,*) 'slast.f77 initializations are saved into .slastinit'
18      IF(DEBUG) CALL TEST_INITPOINT
19      CALL HELLO
20      CALL INIT
21      CALL MESSAGE_INI
22      CALL LOWTRAN_INIT
23      CLOSE(16)
24      END
Note: See TracBrowser for help on using the repository browser.