1function test138 2%TEST138 test assign, with coarse-only tasks in IxJ slice 3 4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved. 5% SPDX-License-Identifier: Apache-2.0 6 7rng ('default') ; 8 9[save_nthreads save_chunk] = nthreads_get ; 10nthreads_set (2,1) ; 11 12n = 1000 ; 13k = 100 ; 14C = sparse (rand (n)) ; 15 16I = randperm (n,k) ; 17J = randperm (n,k) ; 18I0 = uint64 (I) - 1 ; 19J0 = uint64 (J) - 1 ; 20 21scalar = sparse (pi) ; 22 23C0 = C ; 24C0 (I,J) = scalar ; 25 26C1 = GB_mex_assign (C, [ ], [ ], scalar, I0, J0, [ ], 0) ; 27C2 = GB_spec_assign (C, [ ], [ ], scalar, I , J , [ ], true) ; 28GB_spec_compare (C1, C2) ; 29assert (isequal (C0, C1.matrix)) ; 30 31