|
version 1.1, 2010/04/22 14:13:57
|
version 1.2, 2010/05/06 14:16:41
|
|
|
|
| CALL GSMIXT(23,'SCINTILLATOR$',AScin,ZScin,1.03,2,WScin) | CALL GSMIXT(23,'SCINTILLATOR$',AScin,ZScin,1.03,2,WScin) |
| CALL GSMIXT(24,'KAPTON$',AKap,ZKap,1.42,4,WKap) | CALL GSMIXT(24,'KAPTON$',AKap,ZKap,1.42,4,WKap) |
| CALL GSMIXT(26,'LUCITE$',ALuc,ZLuc,1.18,2,WLuc) | CALL GSMIXT(26,'LUCITE$',ALuc,ZLuc,1.18,2,WLuc) |
| CALL GSMIXT(27,'NH3$',ANH3,ZNH3,0.5782,3,WNH3) |
C CALL GSMIXT(27,'NH3$',ANH3,ZNH3,0.5782,3,WNH3) |
| |
CALL GSMIXT(27,'NH3$',ANH3,ZNH3,Effdens,3,WNH3) |
| CALL GSMIXT(28,'KELF$',AKelF,ZKelF,2.39,3,WKelF) | CALL GSMIXT(28,'KELF$',AKelF,ZKelF,2.39,3,WKelF) |
| | |
| CALL GSMATE(25,'N2 GAS$',14.007,7.0,0.001165,32623.,0.,0,0) | CALL GSMATE(25,'N2 GAS$',14.007,7.0,0.001165,32623.,0.,0,0) |
| CALL GSMATE(29,'He 1K',4.0,2.0,0.145,650.5,0.,0,0) |
C CALL GSMATE(29,'He 1K',4.0,2.0,0.145,650.5,0.,0,0) |
| |
CALL GSMATE(29,'He 1K',4.0,2.0,Heldens,650.5,0.,0,0) |
| call init_lucite() | call init_lucite() |
| call init_tracker() | call init_tracker() |
| call init_cal() | call init_cal() |
Return to
ugeom.f
CVS log
Up to [HallC] / sane_geant_mc / SRC