*********************************************************************** c called by gukine before particle is generated c c last modified on: 20/11/2015 by I. Koenig c SUBROUTINE FRPCINIT *********************************************************************** IMPLICIT NONE #include "frpctuple.inc" RETURN END