distribute_spawns_kp_estimates Subroutine

public subroutine distribute_spawns_kp_estimates(nspawns_this_proc)

Uses

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: nspawns_this_proc

Contents

Source Code

distribute_spawns_kp_estimates

Source Code

    subroutine distribute_spawns_kp_estimates(nspawns_this_proc)

        use AnnihilationMod, only: SendProcNewParts
        use FciMCData, only: SpawnedParts, SpawnedParts2

        integer, intent(out) :: nspawns_this_proc
        integer(n_int), pointer :: PointTemp(:, :)

        call SendProcNewParts(nspawns_this_proc, .false.)

        PointTemp => SpawnedParts2
        SpawnedParts2 => SpawnedParts
        SpawnedParts => PointTemp

        nullify (PointTemp)

    end subroutine distribute_spawns_kp_estimates