crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 21:55:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Remove Fortan compatibility functions

Browse source
This commit is contained in:
Paul Romano 2019-02-21 16:04:21 -06:00
parent 6712de2ad9
commit 3cac2a6702
27 changed files with 115 additions and 635 deletions
Download patch file Download diff file Expand all files Collapse all files

38
src/bank.cpp
View file

@ -70,42 +70,4 @@ extern "C" int openmc_fission_bank(Bank** ptr, int64_t* n)
}
}
//==============================================================================
// Fortran compatibility
//==============================================================================
extern "C" int fission_bank_delayed_group(int64_t i) {
return simulation::fission_bank[i-1].delayed_group;
}
extern "C" double fission_bank_E(int64_t i) {
return simulation::fission_bank[i-1].E;
}
extern "C" double fission_bank_wgt(int64_t i) {
return simulation::fission_bank[i-1].wgt;
}
extern "C" void source_bank_xyz(int64_t i, double* xyz)
{
xyz[0] = simulation::source_bank[i-1].xyz[0];
xyz[1] = simulation::source_bank[i-1].xyz[1];
xyz[2] = simulation::source_bank[i-1].xyz[2];
}
extern "C" double source_bank_E(int64_t i)
{
return simulation::source_bank[i-1].E;
}
extern "C" double source_bank_wgt(int64_t i)
{
return simulation::source_bank[i-1].wgt;
}
extern "C" void source_bank_set_wgt(int64_t i, double wgt)
{
simulation::source_bank[i-1].wgt = wgt;
}
} // namespace openmc