Adding code for handling universes and other Fortran-side cell attributes. Skipping geometry writeout for CAD runs for now.

This commit is contained in:
shriwise 2018-05-15 11:55:09 -05:00 committed by pshriwise
parent 8dc0ba2b62
commit 3f2fc67d0b
3 changed files with 77 additions and 1 deletions

View file

@ -8,6 +8,14 @@ namespace openmc {
extern "C" void
write_geometry(hid_t file_id) {
#ifdef CAD
if (dagmc) {
return;
}
#endif
auto geom_group = create_group(file_id, "geometry");
write_attribute(geom_group, "n_cells", cells.size());
write_attribute(geom_group, "n_surfaces", surfaces.size());