writeFVals Subroutine

    subroutine writeFVals(fvals, ndets, initial)
        implicit none
        real(dp), intent(inout) :: fvals(:, :)
        integer, intent(in) :: ndets
        integer, intent(in), optional :: initial
        integer :: j, k, start

        def_default(start, initial, 1)

        ! write the acc. and tot. spawns per determinant in a contiguous array
        ! fvals(:,j) = (acc, tot) for determinant j (2*inum_runs in size)
        do j = 1, nDets
            do k = 1, inum_runs
                fvals(k, j) = get_acc_spawns(j + start - 1, k)
            end do
            do k = 1, inum_runs
                fvals(k + inum_runs, j) = get_tot_spawns(j + start - 1, k)
            end do
        end do
    end subroutine writeFVals