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

Prevent ICE on gfortran 4.8

Browse source
This commit is contained in:
Paul Romano 2018-04-02 11:41:02 -05:00
parent 8a6c6d1398
commit 4be18cb9e9
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/mesh_header.F90
View file

@ -716,9 +716,9 @@ contains
if (index >= 1 .and. index <= n_meshes) then
associate (m => meshes(index))
if (allocated(m % lower_left)) then
ll = C_LOC(m % lower_left)
ur = C_LOC(m % upper_right)
width = C_LOC(m % width)
ll = C_LOC(m % lower_left(1))
ur = C_LOC(m % upper_right(1))
width = C_LOC(m % width(1))
n = m % n_dimension
else
err = E_ALLOCATE