FLASH_Axpy.c File Reference

(r)


Functions

FLA_Error FLASH_Axpy (FLA_Obj alpha, FLA_Obj A, FLA_Obj B)
void FLA_F2C() flash_axpy_f (F_INT *alpha, F_INT *A, F_INT *B, F_INT *IERROR)

Variables

fla_axpy_tflash_axpy_cntl

Function Documentation

FLA_Error FLASH_Axpy ( FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B 
)

References FLA_Axpy_check(), FLA_Axpy_internal(), FLA_Check_error_level(), FLASH_Queue_disable(), FLASH_Queue_enable(), and FLASH_Queue_get_enabled().

Referenced by flash_axpy_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_Axpy_check( alpha, A, B );
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_Axpy_internal( alpha, A, B, flash_axpy_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_axpy_f ( F_INT *  alpha,
F_INT *  A,
F_INT *  B,
F_INT *  IERROR 
)

References FLASH_Axpy().

00064 {
00065   *IERROR = FLASH_Axpy( *( ( FLA_Obj   * ) alpha  ),
00066                         *( ( FLA_Obj   * ) A      ),
00067                         *( ( FLA_Obj   * ) B      ) );
00068 }


Variable Documentation


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