Added additional output on screen.

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