***********************************************************************
c   called by gukine before particle is generated
c
c   last modified on: 20/11/2015  by I. Koenig
c
      SUBROUTINE FWDETINIT

***********************************************************************
      IMPLICIT NONE
#include "fwdettuple.inc"

      RETURN
      END