FLA_Gemv.c File Reference

(r)


Functions

FLA_Error FLA_Gemv (FLA_Trans transa, FLA_Obj alpha, FLA_Obj A, FLA_Obj x, FLA_Obj beta, FLA_Obj y)
void FLA_F2C() fla_gemv_f (F_INT *transa, F_INT *alpha, F_INT *A, F_INT *x, F_INT *beta, F_INT *y, F_INT *IERROR)

Variables

fla_gemv_tfla_gemv_cntl_blas

Function Documentation

FLA_Error FLA_Gemv ( FLA_Trans  transa,
FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  x,
FLA_Obj  beta,
FLA_Obj  y 
)

References FLA_Check_error_level(), FLA_Gemv_check(), and FLA_Gemv_internal().

Referenced by fla_gemv_f().

00038 {
00039   FLA_Error r_val;
00040   
00041   // Check parameters.
00042   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00043     FLA_Gemv_check( transa, alpha, A, x, beta, y );
00044 
00045   // Invoke FLA_Gemv_internal() with flat control tree that simply calls
00046   // external wrapper.
00047   r_val = FLA_Gemv_internal( transa, alpha, A, x, beta, y, fla_gemv_cntl_blas );
00048 
00049   return r_val;
00050 }

void FLA_F2C() fla_gemv_f ( F_INT *  transa,
F_INT *  alpha,
F_INT *  A,
F_INT *  x,
F_INT *  beta,
F_INT *  y,
F_INT *  IERROR 
)

References FLA_Gemv().

00054 {
00055   *IERROR = FLA_Gemv( *( ( FLA_Trans * ) transa ),
00056                       *( ( FLA_Obj   * ) alpha  ),
00057                       *( ( FLA_Obj   * ) A      ),
00058                       *( ( FLA_Obj   * ) x      ),
00059                       *( ( FLA_Obj   * ) beta   ),
00060                       *( ( FLA_Obj   * ) y      ) );
00061 }


Variable Documentation


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