gpamela/gpcalordes/mpstor.inc

*KEEP,MPSTOR.
      PARAMETER(IDNEU  = 1)
      PARAMETER(IDHEVY = 2)
      PARAMETER(IDGAMA = 3)
      COMMON/ MPSTOR / EN(MAXPAR),UN(MAXPAR),VN(MAXPAR),WN(MAXPAR),
     +                 AGEN(MAXPAR),MTN(MAXPAR),AMN(MAXPAR),
     +                 ZMN(MAXPAR),IDN(MAXPAR),
     +                 EP,UP,VP,WP,MTP,AGEP,AMP,ZMP,
     +                 NNEU,NHEVY,NGAMA,NPSTOR
1	*KEEP,MPSTOR.
2	PARAMETER(IDNEU = 1)
3	PARAMETER(IDHEVY = 2)
4	PARAMETER(IDGAMA = 3)
5	COMMON/ MPSTOR / EN(MAXPAR),UN(MAXPAR),VN(MAXPAR),WN(MAXPAR),
6	+ AGEN(MAXPAR),MTN(MAXPAR),AMN(MAXPAR),
7	+ ZMN(MAXPAR),IDN(MAXPAR),
8	+ EP,UP,VP,WP,MTP,AGEP,AMP,ZMP,
9	+ NNEU,NHEVY,NGAMA,NPSTOR