**********************************************

      SUBROUTINE REFDIGI

*********************************************
      implicit none
C.    *                                                                *
C.    *       Routine called at the end of each event for writing      *
C.    *          reference tracks  (i.e. nref(1)=1)                    *
C.    *                                                                *
cSEQ,DRPARS,GUREF,GEOM.
c
c	local variables
c

#include "gurefp.inc"
#include "guref.inc"
#include "gumat.inc"

      if(nref(1).eq.1) call refdigi1
      if(nref(1).eq.2) call refdigi2      
      if(nref(1).eq.3) call refdigi3

	return
	end

************************************************

      SUBROUTINE DRFKIK(Y3L,Y4L,NKL)

************************************************

      implicit none 

#include "gurefp.inc"
#include "gumat.inc"

      real y3l,y4l,dkik,zdet3,zdet4
      integer nkl

      zdet3=3.
      zdet4=4.

      dkik=abs((y4l-y3l*zdet4/zdet3)/(zdet4-zdet3))

      if(dkik.lt.dkik0(1))then
         nkl=1
      else if(dkik.lt.dkik0(2))then
         nkl=2
      else if(dkik.lt.dkik0(3))then
         nkl=3
      else if(dkik.lt.dkik0(4))then
         nkl=4
      else
         nkl=5
      end if
       
      return
      end

********************************************************

      SUBROUTINE DRFPAD(X,Y,KDET,IPAD)

*********************************************************

      implicit none


      integer ipad,kdet
      real x,y

      ipad=1

      return
      end 

**********************************************************