crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fixed the typo

Browse source
This commit is contained in:
Zhuoran Han 2018-08-10 09:22:08 -05:00
parent 7f015db343
commit e2774801a5
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/tallies/tally_filter_zernike.F90
View file

@ -133,7 +133,7 @@ contains
if (bin <= last) then
first = last - n
m = -n + (bin - first)*2
label = "Zernike expansion, Z" // trim(to_str((n-1))) // "," &
label = "Zernike expansion, Z" // trim(to_str(n)) // "," &
// trim(to_str(m))
exit
end if
@ -196,7 +196,7 @@ contains
integer, intent(in) :: bin
character(MAX_LINE_LEN) :: label
label = "Zernike expansion, Z" // trim(to_str(2*bin)) // ",0"
label = "Zernike expansion, Z" // trim(to_str(2*(bin-1))) // ",0"
end function text_label_zn_rad
!===============================================================================