1% 2% 3% Copyright (C) 2014, The University of Texas at Austin 4% 5% This file is part of libflame and is available under the 3-Clause 6% BSD license, which can be found in the LICENSE file at the top-level 7% directory, or at http://opensource.org/licenses/BSD-3-Clause 8% 9% 10n = 8; 11A = rand( n, n ) + n * eye( n, n ); 12B = rand( n, n ); 13 14Cref = B * tril( A ); 15 16norm( FLA_Trmm_rln_unb_var1( A, B ) - Cref, 1 ) 17norm( FLA_Trmm_rln_unb_var2( A, B ) - Cref, 1 ) 18norm( FLA_Trmm_rln_unb_var3( A, B ) - Cref, 1 ) 19norm( FLA_Trmm_rln_unb_var4( A, B ) - Cref, 1 ) 20 21norm( FLA_Trmm_rln_blk_var1( A, B, 3 ) - Cref, 1 ) 22norm( FLA_Trmm_rln_blk_var2( A, B, 3 ) - Cref, 1 ) 23norm( FLA_Trmm_rln_blk_var3( A, B, 3 ) - Cref, 1 ) 24norm( FLA_Trmm_rln_blk_var4( A, B, 3 ) - Cref, 1 ) 25