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

Remove work_index on Fortran side

Browse source
This commit is contained in:
Paul Romano 2018-10-15 07:45:26 -05:00
parent bbccbf436d
commit 242895e99b
7 changed files with 29 additions and 71 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/source.cpp
View file

@ -264,7 +264,7 @@ void initialize_source()
}
// Read in the source bank
read_source_bank(file_id, simulation::work_index.data(), source_bank);
read_source_bank(file_id, source_bank);
// Close file
file_close(file_id);
@ -287,7 +287,7 @@ void initialize_source()
write_message("Writing out initial source...", 5);
std::string filename = settings::path_output + "initial_source.h5";
hid_t file_id = file_open(filename, 'w', true);
write_source_bank(file_id, simulation::work_index.data(), source_bank);
write_source_bank(file_id, source_bank);
file_close(file_id);
}
}