FLA_Ttmm.c File Reference

(r)

Functions
FLA_Error	FLA_Ttmm (FLA_Uplo uplo, FLA_Obj A)

Variables
fla_ttmm_t *	fla_ttmm_cntl_leaf
fla_ttmm_t *	fla_ttmm_cntl
fla_blocksize_t *	fla_ttmm_var1_bsize

Function Documentation

FLA_Ttmm()

FLA_Error FLA_Ttmm	(	FLA_Uplo	uplo,
		FLA_Obj	A )

{
  FLA_Datatype datatype;
  int          m_A, r_val = 0;
  int          FLA_TTMM_VAR1_BLOCKSIZE;
 
  // Check parameters.
  if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
    FLA_Ttmm_check( uplo, A );
 
  // Determine the datatype of the operation.
  datatype = FLA_Obj_datatype( A );
 
  // Extract the appropriate blocksize for the given datatype.
  FLA_TTMM_VAR1_BLOCKSIZE = FLA_Blocksize_extract( datatype, fla_ttmm_var1_bsize );
 
  // Determine the dimension of A.
  m_A = FLA_Obj_length( A );
 
  // Invoke FLA_Ttmm_internal() with the appropriate control tree.
  if      ( m_A <= FLA_TTMM_VAR1_BLOCKSIZE )
  {
    r_val = FLA_Ttmm_internal( uplo, A, fla_ttmm_cntl_leaf );
  }
  else if ( FLA_TTMM_VAR1_BLOCKSIZE < m_A )
  {
    r_val = FLA_Ttmm_internal( uplo, A, fla_ttmm_cntl );
  }
 
  return r_val;
}

References FLA_Blocksize_extract(), FLA_Check_error_level(), FLA_Obj_datatype(), FLA_Obj_length(), FLA_Ttmm_check(), fla_ttmm_cntl, fla_ttmm_cntl_leaf, FLA_Ttmm_internal(), and fla_ttmm_var1_bsize.

Variable Documentation

fla_ttmm_cntl

fla_ttmm_t* fla_ttmm_cntl

extern

Referenced by FLA_Ttmm(), FLA_Ttmm_cntl_finalize(), and FLA_Ttmm_cntl_init().

fla_ttmm_cntl_leaf

fla_ttmm_t* fla_ttmm_cntl_leaf

extern

Referenced by FLA_Ttmm().

fla_ttmm_var1_bsize

fla_blocksize_t* fla_ttmm_var1_bsize

extern

Referenced by FLA_Ttmm(), FLA_Ttmm_cntl_finalize(), and FLA_Ttmm_cntl_init().