set_spawn_factor Subroutine

    subroutine set_spawn_factor(f, j)
        ! Input: j - index of the CSF
        !        f - spawn scaling factor
        implicit none
        real(dp), intent(in) :: f
        integer, intent(in) :: j

        global_determinant_data(pos_scaling_factor, j) = f
    end subroutine set_spawn_factor