Functions | |
FLA_Error | FLASH_Triangularize (FLA_Uplo uplo, FLA_Diag diag, FLA_Obj A) |
References FLA_Obj_free(), FLA_Triangularize(), FLASH_Obj_create_flat_copy_of_hier(), and FLASH_Obj_hierarchify().
00036 { 00037 FLA_Error r_val; 00038 FLA_Obj A_flat; 00039 00040 // Create a temporary flat copy of the hierarchical object. 00041 FLASH_Obj_create_flat_copy_of_hier( A, &A_flat ); 00042 00043 // Triangularize the flat matrix object as specified by uplo and diag. 00044 r_val = FLA_Triangularize( uplo, diag, A_flat ); 00045 00046 // Copy the flat object's contents back to the hierarchical object. 00047 FLASH_Obj_hierarchify( A_flat, A ); 00048 00049 // Free the temporary flat object. 00050 FLA_Obj_free( &A_flat ); 00051 00052 return r_val; 00053 }