********************************************************************
*                                                                  *
       BLOCK DATA RANGE
*                                                                  *
* Last modified on 19/01/2005  by R. Holzmann                      *
* Modified on 13/12/99  by R. Holzmann                             *
* include "hcons.inc" added for proper initialization of           *
* pi, dtor and rtod used in varangles.F                            *
*                                                                  *
* Remark:                                                          *
* Variables in common blocks that are interfaced to C++ with       *
* cfortran cannot be initialized here (->linker error!)            *
*                                                                  *
********************************************************************
       IMPLICIT none
#include "geantdef.h"
#include "user.inc"
#include "fields.inc"
#include "trig.inc"
#include "hcons.inc"
#include "geant321/gckine.inc"
#include "geatarget.inc"
#include "pmc.inc"
#include "branchings.inc"

#ifdef GEANT_REF
#include "gurefp.inc"
#include "guref.inc"
#include "gumat.inc"
#include "gufil.inc"
#endif

       DATA IRICH /0 /
       DATA IMDC /0 /
       DATA IKIN /0 /
       DATA IRPC /0 /
       DATA IWALL /0 /
       DATA IUSER /0 /       
       DATA IREFT /0/
       DATA ISECO /3, 0/
       DATA BFIELD /3.0/
       DATA FPOL /1.0/
       DATA IMAP /2 /
       DATA JVER /0,0,0/
       DATA IMACC /0 /
       DATA NSPLIT /1 /
       DATA IROOT /1 /
       DATA ITUP /1 /
       DATA BEAMPAR /0.7, 1.4, 1000.0, 1.0, 0.0, 0.0/
       DATA LTRIG /0 /
       DATA PKINE /0. ,0. ,0. ,0. ,0. ,0. ,0. ,0. ,0. ,0./
       DATA IKINE /0/
       DATA PI /3.141592654/
       DATA DTOR /0.01745329252/
       DATA RTOD /57.29577951/
       DATA LUNIT /10.0/
       DATA PMCK /0/
       DATA PMCF /1/
       
#ifdef GEANT_REF
       DATA NREF /0, 0, 0, 0/
       DATA DKIK0 /0.1, 0.2, 0.3, 0.4, 0., 0./
       DATA CREFF/'   '/
       DATA CSIGF/'   '/
       DATA CMATF/'   '/
       DATA CMATH/'   '/
#endif

       DATA brpi0 /6*0./
       DATA breta /6*0./
       DATA bromeg /6*0./
       DATA brrho /6*0./
       DATA brphi /6*0./
       DATA bretap /6*0./

       end