mirror of
https://github.com/openmc-dev/openmc.git
synced 2026-07-27 13:45:36 -04:00
Deallocate CMFD arrays in openmc_finalize
This commit is contained in:
parent
8535a8953a
commit
f049f76bb4
2 changed files with 14 additions and 0 deletions
|
|
@ -348,5 +348,15 @@ int openmc_run_linsolver(const double* A_data, const double* b, double* x,
|
|||
}
|
||||
}
|
||||
|
||||
//==============================================================================
|
||||
// Fortran compatibility
|
||||
//==============================================================================
|
||||
|
||||
extern "C" void free_memory_cmfd()
|
||||
{
|
||||
cmfd::indptr.clear();
|
||||
cmfd::indices.clear();
|
||||
}
|
||||
|
||||
|
||||
} // namespace openmc
|
||||
Loading…
Add table
Add a link
Reference in a new issue