reset_spawned_list Subroutine

public subroutine reset_spawned_list()




Source Code

Source Code

    subroutine reset_spawned_list()
        ! also need a routine to reset the spawned lists before the second
        ! spawning step for the 2nd order RK method in the rt-fciqmc
        character(*), parameter :: this_routine = "reset_spawned_list"

        ! Reset positions to spawn into in the spawning array.
        ValidSpawnedList = InitialSpawnedSlots

        ! Clear the hash table for the spawning array.
        call clear_hash_table(spawn_ht)

        ! also reset the diagonal specific valid spawn list.. i think i
        ! can just reuse the InitialSpawnedSlots also
        valid_diag_spawns = 1

    end subroutine reset_spawned_list