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

Fixed bug which caused runtime error with Intel compiler and DEBUG turned on.

Browse source
This commit is contained in:
Paul Romano 2012-05-03 10:40:01 -04:00
parent 84ca556661
commit a27f8f216e
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/mesh.F90
View file

@ -286,6 +286,9 @@ contains
ym1 = m % upper_right(2)
zm1 = m % upper_right(3)
! Set default value for intersects
intersects = .false.
! Check if line intersects bottom surface -- calculate the intersection
! point (y,z)
yi = y0 + (xm0 - x0) * (y1 - y0) / (x1 - x0)