From dc894e69f258ab1c219ab125139fb9f55be942d3 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 9 Dec 2022 20:13:30 -0500 Subject: [PATCH] OOF stuff --- src/setup/setup.f90 | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/src/setup/setup.f90 b/src/setup/setup.f90 index 835d1c995..9123514ad 100644 --- a/src/setup/setup.f90 +++ b/src/setup/setup.f90 @@ -73,11 +73,19 @@ module subroutine setup_construct_system(system, param) class is (symba_parameters) if (param%lencounter_save) then allocate(encounter_storage :: system%encounter_history) - allocate(encounter_io_parameters :: system%encounter_history%nce) - allocate(fraggle_io_parameters :: system%encounter_history%ncc) - call system%encounter_history%reset() - system%encounter_history%nce%file_number = param%iloop / param%dump_cadence - system%encounter_history%ncc%file_number = param%iloop / param%dump_cadence + associate (encounter_history => system%encounter_history) + allocate(encounter_io_parameters :: encounter_history%nce) + call encounter_history%reset() + select type(nce => encounter_history%nce) + class is (encounter_io_parameters) + nce%file_number = param%iloop / param%dump_cadence + end select + allocate(fraggle_io_parameters :: encounter_history%ncc) + select type(ncc => encounter_history%ncc) + class is (fraggle_io_parameters) + ncc%file_number = param%iloop / param%dump_cadence + end select + end associate end if end select end select