generate_spawn_buf Subroutine

public subroutine generate_spawn_buf()

Arguments

None

Source Code

    subroutine generate_spawn_buf()
        character(*), parameter :: this_routine = "generate_spawn_buf"

        call SendProcNewParts(spawnBufSize, .false.)
        call CompressSpawnedList(spawnBufSize, iter_data_fciqmc)

        if (tSemiStochastic) call add_semistoch_spawns(spawnedParts, spawnBufSize, spawn_ht, &
                                                       maxSpawned, CurrentDets)

        spawnBuf(:, 1:spawnBufSize) = SpawnedParts(:, 1:spawnBufSize)
    end subroutine generate_spawn_buf