Parent Directory
| 
Revision Log
- Introduced user-defined names of output files and random seeds number. Users can do it use options of PamVMCApplication constructor: PamVMCApplication(const char* name, const char *title, const char* filename="pamtest", Int_t seed=0). The Random object that I use is TRandom3 object which has astronomical large period (in case of default initialization 0). All random generators in the code use this object by calling of gRandom singleton which keeps it. - Corrected TOF digitization routine. No problems with TDC hits due to hadronic interactions anymore. - Some small changes was done to compile code under Root 5.23. + geant4_vmc v. 2.6 without any warnings - Some classes of PamG4RunConfiguartion was changed for geant4_vmc v. 2.6.Some obsolete classes was deleted as soon as developers implemented regions. - Navigation was changed from "geomRootToGeant4" to "geomRoot", because on VMC web page written that as soon as Geant4 has no option ONLY/MANY translation of overlapped geometry to Geant4 through VGM could be wrong. I'd like to stay with Root navigation: http://root.cern.ch/root/vmc/Geant4VMC.html. This should be default option. - New Tracker digitization routine written by Sergio was implemented - PamVMC again became compatible with geant4_vmc v.2.5 and ROOT 5.20. The problem was that ROOT developers introduced in TVirtualMC class a new method SetMagField and new base class:TVirtualMagField from which user-defined classes shoukd be derived
| 1 | nikolas | 1.1 | * |
| 2 | pam-rm2 | 1.5 | * $Id: gpgaus.F,v 1.1 2009-02-19 17:46:25 nikolas Exp $ |
| 3 | nikolas | 1.1 | * |
| 4 | * $Log: gpgaus.F,v $ | ||
| 5 | pam-rm2 | 1.5 | * Revision 1.1 2009-02-19 17:46:25 nikolas |
| 6 | * Cleaning up before releasing | ||
| 7 | * | ||
| 8 | nikolas | 1.1 | * Revision 3.1.1.1 2002/07/11 16:02:00 cafagna |
| 9 | * First GPAMELA release on CVS | ||
| 10 | * | ||
| 11 | * | ||
| 12 | *CMZ : 2.01/00 05/04/2000 14.35.18 by Marialuigia Ambriola | ||
| 13 | *CMZ : 2.00/00 03/03/2000 15.39.05 by Francesco Cafagna | ||
| 14 | *CMZ : 1.01/00 06/05/96 12.57.18 by Francesco Cafagna | ||
| 15 | *-- Author : Francesco Cafagna 03/05/96 | ||
| 16 | REAL FUNCTION GPGAUS(XDUMMY) | ||
| 17 | ************************************************************************ | ||
| 18 | * * | ||
| 19 | * To generate a normally distribute deviate with zero mean and unit variance * | ||
| 20 | * From GASDEV, Numerical recepies $7.3. * | ||
| 21 | * Variables definition: * | ||
| 22 | * IN: * | ||
| 23 | * XDUMMY, dummy argument * | ||
| 24 | * * | ||
| 25 | * Called by:<USER> * | ||
| 26 | * Author: Francesco Cafagna, 03/05/96 17.11.14 * | ||
| 27 | * * | ||
| 28 | ************************************************************************ | ||
| 29 | INTEGER ISET | ||
| 30 | REAL V1,V2,GAS1,RVAL(2),R | ||
| 31 | * | ||
| 32 | DATA ISET/0/ | ||
| 33 | * | ||
| 34 | * Generate a random number in the circle of radius 1 | ||
| 35 | * | ||
| 36 | IF (ISET.EQ.0) THEN | ||
| 37 | 10 CALL GRNDM(RVAL,2) | ||
| 38 | V1 = 2.*RVAL(1) -1. | ||
| 39 | V2 = 2.*RVAL(2) -1. | ||
| 40 | R = V1**2 + V2**2 | ||
| 41 | IF(R.GE.1.) GO TO 10 | ||
| 42 | GAS1 = V1 * SQRT(-2.*LOG(R)/R) | ||
| 43 | GPGAUS = V2 * SQRT(-2.*LOG(R)/R) | ||
| 44 | ISET = 1 | ||
| 45 | ELSE | ||
| 46 | GPGAUS = GAS1 | ||
| 47 | ISET = 0 | ||
| 48 | ENDIF | ||
| 49 | * | ||
| 50 | RETURN | ||
| 51 | END |
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |