check_walker_number Subroutine

    subroutine check_walker_number(iter_data, message)
        implicit none
        type(fcimc_iter_data), intent(in) :: iter_data
        character(len=*), intent(in) :: message
        real(dp) :: growth(lenof_sign)

        growth = iter_data%nborn &
                 - iter_data%ndied - iter_data%nannihil &
                 - iter_data%naborted - iter_data%nremoved

        print *, message, "Iter data growth:", growth

    end subroutine check_walker_number