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