[u/mrichter/AliRoot.git] / GEANT321 / neutron / getpar.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:21:56  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.48  by  S.Giani
*-- Author :
      SUBROUTINE GETPAR(ID,N,IERR)
C retrieve particle from MPSTOR common
#include "geant321/mconst.inc"
#include "geant321/mpstor.inc"
#include "geant321/minput.inc"
      IERR = 0
      NN = 0
      NS = 1
   10 CONTINUE
      IF(IDN(NS).EQ.ID) NN = NN + 1
      IF(N.EQ.NN) GOTO 20
      NS = NS + 1
      IF(NS.GT.NPSTOR) THEN
         WRITE(IOUT,'('' MICAP: Cant retrieve particle no. '',I3,      '
     +   //'          '' of type '',I3,''; End of data '')') N,ID
         IERR = 1
         RETURN
      ENDIF
      GOTO 10
   20 CONTINUE
      EP = EN(NS)
      UP = UN(NS)
      VP = VN(NS)
      WP = WN(NS)
      AMP = AMN(NS)
      ZMP = ZMN(NS)
      AGEP = AGEN(NS)
      MTP = MTN(NS)
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:21:56 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.48 by S.Giani
	11	*-- Author :
	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"
	17	IERR = 0
	18	NN = 0
	19	NS = 1
	20	10 CONTINUE
	21	IF(IDN(NS).EQ.ID) NN = NN + 1
	22	IF(N.EQ.NN) GOTO 20
	23	NS = NS + 1
	24	IF(NS.GT.NPSTOR) THEN
	25	WRITE(IOUT,'('' MICAP: Cant retrieve particle no. '',I3, '
	26	+ //' '' of type '',I3,''; End of data '')') N,ID
	27	IERR = 1
	28	RETURN
	29	ENDIF
	30	GOTO 10
	31	20 CONTINUE
	32	EP = EN(NS)
	33	UP = UN(NS)
	34	VP = VN(NS)
	35	WP = WN(NS)
	36	AMP = AMN(NS)
	37	ZMP = ZMN(NS)
	38	AGEP = AGEN(NS)
	39	MTP = MTN(NS)
	40	RETURN
	41	END