Commit 4b2a5b67 authored by ulrich_y's avatar ulrich_y

minor fixes

parent 24fbf983
......@@ -664,6 +664,7 @@ CONTAINS
write(msg2, 900) j, size(args,1), msg
call iprint(msg2,-1)
enddo
ttime = ttime+zero
write(msg2,901) size(args,1)/ttime(2)/1000., size(args,1)/ttime(1)/1000., int(ttime(2)/ttime(1))
call iprint(msg2,4)
......@@ -740,7 +741,7 @@ CONTAINS
call do_one_speed_test(pargs,9,"Muone planar")
write(9,*) "MUonE-non-planar"
call do_one_speed_test(nargs,9,"Muone non planar")
write(9,*) "Bhabha scattering"
write(9,*) "Bhabha-scattering"
call do_one_speed_test(bargs,9,"Bhabha scattering")
close(unit=9)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment