+++ /dev/null
-/*****************************************************************************
- 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;
-}
+++ /dev/null
-/*****************************************************************************
- 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;
-}
+++ /dev/null
-/*****************************************************************************
- 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;
-}
+++ /dev/null
-/*****************************************************************************
- 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;
-}
+++ /dev/null
-/*****************************************************************************
- 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;
-}
+++ /dev/null
-/*****************************************************************************
- 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;
-}
+++ /dev/null
-/*****************************************************************************
- 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;
-}
+++ /dev/null
-/*****************************************************************************
- 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;
-}
+++ /dev/null
-/*****************************************************************************
- 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;
-}
+++ /dev/null
-/*****************************************************************************
- 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;
-}
+++ /dev/null
-/*****************************************************************************
- 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;
-}
+++ /dev/null
-/*****************************************************************************
- 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;
-}
projects / platform / upstream / lapack.git / commitdiff