Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / fiface / flinit.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:19:53 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/03 07/10/94 18.34.51 by S.Giani
11*-- Author :
12 SUBROUTINE FLINIT
13#include "geant321/gcflag.inc"
14#include "geant321/gcunit.inc"
15#include "geant321/gccuts.inc"
16#include "geant321/gsecti.inc"
17#include "geant321/gcbank.inc"
18#include "geant321/gcnum.inc"
19#include "geant321/dimpar.inc"
20#if defined(CERNLIB_DOUBLE)
21#include "geant321/comcont.inc"
22#endif
23#include "geant321/comcon.inc"
24#include "geant321/iounit.inc"
25#include "geant321/gfkdis.inc"
26 CHARACTER*(*) SDUM
27 PARAMETER (SDUM=' ')
28#if defined(CERNLIB_DOUBLE)
29 DOUBLE PRECISION WHAT(6)
30#endif
31#if defined(CERNLIB_SINGLE)
32 REAL WHAT(6)
33#endif
34 DATA WHAT/6*0./
35#if defined(CERNLIB_UNIX)||defined(CERNLIB_VAX)
36 OPEN(UNIT=LUNERR,FILE='flukaerr.dat',STATUS='UNKNOWN')
37#endif
38#if defined(CERNLIB_IBM)
39 OPEN(UNIT=LUNERR,FILE='/FLUKAERR DAT')
40#endif
41 CALL FDNOPT
42 CALL FLKDT1
43 CALL FLKDT2
44 CALL FLKDT3
45 CALL FLKDT4
46 CALL FLKDT5
47 CALL FLKDT6
48 CALL FLKDT7
49 CALL FDEVAP
50 CALL FDPREE
51 CALL FKZERO
52 CALL EVVINI(WHAT,SDUM)
53 IFINIT(5)=1
54 print *,'*****************************************************'
55 print *,'** You are requesting the GEANT-FLUKA interface: **'
56 print *,'** for conditions and warnings see the comments **'
57 print *,'** in GUPHAD/GUHADR and/or the GEANT manual. **'
58 print *,'*****************************************************'
59*
60 END