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)13FLA_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