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 |
| |