From 6d4b781378bca2e6c4df231e549169892175f950 Mon Sep 17 00:00:00 2001 From: Julie Date: Sat, 10 Dec 2016 19:29:03 -0800 Subject: [PATCH] oops --- LAPACKE/src/lapacke_chetri_3.c-e | 68 ---------------------------- LAPACKE/src/lapacke_chetri_3_work.c-e | 84 ----------------------------------- LAPACKE/src/lapacke_csytri_3.c-e | 68 ---------------------------- LAPACKE/src/lapacke_csytri_3_work.c-e | 84 ----------------------------------- LAPACKE/src/lapacke_dsytri_3.c-e | 66 --------------------------- LAPACKE/src/lapacke_dsytri_3_work.c-e | 82 ---------------------------------- LAPACKE/src/lapacke_ssytri_3.c-e | 66 --------------------------- LAPACKE/src/lapacke_ssytri_3_work.c-e | 82 ---------------------------------- LAPACKE/src/lapacke_zhetri_3.c-e | 68 ---------------------------- LAPACKE/src/lapacke_zhetri_3_work.c-e | 84 ----------------------------------- LAPACKE/src/lapacke_zsytri_3.c-e | 68 ---------------------------- LAPACKE/src/lapacke_zsytri_3_work.c-e | 84 ----------------------------------- 12 files changed, 904 deletions(-) delete mode 100644 LAPACKE/src/lapacke_chetri_3.c-e delete mode 100644 LAPACKE/src/lapacke_chetri_3_work.c-e delete mode 100644 LAPACKE/src/lapacke_csytri_3.c-e delete mode 100644 LAPACKE/src/lapacke_csytri_3_work.c-e delete mode 100644 LAPACKE/src/lapacke_dsytri_3.c-e delete mode 100644 LAPACKE/src/lapacke_dsytri_3_work.c-e delete mode 100644 LAPACKE/src/lapacke_ssytri_3.c-e delete mode 100644 LAPACKE/src/lapacke_ssytri_3_work.c-e delete mode 100644 LAPACKE/src/lapacke_zhetri_3.c-e delete mode 100644 LAPACKE/src/lapacke_zhetri_3_work.c-e delete mode 100644 LAPACKE/src/lapacke_zsytri_3.c-e delete mode 100644 LAPACKE/src/lapacke_zsytri_3_work.c-e diff --git a/LAPACKE/src/lapacke_chetri_3.c-e b/LAPACKE/src/lapacke_chetri_3.c-e deleted file mode 100644 index cdc6fd3..0000000 --- a/LAPACKE/src/lapacke_chetri_3.c-e +++ /dev/null @@ -1,68 +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 high-level C interface to LAPACK function chetri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_chetri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv ) -{ - lapack_int info = 0; - lapack_complex_float* work = NULL; - if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_chetri", -1 ); - return -1; - } -#ifndef LAPACK_DISABLE_NAN_CHECK - /* Optionally check input matrices for NaNs */ - if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { - return -4; - } -#endif - /* Allocate memory for working array(s) */ - work = (lapack_complex_float*) - LAPACKE_malloc( sizeof(lapack_complex_float) * MAX(1,n) ); - if( work == NULL ) { - info = LAPACK_WORK_MEMORY_ERROR; - goto exit_level_0; - } - /* Call middle-level interface */ - info = LAPACKE_chetri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); - /* Release memory and exit */ - LAPACKE_free( work ); -exit_level_0: - if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_chetri", info ); - } - return info; -} diff --git a/LAPACKE/src/lapacke_chetri_3_work.c-e b/LAPACKE/src/lapacke_chetri_3_work.c-e deleted file mode 100644 index 66f718f..0000000 --- a/LAPACKE/src/lapacke_chetri_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 chetri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_chetri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_float* work ) -{ - lapack_int info = 0; - if( matrix_layout == LAPACK_COL_MAJOR ) { - /* Call LAPACK function and adjust info */ - LAPACK_chetri( &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_float* a_t = NULL; - /* Check leading dimension(s) */ - if( lda < n ) { - info = -5; - LAPACKE_xerbla( "LAPACKE_chetri_work", info ); - return info; - } - /* Allocate memory for temporary array(s) */ - a_t = (lapack_complex_float*) - LAPACKE_malloc( sizeof(lapack_complex_float) * lda_t * MAX(1,n) ); - if( a_t == NULL ) { - info = LAPACK_TRANSPOSE_MEMORY_ERROR; - goto exit_level_0; - } - /* Transpose input matrices */ - LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); - /* Call LAPACK function and adjust info */ - LAPACK_chetri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); - if( info < 0 ) { - info = info - 1; - } - /* Transpose output matrices */ - LAPACKE_che_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_chetri_work", info ); - } - } else { - info = -1; - LAPACKE_xerbla( "LAPACKE_chetri_work", info ); - } - return info; -} diff --git a/LAPACKE/src/lapacke_csytri_3.c-e b/LAPACKE/src/lapacke_csytri_3.c-e deleted file mode 100644 index 9e030ce..0000000 --- a/LAPACKE/src/lapacke_csytri_3.c-e +++ /dev/null @@ -1,68 +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 high-level C interface to LAPACK function csytri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_csytri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv ) -{ - lapack_int info = 0; - lapack_complex_float* work = NULL; - if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_csytri", -1 ); - return -1; - } -#ifndef LAPACK_DISABLE_NAN_CHECK - /* Optionally check input matrices for NaNs */ - if( LAPACKE_csy_nancheck( matrix_layout, uplo, n, a, lda ) ) { - return -4; - } -#endif - /* Allocate memory for working array(s) */ - work = (lapack_complex_float*) - LAPACKE_malloc( sizeof(lapack_complex_float) * MAX(1,2*n) ); - if( work == NULL ) { - info = LAPACK_WORK_MEMORY_ERROR; - goto exit_level_0; - } - /* Call middle-level interface */ - info = LAPACKE_csytri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); - /* Release memory and exit */ - LAPACKE_free( work ); -exit_level_0: - if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_csytri", info ); - } - return info; -} diff --git a/LAPACKE/src/lapacke_csytri_3_work.c-e b/LAPACKE/src/lapacke_csytri_3_work.c-e deleted file mode 100644 index 9440334..0000000 --- a/LAPACKE/src/lapacke_csytri_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 csytri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_csytri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_float* work ) -{ - lapack_int info = 0; - if( matrix_layout == LAPACK_COL_MAJOR ) { - /* Call LAPACK function and adjust info */ - LAPACK_csytri( &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_float* a_t = NULL; - /* Check leading dimension(s) */ - if( lda < n ) { - info = -5; - LAPACKE_xerbla( "LAPACKE_csytri_work", info ); - return info; - } - /* Allocate memory for temporary array(s) */ - a_t = (lapack_complex_float*) - LAPACKE_malloc( sizeof(lapack_complex_float) * lda_t * MAX(1,n) ); - if( a_t == NULL ) { - info = LAPACK_TRANSPOSE_MEMORY_ERROR; - goto exit_level_0; - } - /* Transpose input matrices */ - LAPACKE_csy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); - /* Call LAPACK function and adjust info */ - LAPACK_csytri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); - if( info < 0 ) { - info = info - 1; - } - /* Transpose output matrices */ - LAPACKE_csy_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_csytri_work", info ); - } - } else { - info = -1; - LAPACKE_xerbla( "LAPACKE_csytri_work", info ); - } - return info; -} diff --git a/LAPACKE/src/lapacke_dsytri_3.c-e b/LAPACKE/src/lapacke_dsytri_3.c-e deleted file mode 100644 index b912494..0000000 --- a/LAPACKE/src/lapacke_dsytri_3.c-e +++ /dev/null @@ -1,66 +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 high-level C interface to LAPACK function dsytri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_dsytri( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda, const lapack_int* ipiv ) -{ - lapack_int info = 0; - double* work = NULL; - if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_dsytri", -1 ); - return -1; - } -#ifndef LAPACK_DISABLE_NAN_CHECK - /* Optionally check input matrices for NaNs */ - if( LAPACKE_dsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { - return -4; - } -#endif - /* Allocate memory for working array(s) */ - work = (double*)LAPACKE_malloc( sizeof(double) * MAX(1,2*n) ); - if( work == NULL ) { - info = LAPACK_WORK_MEMORY_ERROR; - goto exit_level_0; - } - /* Call middle-level interface */ - info = LAPACKE_dsytri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); - /* Release memory and exit */ - LAPACKE_free( work ); -exit_level_0: - if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_dsytri", info ); - } - return info; -} diff --git a/LAPACKE/src/lapacke_dsytri_3_work.c-e b/LAPACKE/src/lapacke_dsytri_3_work.c-e deleted file mode 100644 index 6d2fda7..0000000 --- a/LAPACKE/src/lapacke_dsytri_3_work.c-e +++ /dev/null @@ -1,82 +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 dsytri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_dsytri_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, - const lapack_int* ipiv, double* work ) -{ - lapack_int info = 0; - if( matrix_layout == LAPACK_COL_MAJOR ) { - /* Call LAPACK function and adjust info */ - LAPACK_dsytri( &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); - double* a_t = NULL; - /* Check leading dimension(s) */ - if( lda < n ) { - info = -5; - LAPACKE_xerbla( "LAPACKE_dsytri_work", info ); - return info; - } - /* Allocate memory for temporary array(s) */ - a_t = (double*)LAPACKE_malloc( sizeof(double) * lda_t * MAX(1,n) ); - if( a_t == NULL ) { - info = LAPACK_TRANSPOSE_MEMORY_ERROR; - goto exit_level_0; - } - /* Transpose input matrices */ - LAPACKE_dsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); - /* Call LAPACK function and adjust info */ - LAPACK_dsytri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); - if( info < 0 ) { - info = info - 1; - } - /* Transpose output matrices */ - LAPACKE_dsy_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_dsytri_work", info ); - } - } else { - info = -1; - LAPACKE_xerbla( "LAPACKE_dsytri_work", info ); - } - return info; -} diff --git a/LAPACKE/src/lapacke_ssytri_3.c-e b/LAPACKE/src/lapacke_ssytri_3.c-e deleted file mode 100644 index fe93407..0000000 --- a/LAPACKE/src/lapacke_ssytri_3.c-e +++ /dev/null @@ -1,66 +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 high-level C interface to LAPACK function ssytri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_ssytri( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, const lapack_int* ipiv ) -{ - lapack_int info = 0; - float* work = NULL; - if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_ssytri", -1 ); - return -1; - } -#ifndef LAPACK_DISABLE_NAN_CHECK - /* Optionally check input matrices for NaNs */ - if( LAPACKE_ssy_nancheck( matrix_layout, uplo, n, a, lda ) ) { - return -4; - } -#endif - /* Allocate memory for working array(s) */ - work = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,2*n) ); - if( work == NULL ) { - info = LAPACK_WORK_MEMORY_ERROR; - goto exit_level_0; - } - /* Call middle-level interface */ - info = LAPACKE_ssytri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); - /* Release memory and exit */ - LAPACKE_free( work ); -exit_level_0: - if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_ssytri", info ); - } - return info; -} diff --git a/LAPACKE/src/lapacke_ssytri_3_work.c-e b/LAPACKE/src/lapacke_ssytri_3_work.c-e deleted file mode 100644 index 3f13041..0000000 --- a/LAPACKE/src/lapacke_ssytri_3_work.c-e +++ /dev/null @@ -1,82 +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 ssytri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_ssytri_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, - const lapack_int* ipiv, float* work ) -{ - lapack_int info = 0; - if( matrix_layout == LAPACK_COL_MAJOR ) { - /* Call LAPACK function and adjust info */ - LAPACK_ssytri( &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); - float* a_t = NULL; - /* Check leading dimension(s) */ - if( lda < n ) { - info = -5; - LAPACKE_xerbla( "LAPACKE_ssytri_work", info ); - return info; - } - /* Allocate memory for temporary array(s) */ - a_t = (float*)LAPACKE_malloc( sizeof(float) * lda_t * MAX(1,n) ); - if( a_t == NULL ) { - info = LAPACK_TRANSPOSE_MEMORY_ERROR; - goto exit_level_0; - } - /* Transpose input matrices */ - LAPACKE_ssy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); - /* Call LAPACK function and adjust info */ - LAPACK_ssytri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); - if( info < 0 ) { - info = info - 1; - } - /* Transpose output matrices */ - LAPACKE_ssy_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_ssytri_work", info ); - } - } else { - info = -1; - LAPACKE_xerbla( "LAPACKE_ssytri_work", info ); - } - return info; -} diff --git a/LAPACKE/src/lapacke_zhetri_3.c-e b/LAPACKE/src/lapacke_zhetri_3.c-e deleted file mode 100644 index 725b486..0000000 --- a/LAPACKE/src/lapacke_zhetri_3.c-e +++ /dev/null @@ -1,68 +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 high-level C interface to LAPACK function zhetri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_zhetri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv ) -{ - lapack_int info = 0; - lapack_complex_double* work = NULL; - if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_zhetri", -1 ); - return -1; - } -#ifndef LAPACK_DISABLE_NAN_CHECK - /* Optionally check input matrices for NaNs */ - if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { - return -4; - } -#endif - /* Allocate memory for working array(s) */ - work = (lapack_complex_double*) - LAPACKE_malloc( sizeof(lapack_complex_double) * MAX(1,n) ); - if( work == NULL ) { - info = LAPACK_WORK_MEMORY_ERROR; - goto exit_level_0; - } - /* Call middle-level interface */ - info = LAPACKE_zhetri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); - /* Release memory and exit */ - LAPACKE_free( work ); -exit_level_0: - if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_zhetri", info ); - } - return info; -} 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 22081f3..0000000 --- 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; -} diff --git a/LAPACKE/src/lapacke_zsytri_3.c-e b/LAPACKE/src/lapacke_zsytri_3.c-e deleted file mode 100644 index 72c1517..0000000 --- a/LAPACKE/src/lapacke_zsytri_3.c-e +++ /dev/null @@ -1,68 +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 high-level C interface to LAPACK function zsytri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_zsytri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv ) -{ - lapack_int info = 0; - lapack_complex_double* work = NULL; - if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { - LAPACKE_xerbla( "LAPACKE_zsytri", -1 ); - return -1; - } -#ifndef LAPACK_DISABLE_NAN_CHECK - /* Optionally check input matrices for NaNs */ - if( LAPACKE_zsy_nancheck( matrix_layout, uplo, n, a, lda ) ) { - return -4; - } -#endif - /* Allocate memory for working array(s) */ - work = (lapack_complex_double*) - LAPACKE_malloc( sizeof(lapack_complex_double) * MAX(1,2*n) ); - if( work == NULL ) { - info = LAPACK_WORK_MEMORY_ERROR; - goto exit_level_0; - } - /* Call middle-level interface */ - info = LAPACKE_zsytri_work( matrix_layout, uplo, n, a, lda, ipiv, work ); - /* Release memory and exit */ - LAPACKE_free( work ); -exit_level_0: - if( info == LAPACK_WORK_MEMORY_ERROR ) { - LAPACKE_xerbla( "LAPACKE_zsytri", info ); - } - return info; -} diff --git a/LAPACKE/src/lapacke_zsytri_3_work.c-e b/LAPACKE/src/lapacke_zsytri_3_work.c-e deleted file mode 100644 index d8852b2..0000000 --- a/LAPACKE/src/lapacke_zsytri_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 zsytri -* Author: Intel Corporation -* Generated November 2015 -*****************************************************************************/ - -#include "lapacke_utils.h" - -lapack_int LAPACKE_zsytri_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_zsytri( &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_zsytri_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_zsy_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t ); - /* Call LAPACK function and adjust info */ - LAPACK_zsytri( &uplo, &n, a_t, &lda_t, ipiv, work, &info ); - if( info < 0 ) { - info = info - 1; - } - /* Transpose output matrices */ - LAPACKE_zsy_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_zsytri_work", info ); - } - } else { - info = -1; - LAPACKE_xerbla( "LAPACKE_zsytri_work", info ); - } - return info; -} -- 2.7.4