FLASH_blas3_prototypes.h File Reference

(r)

Go to the source code of this file.

Functions

FLA_Error FLASH_Gemm (FLA_Trans transa, FLA_Trans transb, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
FLA_Error FLASH_Hemm (FLA_Side side, FLA_Uplo uplo, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
FLA_Error FLASH_Herk (FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C)
FLA_Error FLASH_Her2k (FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
FLA_Error FLASH_Symm (FLA_Side side, FLA_Uplo uplo, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
FLA_Error FLASH_Syrk (FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj beta, FLA_Obj C)
FLA_Error FLASH_Syr2k (FLA_Uplo uplo, FLA_Trans trans, FLA_Obj alpha, FLA_Obj A, FLA_Obj B, FLA_Obj beta, FLA_Obj C)
FLA_Error FLASH_Trmm (FLA_Side side, FLA_Uplo uplo, FLA_Trans trans, FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B)
FLA_Error FLASH_Trsm (FLA_Side side, FLA_Uplo uplo, FLA_Trans trans, FLA_Diag diag, FLA_Obj alpha, FLA_Obj A, FLA_Obj B)
void FLA_F2C() flash_gemm_f (F_INT *transa, F_INT *transb, F_INT *alpha, F_INT *A, F_INT *B, F_INT *beta, F_INT *C, F_INT *IERROR)
void FLA_F2C() flash_hemm_f (F_INT *side, F_INT *uplo, F_INT *alpha, F_INT *A, F_INT *B, F_INT *beta, F_INT *C, F_INT *IERROR)
void FLA_F2C() flash_her2k_f (F_INT *uplo, F_INT *trans, F_INT *alpha, F_INT *A, F_INT *B, F_INT *beta, F_INT *C, F_INT *IERROR)
void FLA_F2C() flash_herk_f (F_INT *uplo, F_INT *trans, F_INT *alpha, F_INT *A, F_INT *beta, F_INT *C, F_INT *IERROR)
void FLA_F2C() flash_symm_f (F_INT *side, F_INT *uplo, F_INT *alpha, F_INT *A, F_INT *B, F_INT *beta, F_INT *C, F_INT *IERROR)
void FLA_F2C() flash_syr2k_f (F_INT *uplo, F_INT *trans, F_INT *alpha, F_INT *A, F_INT *B, F_INT *beta, F_INT *C, F_INT *IERROR)
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)
void FLA_F2C() flash_trmm_f (F_INT *side, F_INT *uplo, F_INT *trans, F_INT *diag, F_INT *alpha, F_INT *A, F_INT *B, F_INT *IERROR)
void FLA_F2C() flash_trsm_f (F_INT *side, F_INT *uplo, F_INT *trans, F_INT *diag, F_INT *alpha, F_INT *A, F_INT *B, F_INT *IERROR)


Function Documentation

FLA_Error FLASH_Gemm ( FLA_Trans  transa,
FLA_Trans  transb,
FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C 
)

References FLA_Check_error_level(), FLA_Gemm_check(), FLA_Gemm_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().

Referenced by flash_gemm_f().

00038 {
00039   FLA_Error r_val;
00040   
00041   // Check parameters.
00042   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00043     FLA_Gemm_check( transa, transb, alpha, A, B, 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_Gemm_internal( transa, transb, alpha, A, B, beta, C, flash_gemm_cntl_mm_op );
00050   
00051   // End the parallel region.
00052   FLASH_Queue_end();
00053   
00054   return r_val;
00055 }

void FLA_F2C() flash_gemm_f ( F_INT *  transa,
F_INT *  transb,
F_INT *  alpha,
F_INT *  A,
F_INT *  B,
F_INT *  beta,
F_INT *  C,
F_INT *  IERROR 
)

References FLASH_Gemm().

00059 {
00060   *IERROR = FLASH_Gemm( *( ( FLA_Trans * ) transa ),
00061                         *( ( FLA_Trans * ) transb ),
00062                         *( ( FLA_Obj   * ) alpha  ),
00063                         *( ( FLA_Obj   * ) A      ),
00064                         *( ( FLA_Obj   * ) B      ),
00065                         *( ( FLA_Obj   * ) beta   ),
00066                         *( ( FLA_Obj   * ) C      ) );
00067 }

FLA_Error FLASH_Hemm ( FLA_Side  side,
FLA_Uplo  uplo,
FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C 
)

References FLA_Check_error_level(), FLA_Hemm_check(), FLA_Hemm_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().

Referenced by flash_hemm_f().

00038 {
00039   FLA_Error r_val;
00040   
00041   // Check parameters.
00042   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00043     FLA_Hemm_check( side, uplo, alpha, A, B, 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_Hemm_internal( side, uplo, alpha, A, B, beta, C, flash_hemm_cntl_mm );
00050   
00051   // End the parallel region.
00052   FLASH_Queue_end();
00053   
00054   return r_val;
00055 }

void FLA_F2C() flash_hemm_f ( F_INT *  side,
F_INT *  uplo,
F_INT *  alpha,
F_INT *  A,
F_INT *  B,
F_INT *  beta,
F_INT *  C,
F_INT *  IERROR 
)

References FLASH_Hemm().

00059 {
00060   *IERROR = FLASH_Hemm( *( ( FLA_Side * ) side  ),
00061                         *( ( FLA_Uplo * ) uplo  ),
00062                         *( ( FLA_Obj  * ) alpha ),
00063                         *( ( FLA_Obj  * ) A     ),
00064                         *( ( FLA_Obj  * ) B     ),
00065                         *( ( FLA_Obj  * ) beta  ),
00066                         *( ( FLA_Obj  * ) C     ) );
00067 }

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

References FLA_Check_error_level(), FLA_Her2k_check(), FLA_Her2k_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().

Referenced by flash_her2k_f().

00038 {
00039   FLA_Error r_val;
00040   
00041   // Check parameters.
00042   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00043     FLA_Her2k_check( uplo, trans, alpha, A, B, 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_Her2k_internal( uplo, trans, alpha, A, B, beta, C, flash_her2k_cntl_sq );
00050   
00051   // End the parallel region.
00052   FLASH_Queue_end();
00053 
00054   return r_val;
00055 }

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

References FLASH_Her2k().

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

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

References FLA_Check_error_level(), FLA_Herk_check(), FLA_Herk_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().

Referenced by flash_herk_f().

00038 {
00039   FLA_Error r_val;
00040 
00041   // Check parameters.
00042   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00043     FLA_Herk_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_Herk_internal( uplo, trans, alpha, A, beta, C, flash_herk_cntl_sq );
00050   
00051   // End the parallel region.
00052   FLASH_Queue_end();
00053 
00054   return r_val;
00055 }

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

References FLASH_Herk().

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

FLA_Error FLASH_Symm ( FLA_Side  side,
FLA_Uplo  uplo,
FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B,
FLA_Obj  beta,
FLA_Obj  C 
)

References FLA_Check_error_level(), FLA_Symm_check(), FLA_Symm_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().

Referenced by flash_symm_f().

00038 {
00039   FLA_Error r_val;
00040 
00041   // Check parameters.
00042   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00043     FLA_Symm_check( side, uplo, alpha, A, B, 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_Symm_internal( side, uplo, alpha, A, B, beta, C, flash_symm_cntl_mm );
00050   
00051   // End the parallel region.
00052   FLASH_Queue_end();
00053 
00054   return r_val;
00055 }

void FLA_F2C() flash_symm_f ( F_INT *  side,
F_INT *  uplo,
F_INT *  alpha,
F_INT *  A,
F_INT *  B,
F_INT *  beta,
F_INT *  C,
F_INT *  IERROR 
)

References FLASH_Symm().

00059 {
00060   *IERROR = FLASH_Symm( *( ( FLA_Side * ) side  ),
00061                         *( ( FLA_Uplo * ) uplo  ),
00062                         *( ( FLA_Obj  * ) alpha ),
00063                         *( ( FLA_Obj  * ) A     ),
00064                         *( ( FLA_Obj  * ) B     ),
00065                         *( ( FLA_Obj  * ) beta  ),
00066                         *( ( FLA_Obj  * ) C     ) );
00067 }

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

References FLA_Check_error_level(), FLA_Syr2k_check(), FLA_Syr2k_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().

Referenced by flash_syr2k_f().

00038 {
00039   FLA_Error r_val;
00040   
00041   // Check parameters.
00042   if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
00043     FLA_Syr2k_check( uplo, trans, alpha, A, B, 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_Syr2k_internal( uplo, trans, alpha, A, B, beta, C, flash_syr2k_cntl_sq );
00050   
00051   // End the parallel region.
00052   FLASH_Queue_end();
00053 
00054   return r_val;
00055 }

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

References FLASH_Syr2k().

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

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 }

FLA_Error FLASH_Trmm ( FLA_Side  side,
FLA_Uplo  uplo,
FLA_Trans  trans,
FLA_Diag  diag,
FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B 
)

References FLA_Check_error_level(), FLA_Trmm_check(), FLA_Trmm_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().

Referenced by flash_trmm_f().

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

void FLA_F2C() flash_trmm_f ( F_INT *  side,
F_INT *  uplo,
F_INT *  trans,
F_INT *  diag,
F_INT *  alpha,
F_INT *  A,
F_INT *  B,
F_INT *  IERROR 
)

References FLASH_Trmm().

00059 {
00060   *IERROR = FLASH_Trmm( *( ( FLA_Side  * ) side  ),
00061                         *( ( FLA_Uplo  * ) uplo  ),
00062                         *( ( FLA_Trans * ) trans ),
00063                         *( ( FLA_Diag  * ) diag  ),
00064                         *( ( FLA_Obj   * ) alpha ),
00065                         *( ( FLA_Obj   * ) A     ),
00066                         *( ( FLA_Obj   * ) B     ) );
00067 }

FLA_Error FLASH_Trsm ( FLA_Side  side,
FLA_Uplo  uplo,
FLA_Trans  trans,
FLA_Diag  diag,
FLA_Obj  alpha,
FLA_Obj  A,
FLA_Obj  B 
)

References FLA_Check_error_level(), FLA_Trsm_check(), FLA_Trsm_internal(), FLASH_Queue_begin(), and FLASH_Queue_end().

Referenced by flash_trsm_f().

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

void FLA_F2C() flash_trsm_f ( F_INT *  side,
F_INT *  uplo,
F_INT *  trans,
F_INT *  diag,
F_INT *  alpha,
F_INT *  A,
F_INT *  B,
F_INT *  IERROR 
)

References FLASH_Trsm().

00059 {
00060   *IERROR = FLASH_Trsm( *( ( FLA_Side  * ) side  ),
00061                         *( ( FLA_Uplo  * ) uplo  ),
00062                         *( ( FLA_Trans * ) trans ),
00063                         *( ( FLA_Diag  * ) diag  ),
00064                         *( ( FLA_Obj   * ) alpha ),
00065                         *( ( FLA_Obj   * ) A     ),
00066                         *( ( FLA_Obj   * ) B     ) );
00067 }


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