Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(fcimc_iter_data), | intent(inout) | :: | iter_data |
subroutine update_iter_data(iter_data)
type(fcimc_iter_data), intent(inout) :: iter_data
iter_data%update_growth = iter_data%update_growth + iter_data%nborn &
- iter_data%ndied - iter_data%nannihil &
- iter_data%naborted - iter_data%nremoved
iter_data%update_iters = iter_data%update_iters + 1
end subroutine update_iter_data