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