1function test64 2%TEST64 test GxB_*_subassign, scalar expansion, with and without duplicates 3 4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved. 5% SPDX-License-Identifier: Apache-2.0 6 7fprintf ('\n ------------------- quick test of GxB_*_subassign_scalar\n') ; 8 9Corig = sparse (rand (5,4)) ; 10 11% no accum, no duplicates in I 12C = Corig ; 13I = [2 3 5] ; 14J = [1 3] ; 15C (I,J) = 100 ; 16I0 = uint64 (I-1) ; 17J0 = uint64 (J-1) ; 18C2 = GB_mex_subassign (Corig, [], [], sparse (100), I0, J0, []) ; 19assert (isequal (C, C2.matrix)) 20 21% no accum, with duplicates in I 22C = Corig ; 23I = [2 2 5] ; 24J = [1 3] ; 25C (I,J) = 100 ; 26I0 = uint64 (I-1) ; 27J0 = uint64 (J-1) ; 28C2 = GB_mex_subassign (Corig, [], [], sparse (100), I0, J0, []) ; 29assert (isequal (C, C2.matrix)) 30 31% accum 'plus', no duplicates in I 32C = Corig ; 33I = [2 3 5] ; 34J = [1 3] ; 35C (I,J) = C (I,J) + 100 ; 36I0 = uint64 (I-1) ; 37J0 = uint64 (J-1) ; 38C2 = GB_mex_subassign (Corig, [], 'plus', sparse (100), I0, J0, []) ; 39assert (isequal (C, C2.matrix)) 40 41fprintf ('\ntest64: all tests passed\n') ; 42 43