readAPVals Subroutine

    subroutine readAPVals(apvals, ndets, initial)
        implicit none
        integer, intent(in) :: ndets
        real(dp), intent(in) :: apvals(lenof_sign + 1, ndets)
        integer, intent(in), optional :: initial

        integer :: j, k, start

        ! set all values of pops sum/iter using the read-in values from apvals
        ! this is used in popsfile read-in to get the values from the previous calculation

        def_default(start, initial, 1)

        do j = 1, ndets
            do k = 1, lenof_sign
                global_determinant_data(pos_pops_sum + k - 1, j) = apvals(k, j)
            end do
            global_determinant_data(pos_pops_iter, j) = apvals(lenof_sign + 1, j)
        end do
    end subroutine readAPVals