/*******************************************************************************
* Copyright 1999-2017 Intel Corporation All Rights Reserved.
*
* The source code, information and material ("Material") contained herein is
* owned by Intel Corporation or its suppliers or licensors, and title to such
* Material remains with Intel Corporation or its suppliers or licensors. The
* Material contains proprietary information of Intel or its suppliers and
* licensors. The Material is protected by worldwide copyright laws and treaty
* provisions. No part of the Material may be used, copied, reproduced,
* modified, published, uploaded, posted, transmitted, distributed or disclosed
* in any way without Intel's prior express written permission. No license under
* any patent, copyright or other intellectual property rights in the Material
* is granted to or conferred upon you, either expressly, by implication,
* inducement, estoppel or otherwise. Any license under such intellectual
* property rights must be express and approved by Intel in writing.
*
* Unless otherwise agreed by Intel in writing, you may not remove or alter this
* notice or any other notice embedded in Materials by Intel or Intel's
* suppliers or licensors in any way.
*******************************************************************************/
/*
! Content:
! Intel(R) Math Kernel Library (Intel(R) MKL) stdcall interface for LAPACK routines
!******************************************************************************/
#ifndef _MKL_LAPACK_STDCALL_H_
#define _MKL_LAPACK_STDCALL_H_
#include "mkl_types.h"
#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */
#if defined(MKL_STDCALL)
void __stdcall CGELQ( const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a,
const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* tsize, MKL_Complex8* work,
const MKL_INT* lwork, MKL_INT* info );
void __stdcall CGELQ_( const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a,
const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* tsize, MKL_Complex8* work,
const MKL_INT* lwork, MKL_INT* info );
void __stdcall cgelq( const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a,
const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* tsize, MKL_Complex8* work,
const MKL_INT* lwork, MKL_INT* info );
void __stdcall cgelq_( const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a,
const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* tsize, MKL_Complex8* work,
const MKL_INT* lwork, MKL_INT* info );
void __stdcall CGELQT( const MKL_INT* m, const MKL_INT* n, const MKL_INT* mb,
MKL_Complex8* a, const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* ldt, MKL_Complex8* work, MKL_INT* info );
void __stdcall CGELQT_( const MKL_INT* m, const MKL_INT* n, const MKL_INT* mb,
MKL_Complex8* a, const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* ldt, MKL_Complex8* work, MKL_INT* info );
void __stdcall cgelqt( const MKL_INT* m, const MKL_INT* n, const MKL_INT* mb,
MKL_Complex8* a, const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* ldt, MKL_Complex8* work, MKL_INT* info );
void __stdcall cgelqt_( const MKL_INT* m, const MKL_INT* n, const MKL_INT* mb,
MKL_Complex8* a, const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* ldt, MKL_Complex8* work, MKL_INT* info );
void __stdcall CGELQT3( const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a,
const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* ldt, MKL_INT* info );
void __stdcall CGELQT3_( const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a,
const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* ldt, MKL_INT* info );
void __stdcall cgelqt3( const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a,
const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* ldt, MKL_INT* info );
void __stdcall cgelqt3_( const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a,
const MKL_INT* lda, MKL_Complex8* t,
const MKL_INT* ldt, MKL_INT* info );
void __stdcall CGEMLQ( const char* side, int side_len, const char* trans,
int trans_len, const MKL_INT* m, const MKL_INT* n,
const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* lda,
const MKL_Complex8* t, const MKL_INT* tsize,
MKL_Complex8* c, const MKL_INT* ldc,
MKL_Complex8* work, const MKL_INT* lwork,
MKL_INT* info );
void __stdcall CGEMLQ_( const char* side, int side_len, const char* trans,
int trans_len, const MKL_INT* m, const MKL_INT* n,
const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* lda,
const MKL_Complex8* t, const MKL_INT* tsize,
MKL_Complex8* c, const MKL_INT* ldc,
MKL_Complex8* work, const MKL_INT* lwork,
MKL_INT* info );
void __stdcall cgemlq( const char* side, int side_len, const char* trans,
int trans_len, const MKL_INT* m, const MKL_INT* n,
const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* lda,
const MKL_Complex8* t, const MKL_INT* tsize,
MKL_Complex8* c, const MKL_INT* ldc,
MKL_Complex8* work, const MKL_INT* lwork,
MKL_INT* info );
void __stdcall cgemlq_( const char* side, int side_len, const char* trans,
int trans_len, const MKL_INT* m, const MKL_INT* n,
const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* lda,
const MKL_Complex8* t, const MKL_INT* tsize,
MKL_Complex8* c, const MKL_INT* ldc,
MKL_Complex8* work, const MKL_INT* lwork,
MKL_INT* info );
void __stdcall CGEMLQT( const char* side, int side_len, const char* trans,
int trans_len, const MKL_INT* m, const MKL_INT* n,
const MKL_INT* k, const MKL_INT* mb,
const MKL_Complex8* v, const MKL_INT* ldv,
const MKL_Complex8* t, const MKL_INT* ldt,
MKL_Complex8* c, const MKL_INT* ldc,
MKL_Complex8* work, MKL_INT* info );
void __stdcall CGEMLQT_( const char* side, int side_len, const char* trans,
int trans_len, const MKL_INT* m, const MKL_INT* n,
const MKL_INT* k, const MKL_INT* mb,
const MKL_Complex8* v, const MKL_INT* ldv,
const MKL_Complex8* t, const MKL_INT* ldt,
MKL_Complex8* c, const MKL_INT* ldc,
MKL_Complex8* work, MKL_INT* info );
void __stdcall cgemlqt( const char* side, int side_len, const char* trans,
int trans_len, const MKL_INT* m, const MKL_INT* n,
const MKL_INT* k, const MKL_INT* mb,
const MKL_Complex8* v, const MKL_INT* ldv,
const MKL_Complex8* t, const MKL_INT* ldt,
MKL_Complex8* c, const MKL_INT* ldc,
MKL_Complex8* work, MKL_INT* info );
void __stdcall cgemlqt_( const char* side, int sid
- 1
- 2
前往页