1 |
* |
* |
2 |
* $Id: gptofv.F,v 3.1.1.1 2002/07/11 16:02:01 cafagna Exp $ |
* $Id: gptofv.F,v 3.2 2005/06/21 02:42:29 cafagna Exp $ |
3 |
* |
* |
4 |
* $Log: gptofv.F,v $ |
* $Log: gptofv.F,v $ |
5 |
|
* Revision 3.2 2005/06/21 02:42:29 cafagna |
6 |
|
* Major modification to the geometry and to the random number chain |
7 |
|
* |
8 |
* Revision 3.1.1.1 2002/07/11 16:02:01 cafagna |
* Revision 3.1.1.1 2002/07/11 16:02:01 cafagna |
9 |
* First GPAMELA release on CVS |
* First GPAMELA release on CVS |
10 |
* |
* |
96 |
CALL GSVOLU('S32X','BOX ',NMED,S32X, 3,IVOLU) |
CALL GSVOLU('S32X','BOX ',NMED,S32X, 3,IVOLU) |
97 |
|
|
98 |
c ml: 21/12/04: |
c ml: 21/12/04: |
99 |
NMED=MCF |
NMED=MAL |
100 |
* |
* |
101 |
* Define the SC11 volume |
* Define the SC11 volume |
102 |
* |
* |