From 6979bd3606a9a9b0c0c12ed1e033343e5cb3b069 Mon Sep 17 00:00:00 2001 From: Thomas Prokscha Date: Wed, 7 Feb 2007 11:06:43 +0000 Subject: [PATCH] Added additional output on screen. --- geant3/src/lemsr/geant_lemsr_main.F | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/geant3/src/lemsr/geant_lemsr_main.F b/geant3/src/lemsr/geant_lemsr_main.F index 1a9c221..dd65568 100644 --- a/geant3/src/lemsr/geant_lemsr_main.F +++ b/geant3/src/lemsr/geant_lemsr_main.F @@ -290,7 +290,11 @@ c 1 bfield(2), bfield(3) write(6,*) ' ' write(6,*) 'Initial muon polarization = ', bfield(4),' %.' + write(6,*) 'Polarization in sample = ', bfield(5),' %.' + write(6,*) 'Exponential relaxation = ', + 1 1000.*beam_parameter(4),' MHz' write(6,*) + c if ( bfield(1) .ne. 0. ) then write(6,*) '******************************************' @@ -328,6 +332,10 @@ c 1 '1.40002 cm.' write(6,*) ' ' endif + + write(6,*) 'Offsets: x0 = ', beam_parameter(1),' cm.' + write(6,*) 'Offsets: y0 = ', beam_parameter(2),' cm.' + write(6,*) 'Beam radius = ', beam_parameter(3)*R_MCP,' cm.' c c------------------------------------- c