{
FLA_Error e_val = FLA_SUCCESS;
if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
{
e_val = FLA_Check_real_object( d );
FLA_Check_error_code( e_val );
e_val = FLA_Check_nonconstant_object( d );
FLA_Check_error_code( e_val );
}
FLA_Datatype dt_comp = FLA_Obj_datatype_proj_to_complex( d );
dim_t m_d = FLA_Obj_vector_dim( d );
dim_t k_accum = min( 32, m_d );
if ( G != NULL ) FLA_Obj_create( dt_comp, m_d-1, k_accum, 0, 0, G );
if ( H != NULL ) FLA_Obj_create( dt_comp, m_d-1, k_accum, 0, 0, H );
return FLA_SUCCESS;
}