|
version 1.2, 2012/03/12 21:04:57
|
version 1.3, 2012/04/05 15:30:20
|
|
|
|
| radw = hfoil_exit_thick/hfoil_exit_radlen | radw = hfoil_exit_thick/hfoil_exit_radlen |
| if(ms_flag) call musc(m2,p,radw,dydzs,dxdzs) | if(ms_flag) call musc(m2,p,radw,dydzs,dxdzs) |
| radw = helbag_al_thick/helbag_al_radlen ! assume no distance to Helium bag Al mylar | radw = helbag_al_thick/helbag_al_radlen ! assume no distance to Helium bag Al mylar |
| ms_flag = .true. |
|
| if(ms_flag) call musc(m2,p,radw,dydzs,dxdzs) | if(ms_flag) call musc(m2,p,radw,dydzs,dxdzs) |
| radw = helbag_mylar_thick/helbag_mylar_radlen ! assume no distance to Helium bag Al mylar | radw = helbag_mylar_thick/helbag_mylar_radlen ! assume no distance to Helium bag Al mylar |
| if(ms_flag) call musc(m2,p,radw,dydzs,dxdzs) | if(ms_flag) call musc(m2,p,radw,dydzs,dxdzs) |
|
|
|
| if(ms_flag) call musc(m2,p,radw,dydzs,dxdzs) | if(ms_flag) call musc(m2,p,radw,dydzs,dxdzs) |
| radw = helbag_mylar_thick/helbag_mylar_radlen ! assume no distance to Helium bag Al mylar | radw = helbag_mylar_thick/helbag_mylar_radlen ! assume no distance to Helium bag Al mylar |
| if(ms_flag) call musc(m2,p,radw,dydzs,dxdzs) | if(ms_flag) call musc(m2,p,radw,dydzs,dxdzs) |
| ms_flag = .false. |
|
| endif | endif |
| endif | endif |
| | |
Return to
mc_shms_hut.f
CVS log
Up to [HallC] / simc_gfortran / shms