(r)

Functions
void	FLA_Transpose_cntl_init ()

void	FLA_Transpose_cntl_finalize ()

Variables
fla_swap_t *	fla_swap_cntl_panel

fla_swap_t *	fla_swap_cntl_blas

fla_tpose_t *	fla_tpose_cntl

fla_tpose_t *	fla_tpose_cntl_unb

fla_blocksize_t *	fla_tpose_bsize

fla_blocksize_t *	fla_tpose_swap_bsize

Function Documentation

◆ FLA_Transpose_cntl_finalize()

void FLA_Transpose_cntl_finalize ( void )

 {
     FLA_Cntl_obj_free( fla_tpose_cntl );
     FLA_Cntl_obj_free( fla_tpose_cntl_unb );
     FLA_Cntl_obj_free( fla_swap_cntl_panel );
     FLA_Cntl_obj_free( fla_swap_cntl_blas );
  
     FLA_Blocksize_free( fla_tpose_bsize );
     FLA_Blocksize_free( fla_tpose_swap_bsize );
 }

References FLA_Blocksize_free(), FLA_Cntl_obj_free(), fla_swap_cntl_blas, fla_swap_cntl_panel, fla_tpose_bsize, fla_tpose_cntl, fla_tpose_cntl_unb, and fla_tpose_swap_bsize.

Referenced by FLA_Cntl_finalize_flamec().

◆ FLA_Transpose_cntl_init()

void FLA_Transpose_cntl_init ( void )

 {
     // Set blocksizes based on libgoto query.
     fla_tpose_bsize      = FLA_Query_blocksizes( FLA_DIMENSION_MIN );
     fla_tpose_swap_bsize = FLA_Query_blocksizes( FLA_DIMENSION_MIN );
  
     // Create a control tree that performs unblocked variant 2 transposition.
     fla_tpose_cntl_unb   = FLA_Cntl_tpose_obj_create( FLA_FLAT, 
                                                       FLA_UNBLOCKED_VARIANT2,
                                                       NULL,
                                                       NULL,
                                                       NULL );
  
     // Create a control tree that invokes an external implementation of swap.
     fla_swap_cntl_blas   = FLA_Cntl_swap_obj_create( FLA_FLAT,
                                                      FLA_SUBPROBLEM,
                                                      NULL,
                                                      NULL );
  
     // Create a control tree that invokes unblocked variant 2 of swap.
     fla_swap_cntl_panel  = FLA_Cntl_swap_obj_create( FLA_FLAT,
                                                      FLA_BLOCKED_VARIANT2, 
                                                      fla_tpose_swap_bsize,
                                                      fla_swap_cntl_blas );
  
     // Create a control tree that assumes a large matrix argument.
     fla_tpose_cntl       = FLA_Cntl_tpose_obj_create( FLA_FLAT,
                                                       FLA_BLOCKED_VARIANT2, 
                                                       fla_tpose_bsize,
                                                       fla_tpose_cntl_unb,
                                                       fla_swap_cntl_panel );
 }