5 * Revision 1.1.1.1 1995/10/24 10:21:59 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.48 by S.Giani
12 SUBROUTINE STOPAR(ID,NP)
13 C store particle in MPSTOR common
14 #include "geant321/mconst.inc"
15 #include "geant321/mpstor.inc"
16 #include "geant321/minput.inc"
19 IF(NPSTOR.GT.MAXPAR) THEN
20 WRITE(IOUT,'('' MICAP : Cant store particle; bank full'', '
21 + //' '' ID='',I3,'' NPSTOR='',I5)') ID,NPSTOR