mirror of
https://github.com/openmc-dev/openmc.git
synced 2026-07-28 14:15:42 -04:00
removed low-hanging gnu fortran 4.6 specific code
This commit is contained in:
parent
9a8d42baf3
commit
73d9f7ce01
1 changed files with 1 additions and 6 deletions
|
|
@ -468,12 +468,7 @@ contains
|
|||
do i = 1, size(nuclides)
|
||||
call nuclides(i) % clear()
|
||||
end do
|
||||
|
||||
! WARNING: The following statement should work but doesn't under gfortran
|
||||
! 4.6 because of a bug. Technically, commenting this out leaves a memory
|
||||
! leak.
|
||||
|
||||
! deallocate(nuclides)
|
||||
deallocate(nuclides)
|
||||
end if
|
||||
|
||||
if (allocated(nuclides_0K)) then
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue