diff options
Diffstat (limited to 'LAPACKE/src/lapacke_zhetri_3_work.c-e')
| -rw-r--r-- | LAPACKE/src/lapacke_zhetri_3_work.c-e | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/LAPACKE/src/lapacke_zhetri_3_work.c-e b/LAPACKE/src/lapacke_zhetri_3_work.c-e deleted file mode 100644 index 22081f3c..00000000 --- a/LAPACKE/src/lapacke_zhetri_3_work.c-e +++ /dev/null @@ -1,84 +0,0 @@ -/***************************************************************************** - Copyright (c) 2014, Intel Corp. - All rights reserved. - - Redistribution and use in source and binary forms, with or without - modification, are permitted provided that the following conditions are met: - - * Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimer. - * Redistributions in binary form must reproduce the above copyright - notice, this list of conditions and the following disclaimer in the - documentation and/or other materials provided with the distribution. - * Neither the name of Intel Corporation nor the names of its contributors - may be used to endorse or promote products derived from this software - without specific prior written permission. - - THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" - AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE - IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE - ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE - LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF - THE POSSIBILITY OF SUCH DAMAGE. -***************************************************************************** -* Contents: Native middle-level C interface to LAPACK function zhetri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_zhetri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_double* work ) -{ - lapack_int info = 0; - if( matrix_layout == LAPACK_COL_MAJOR ) { - /* Call LAPACK function and adjust info */ - LAPACK_zhetri( &uplo, &n, a, &lda, ipiv, work, &info ); - if( info < 0 ) { - info = info - 1; - } - } else if( matrix_layout == LAPACK_ROW_MAJOR ) { - lapack_int lda_t = MAX(1,n); - lapack_complex_double* a_t = NULL; - /* Check leading dimension(s) */ - if( lda < n ) { - info = -5; - LAPACKE_xerbla( "LAPACKE_zhetri_work", info ); - return info; - } - /* Allocate memory for temporary array(s) */ - a_t = (lapack_complex_double*) - LAPACKE_malloc( sizeof(lapack_complex_double) * lda_t * MAX(1,n) ); - if( a_t == NULL ) { - info = LAPACK_TRANSPOSE_MEMORY_ERROR; - goto exit_level_0; - } - /* Transpose input matrices */ - LAPACKE_zhe_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); - /* Call LAPACK function and adjust info */ - LAPACK_zhetri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); - if( info < 0 ) { - info = info - 1; - } - /* Transpose output matrices */ - LAPACKE_zhe_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); - /* Release memory and exit */ - LAPACKE_free( a_t ); -exit_level_0: - if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_zhetri_work", info ); - } - } else { - info = -1; - LAPACKE_xerbla( "LAPACKE_zhetri_work", info ); - } - return info; -} |