|
version 1.8, 2005/10/11 22:54:47
|
version 1.12, 2006/01/21 19:39:17
|
|
|
|
| z=0.0 | z=0.0 |
| dxdz=tan(phtgt*3.14159265/180.0) | dxdz=tan(phtgt*3.14159265/180.0) |
| dydz=tan(thtgt*3.14159265/180.0) | dydz=tan(thtgt*3.14159265/180.0) |
| c write(*,*)p_spec,th_spec,dpp |
if(nevent.le.2)write(*,*)'******** mom = ',p_spec,' ******' |
| c write(*,*)x,y,z | c write(*,*)x,y,z |
| c write(*,*)dxdz,dydz | c write(*,*)dxdz,dydz |
| c | c |
|
|
|
| c phie=-.025+rndm(1)*.050 | c phie=-.025+rndm(1)*.050 |
| c thetae=-.009+rndm(2)*.018 | c thetae=-.009+rndm(2)*.018 |
| if(pcentral.ge.5000) then | if(pcentral.ge.5000) then |
| |
c phie=-.00+rndm(1)*.00 |
| |
c thetae=-.00+rndm(2)*.00 |
| phie=-.130+rndm(1)*.260 | phie=-.130+rndm(1)*.260 |
| thetae=-.065+rndm(2)*.130 | thetae=-.065+rndm(2)*.130 |
| else if(pcentral.ge.3000.and.pcentral.lt.5000) then | else if(pcentral.ge.3000.and.pcentral.lt.5000) then |
Return to
gukine.f
CVS log
Up to [HallC] / geant_gep / src