FLASH_blas2_prototypes.h File Reference

(r)

Go to the source code of this file.

Functions

FLA_Error FLASH_Gemv (FLA_Trans transa, FLA_Obj alpha, FLA_Obj A, FLA_Obj x, FLA_Obj beta, FLA_Obj y)
FLA_Error FLASH_Trsv (FLA_Uplo uplo, FLA_Trans transa, FLA_Diag diag, FLA_Obj A, FLA_Obj x)
void FLA_F2C() flash_gemv_f (F_INT *transa, F_INT *alpha, F_INT *A, F_INT *x, F_INT *beta, F_INT *y, F_INT *IERROR)
void FLA_F2C() flash_trsv_f (F_INT *uplo, F_INT *transa, F_INT *diag, F_INT *A, F_INT *x, F_INT *IERROR)


Function Documentation

FLA_Error FLASH_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(), FLA_Gemv_internal(), FLASH_Queue_disable(), FLASH_Queue_enable(), and FLASH_Queue_get_enabled().

Referenced by flash_gemv_f().

00038 {
00039   FLA_Error r_val;
00040   FLA_Bool  enable_supermatrix;
00041   
00042   // Check parameters.
00043   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00044     FLA_Gemv_check( transa, alpha, A, x, beta, y );
00045 
00046   // Find the status of SuperMatrix.
00047   enable_supermatrix = FLASH_Queue_get_enabled();
00048 
00049   // Temporarily disable SuperMatrix.
00050   FLASH_Queue_disable();
00051 
00052   // Execute tasks.
00053   r_val = FLA_Gemv_internal( transa, alpha, A, x, beta, y, flash_gemv_cntl_fm_rp );
00054 
00055   // Restore SuperMatrix to its previous status.
00056   if ( enable_supermatrix )
00057      FLASH_Queue_enable();
00058   
00059   return r_val;
00060 }

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

References FLASH_Gemv().

00064 {
00065   *IERROR = FLASH_Gemv( *( ( FLA_Trans * ) transa ),
00066                         *( ( FLA_Obj   * ) alpha  ),
00067                         *( ( FLA_Obj   * ) A      ),
00068                         *( ( FLA_Obj   * ) x      ),
00069                         *( ( FLA_Obj   * ) beta   ),
00070                         *( ( FLA_Obj   * ) y      ) );
00071 }

FLA_Error FLASH_Trsv ( FLA_Uplo  uplo,
FLA_Trans  transa,
FLA_Diag  diag,
FLA_Obj  A,
FLA_Obj  x 
)

References FLA_Check_error_level(), FLA_Trsv_check(), FLA_Trsv_internal(), FLASH_Queue_disable(), FLASH_Queue_enable(), and FLASH_Queue_get_enabled().

Referenced by flash_trsv_f().

00038 {
00039   FLA_Error r_val;
00040   FLA_Bool  enable_supermatrix;
00041 
00042   // Check parameters.
00043   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00044     FLA_Trsv_check( uplo, trans, diag, A, x );
00045 
00046   // Find the status of SuperMatrix.
00047   enable_supermatrix = FLASH_Queue_get_enabled();
00048 
00049   // Temporarily disable SuperMatrix.
00050   FLASH_Queue_disable();
00051 
00052   // Execute tasks.
00053   r_val = FLA_Trsv_internal( uplo, trans, diag, A, x, flash_trsv_cntl );
00054 
00055   // Restore SuperMatrix to its previous status.
00056   if ( enable_supermatrix )
00057      FLASH_Queue_enable();
00058   
00059   return r_val;
00060 }

void FLA_F2C() flash_trsv_f ( F_INT *  uplo,
F_INT *  transa,
F_INT *  diag,
F_INT *  A,
F_INT *  x,
F_INT *  IERROR 
)

References FLASH_Trsv().

00064 {
00065   *IERROR = FLASH_Trsv( *( ( FLA_Uplo  * ) uplo  ),
00066                         *( ( FLA_Trans * ) trans ),
00067                         *( ( FLA_Diag  * ) diag  ),
00068                         *( ( FLA_Obj   * ) A     ),
00069                         *( ( FLA_Obj   * ) x     ) );
00070 }


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