store_spawn Subroutine

    subroutine store_spawn(j, spawn_sgn)
        implicit none
        integer, intent(in) :: j
        real(dp), intent(in) :: spawn_sgn(lenof_sign)

        integer :: part

        do part = 1, lenof_sign
            if (spawn_sgn(part) > eps) then
                global_determinant_data(pos_pos_spawns + part - 1, j) = &
                    global_determinant_data(pos_pos_spawns + part - 1, j) + abs(spawn_sgn(part))
            else if (spawn_sgn(part) < -eps) then
                global_determinant_data(pos_neg_spawns + part - 1, j) = &
                    global_determinant_data(pos_neg_spawns + part - 1, j) + abs(spawn_sgn(part))
            end if
        end do
    end subroutine store_spawn