text: /*
  
      Copyright (C) 2014, The University of Texas at Austin
  
      This file is part of libflame and is available under the 3-Clause
      BSD license, which can be found in the LICENSE file at the top-level
      directory, or at http://opensource.org/licenses/BSD-3-Clause
  
  */
  
  #include "FLAME.h"
  
  extern TLS_CLASS_SPEC fla_chol_t* flash_chol_cntl;
  
  FLA_Error FLASH_Chol( FLA_Uplo uplo, FLA_Obj A )
  {
    FLA_Error r_val;
  
    // Check parameters.
    if ( FLA_Check_error_level() >= FLA_MIN_ERROR_CHECKING )
      FLA_Chol_check( uplo, A );
  
    // Begin a parallel region.
    FLASH_Queue_begin();
    
    // Enqueue tasks via a SuperMatrix-aware control tree.
    r_val = FLA_Chol_internal( uplo, A, flash_chol_cntl );
    
    // End the parallel region.
    FLASH_Queue_end();
  
    return r_val;
  }
  
  