Parent Directory | Revision Log
Neutron detector added. Geometry and GPCALOR package
1 | cafagna | 1.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 |
ViewVC Help | |
Powered by ViewVC 1.1.23 |