********************************************* * SUBROUTINE MULTINIT * * Initialisation of variables before the * first particle is tracked ********************************************* IMPLICIT NONE * RETURN END