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

And did the same formatting fixes for endf_header.

Browse source
This commit is contained in:
Adam Nelson 2013-04-05 10:05:36 -04:00
parent c67eb2c90a
commit 5111b02e06
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/endf_header.F90
View file

@ -30,10 +30,10 @@ module endf_header
class(Tab1), intent(inout) :: this ! The Tab1 to clear
if (allocated(this % nbt)) &
deallocate(this % nbt, this % int)
deallocate(this % nbt, this % int)
if (allocated(this % x)) &
deallocate(this % x, this % y)
deallocate(this % x, this % y)
end subroutine Tab1_clear