Skip to content
Snippets Groups Projects
Commit 8cd70159 authored by Sylvester Joosten's avatar Sylvester Joosten
Browse files

bugfix

parent fbeab2a6
Branches
Tags
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 3 additions and 5 deletions
simc/get_file_event.f
+ 3
− 5
View file @ 8cd70159
subroutine get_file_event(e_arm,th_spec_e,th_spec_p, subroutine get_file_event(e_arm,th_spec_e,th_spec_p,
> dxdz,dydz,e_mom,e_E,dxdzp,dydzp,p_mom, > dxdz,dydz,e_mom,e_E,dxdzp,dydzp,p_mom,p_E,
> targ_z, targ_zoffset, weight) > targ_z, targ_zoffset, weight)
c c
c input variables: c input variables:
...@@ -94,8 +94,6 @@ c --> the HMS is at negative angles, and the SHMS at positive angles ...@@ -94,8 +94,6 @@ c --> the HMS is at negative angles, and the SHMS at positive angles
endif endif
cc SIMC only knows of a single vertex position, so even though we read cc SIMC only knows of a single vertex position, so even though we read
cc two values, we only use a single one (they should match anyway in cc two values, we only use a single one (they should match anyway in
cc most cases)
targ_z = HMS_vz * 1.
if(e_vz * p_vz .gt. 0) then if(e_vz * p_vz .gt. 0) then
targ_z = e_vz + targ_zoffset targ_z = e_vz + targ_zoffset
endif endif
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment