FLA_Trsv.c File Reference

(r)


Functions

FLA_Error FLA_Trsv (FLA_Uplo uplo, FLA_Trans trans, FLA_Diag diag, FLA_Obj A, FLA_Obj x)
void FLA_F2C() fla_trsv_f (F_INT *uplo, F_INT *trans, F_INT *diag, F_INT *A, F_INT *x, F_INT *IERROR)

Variables

fla_trsv_tfla_trsv_cntl_blas

Function Documentation

FLA_Error FLA_Trsv ( FLA_Uplo  uplo,
FLA_Trans  trans,
FLA_Diag  diag,
FLA_Obj  A,
FLA_Obj  x 
)

References FLA_Check_error_level(), FLA_Trsv_check(), and FLA_Trsv_internal().

Referenced by fla_trsv_f().

00038 {
00039   FLA_Error r_val;
00040 
00041   // Check parameters.
00042   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00043     FLA_Trsv_check( uplo, trans, diag, A, x );
00044 
00045   // Invoke FLA_Trsv_internal() with flat control tree that simply calls
00046   // external wrapper.
00047   r_val = FLA_Trsv_internal( uplo, trans, diag, A, x, fla_trsv_cntl_blas );
00048 
00049   return r_val;
00050 }

void FLA_F2C() fla_trsv_f ( F_INT *  uplo,
F_INT *  trans,
F_INT *  diag,
F_INT *  A,
F_INT *  x,
F_INT *  IERROR 
)

References FLA_Trsv().

00054 {
00055   *IERROR = FLA_Trsv( *( ( FLA_Uplo  * ) uplo  ),
00056                       *( ( FLA_Trans * ) trans ),
00057                       *( ( FLA_Diag  * ) diag  ),
00058                       *( ( FLA_Obj   * ) A     ),
00059                       *( ( FLA_Obj   * ) x     ) );
00060 }


Variable Documentation


Generated on Mon Jul 6 05:45:53 2009 for libflame by  doxygen 1.5.9