|
version 1.10, 2006/01/18 15:50:44
|
version 1.11, 2006/01/19 01:41:14
|
|
|
|
| call grndm(rndm,3) | call grndm(rndm,3) |
| dptgt2=rndm(1)*0.200-0.100 | dptgt2=rndm(1)*0.200-0.100 |
| xfp=rndm(2)*80.00-40.00 | xfp=rndm(2)*80.00-40.00 |
| phfp=rndm(3)*5.0-2.5 |
phfp=rndm(3)*30.0-15.0 |
| |
c phfp=rndm(3)*0.00001-0.000005 |
| c | c |
| call grndm(rndm,3) | call grndm(rndm,3) |
| yfp=rndm(1)*60.00-30.00 | yfp=rndm(1)*60.00-30.00 |
| thfp=rndm(2)*5.0-2.5 |
thfp=rndm(2)*30.0-15.0 |
| |
c thfp=rndm(3)*0.00001-0.000005 |
| c | c |
| c write(6,*)'x,phi,y,theta,ok_spec =' | c write(6,*)'x,phi,y,theta,ok_spec =' |
| c write(6,*)xfp,phfp,yfp,thfp,ok_spec | c write(6,*)xfp,phfp,yfp,thfp,ok_spec |
Return to
gukine.f
CVS log
Up to [HallC] / geant_gep / src