LMU/musrsim
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added additional output on screen.

Browse Source
This commit is contained in:
prokscha
2007-02-07 11:06:43 +00:00
parent dbf6247017
commit 6979bd3606
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
geant3/src/lemsr/geant_lemsr_main.F
View File

@ -290,7 +290,11 @@ c
1 bfield(2), bfield(3) 1 bfield(2), bfield(3)
write(6,*) ' ' write(6,*) ' '
write(6,*) 'Initial muon polarization = ', bfield(4),' %.' 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,*) write(6,*)
c c
if ( bfield(1) .ne. 0. ) then if ( bfield(1) .ne. 0. ) then
write(6,*) '******************************************' write(6,*) '******************************************'
@ -328,6 +332,10 @@ c
1 '1.40002 cm.' 1 '1.40002 cm.'
write(6,*) ' ' write(6,*) ' '
endif 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------------------------------------- c-------------------------------------
c c