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

changed variable used to transport the weight, tested with example that this...

changed variable used to transport the weight, tested with example that this works. Updated examples as well.
parent c8537d13
Branches
Tags
No related merge requests found
Source diff could not be displayed: it is too large. Options to address this: view the blob.
This diff is collapsed.
...@@ -302,7 +302,7 @@ C modified 5/15/06 for poinct ...@@ -302,7 +302,7 @@ C modified 5/15/06 for poinct
call get_file_event(spec%e%theta,spec%p%theta, call get_file_event(spec%e%theta,spec%p%theta,
> vertex%e%xptar,vertex%e%yptar,vertex%e%p, > vertex%e%xptar,vertex%e%yptar,vertex%e%p,
> vertex%p%xptar,vertex%p%yptar,vertex%p%p, > vertex%p%xptar,vertex%p%yptar,vertex%p%p,
> main%weight) > main%gen_weight)
if ( .not. ok_2pi) goto 100 if ( .not. ok_2pi) goto 100
vertex%e%delta = 100.*(vertex%e%P-spec%e%P)/spec%e%P vertex%e%delta = 100.*(vertex%e%P-spec%e%P)/spec%e%P
vertex%p%delta = 100.*(vertex%p%P-spec%p%P)/spec%p%P vertex%p%delta = 100.*(vertex%p%P-spec%p%P)/spec%p%P
......
...@@ -126,7 +126,7 @@ c ntu(11) = vertex%p%xptar !mr ...@@ -126,7 +126,7 @@ c ntu(11) = vertex%p%xptar !mr
ntu(32) = recon%theta_pq !theta_pq - radians ntu(32) = recon%theta_pq !theta_pq - radians
ntu(33) = recon%phi_pq !phi_pq - radians ntu(33) = recon%phi_pq !phi_pq - radians
if (doing_2pi) then if (doing_2pi) then
ntu(34) = main%weight !event weight ntu(34) = main%gen_weight !event weight
endif endif
if (doing_pion .or. doing_kaon .or. doing_delta) then if (doing_pion .or. doing_kaon .or. doing_delta) then
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment