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 */
10 
11 #include "FLAME.h"
12 
FLA_Copyt_check(FLA_Trans trans,FLA_Obj A,FLA_Obj B)13 FLA_Error FLA_Copyt_check( FLA_Trans trans, FLA_Obj A, FLA_Obj B )
14 {
15   FLA_Error e_val;
16 
17   e_val = FLA_Check_valid_trans( trans );
18   FLA_Check_error_code( e_val );
19 
20   e_val = FLA_Check_valid_object_datatype( A );
21   FLA_Check_error_code( e_val );
22 
23   e_val = FLA_Check_nonconstant_object( B );
24   FLA_Check_error_code( e_val );
25 
26   e_val = FLA_Check_conformal_dims( trans, A, B );
27   FLA_Check_error_code( e_val );
28 
29   return FLA_SUCCESS;
30 }
31 
32