set_spawn_factor Subroutine

public subroutine set_spawn_factor(f, j)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: f
integer, intent(in) :: j

Source Code

    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