GEANT321/fiface/flinit.F

   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