5 * Revision 1.1.1.1 1995/10/24 10:21:56 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.48 by S.Giani
12 SUBROUTINE GETPAR(ID,N,IERR)
13 C retrieve particle from MPSTOR common
14 #include "geant321/mconst.inc"
15 #include "geant321/mpstor.inc"
16 #include "geant321/minput.inc"
21 IF(IDN(NS).EQ.ID) NN = NN + 1
25 WRITE(IOUT,'('' MICAP: Cant retrieve particle no. '',I3, '
26 + //' '' of type '',I3,''; End of data '')') N,ID