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

Resolves issue #1070

Browse source
This commit is contained in:
John Tramm 2018-09-13 14:02:10 -05:00
parent 74b7e53bbb
commit 60bd409f7f
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/hdf5_interface.cpp
View file

@ -748,6 +748,8 @@ const hid_t H5TypeMap<int>::type_id = H5T_NATIVE_INT;
template<>
const hid_t H5TypeMap<unsigned long>::type_id = H5T_NATIVE_ULONG;
template<>
const hid_t H5TypeMap<unsigned int>::type_id = H5T_NATIVE_UINT;
template<>
const hid_t H5TypeMap<int64_t>::type_id = H5T_NATIVE_INT64;
template<>
const hid_t H5TypeMap<double>::type_id = H5T_NATIVE_DOUBLE;

2
src/nuclide_header.F90
View file

@ -122,7 +122,7 @@ module nuclide_header
! Arbitrary value to indicate invalid cache state for elastic scattering
! (NuclideMicroXS % elastic)
real(8), parameter :: CACHE_INVALID = dble(Z"FFE0000000000000")
real(8), parameter :: CACHE_INVALID = -1
type, bind(C) :: NuclideMicroXS
! Microscopic cross sections in barns