FLASH_Syrk.c File Reference

(r)


Functions

FLA_Error FLASH_Syrk (FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C)
void FLA_F2C() flash_syrk_f (F_INT *uplo, F_INT *trans, F_INT *alpha, F_INT *A, F_INT *beta, F_INT *C, F_INT *IERROR)

Variables

fla_syrk_tflash_syrk_cntl_sq

Function Documentation

FLA_Error FLASH_Syrk ( FLA_Uplo  uplo,
FLA_Trans  trans,
FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  beta,
FLA_Obj  C 
)

References FLA_Check_error_level(), FLA_Syrk_check(), FLA_Syrk_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().

Referenced by flash_syrk_f().

00038 {
00039   FLA_Error r_val;
00040 
00041   // Check parameters.
00042   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00043     FLA_Syrk_check( uplo, trans, alpha, A, beta, C );
00044 
00045   // Begin a parallel region.
00046   FLASH_Queue_begin();
00047   
00048   // Enqueue tasks via a SuperMatrix-aware control tree.
00049   r_val = FLA_Syrk_internal( uplo, trans, alpha, A, beta, C, flash_syrk_cntl_sq );
00050   
00051   // End the parallel region.
00052   FLASH_Queue_end();
00053 
00054   return r_val;
00055 }

void FLA_F2C() flash_syrk_f ( F_INT *  uplo,
F_INT *  trans,
F_INT *  alpha,
F_INT *  A,
F_INT *  beta,
F_INT *  C,
F_INT *  IERROR 
)

References FLASH_Syrk().

00059 {
00060   *IERROR = FLASH_Syrk( *( ( FLA_Uplo  * ) uplo  ),
00061                         *( ( FLA_Trans * ) trans ),
00062                         *( ( FLA_Obj   * ) alpha ),
00063                         *( ( FLA_Obj   * ) A     ),
00064                         *( ( FLA_Obj   * ) beta  ),
00065                         *( ( FLA_Obj   * ) C     ) );
00066 }


Variable Documentation


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