gaussian-splatting-my/envs/gaussian_splatting/Library/include/mkl_scalapack.h

/*******************************************************************************
* Copyright 1999-2022 Intel Corporation.
*
* This software and the related documents are Intel copyrighted  materials,  and
* your use of  them is  governed by the  express license  under which  they were
* provided to you (License).  Unless the License provides otherwise, you may not
* use, modify, copy, publish, distribute,  disclose or transmit this software or
* the related documents without Intel's prior written permission.
*
* This software and the related documents  are provided as  is,  with no express
* or implied  warranties,  other  than those  that are  expressly stated  in the
* License.
*******************************************************************************/

/*
!  Content:
!      Intel(R) oneAPI Math Kernel Library (oneMKL) interface for SCALAPACK routines
!******************************************************************************/

#ifndef _MKL_SCALAPACK_H_
#define _MKL_SCALAPACK_H_

#include "mkl_types.h"

#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */

void	psgetrf(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pdgetrf(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pcgetrf(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pzgetrf(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);

void psgeevx( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, float* a, const MKL_INT* desca, float* wr, float* wi, float* vl,  const MKL_INT* descvl, float* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, float* scale, float* abnrm,  float* rconde, float* rcondv, float* work,  const MKL_INT* lwork, MKL_INT* info );
void pdgeevx( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, double* a, const MKL_INT* desca, double* wr, double* wi, double* vl,  const MKL_INT* descvl, double* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, double* scale, double* abnrm,  double* rconde, double* rcondv, double* work,  const MKL_INT* lwork, MKL_INT* info );
void pcgeevx( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, MKL_Complex8* a,  const MKL_INT* desca, MKL_Complex8* w, MKL_Complex8* vl, const MKL_INT* descvl, MKL_Complex8* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, float* scale, float* abnrm, float* rconde, float* rcondv, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info );
void pzgeevx( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, MKL_Complex16* a,  const MKL_INT* desca, MKL_Complex16* w, MKL_Complex16* vl, const MKL_INT* descvl, MKL_Complex16* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, double* scale, double* abnrm, double* rconde, double* rcondv, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info );

void	psgbtrf(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgbtrf(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgbtrf(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgbtrf(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psdbtrf(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, float* a, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddbtrf(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, double* a, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdbtrf(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdbtrf(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pspotrf(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdpotrf(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pcpotrf(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pzpotrf(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	pspbtrf(const char* uplo, const MKL_INT* n, const MKL_INT* bw, float* a, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpbtrf(const char* uplo, const MKL_INT* n, const MKL_INT* bw, double* a, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpbtrf(const char* uplo, const MKL_INT* n, const MKL_INT* bw, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpbtrf(const char* uplo, const MKL_INT* n, const MKL_INT* bw, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pspttrf(const MKL_INT* n, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpttrf(const MKL_INT* n, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpttrf(const MKL_INT* n, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpttrf(const MKL_INT* n, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psdttrf(const MKL_INT* n, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddttrf(const MKL_INT* n, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdttrf(const MKL_INT* n, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdttrf(const MKL_INT* n, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgetrs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdgetrs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pcgetrs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pzgetrs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	psgbtrs(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgbtrs(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgbtrs(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgbtrs(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pspotrs(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdpotrs(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pcpotrs(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pzpotrs(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	pspbtrs(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpbtrs(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpbtrs(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpbtrs(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pspttrs(const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpttrs(const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpttrs(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpttrs(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psdttrs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddttrs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdttrs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdttrs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psdbtrs(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddbtrs(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdbtrs(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdbtrs(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pstrtrs(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdtrtrs(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pctrtrs(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pztrtrs(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	psgecon(const char* norm, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdgecon(const char* norm, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcgecon(const char* norm, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzgecon(const char* norm, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	pspocon(const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdpocon(const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcpocon(const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzpocon(const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	pstrcon(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdtrcon(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pctrcon(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pztrcon(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	psgerfs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdgerfs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcgerfs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzgerfs(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	psporfs(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdporfs(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcporfs(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzporfs(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	pstrrfs(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdtrrfs(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pctrrfs(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pztrrfs(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	psgetri(const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdgetri(const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcgetri(const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pzgetri(const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	pspotri(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdpotri(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pcpotri(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pzpotri(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	pstrtri(const char* uplo, const char* diag, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdtrtri(const char* uplo, const char* diag, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pctrtri(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pztrtri(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	psgeequ(const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* r, float* c, float* rowcnd, float* colcnd, float* amax, MKL_INT* info);
void	pdgeequ(const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* r, double* c, double* rowcnd, double* colcnd, double* amax, MKL_INT* info);
void	pcgeequ(const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* r, float* c, float* rowcnd, float* colcnd, float* amax, MKL_INT* info);
void	pzgeequ(const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* r, double* c, double* rowcnd, double* colcnd, double* amax, MKL_INT* info);

void	pspoequ(const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* sr, float* sc, float* scond, float* amax, MKL_INT* info);
void	pdpoequ(const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* sr, double* sc, double* scond, double* amax, MKL_INT* info);
void	pcpoequ(const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* sr, float* sc, float* scond, float* amax, MKL_INT* info);
void	pzpoequ(const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* sr, double* sc, double* scond, double* amax, MKL_INT* info);

void	psgeqrf(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgeqrf(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgeqrf(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgeqrf(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgeqpf(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgeqpf(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgeqpf(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzgeqpf(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	psorgqr(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorgqr(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pcungqr(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzungqr(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psormqr(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormqr(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pcunmqr(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmqr(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgelqf(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgelqf(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgelqf(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgelqf(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psorglq(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorglq(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pcunglq(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunglq(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psormlq(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormlq(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pcunmlq(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmlq(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgeqlf(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgeqlf(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgeqlf(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgeqlf(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psorgql(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorgql(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pcungql(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzungql(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psormql(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormql(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pcunmql(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmql(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgerqf(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgerqf(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgerqf(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgerqf(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psorgrq(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorgrq(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pcungrq(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzungrq(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psormrq(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormrq(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pcunmrq(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmrq(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pstzrzf(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdtzrzf(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pctzrzf(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pztzrzf(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psormrz(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormrz(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pcunmrz(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmrz(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psggqrf(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* taua, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* taub, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdggqrf(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* taua, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* taub, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcggqrf(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* taua, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* taub, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzggqrf(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* taua, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* taub, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psggrqf(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* taua, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* taub, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdggrqf(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* taua, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* taub, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcggrqf(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* taua, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* taub, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzggrqf(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* taua, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* taub, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pssytrd(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsytrd(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	psormtr(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormtr(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pchetrd(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzhetrd(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pcunmtr(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmtr(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psstebz(const MKL_INT* ictxt, const char* range, const char* order, const MKL_INT* n, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, const float* d, const float* e, MKL_INT* m, MKL_INT* nsplit, float* w, MKL_INT* iblock, MKL_INT* isplit, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdstebz(const MKL_INT* ictxt, const char* range, const char* order, const MKL_INT* n, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, const double* d, const double* e, MKL_INT* m, MKL_INT* nsplit, double* w, MKL_INT* iblock, MKL_INT* isplit, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	psstein(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pdstein(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	pcstein(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pzstein(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);

void	psgehrd(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgehrd(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgehrd(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgehrd(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psormhr(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormhr(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pcunmhr(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmhr(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pslahqr(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	pdlahqr(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);

void	psgebrd(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgebrd(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgebrd(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgebrd(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psormbr(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormbr(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pcunmbr(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmbr(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pssygst(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_INT* info);
void	pdsygst(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_INT* info);

void	pchegst(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_INT* info);
void	pzhegst(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_INT* info);

void	psgesv(const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdgesv(const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pcgesv(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pzgesv(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	psgesvx(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, float* r, float* c, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdgesvx(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, double* r, double* c, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcgesvx(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, float* r, float* c, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzgesvx(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, double* r, double* c, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	psgbsv(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgbsv(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgbsv(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgbsv(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psdbsv(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddbsv(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdbsv(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdbsv(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psdtsv(const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddtsv(const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdtsv(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdtsv(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psposv(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdposv(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pcposv(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pzposv(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	psposvx(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, float* sr, float* sc, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdposvx(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, double* sr, double* sc, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcposvx(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, float* sr, float* sc, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzposvx(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, double* sr, double* sc, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	pspbsv(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpbsv(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpbsv(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpbsv(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psptsv(const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdptsv(const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcptsv(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzptsv(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgels(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgels(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgels(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgels(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pssyev(const char* jobz, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsyev(const char* jobz, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pssyevd(const char* jobz, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdsyevd(const char* jobz, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	pssyevx(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pdsyevx(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);

void	pcheev(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzheev(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	pcheevd(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pzheevd(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	pcheevx(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pzheevx(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);

void	psgesvd(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* s, float* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, float* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgesvd(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* s, double* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, double* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgesvd(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* s, MKL_Complex8* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, MKL_Complex8* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, MKL_INT* info);
void	pzgesvd(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* s, MKL_Complex16* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, MKL_Complex16* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, MKL_INT* info);

void	pssygvx(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pdsygvx(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);

void	pchegvx(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pzhegvx(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);

void	pclacgv(const MKL_INT* n, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pzlacgv(const MKL_INT* n, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);

void	pcmax1(const MKL_INT* n, MKL_Complex8* amax, MKL_INT* indx, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pzmax1(const MKL_INT* n, MKL_Complex16* amax, MKL_INT* indx, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);

void	ccombamax1(MKL_Complex8* v1, const MKL_Complex8* v2);
void	zcombamax1(MKL_Complex16* v1, const MKL_Complex16* v2);

void	pscsum1(const MKL_INT* n, float* asum, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pdzsum1(const MKL_INT* n, double* asum, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);

void	psdbtrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddbtrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdbtrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdbtrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psdttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgebd2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgebd2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgebd2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgebd2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgehd2(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgehd2(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgehd2(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgehd2(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgelq2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgelq2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgelq2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgelq2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgeql2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgeql2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgeql2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgeql2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgeqr2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgeqr2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgeqr2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgeqr2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgerq2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgerq2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgerq2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgerq2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psgetf2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pdgetf2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pcgetf2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pzgetf2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);

void	pslabrd(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, float* work);
void	pdlabrd(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, double* work);
void	pclabrd(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex8* work);
void	pzlabrd(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex16* work);

void	pslacon(const MKL_INT* n, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_INT* isgn, float* est, MKL_INT* kase);
void	pdlacon(const MKL_INT* n, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_INT* isgn, double* est, MKL_INT* kase);
void	pclacon(const MKL_INT* n, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* est, MKL_INT* kase);
void	pzlacon(const MKL_INT* n, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* est, MKL_INT* kase);

void	pslaconsb(const float* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const float* h44, const float* h33, const float* h43h34, float* buf, const MKL_INT* lwork);
void	pdlaconsb(const double* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const double* h44, const double* h33, const double* h43h34, double* buf, const MKL_INT* lwork);

void	pslacp2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pdlacp2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pclacp2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pzlacp2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);

void	pslacp3(const MKL_INT* m, const MKL_INT* i, float* a, const MKL_INT* desca, float* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	pdlacp3(const MKL_INT* m, const MKL_INT* i, double* a, const MKL_INT* desca, double* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);

void	pslacpy(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pdlacpy(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pclacpy(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pzlacpy(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);

void	pslaevswp(const MKL_INT* n, const float* zin, const MKL_INT* ldzi, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, float* work, const MKL_INT* lwork);
void	pdlaevswp(const MKL_INT* n, const double* zin, const MKL_INT* ldzi, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, double* work, const MKL_INT* lwork);
void	pclaevswp(const MKL_INT* n, const float* zin, const MKL_INT* ldzi, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, float* rwork, const MKL_INT* lrwork);
void	pzlaevswp(const MKL_INT* n, const double* zin, const MKL_INT* ldzi, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, double* rwork, const MKL_INT* lrwork);

void	pslahrd(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* t, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, float* work);
void	pdlahrd(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* t, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, double* work);
void	pclahrd(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex8* work);
void	pzlahrd(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex16* work);

void	pslaiect(const float* sigma, const MKL_INT* n, const float* d, MKL_INT* count);

float	pslange(const char* norm, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pdlange(const char* norm, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pclange(const char* norm, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pzlange(const char* norm, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);

float	pslanhs(const char* norm, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pdlanhs(const char* norm, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pclanhs(const char* norm, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pzlanhs(const char* norm, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);

float	pslansy(const char* norm, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pdlansy(const char* norm, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pclansy(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pzlansy(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pclanhe(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pzlanhe(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);

float	pslantr(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pdlantr(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pclantr(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pzlantr(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);

void	pslapiv(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	pdlapiv(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	pclapiv(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	pzlapiv(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);

void	pslaqge(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* r, const float* c, const float* rowcnd, const float* colcnd, const float* amax, char* equed);
void	pdlaqge(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* r, const double* c, const double* rowcnd, const double* colcnd, const double* amax, char* equed);
void	pclaqge(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* r, const float* c, const float* rowcnd, const float* colcnd, const float* amax, char* equed);
void	pzlaqge(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* r, const double* c, const double* rowcnd, const double* colcnd, const double* amax, char* equed);

void	pslaqsy(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* sr, const float* sc, const float* scond, const float* amax, char* equed);
void	pdlaqsy(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* sr, const double* sc, const double* scond, const double* amax, char* equed);
void	pclaqsy(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* sr, const float* sc, const float* scond, const float* amax, char* equed);
void	pzlaqsy(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* sr, const double* sc, const double* scond, const double* amax, char* equed);

void	pslared1d(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const float* bycol, float* byall, float* work, const MKL_INT* lwork);
void	pdlared1d(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const double* bycol, double* byall, double* work, const MKL_INT* lwork);

void	pslared2d(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const float* byrow, float* byall, float* work, const MKL_INT* lwork);
void	pdlared2d(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const double* byrow, double* byall, double* work, const MKL_INT* lwork);

void	pslarf(const char* side, const MKL_INT* m, const MKL_INT* n, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	pdlarf(const char* side, const MKL_INT* m, const MKL_INT* n, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	pclarf(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarf(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	pslarfb(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* t, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	pdlarfb(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* t, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	pclarfb(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* t, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarfb(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* t, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	pclarfc(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarfc(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	pslarfg(const MKL_INT* n, float* alpha, const MKL_INT* iax, const MKL_INT* jax, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* tau);
void	pdlarfg(const MKL_INT* n, double* alpha, const MKL_INT* iax, const MKL_INT* jax, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* tau);
void	pclarfg(const MKL_INT* n, MKL_Complex8* alpha, const MKL_INT* iax, const MKL_INT* jax, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex8* tau);
void	pzlarfg(const MKL_INT* n, MKL_Complex16* alpha, const MKL_INT* iax, const MKL_INT* jax, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex16* tau);

void	pslarft(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* tau, float* t, float* work);
void	pdlarft(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* tau, double* t, double* work);
void	pclarft(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* work);
void	pzlarft(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* work);

void	pslarz(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	pdlarz(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	pclarz(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarz(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	pslarzb(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* t, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	pdlarzb(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* t, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	pclarzb(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* t, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarzb(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* t, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	pclarzc(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarzc(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	pslarzt(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* tau, float* t, float* work);
void	pdlarzt(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* tau, double* t, double* work);
void	pclarzt(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* work);
void	pzlarzt(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* work);

void	pslascl(const char* type, const float* cfrom, const float* cto, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdlascl(const char* type, const double* cfrom, const double* cto, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pclascl(const char* type, const float* cfrom, const float* cto, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pzlascl(const char* type, const double* cfrom, const double* cto, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	pslaset(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* alpha, const float* beta, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pdlaset(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* alpha, const double* beta, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pclaset(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* alpha, const MKL_Complex8* beta, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pzlaset(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* alpha, const MKL_Complex16* beta, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);

void	pslasmsub(const float* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const float* smlnum, float* buf, const MKL_INT* lwork);
void	pdlasmsub(const double* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const double* smlnum, double* buf, const MKL_INT* lwork);

void	pslassq(const MKL_INT* n, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* scale, float* sumsq);
void	pdlassq(const MKL_INT* n, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* scale, double* sumsq);
void	pclassq(const MKL_INT* n, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* scale, float* sumsq);
void	pzlassq(const MKL_INT* n, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* scale, double* sumsq);

void	pslaswp(const char* direc, const char* rowcol, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	pdlaswp(const char* direc, const char* rowcol, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	pclaswp(const char* direc, const char* rowcol, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	pzlaswp(const char* direc, const char* rowcol, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);

float	pslatra(const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
double	pdlatra(const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pclatra(MKL_Complex8 *, const MKL_INT *n, const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca);
void	pzlatra(MKL_Complex16 *, const MKL_INT *n, const MKL_Complex16 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca);

void	pslatrd(const char* uplo, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, float* work);
void	pdlatrd(const char* uplo, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, double* work);
void	pclatrd(const char* uplo, const MKL_INT* n, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, MKL_Complex8* work);
void	pzlatrd(const char* uplo, const MKL_INT* n, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, MKL_Complex16* work);

void	pslatrs(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, float* work);
void	pdlatrs(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, double* work);
void	pclatrs(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, MKL_Complex8* work);
void	pzlatrs(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, MKL_Complex16* work);

void	pslatrz(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work);
void	pdlatrz(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work);
void	pclatrz(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work);
void	pzlatrz(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work);

void	pslauu2(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pdlauu2(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pclauu2(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pzlauu2(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);

void	pslauum(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pdlauum(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pclauum(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pzlauum(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);

void	pslawil(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const float* a, const MKL_INT* desca, const float* h44, const float* h33, const float* h43h34, float* v);
void	pdlawil(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const double* a, const MKL_INT* desca, const double* h44, const double* h33, const double* h43h34, double* v);

void	psorg2l(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorg2l(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcung2l(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzung2l(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psorg2r(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorg2r(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcung2r(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzung2r(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psorgl2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorgl2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcungl2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzungl2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psorgr2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorgr2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcungr2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzungr2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psorm2l(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorm2l(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunm2l(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunm2l(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psorm2r(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorm2r(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunm2r(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunm2r(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psorml2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorml2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunml2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunml2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	psormr2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormr2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunmr2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmr2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pspbtrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpbtrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpbtrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpbtrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pspttrsv(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpttrsv(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pspotf2(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdpotf2(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pcpotf2(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pzpotf2(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	psrscl(const MKL_INT* n, const float* sa, float* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pdrscl(const MKL_INT* n, const double* sa, double* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pcsrscl(const MKL_INT* n, const float* sa, MKL_Complex8* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pzdrscl(const MKL_INT* n, const double* sa, MKL_Complex16* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);

void	pssygs2(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdsygs2(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pchegs2(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pzhegs2(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	pssytd2(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsytd2(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pchetd2(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzhetd2(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pstrti2(const char* uplo, const char* diag, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdtrti2(const char* uplo, const char* diag, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pctrti2(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pztrti2(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	slamsh(float* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, float* h, const MKL_INT* ldh, const MKL_INT* n, const float* ulp);
void	dlamsh(double* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, double* h, const MKL_INT* ldh, const MKL_INT* n, const double* ulp);

void	slaref(const char* type, float* a, const MKL_INT* lda, const MKL_INT* wantz, float* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const float* vecs, float* v2, float* v3, float* t1, float* t2, float* t3);
void	dlaref(const char* type, double* a, const MKL_INT* lda, const MKL_INT* wantz, double* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const double* vecs, double* v2, double* v3, double* t1, double* t2, double* t3);

void	slasorte(float* s, const MKL_INT* lds, const MKL_INT* j, float* out, MKL_INT* info);
void	dlasorte(double* s, const MKL_INT* lds, const MKL_INT* j, double* out, MKL_INT* info);

void	slasrt2(const char* id, const MKL_INT* n, float* d, MKL_INT* key, MKL_INT* info);
void	dlasrt2(const char* id, const MKL_INT* n, double* d, MKL_INT* key, MKL_INT* info);

void	sstein2(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, const float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, float* z, const MKL_INT* ldz, float* work, MKL_INT* iwork, MKL_INT* ifail, MKL_INT* info);
void	dstein2(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, const double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, double* z, const MKL_INT* ldz, double* work, MKL_INT* iwork, MKL_INT* ifail, MKL_INT* info);

void	sdbtf2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, float* ab, const MKL_INT* ldab, MKL_INT* info);
void	ddbtf2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, double* ab, const MKL_INT* ldab, MKL_INT* info);
void	cdbtf2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex8* ab, const MKL_INT* ldab, MKL_INT* info);
void	zdbtf2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex16* ab, const MKL_INT* ldab, MKL_INT* info);

void	sdbtrf(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, float* ab, const MKL_INT* ldab, MKL_INT* info);
void	ddbtrf(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, double* ab, const MKL_INT* ldab, MKL_INT* info);
void	cdbtrf(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex8* ab, const MKL_INT* ldab, MKL_INT* info);
void	zdbtrf(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex16* ab, const MKL_INT* ldab, MKL_INT* info);

void	sdttrf(const MKL_INT* n, float* dl, float* d, float* du, MKL_INT* info);
void	ddttrf(const MKL_INT* n, double* dl, double* d, double* du, MKL_INT* info);
void	cdttrf(const MKL_INT* n, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, MKL_INT* info);
void	zdttrf(const MKL_INT* n, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, MKL_INT* info);

void	sdttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* dl, const float* d, const float* du, float* b, const MKL_INT* ldb, MKL_INT* info);
void	ddttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* dl, const double* d, const double* du, double* b, const MKL_INT* ldb, MKL_INT* info);
void	cdttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* dl, const MKL_Complex8* d, const MKL_Complex8* du, MKL_Complex8* b, const MKL_INT* ldb, MKL_INT* info);
void	zdttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* dl, const MKL_Complex16* d, const MKL_Complex16* du, MKL_Complex16* b, const MKL_INT* ldb, MKL_INT* info);

void	spttrsv(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* d, const float* e, float* b, const MKL_INT* ldb, MKL_INT* info);
void	dpttrsv(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* d, const double* e, double* b, const MKL_INT* ldb, MKL_INT* info);
void	cpttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* d, const MKL_Complex8* e, MKL_Complex8* b, const MKL_INT* ldb, MKL_INT* info);
void	zpttrsv(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* d, const MKL_Complex16* e, MKL_Complex16* b, const MKL_INT* ldb, MKL_INT* info);

void	ssteqr2(const char* compz, const MKL_INT* n, float* d, float* e, float* z, const MKL_INT* ldz, const MKL_INT* nr, float* work, MKL_INT* info);
void	dsteqr2(const char* compz, const MKL_INT* n, double* d, double* e, double* z, const MKL_INT* ldz, const MKL_INT* nr, double* work, MKL_INT* info);

void	pslabad(const MKL_INT* ictxt, float* small, float* large);
void	pdlabad(const MKL_INT* ictxt, double* small, double* large);

void	pslachkieee(MKL_INT* isieee, const float* rmax, const float* rmin);
void	pdlachkieee(MKL_INT* isieee, const double* rmax, const double* rmin);

float	pslamch(const MKL_INT* ictxt, const char* cmach);
double	pdlamch(const MKL_INT* ictxt, const char* cmach);

void	pslasnbt(MKL_INT* ieflag);
void	pdlasnbt(MKL_INT* ieflag);

void	pxerbla(const MKL_INT* ictxt, const char* srname, const MKL_INT* info, MKL_INT srname_len);

/* Declarations are added in oneMKL 11.2 Beta */

void	bdlaapp(const MKL_INT* iside, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* lda, const MKL_INT* nitraf, const MKL_INT* itraf, double* dtraf, double* work);
void	bdlaexc(const MKL_INT* n, double* t, const MKL_INT* ldt, const MKL_INT* j1, const MKL_INT* n1, const MKL_INT* n2, MKL_INT* itraf, double* dtraf, double* work, MKL_INT* info);
void	bdtrexc(const MKL_INT* n, double* t, const MKL_INT* ldt, MKL_INT* ifst, MKL_INT* ilst, MKL_INT* nitraf, MKL_INT* itraf, MKL_INT* ndtraf, double* dtraf, double* work, MKL_INT* info);
void	bslaapp(const MKL_INT* iside, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* lda, const MKL_INT* nitraf, const MKL_INT* itraf, float* dtraf, float* work);
void	bslaexc(const MKL_INT* n, float* t, const MKL_INT* ldt, const MKL_INT* j1, const MKL_INT* n1, const MKL_INT* n2, MKL_INT* itraf, float* dtraf, float* work, MKL_INT* info);
void	bstrexc(const MKL_INT* n, float* t, const MKL_INT* ldt, MKL_INT* ifst, MKL_INT* ilst, MKL_INT* nitraf, MKL_INT* itraf, MKL_INT* ndtraf, float* dtraf, float* work, MKL_INT* info);

void	dlaqr6(const char* job, const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const double* sr, const double* si, double* h, const MKL_INT* ldh, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* ldz, double* v, const MKL_INT* ldv, double* u, const MKL_INT* ldu, const MKL_INT* nv, double* wv, const MKL_INT* ldwv, const MKL_INT* nh, double* wh, const MKL_INT* ldwh);
void	dlar1va(const MKL_INT* n, const MKL_INT* b1, const MKL_INT* bn, const double* lambda, const double* d, const double* l, const double* ld, const double* lld, const double* pivmin, const double* gaptol, double* z, const MKL_INT* wantnc, MKL_INT* negcnt, double* ztz, double* mingma, MKL_INT* r, MKL_INT* isuppz, double* nrminv, double* resid, double* rqcorr, double* work);
void	dlarrb2(const MKL_INT* n, const double* d, const double* lld, const MKL_INT* ifirst, const MKL_INT* ilast, const double* rtol1, const double* rtol2, const MKL_INT* offset, double* w, double* wgap, double* werr, double* work, MKL_INT* iwork, const double* pivmin, const double* lgpvmn, const double* lgspdm, const MKL_INT* twist, MKL_INT* info);
void	dlarrd2(const char* range, const char* order, const MKL_INT* n, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* gers, const double* reltol, const double* d, const double* e, const double* e2, const double* pivmin, const MKL_INT* nsplit, const MKL_INT* isplit, MKL_INT* m, double* w, double* werr, double* wl, double* wu, MKL_INT* iblock, MKL_INT* indexw, double* work, MKL_INT* iwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* info);
void	dlarre2(const char* range, const MKL_INT* n, double* vl, double* vu, const MKL_INT* il, const MKL_INT* iu, double* d, double* e, double* e2, const double* rtol1, const double* rtol2, const double* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, double* w, double* werr, double* wgap, MKL_INT* iblock, MKL_INT* indexw, double* gers, double* pivmin, double* work, MKL_INT* iwork, MKL_INT* info);
void	dlarre2a(const char* range, const MKL_INT* n, double* vl, double* vu, const MKL_INT* il, const MKL_INT* iu, double* d, double* e, double* e2, const double* rtol1, const double* rtol2, const double* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, double* w, double* werr, double* wgap, MKL_INT* iblock, MKL_INT* indexw, double* gers, double* sdiam, double* pivmin, double* work, MKL_INT* iwork, const double* minrgp, MKL_INT* info);
void	dlarrf2(const MKL_INT* n, const double* d, const double* l, const double* ld, const MKL_INT* clstrt, const MKL_INT* clend, const MKL_INT* clmid1, const MKL_INT* clmid2, const double* w, double* wgap, const double* werr, const MKL_INT* trymid, const double* spdiam, const double* clgapl, const double* clgapr, const double* pivmin, double* sigma, double* dplus, double* lplus, double* work, MKL_INT* info);
void	dlarrv2(const MKL_INT* n, const double* vl, const double* vu, double* d, double* l, const double* pivmin, const MKL_INT* isplit, const MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, const double* minrgp, const double* rtol1, const double* rtol2, double* w, double* werr, double* wgap, const MKL_INT* iblock, const MKL_INT* indexw, const double* gers, const double* sdiam, double* z, const MKL_INT* ldz, MKL_INT* isuppz, double* work, MKL_INT* iwork, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);

void	dstegr2(const char* jobz, const char* range, const MKL_INT* n, double* d, double* e, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, const MKL_INT* zoffset, MKL_INT* info);
void	dstegr2a(const char* jobz, const char* range, const MKL_INT* n, double* d, double* e, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* inderr, MKL_INT* nsplit, double* pivmin, double* scale, double* wl, double* wu, MKL_INT* info);
void	dstegr2b(const char* jobz, const MKL_INT* n, double* d, double* e, const MKL_INT* m, const double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* indwlc, const double* pivmin, const double* scale, const double* wl, const double* wu, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);

void	pcheevr(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcrot(const MKL_INT* n, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const float* c, const MKL_Complex8* s);

void	pdgebal(const char* job, const MKL_INT* n, double* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, double* scale, MKL_INT* info);
void	pdlamve(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* dwork);
void	pdlaqr0(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* h, const MKL_INT* desch, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info, const MKL_INT* reclevel);
void	pdlaqr1(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	pdlaqr2(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, double* a, const MKL_INT* desca, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, double* sr, double* si, double* t, const MKL_INT* ldt, double* v, const MKL_INT* ldv, double* wr, double* wi, double* work, const MKL_INT* lwork);
void	pdlaqr3(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, double* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, double* sr, double* si, double* v, const MKL_INT* descv, const MKL_INT* nh, double* t, const MKL_INT* desct, const MKL_INT* nv, double* wv, const MKL_INT* descw, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* reclevel);
void	pdlaqr4(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* t, const MKL_INT* ldt, double* v, const MKL_INT* ldv, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pdlaqr5(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const double* sr, const double* si, double* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork);
void	pdrot(const MKL_INT* n, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const double* cs, const double* sn, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsyevr(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdtrord(const char* compq, MKL_INT* select, const MKL_INT* para, const MKL_INT* n, double* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* wr, double* wi, MKL_INT* m, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdtrsen(const char* job, const char* compq, const MKL_INT* select, const MKL_INT* para, const MKL_INT* n, double* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* wr, double* wi, MKL_INT* m, double* s, double* sep, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	pmpcol(const MKL_INT* myproc, const MKL_INT* nprocs, const MKL_INT* iil, const MKL_INT* needil, const MKL_INT* neediu, const MKL_INT* pmyils, const MKL_INT* pmyius, MKL_INT* colbrt, MKL_INT* frstcl, MKL_INT* lastcl);
void	pmpim2(const MKL_INT* il, const MKL_INT* iu, const MKL_INT* nprocs, MKL_INT* pmyils, MKL_INT* pmyius);

void	psgebal(const char* job, const MKL_INT* n, float* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, float* scale, MKL_INT* info);
void	pslamve(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* dwork);
void	pslaqr0(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* h, const MKL_INT* desch, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info, const MKL_INT* reclevel);
void	pslaqr1(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	pslaqr2(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, float* a, const MKL_INT* desca, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, float* sr, float* si, float* t, const MKL_INT* ldt, float* v, const MKL_INT* ldv, float* wr, float* wi, float* work, const MKL_INT* lwork);
void	pslaqr3(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, float* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, float* sr, float* si, float* v, const MKL_INT* descv, const MKL_INT* nh, float* t, const MKL_INT* desct, const MKL_INT* nv, float* wv, const MKL_INT* descw, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* reclevel);
void	pslaqr4(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* t, const MKL_INT* ldt, float* v, const MKL_INT* ldv, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pslaqr5(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const float* sr, const float* si, float* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork);
void	psrot(const MKL_INT* n, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const float* cs, const float* sn, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pssyevr(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pstrord(const char* compq, MKL_INT* select, const MKL_INT* para, const MKL_INT* n, float* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* wr, float* wi, MKL_INT* m, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pstrsen(const char* job, const char* compq, const MKL_INT* select, const MKL_INT* para, const MKL_INT* n, float* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* wr, float* wi, MKL_INT* m, float* s, float* sep, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	pzheevr(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pzrot(const MKL_INT* n, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const double* c, const MKL_Complex16* s);

void	slaqr6(const char* job, const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const float* sr, const float* si, float* h, const MKL_INT* ldh, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* ldz, float* v, const MKL_INT* ldv, float* u, const MKL_INT* ldu, const MKL_INT* nv, float* wv, const MKL_INT* ldwv, const MKL_INT* nh, float* wh, const MKL_INT* ldwh);
void	slar1va(const MKL_INT* n, const MKL_INT* b1, const MKL_INT* bn, const float* lambda, const float* d, const float* l, const float* ld, const float* lld, const float* pivmin, const float* gaptol, float* z, const MKL_INT* wantnc, MKL_INT* negcnt, float* ztz, float* mingma, MKL_INT* r, MKL_INT* isuppz, float* nrminv, float* resid, float* rqcorr, float* work);
void	slarrb2(const MKL_INT* n, const float* d, const float* lld, const MKL_INT* ifirst, const MKL_INT* ilast, const float* rtol1, const float* rtol2, const MKL_INT* offset, float* w, float* wgap, float* werr, float* work, MKL_INT* iwork, const float* pivmin, const float* lgpvmn, const float* lgspdm, const MKL_INT* twist, MKL_INT* info);
void	slarrd2(const char* range, const char* order, const MKL_INT* n, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* gers, const float* reltol, const float* d, const float* e, const float* e2, const float* pivmin, const MKL_INT* nsplit, const MKL_INT* isplit, MKL_INT* m, float* w, float* werr, float* wl, float* wu, MKL_INT* iblock, MKL_INT* indexw, float* work, MKL_INT* iwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* info);
void	slarre2(const char* range, const MKL_INT* n, float* vl, float* vu, const MKL_INT* il, const MKL_INT* iu, float* d, float* e, float* e2, const float* rtol1, const float* rtol2, const float* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, float* w, float* werr, float* wgap, MKL_INT* iblock, MKL_INT* indexw, float* gers, float* pivmin, float* work, MKL_INT* iwork, MKL_INT* info);
void	slarre2a(const char* range, const MKL_INT* n, float* vl, float* vu, const MKL_INT* il, const MKL_INT* iu, float* d, float* e, float* e2, const float* rtol1, const float* rtol2, const float* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, float* w, float* werr, float* wgap, MKL_INT* iblock, MKL_INT* indexw, float* gers, float* sdiam, float* pivmin, float* work, MKL_INT* iwork, const float* minrgp, MKL_INT* info);
void	slarrf2(const MKL_INT* n, const float* d, const float* l, const float* ld, const MKL_INT* clstrt, const MKL_INT* clend, const MKL_INT* clmid1, const MKL_INT* clmid2, const float* w, float* wgap, const float* werr, const MKL_INT* trymid, const float* spdiam, const float* clgapl, const float* clgapr, const float* pivmin, float* sigma, float* dplus, float* lplus, float* work, MKL_INT* info);
void	slarrv2(const MKL_INT* n, const float* vl, const float* vu, float* d, float* l, const float* pivmin, const MKL_INT* isplit, const MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, const float* minrgp, const float* rtol1, const float* rtol2, float* w, float* werr, float* wgap, const MKL_INT* iblock, const MKL_INT* indexw, const float* gers, const float* sdiam, float* z, const MKL_INT* ldz, MKL_INT* isuppz, float* work, MKL_INT* iwork, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);

void	sstegr2(const char* jobz, const char* range, const MKL_INT* n, float* d, float* e, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, const MKL_INT* zoffset, MKL_INT* info);
void	sstegr2a(const char* jobz, const char* range, const MKL_INT* n, float* d, float* e, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* inderr, MKL_INT* nsplit, float* pivmin, float* scale, float* wl, float* wu, MKL_INT* info);
void	sstegr2b(const char* jobz, const MKL_INT* n, float* d, float* e, const MKL_INT* m, const float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* indwlc, const float* pivmin, const float* scale, const float* wl, const float* wu, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);

/* Declarations added oneMKL 11.3.2 */

void	pchengst(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzhengst(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pchentrd(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzhentrd(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	pchettrd(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzhettrd(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	pshseqr(const char* job, const char* compz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* h, const MKL_INT* desch, float* wr, float* wi, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdhseqr(const char* job, const char* compz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* h, const MKL_INT* desch, double* wr, double* wi, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	pclaconsb(const MKL_Complex8* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const MKL_Complex8* h44, const MKL_Complex8* h33, const MKL_Complex8* h43h34, MKL_Complex8* buf, const MKL_INT* lwork);
void	pzlaconsb(const MKL_Complex16* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const MKL_Complex16* h44, const MKL_Complex16* h33, const MKL_Complex16* h43h34, MKL_Complex16* buf, const MKL_INT* lwork);

void	pclacp3(const MKL_INT* m, const MKL_INT* i, MKL_Complex8* a, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	pzlacp3(const MKL_INT* m, const MKL_INT* i, MKL_Complex16* a, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);

void	pslaed0(const MKL_INT* n, float* d, float* e, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, MKL_INT* iwork, MKL_INT* info);
void	pdlaed0(const MKL_INT* n, double* d, double* e, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, MKL_INT* iwork, MKL_INT* info);

void	pslaed1(const MKL_INT* n, const MKL_INT* n1, float* d, const MKL_INT* id, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, const float* rho, float* work, MKL_INT* iwork, MKL_INT* info);
void	pdlaed1(const MKL_INT* n, const MKL_INT* n1, double* d, const MKL_INT* id, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, const double* rho, double* work, MKL_INT* iwork, MKL_INT* info);

void	pslaed2(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* n1, const MKL_INT* nb, float* d, const MKL_INT* drow, const MKL_INT* dcol, float* q, const MKL_INT* ldq, float* rho, const float* z, float* w, float* dlamda, float* q2, const MKL_INT* ldq2, float* qbuf, MKL_INT* ctot, MKL_INT* psm, const MKL_INT* npcol, MKL_INT* indx, MKL_INT* indxc, MKL_INT* indxp, MKL_INT* indcol, MKL_INT* coltyp, MKL_INT* nn, MKL_INT* nn1, MKL_INT* nn2, MKL_INT* ib1, MKL_INT* ib2);
void	pdlaed2(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* n1, const MKL_INT* nb, double* d, const MKL_INT* drow, const MKL_INT* dcol, double* q, const MKL_INT* ldq, double* rho, const double* z, double* w, double* dlamda, double* q2, const MKL_INT* ldq2, double* qbuf, MKL_INT* ctot, MKL_INT* psm, const MKL_INT* npcol, MKL_INT* indx, MKL_INT* indxc, MKL_INT* indxp, MKL_INT* indcol, MKL_INT* coltyp, MKL_INT* nn, MKL_INT* nn1, MKL_INT* nn2, MKL_INT* ib1, MKL_INT* ib2);

void	pslaed3(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* nb, float* d, const MKL_INT* drow, const MKL_INT* dcol, float* rho, float* dlamda, float* w, const float* z, float* u, const MKL_INT* ldu, float* buf, MKL_INT* indx, MKL_INT* indcol, MKL_INT* indrow, MKL_INT* indxr, MKL_INT* indxc, MKL_INT* ctot, const MKL_INT* npcol, MKL_INT* info);
void	pdlaed3(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* nb, double* d, const MKL_INT* drow, const MKL_INT* dcol, double* rho, double* dlamda, double* w, const double* z, double* u, const MKL_INT* ldu, double* buf, MKL_INT* indx, MKL_INT* indcol, MKL_INT* indrow, MKL_INT* indxr, MKL_INT* indxc, MKL_INT* ctot, const MKL_INT* npcol, MKL_INT* info);

void	pslaedz(const MKL_INT* n, const MKL_INT* n1, const MKL_INT* id, const float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* ldq, const MKL_INT* descq, float* z, float* work);
void	pdlaedz(const MKL_INT* n, const MKL_INT* n1, const MKL_INT* id, const double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* ldq, const MKL_INT* descq, double* z, double* work);

void	pclahqr(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* desca, MKL_Complex8* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex8* z, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	pzlahqr(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* desca, MKL_Complex16* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex16* z, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);

void	clahqr2(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* h, const MKL_INT* ldh, MKL_Complex8* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex8* z, const MKL_INT* ldz, MKL_INT* info);
void	zlahqr2(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* h, const MKL_INT* ldh, MKL_Complex16* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex16* z, const MKL_INT* ldz, MKL_INT* info);

void	pdlaiectb(const double* sigma, const MKL_INT* n, const double* d, MKL_INT* count);
void	pdlaiectl(const double* sigma, const MKL_INT* n, const double* d, MKL_INT* count);

void	slamov(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const float* A, const MKL_INT* LDA, float* B, const MKL_INT* LDB);
void	dlamov(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const double* A, const MKL_INT* LDA, double* B, const MKL_INT* LDB);
void	clamov(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const MKL_Complex8* A, const MKL_INT* LDA, MKL_Complex8* B, const MKL_INT* LDB);
void	zlamov(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const MKL_Complex16* A, const MKL_INT* LDA, MKL_Complex16* B, const MKL_INT* LDB);

void	pslamr1d(const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pdlamr1d(const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pclamr1d(const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pzlamr1d(const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);

void	clamsh(MKL_Complex8* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, MKL_Complex8* h, const MKL_INT* ldh, const MKL_INT* n, const float* ulp);
void	zlamsh(MKL_Complex16* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, MKL_Complex16* h, const MKL_INT* ldh, const MKL_INT* n, const double* ulp);

void	clanv2(MKL_Complex8* a, MKL_Complex8* b, MKL_Complex8* c, MKL_Complex8* d, MKL_Complex8* rt1, MKL_Complex8* rt2, float* cs, MKL_Complex8* sn);
void	zlanv2(MKL_Complex16* a, MKL_Complex16* b, MKL_Complex16* c, MKL_Complex16* d, MKL_Complex16* rt1, MKL_Complex16* rt2, double* cs, MKL_Complex16* sn);

void	slapst(const char* id, const MKL_INT* n, const float* d, MKL_INT* indx, MKL_INT* info);
void	dlapst(const char* id, const MKL_INT* n, const double* d, MKL_INT* indx, MKL_INT* info);

void	pslapv2(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	pdlapv2(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	pclapv2(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	pzlapv2(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);

void	claref(const char* type, MKL_Complex8* a, const MKL_INT* lda, const MKL_INT* wantz, MKL_Complex8* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const MKL_Complex8* vecs, MKL_Complex8* v2, MKL_Complex8* v3, MKL_Complex8* t1, MKL_Complex8* t2, MKL_Complex8* t3);
void	zlaref(const char* type, MKL_Complex16* a, const MKL_INT* lda, const MKL_INT* wantz, MKL_Complex16* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const MKL_Complex16* vecs, MKL_Complex16* v2, MKL_Complex16* v3, MKL_Complex16* t1, MKL_Complex16* t2, MKL_Complex16* t3);

void	pslase2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* alpha, const float* beta, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pdlase2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* alpha, const double* beta, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pclase2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* alpha, const MKL_Complex8* beta, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pzlase2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* alpha, const MKL_Complex16* beta, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);

void	pclasmsub(const MKL_Complex8* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const float* smlnum, MKL_Complex8* buf, const MKL_INT* lwork);
void	pzlasmsub(const MKL_Complex16* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const double* smlnum, MKL_Complex16* buf, const MKL_INT* lwork);

void	pslasrt(const char* id, const MKL_INT* n, float* d, const float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdlasrt(const char* id, const MKL_INT* n, double* d, const double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	pclattrs(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, MKL_INT* info);
void	pzlattrs(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, MKL_INT* info);

void	pilaver(MKL_INT* vers_major, MKL_INT* vers_minor, MKL_INT* vers_patch);

void	pclawil(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const MKL_Complex8* a, const MKL_INT* desca, const MKL_Complex8* h44, const MKL_Complex8* h33, const MKL_Complex8* h43h34, MKL_Complex8* v);
void	pzlawil(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const MKL_Complex16* a, const MKL_INT* desca, const MKL_Complex16* h44, const MKL_Complex16* h33, const MKL_Complex16* h43h34, MKL_Complex16* v);

void	psormr3(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormr3(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	psstedc(const char* compz, const MKL_INT* n, float* d, float* e, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdstedc(const char* compz, const MKL_INT* n, double* d, double* e, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	csteqr2(const char* compz, const MKL_INT* n, float* d, float* e, MKL_Complex8* z, const MKL_INT* ldz, const MKL_INT* nr, float* work, MKL_INT* info);
void	zsteqr2(const char* compz, const MKL_INT* n, double* d, double* e, MKL_Complex16* z, const MKL_INT* ldz, const MKL_INT* nr, double* work, MKL_INT* info);

void	pssyngst(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsyngst(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pssyntrd(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsyntrd(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pssyttrd(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsyttrd(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	pctrevc(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, MKL_Complex8* t, const MKL_INT* desct, MKL_Complex8* vl, const MKL_INT* descvl, MKL_Complex8* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, MKL_Complex8* work, float* rwork, MKL_INT* info);
void	pztrevc(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, MKL_Complex16* t, const MKL_INT* desct, MKL_Complex16* vl, const MKL_INT* descvl, MKL_Complex16* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, MKL_Complex16* work, double* rwork, MKL_INT* info);
void	pstrevc(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, float* t, const MKL_INT* desct, float* vl, const MKL_INT* descvl, float* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, float* work, MKL_INT* info);
void	pdtrevc(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, double* t, const MKL_INT* desct, double* vl, const MKL_INT* descvl, double* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, double* work, MKL_INT* info);

void	strmvt(const char* uplo, const MKL_INT* n, const float* t, const MKL_INT* ldt, float* x, const MKL_INT* incx, const float* y, const MKL_INT* incy, float* w, const MKL_INT* incw, const float* z, const MKL_INT* incz);
void	dtrmvt(const char* uplo, const MKL_INT* n, const double* t, const MKL_INT* ldt, double* x, const MKL_INT* incx, const double* y, const MKL_INT* incy, double* w, const MKL_INT* incw, const double* z, const MKL_INT* incz);
void	ctrmvt(const char* uplo, const MKL_INT* n, const MKL_Complex8* t, const MKL_INT* ldt, MKL_Complex8* x, const MKL_INT* incx, const MKL_Complex8* y, const MKL_INT* incy, MKL_Complex8* w, const MKL_INT* incw, const MKL_Complex8* z, const MKL_INT* incz);
void	ztrmvt(const char* uplo, const MKL_INT* n, const MKL_Complex16* t, const MKL_INT* ldt, MKL_Complex16* x, const MKL_INT* incx, const MKL_Complex16* y, const MKL_INT* incy, MKL_Complex16* w, const MKL_INT* incw, const MKL_Complex16* z, const MKL_INT* incz);

void	pcunmr3(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmr3(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

MKL_INT	pilaenvx(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n1, const MKL_INT* n2, const MKL_INT* n3, const MKL_INT* n4);
MKL_INT	piparmq(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_INT* lworknb);
MKL_INT	pjlaenv(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n1, const MKL_INT* n2, const MKL_INT* n3, const MKL_INT* n4);



/* OTHER NAMING CONVENTIONS FOLLOW */

void	PSGETRF(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PDGETRF(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PCGETRF(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PZGETRF(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PSGETRF_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PDGETRF_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PCGETRF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PZGETRF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	psgetrf_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pdgetrf_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pcgetrf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pzgetrf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);

void psgeevx_( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, float* a, const MKL_INT* desca, float* wr, float* wi, float* vl,  const MKL_INT* descvl, float* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, float* scale, float* abnrm,  float* rconde, float* rcondv, float* work,  const MKL_INT* lwork, MKL_INT* info );
void pdgeevx_( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, double* a, const MKL_INT* desca, double* wr, double* wi, double* vl,  const MKL_INT* descvl, double* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, double* scale, double* abnrm,  double* rconde, double* rcondv, double* work,  const MKL_INT* lwork, MKL_INT* info );
void pcgeevx_( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, MKL_Complex8* a,  const MKL_INT* desca, MKL_Complex8* w, MKL_Complex8* vl, const MKL_INT* descvl, MKL_Complex8* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, float* scale, float* abnrm, float* rconde, float* rcondv, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info );
void pzgeevx_( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, MKL_Complex16* a,  const MKL_INT* desca, MKL_Complex16* w, MKL_Complex16* vl, const MKL_INT* descvl, MKL_Complex16* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, double* scale, double* abnrm, double* rconde, double* rcondv, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info );

void PSGEEVX( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, float* a, const MKL_INT* desca, float* wr, float* wi, float* vl,  const MKL_INT* descvl, float* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, float* scale, float* abnrm,  float* rconde, float* rcondv, float* work,  const MKL_INT* lwork, MKL_INT* info );
void PDGEEVX( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, double* a, const MKL_INT* desca, double* wr, double* wi, double* vl,  const MKL_INT* descvl, double* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, double* scale, double* abnrm,  double* rconde, double* rcondv, double* work,  const MKL_INT* lwork, MKL_INT* info );
void PCGEEVX( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, MKL_Complex8* a,  const MKL_INT* desca, MKL_Complex8* w, MKL_Complex8* vl, const MKL_INT* descvl, MKL_Complex8* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, float* scale, float* abnrm, float* rconde, float* rcondv, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info );
void PZGEEVX( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, MKL_Complex16* a,  const MKL_INT* desca, MKL_Complex16* w, MKL_Complex16* vl, const MKL_INT* descvl, MKL_Complex16* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, double* scale, double* abnrm, double* rconde, double* rcondv, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info );

void PSGEEVX_( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, float* a, const MKL_INT* desca, float* wr, float* wi, float* vl,  const MKL_INT* descvl, float* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, float* scale, float* abnrm,  float* rconde, float* rcondv, float* work,  const MKL_INT* lwork, MKL_INT* info );
void PDGEEVX_( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, double* a, const MKL_INT* desca, double* wr, double* wi, double* vl,  const MKL_INT* descvl, double* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, double* scale, double* abnrm,  double* rconde, double* rcondv, double* work,  const MKL_INT* lwork, MKL_INT* info ); 
void PCGEEVX_( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, MKL_Complex8* a,  const MKL_INT* desca, MKL_Complex8* w, MKL_Complex8* vl, const MKL_INT* descvl, MKL_Complex8* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, float* scale, float* abnrm, float* rconde, float* rcondv, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info ); 
void PZGEEVX_( const char* balanc, const char* jobvl, const char* jobvr, const char* sense, const MKL_INT* n, MKL_Complex16* a,  const MKL_INT* desca, MKL_Complex16* w, MKL_Complex16* vl, const MKL_INT* descvl, MKL_Complex16* vr, const MKL_INT* descvr, MKL_INT* ilo, MKL_INT* ihi, double* scale, double* abnrm, double* rconde, double* rcondv, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info );




void	PSGBTRF(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGBTRF(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGBTRF(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGBTRF(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGBTRF_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGBTRF_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGBTRF_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGBTRF_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgbtrf_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgbtrf_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgbtrf_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgbtrf_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSDBTRF(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, float* a, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDBTRF(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, double* a, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDBTRF(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDBTRF(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSDBTRF_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, float* a, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDBTRF_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, double* a, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDBTRF_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDBTRF_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psdbtrf_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, float* a, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddbtrf_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, double* a, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdbtrf_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdbtrf_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSPOTRF(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDPOTRF(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCPOTRF(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZPOTRF(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PSPOTRF_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDPOTRF_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCPOTRF_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZPOTRF_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pspotrf_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdpotrf_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pcpotrf_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pzpotrf_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	PSPBTRF(const char* uplo, const MKL_INT* n, const MKL_INT* bw, float* a, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPBTRF(const char* uplo, const MKL_INT* n, const MKL_INT* bw, double* a, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPBTRF(const char* uplo, const MKL_INT* n, const MKL_INT* bw, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPBTRF(const char* uplo, const MKL_INT* n, const MKL_INT* bw, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSPBTRF_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, float* a, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPBTRF_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, double* a, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPBTRF_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPBTRF_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pspbtrf_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, float* a, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpbtrf_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, double* a, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpbtrf_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpbtrf_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSPTTRF(const MKL_INT* n, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPTTRF(const MKL_INT* n, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPTTRF(const MKL_INT* n, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPTTRF(const MKL_INT* n, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSPTTRF_(const MKL_INT* n, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPTTRF_(const MKL_INT* n, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPTTRF_(const MKL_INT* n, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPTTRF_(const MKL_INT* n, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pspttrf_(const MKL_INT* n, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpttrf_(const MKL_INT* n, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpttrf_(const MKL_INT* n, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpttrf_(const MKL_INT* n, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSDTTRF(const MKL_INT* n, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDTTRF(const MKL_INT* n, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDTTRF(const MKL_INT* n, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDTTRF(const MKL_INT* n, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSDTTRF_(const MKL_INT* n, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDTTRF_(const MKL_INT* n, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDTTRF_(const MKL_INT* n, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDTTRF_(const MKL_INT* n, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psdttrf_(const MKL_INT* n, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddttrf_(const MKL_INT* n, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdttrf_(const MKL_INT* n, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdttrf_(const MKL_INT* n, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGETRS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDGETRS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCGETRS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZGETRS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PSGETRS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDGETRS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCGETRS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZGETRS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	psgetrs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdgetrs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pcgetrs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pzgetrs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	PSGBTRS(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGBTRS(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGBTRS(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGBTRS(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGBTRS_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGBTRS_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGBTRS_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGBTRS_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgbtrs_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgbtrs_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgbtrs_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgbtrs_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSPOTRS(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDPOTRS(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCPOTRS(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZPOTRS(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PSPOTRS_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDPOTRS_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCPOTRS_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZPOTRS_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pspotrs_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdpotrs_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pcpotrs_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pzpotrs_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	PSPBTRS(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPBTRS(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPBTRS(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPBTRS(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSPBTRS_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPBTRS_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPBTRS_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPBTRS_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pspbtrs_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpbtrs_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpbtrs_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpbtrs_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSPTTRS(const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPTTRS(const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPTTRS(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPTTRS(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSPTTRS_(const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPTTRS_(const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPTTRS_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPTTRS_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pspttrs_(const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpttrs_(const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpttrs_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpttrs_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSDTTRS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDTTRS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDTTRS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDTTRS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSDTTRS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDTTRS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDTTRS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDTTRS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psdttrs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddttrs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdttrs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdttrs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSDBTRS(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDBTRS(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDBTRS(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDBTRS(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSDBTRS_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDBTRS_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDBTRS_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDBTRS_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psdbtrs_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddbtrs_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdbtrs_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdbtrs_(const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSTRTRS(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDTRTRS(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCTRTRS(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZTRTRS(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PSTRTRS_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDTRTRS_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCTRTRS_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZTRTRS_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pstrtrs_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdtrtrs_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pctrtrs_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pztrtrs_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	PSGECON(const char* norm, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDGECON(const char* norm, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCGECON(const char* norm, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZGECON(const char* norm, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PSGECON_(const char* norm, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDGECON_(const char* norm, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCGECON_(const char* norm, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZGECON_(const char* norm, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	psgecon_(const char* norm, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdgecon_(const char* norm, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcgecon_(const char* norm, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzgecon_(const char* norm, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	PSPOCON(const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDPOCON(const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCPOCON(const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZPOCON(const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PSPOCON_(const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDPOCON_(const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCPOCON_(const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZPOCON_(const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pspocon_(const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdpocon_(const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcpocon_(const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* anorm, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzpocon_(const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* anorm, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	PSTRCON(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDTRCON(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCTRCON(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZTRCON(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PSTRCON_(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDTRCON_(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCTRCON_(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZTRCON_(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pstrcon_(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* rcond, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdtrcon_(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* rcond, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pctrcon_(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* rcond, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pztrcon_(const char* norm, const char* uplo, const char* diag, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* rcond, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	PSGERFS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDGERFS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCGERFS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZGERFS(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PSGERFS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDGERFS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCGERFS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZGERFS_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	psgerfs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdgerfs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcgerfs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzgerfs_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_INT* ipiv, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	PSPORFS(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDPORFS(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCPORFS(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZPORFS(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PSPORFS_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDPORFS_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCPORFS_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZPORFS_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	psporfs_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdporfs_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcporfs_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzporfs_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	PSTRRFS(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDTRRFS(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCTRRFS(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZTRRFS(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PSTRRFS_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDTRRFS_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCTRRFS_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZTRRFS_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pstrrfs_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdtrrfs_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pctrrfs_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pztrrfs_(const char* uplo, const char* trans, const char* diag, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	PSGETRI(const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDGETRI(const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCGETRI(const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PZGETRI(const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PSGETRI_(const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDGETRI_(const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCGETRI_(const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PZGETRI_(const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	psgetri_(const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdgetri_(const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcgetri_(const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pzgetri_(const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PSPOTRI(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDPOTRI(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCPOTRI(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZPOTRI(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PSPOTRI_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDPOTRI_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCPOTRI_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZPOTRI_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pspotri_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdpotri_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pcpotri_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pzpotri_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	PSTRTRI(const char* uplo, const char* diag, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDTRTRI(const char* uplo, const char* diag, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCTRTRI(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZTRTRI(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PSTRTRI_(const char* uplo, const char* diag, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDTRTRI_(const char* uplo, const char* diag, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCTRTRI_(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZTRTRI_(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pstrtri_(const char* uplo, const char* diag, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdtrtri_(const char* uplo, const char* diag, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pctrtri_(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pztrtri_(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	PSGEEQU(const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* r, float* c, float* rowcnd, float* colcnd, float* amax, MKL_INT* info);
void	PDGEEQU(const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* r, double* c, double* rowcnd, double* colcnd, double* amax, MKL_INT* info);
void	PCGEEQU(const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* r, float* c, float* rowcnd, float* colcnd, float* amax, MKL_INT* info);
void	PZGEEQU(const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* r, double* c, double* rowcnd, double* colcnd, double* amax, MKL_INT* info);
void	PSGEEQU_(const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* r, float* c, float* rowcnd, float* colcnd, float* amax, MKL_INT* info);
void	PDGEEQU_(const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* r, double* c, double* rowcnd, double* colcnd, double* amax, MKL_INT* info);
void	PCGEEQU_(const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* r, float* c, float* rowcnd, float* colcnd, float* amax, MKL_INT* info);
void	PZGEEQU_(const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* r, double* c, double* rowcnd, double* colcnd, double* amax, MKL_INT* info);
void	psgeequ_(const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* r, float* c, float* rowcnd, float* colcnd, float* amax, MKL_INT* info);
void	pdgeequ_(const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* r, double* c, double* rowcnd, double* colcnd, double* amax, MKL_INT* info);
void	pcgeequ_(const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* r, float* c, float* rowcnd, float* colcnd, float* amax, MKL_INT* info);
void	pzgeequ_(const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* r, double* c, double* rowcnd, double* colcnd, double* amax, MKL_INT* info);

void	PSPOEQU(const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* sr, float* sc, float* scond, float* amax, MKL_INT* info);
void	PDPOEQU(const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* sr, double* sc, double* scond, double* amax, MKL_INT* info);
void	PCPOEQU(const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* sr, float* sc, float* scond, float* amax, MKL_INT* info);
void	PZPOEQU(const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* sr, double* sc, double* scond, double* amax, MKL_INT* info);
void	PSPOEQU_(const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* sr, float* sc, float* scond, float* amax, MKL_INT* info);
void	PDPOEQU_(const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* sr, double* sc, double* scond, double* amax, MKL_INT* info);
void	PCPOEQU_(const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* sr, float* sc, float* scond, float* amax, MKL_INT* info);
void	PZPOEQU_(const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* sr, double* sc, double* scond, double* amax, MKL_INT* info);
void	pspoequ_(const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* sr, float* sc, float* scond, float* amax, MKL_INT* info);
void	pdpoequ_(const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* sr, double* sc, double* scond, double* amax, MKL_INT* info);
void	pcpoequ_(const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* sr, float* sc, float* scond, float* amax, MKL_INT* info);
void	pzpoequ_(const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* sr, double* sc, double* scond, double* amax, MKL_INT* info);

void	PSGEQRF(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEQRF(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEQRF(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEQRF(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGEQRF_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEQRF_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEQRF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEQRF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgeqrf_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgeqrf_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgeqrf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgeqrf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGEQPF(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEQPF(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEQPF(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZGEQPF(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PSGEQPF_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEQPF_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEQPF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZGEQPF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	psgeqpf_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgeqpf_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgeqpf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzgeqpf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	PSORGQR(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGQR(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORGQR_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGQR_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psorgqr_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorgqr_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNGQR(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGQR(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNGQR_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGQR_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcungqr_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzungqr_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORMQR(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMQR(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORMQR_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMQR_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psormqr_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormqr_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNMQR(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMQR(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNMQR_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMQR_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunmqr_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmqr_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGELQF(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGELQF(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGELQF(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGELQF(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGELQF_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGELQF_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGELQF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGELQF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgelqf_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgelqf_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgelqf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgelqf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORGLQ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGLQ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORGLQ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGLQ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psorglq_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorglq_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNGLQ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGLQ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNGLQ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGLQ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunglq_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunglq_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORMLQ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMLQ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORMLQ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMLQ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psormlq_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormlq_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNMLQ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMLQ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNMLQ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMLQ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunmlq_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmlq_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGEQLF(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEQLF(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEQLF(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEQLF(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGEQLF_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEQLF_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEQLF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEQLF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgeqlf_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgeqlf_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgeqlf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgeqlf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORGQL(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGQL(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORGQL_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGQL_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psorgql_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorgql_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNGQL(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGQL(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNGQL_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGQL_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcungql_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzungql_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORMQL(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMQL(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORMQL_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMQL_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psormql_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormql_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNMQL(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMQL(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNMQL_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMQL_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunmql_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmql_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGERQF(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGERQF(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGERQF(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGERQF(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGERQF_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGERQF_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGERQF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGERQF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgerqf_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgerqf_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgerqf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgerqf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORGRQ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGRQ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORGRQ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGRQ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psorgrq_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorgrq_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNGRQ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGRQ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNGRQ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGRQ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcungrq_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzungrq_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORMRQ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMRQ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORMRQ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMRQ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psormrq_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormrq_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNMRQ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMRQ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNMRQ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMRQ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunmrq_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmrq_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSTZRZF(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDTZRZF(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCTZRZF(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZTZRZF(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSTZRZF_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDTZRZF_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCTZRZF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZTZRZF_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pstzrzf_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdtzrzf_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pctzrzf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pztzrzf_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORMRZ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMRZ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORMRZ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMRZ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psormrz_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormrz_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNMRZ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMRZ(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNMRZ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMRZ_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunmrz_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmrz_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGGQRF(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* taua, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* taub, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGGQRF(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* taua, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* taub, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGGQRF(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* taua, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* taub, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGGQRF(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* taua, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* taub, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGGQRF_(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* taua, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* taub, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGGQRF_(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* taua, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* taub, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGGQRF_(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* taua, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* taub, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGGQRF_(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* taua, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* taub, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psggqrf_(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* taua, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* taub, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdggqrf_(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* taua, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* taub, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcggqrf_(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* taua, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* taub, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzggqrf_(const MKL_INT* n, const MKL_INT* m, const MKL_INT* p, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* taua, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* taub, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGGRQF(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* taua, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* taub, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGGRQF(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* taua, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* taub, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGGRQF(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* taua, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* taub, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGGRQF(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* taua, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* taub, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGGRQF_(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* taua, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* taub, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGGRQF_(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* taua, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* taub, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGGRQF_(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* taua, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* taub, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGGRQF_(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* taua, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* taub, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psggrqf_(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* taua, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* taub, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdggrqf_(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* taua, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* taub, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcggrqf_(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* taua, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* taub, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzggrqf_(const MKL_INT* m, const MKL_INT* p, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* taua, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* taub, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSSYTRD(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYTRD(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSSYTRD_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYTRD_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pssytrd_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsytrd_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORMTR(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMTR(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORMTR_(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMTR_(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psormtr_(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormtr_(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCHETRD(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZHETRD(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCHETRD_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZHETRD_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pchetrd_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzhetrd_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNMTR(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMTR(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNMTR_(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMTR_(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunmtr_(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmtr_(const char* side, const char* uplo, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSSTEBZ(const MKL_INT* ictxt, const char* range, const char* order, const MKL_INT* n, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, const float* d, const float* e, MKL_INT* m, MKL_INT* nsplit, float* w, MKL_INT* iblock, MKL_INT* isplit, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDSTEBZ(const MKL_INT* ictxt, const char* range, const char* order, const MKL_INT* n, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, const double* d, const double* e, MKL_INT* m, MKL_INT* nsplit, double* w, MKL_INT* iblock, MKL_INT* isplit, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PSSTEBZ_(const MKL_INT* ictxt, const char* range, const char* order, const MKL_INT* n, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, const float* d, const float* e, MKL_INT* m, MKL_INT* nsplit, float* w, MKL_INT* iblock, MKL_INT* isplit, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDSTEBZ_(const MKL_INT* ictxt, const char* range, const char* order, const MKL_INT* n, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, const double* d, const double* e, MKL_INT* m, MKL_INT* nsplit, double* w, MKL_INT* iblock, MKL_INT* isplit, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	psstebz_(const MKL_INT* ictxt, const char* range, const char* order, const MKL_INT* n, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, const float* d, const float* e, MKL_INT* m, MKL_INT* nsplit, float* w, MKL_INT* iblock, MKL_INT* isplit, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdstebz_(const MKL_INT* ictxt, const char* range, const char* order, const MKL_INT* n, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, const double* d, const double* e, MKL_INT* m, MKL_INT* nsplit, double* w, MKL_INT* iblock, MKL_INT* isplit, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PSSTEIN(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PDSTEIN(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	PCSTEIN(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PZSTEIN(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	PSSTEIN_(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PDSTEIN_(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	PCSTEIN_(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PZSTEIN_(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	psstein_(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pdstein_(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	pcstein_(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pzstein_(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);

void	PSGEHRD(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEHRD(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEHRD(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEHRD(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGEHRD_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEHRD_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEHRD_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEHRD_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgehrd_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgehrd_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgehrd_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgehrd_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORMHR(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMHR(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORMHR_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMHR_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psormhr_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormhr_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNMHR(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMHR(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNMHR_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMHR_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunmhr_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmhr_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSLAHQR(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	PDLAHQR(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	PSLAHQR_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	PDLAHQR_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	pslahqr_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	pdlahqr_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);

void	PSGEBRD(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEBRD(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEBRD(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEBRD(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGEBRD_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEBRD_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEBRD_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEBRD_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgebrd_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgebrd_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgebrd_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgebrd_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORMBR(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMBR(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORMBR_(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMBR_(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psormbr_(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormbr_(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCUNMBR(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMBR(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNMBR_(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMBR_(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunmbr_(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmbr_(const char* vect, const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSSYGST(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_INT* info);
void	PDSYGST(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_INT* info);
void	PSSYGST_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_INT* info);
void	PDSYGST_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_INT* info);
void	pssygst_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_INT* info);
void	pdsygst_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_INT* info);

void	PCHEGST(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_INT* info);
void	PZHEGST(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_INT* info);
void	PCHEGST_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_INT* info);
void	PZHEGST_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_INT* info);
void	pchegst_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_INT* info);
void	pzhegst_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_INT* info);

void	PSGESV(const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDGESV(const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCGESV(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZGESV(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PSGESV_(const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDGESV_(const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCGESV_(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZGESV_(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	psgesv_(const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdgesv_(const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pcgesv_(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pzgesv_(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	PSGESVX(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, float* r, float* c, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDGESVX(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, double* r, double* c, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCGESVX(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, float* r, float* c, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZGESVX(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, double* r, double* c, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PSGESVX_(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, float* r, float* c, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDGESVX_(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, double* r, double* c, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCGESVX_(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, float* r, float* c, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZGESVX_(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, double* r, double* c, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	psgesvx_(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, float* r, float* c, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdgesvx_(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, double* r, double* c, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcgesvx_(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, float* r, float* c, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzgesvx_(const char* fact, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, MKL_INT* ipiv, char* equed, double* r, double* c, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	PSGBSV(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGBSV(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGBSV(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGBSV(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGBSV_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGBSV_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGBSV_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGBSV_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgbsv_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgbsv_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgbsv_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgbsv_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSDBSV(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDBSV(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDBSV(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDBSV(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSDBSV_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDBSV_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDBSV_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDBSV_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psdbsv_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddbsv_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdbsv_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdbsv_(const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSDTSV(const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDTSV(const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDTSV(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDTSV(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSDTSV_(const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDTSV_(const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDTSV_(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDTSV_(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psdtsv_(const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddtsv_(const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdtsv_(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdtsv_(const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSPOSV(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDPOSV(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCPOSV(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZPOSV(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PSPOSV_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDPOSV_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCPOSV_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZPOSV_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	psposv_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdposv_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pcposv_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pzposv_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	PSPOSVX(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, float* sr, float* sc, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDPOSVX(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, double* sr, double* sc, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCPOSVX(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, float* sr, float* sc, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZPOSVX(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, double* sr, double* sc, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PSPOSVX_(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, float* sr, float* sc, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDPOSVX_(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, double* sr, double* sc, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCPOSVX_(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, float* sr, float* sc, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZPOSVX_(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, double* sr, double* sc, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	psposvx_(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, float* sr, float* sc, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdposvx_(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, double* sr, double* sc, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcposvx_(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, float* sr, float* sc, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* rcond, float* ferr, float* berr, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzposvx_(const char* fact, const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* af, const MKL_INT* iaf, const MKL_INT* jaf, const MKL_INT* descaf, char* equed, double* sr, double* sc, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* rcond, double* ferr, double* berr, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	PSPBSV(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPBSV(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPBSV(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPBSV(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSPBSV_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPBSV_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPBSV_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPBSV_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pspbsv_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpbsv_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpbsv_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpbsv_(const char* uplo, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSPTSV(const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPTSV(const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPTSV(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPTSV(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSPTSV_(const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPTSV_(const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPTSV_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPTSV_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psptsv_(const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdptsv_(const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcptsv_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzptsv_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGELS(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGELS(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGELS(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGELS(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGELS_(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGELS_(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGELS_(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGELS_(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgels_(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgels_(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgels_(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgels_(const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSSYEV(const char* jobz, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYEV(const char* jobz, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSSYEV_(const char* jobz, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYEV_(const char* jobz, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pssyev_(const char* jobz, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsyev_(const char* jobz, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PSSYEVD(const char* jobz, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDSYEVD(const char* jobz, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PSSYEVD_(const char* jobz, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDSYEVD_(const char* jobz, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pssyevd_(const char* jobz, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdsyevd_(const char* jobz, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PSSYEVX(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PDSYEVX(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	PSSYEVX_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PDSYEVX_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	pssyevx_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pdsyevx_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);

void	PCHEEV(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZHEEV(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PCHEEV_(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZHEEV_(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pcheev_(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzheev_(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	PCHEEVD(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PZHEEVD(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCHEEVD_(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PZHEEVD_(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcheevd_(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pzheevd_(const char* jobz, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PCHEEVX(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PZHEEVX(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	PCHEEVX_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PZHEEVX_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	pcheevx_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pzheevx_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);

void	PSGESVD(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* s, float* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, float* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGESVD(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* s, double* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, double* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGESVD(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* s, MKL_Complex8* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, MKL_Complex8* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, MKL_INT* info);
void	PZGESVD(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* s, MKL_Complex16* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, MKL_Complex16* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, MKL_INT* info);
void	PSGESVD_(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* s, float* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, float* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGESVD_(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* s, double* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, double* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGESVD_(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* s, MKL_Complex8* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, MKL_Complex8* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, MKL_INT* info);
void	PZGESVD_(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* s, MKL_Complex16* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, MKL_Complex16* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, MKL_INT* info);
void	psgesvd_(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* s, float* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, float* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgesvd_(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* s, double* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, double* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgesvd_(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* s, MKL_Complex8* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, MKL_Complex8* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, MKL_INT* info);
void	pzgesvd_(const char* jobu, const char* jobvt, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* s, MKL_Complex16* u, const MKL_INT* iu, const MKL_INT* ju, const MKL_INT* descu, MKL_Complex16* vt, const MKL_INT* ivt, const MKL_INT* jvt, const MKL_INT* descvt, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, MKL_INT* info);

void	PSSYGVX(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PDSYGVX(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	PSSYGVX_(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PDSYGVX_(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	pssygvx_(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pdsygvx_(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);

void	PCHEGVX(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PZHEGVX(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	PCHEGVX_(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	PZHEGVX_(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);
void	pchegvx_(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* abstol, MKL_INT* m, MKL_INT* nz, float* w, const float* orfac, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, float* gap, MKL_INT* info);
void	pzhegvx_(const MKL_INT* ibtype, const char* jobz, const char* range, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* abstol, MKL_INT* m, MKL_INT* nz, double* w, const double* orfac, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* ifail, MKL_INT* iclustr, double* gap, MKL_INT* info);

void	PCLACGV(const MKL_INT* n, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PZLACGV(const MKL_INT* n, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PCLACGV_(const MKL_INT* n, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PZLACGV_(const MKL_INT* n, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pclacgv_(const MKL_INT* n, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pzlacgv_(const MKL_INT* n, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);

void	PCMAX1(const MKL_INT* n, MKL_Complex8* amax, MKL_INT* indx, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PZMAX1(const MKL_INT* n, MKL_Complex16* amax, MKL_INT* indx, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PCMAX1_(const MKL_INT* n, MKL_Complex8* amax, MKL_INT* indx, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PZMAX1_(const MKL_INT* n, MKL_Complex16* amax, MKL_INT* indx, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pcmax1_(const MKL_INT* n, MKL_Complex8* amax, MKL_INT* indx, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pzmax1_(const MKL_INT* n, MKL_Complex16* amax, MKL_INT* indx, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);

void	CCOMBAMAX1(MKL_Complex8* v1, const MKL_Complex8* v2);
void	ZCOMBAMAX1(MKL_Complex16* v1, const MKL_Complex16* v2);
void	CCOMBAMAX1_(MKL_Complex8* v1, const MKL_Complex8* v2);
void	ZCOMBAMAX1_(MKL_Complex16* v1, const MKL_Complex16* v2);
void	ccombamax1_(MKL_Complex8* v1, const MKL_Complex8* v2);
void	zcombamax1_(MKL_Complex16* v1, const MKL_Complex16* v2);

void	PSCSUM1(const MKL_INT* n, float* asum, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PDZSUM1(const MKL_INT* n, double* asum, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PSCSUM1_(const MKL_INT* n, float* asum, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PDZSUM1_(const MKL_INT* n, double* asum, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pscsum1_(const MKL_INT* n, float* asum, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pdzsum1_(const MKL_INT* n, double* asum, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);

void	PSDBTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDBTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDBTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDBTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSDBTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDBTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDBTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDBTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psdbtrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddbtrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdbtrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdbtrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bwl, const MKL_INT* bwu, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSDTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSDTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDDTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCDTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZDTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psdttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* dl, float* d, float* du, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pddttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* dl, double* d, double* du, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcdttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzdttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGEBD2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEBD2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEBD2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEBD2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGEBD2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEBD2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEBD2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEBD2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgebd2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgebd2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgebd2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgebd2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGEHD2(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEHD2(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEHD2(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEHD2(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGEHD2_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEHD2_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEHD2_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEHD2_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgehd2_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgehd2_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgehd2_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgehd2_(const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGELQ2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGELQ2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGELQ2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGELQ2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGELQ2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGELQ2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGELQ2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGELQ2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgelq2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgelq2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgelq2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgelq2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGEQL2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEQL2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEQL2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEQL2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGEQL2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEQL2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEQL2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEQL2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgeql2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgeql2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgeql2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgeql2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGEQR2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEQR2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEQR2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEQR2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGEQR2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGEQR2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGEQR2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGEQR2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgeqr2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgeqr2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgeqr2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgeqr2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGERQ2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGERQ2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGERQ2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGERQ2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSGERQ2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDGERQ2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCGERQ2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZGERQ2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psgerq2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdgerq2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcgerq2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzgerq2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSGETF2(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PDGETF2(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PCGETF2(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PZGETF2(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PSGETF2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PDGETF2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PCGETF2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	PZGETF2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	psgetf2_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pdgetf2_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pcgetf2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);
void	pzgetf2_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* ipiv, MKL_INT* info);

void	PSLABRD(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, float* work);
void	PDLABRD(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, double* work);
void	PCLABRD(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex8* work);
void	PZLABRD(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex16* work);
void	PSLABRD_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, float* work);
void	PDLABRD_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, double* work);
void	PCLABRD_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex8* work);
void	PZLABRD_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex16* work);
void	pslabrd_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tauq, float* taup, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, float* work);
void	pdlabrd_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tauq, double* taup, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, double* work);
void	pclabrd_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tauq, MKL_Complex8* taup, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex8* work);
void	pzlabrd_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tauq, MKL_Complex16* taup, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex16* work);

void	PSLACON(const MKL_INT* n, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_INT* isgn, float* est, MKL_INT* kase);
void	PDLACON(const MKL_INT* n, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_INT* isgn, double* est, MKL_INT* kase);
void	PCLACON(const MKL_INT* n, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* est, MKL_INT* kase);
void	PZLACON(const MKL_INT* n, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* est, MKL_INT* kase);
void	PSLACON_(const MKL_INT* n, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_INT* isgn, float* est, MKL_INT* kase);
void	PDLACON_(const MKL_INT* n, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_INT* isgn, double* est, MKL_INT* kase);
void	PCLACON_(const MKL_INT* n, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* est, MKL_INT* kase);
void	PZLACON_(const MKL_INT* n, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* est, MKL_INT* kase);
void	pslacon_(const MKL_INT* n, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_INT* isgn, float* est, MKL_INT* kase);
void	pdlacon_(const MKL_INT* n, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, MKL_INT* isgn, double* est, MKL_INT* kase);
void	pclacon_(const MKL_INT* n, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* est, MKL_INT* kase);
void	pzlacon_(const MKL_INT* n, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* est, MKL_INT* kase);

void	PSLACONSB(const float* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const float* h44, const float* h33, const float* h43h34, float* buf, const MKL_INT* lwork);
void	PDLACONSB(const double* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const double* h44, const double* h33, const double* h43h34, double* buf, const MKL_INT* lwork);
void	PSLACONSB_(const float* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const float* h44, const float* h33, const float* h43h34, float* buf, const MKL_INT* lwork);
void	PDLACONSB_(const double* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const double* h44, const double* h33, const double* h43h34, double* buf, const MKL_INT* lwork);
void	pslaconsb_(const float* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const float* h44, const float* h33, const float* h43h34, float* buf, const MKL_INT* lwork);
void	pdlaconsb_(const double* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const double* h44, const double* h33, const double* h43h34, double* buf, const MKL_INT* lwork);

void	PSLACP2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PDLACP2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PCLACP2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PZLACP2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PSLACP2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PDLACP2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PCLACP2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PZLACP2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pslacp2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pdlacp2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pclacp2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pzlacp2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);

void	PSLACP3(const MKL_INT* m, const MKL_INT* i, float* a, const MKL_INT* desca, float* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	PDLACP3(const MKL_INT* m, const MKL_INT* i, double* a, const MKL_INT* desca, double* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	PSLACP3_(const MKL_INT* m, const MKL_INT* i, float* a, const MKL_INT* desca, float* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	PDLACP3_(const MKL_INT* m, const MKL_INT* i, double* a, const MKL_INT* desca, double* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	pslacp3_(const MKL_INT* m, const MKL_INT* i, float* a, const MKL_INT* desca, float* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	pdlacp3_(const MKL_INT* m, const MKL_INT* i, double* a, const MKL_INT* desca, double* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);

void	PSLACPY(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PDLACPY(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PCLACPY(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PZLACPY(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PSLACPY_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PDLACPY_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PCLACPY_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PZLACPY_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pslacpy_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pdlacpy_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pclacpy_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pzlacpy_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);

void	PSLAEVSWP(const MKL_INT* n, const float* zin, const MKL_INT* ldzi, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, float* work, const MKL_INT* lwork);
void	PDLAEVSWP(const MKL_INT* n, const double* zin, const MKL_INT* ldzi, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, double* work, const MKL_INT* lwork);
void	PCLAEVSWP(const MKL_INT* n, const float* zin, const MKL_INT* ldzi, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, float* rwork, const MKL_INT* lrwork);
void	PZLAEVSWP(const MKL_INT* n, const double* zin, const MKL_INT* ldzi, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, double* rwork, const MKL_INT* lrwork);
void	PSLAEVSWP_(const MKL_INT* n, const float* zin, const MKL_INT* ldzi, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, float* work, const MKL_INT* lwork);
void	PDLAEVSWP_(const MKL_INT* n, const double* zin, const MKL_INT* ldzi, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, double* work, const MKL_INT* lwork);
void	PCLAEVSWP_(const MKL_INT* n, const float* zin, const MKL_INT* ldzi, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, float* rwork, const MKL_INT* lrwork);
void	PZLAEVSWP_(const MKL_INT* n, const double* zin, const MKL_INT* ldzi, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, double* rwork, const MKL_INT* lrwork);
void	pslaevswp_(const MKL_INT* n, const float* zin, const MKL_INT* ldzi, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, float* work, const MKL_INT* lwork);
void	pdlaevswp_(const MKL_INT* n, const double* zin, const MKL_INT* ldzi, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, double* work, const MKL_INT* lwork);
void	pclaevswp_(const MKL_INT* n, const float* zin, const MKL_INT* ldzi, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, float* rwork, const MKL_INT* lrwork);
void	pzlaevswp_(const MKL_INT* n, const double* zin, const MKL_INT* ldzi, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, const MKL_INT* nvs, const MKL_INT* key, double* rwork, const MKL_INT* lrwork);

void	PSLAHRD(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* t, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, float* work);
void	PDLAHRD(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* t, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, double* work);
void	PCLAHRD(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex8* work);
void	PZLAHRD(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex16* work);
void	PSLAHRD_(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* t, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, float* work);
void	PDLAHRD_(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* t, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, double* work);
void	PCLAHRD_(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex8* work);
void	PZLAHRD_(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex16* work);
void	pslahrd_(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* t, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, float* work);
void	pdlahrd_(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* t, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, double* work);
void	pclahrd_(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex8* work);
void	pzlahrd_(const MKL_INT* n, const MKL_INT* k, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, MKL_Complex16* work);

void	PSLAIECT(const float* sigma, const MKL_INT* n, const float* d, MKL_INT* count);
void	PSLAIECT_(const float* sigma, const MKL_INT* n, const float* d, MKL_INT* count);
void	pslaiect_(const float* sigma, const MKL_INT* n, const float* d, MKL_INT* count);

float	PSLANGE(const char* norm, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PDLANGE(const char* norm, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PCLANGE(const char* norm, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PZLANGE(const char* norm, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PSLANGE_(const char* norm, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PDLANGE_(const char* norm, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PCLANGE_(const char* norm, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PZLANGE_(const char* norm, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pslange_(const char* norm, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pdlange_(const char* norm, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pclange_(const char* norm, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pzlange_(const char* norm, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);

float	PSLANHS(const char* norm, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PDLANHS(const char* norm, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PCLANHS(const char* norm, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PZLANHS(const char* norm, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PSLANHS_(const char* norm, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PDLANHS_(const char* norm, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PCLANHS_(const char* norm, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PZLANHS_(const char* norm, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pslanhs_(const char* norm, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pdlanhs_(const char* norm, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pclanhs_(const char* norm, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pzlanhs_(const char* norm, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);

float	PSLANSY(const char* norm, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PDLANSY(const char* norm, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PCLANSY(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PZLANSY(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PCLANHE(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PZLANHE(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PSLANSY_(const char* norm, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PDLANSY_(const char* norm, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PCLANSY_(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PZLANSY_(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PCLANHE_(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PZLANHE_(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pslansy_(const char* norm, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pdlansy_(const char* norm, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pclansy_(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pzlansy_(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pclanhe_(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pzlanhe_(const char* norm, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);

float	PSLANTR(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PDLANTR(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PCLANTR(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PZLANTR(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PSLANTR_(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PDLANTR_(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	PCLANTR_(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	PZLANTR_(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pslantr_(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pdlantr_(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);
float	pclantr_(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* work);
double	pzlantr_(const char* norm, const char* uplo, const char* diag, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* work);

void	PSLAPIV(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	PDLAPIV(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	PCLAPIV(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	PZLAPIV(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	PSLAPIV_(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	PDLAPIV_(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	PCLAPIV_(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	PZLAPIV_(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	pslapiv_(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	pdlapiv_(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	pclapiv_(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);
void	pzlapiv_(const char* direc, const char* rowcol, const char* pivroc, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip, MKL_INT* iwork);

void	PSLAQGE(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* r, const float* c, const float* rowcnd, const float* colcnd, const float* amax, char* equed);
void	PDLAQGE(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* r, const double* c, const double* rowcnd, const double* colcnd, const double* amax, char* equed);
void	PCLAQGE(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* r, const float* c, const float* rowcnd, const float* colcnd, const float* amax, char* equed);
void	PZLAQGE(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* r, const double* c, const double* rowcnd, const double* colcnd, const double* amax, char* equed);
void	PSLAQGE_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* r, const float* c, const float* rowcnd, const float* colcnd, const float* amax, char* equed);
void	PDLAQGE_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* r, const double* c, const double* rowcnd, const double* colcnd, const double* amax, char* equed);
void	PCLAQGE_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* r, const float* c, const float* rowcnd, const float* colcnd, const float* amax, char* equed);
void	PZLAQGE_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* r, const double* c, const double* rowcnd, const double* colcnd, const double* amax, char* equed);
void	pslaqge_(const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* r, const float* c, const float* rowcnd, const float* colcnd, const float* amax, char* equed);
void	pdlaqge_(const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* r, const double* c, const double* rowcnd, const double* colcnd, const double* amax, char* equed);
void	pclaqge_(const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* r, const float* c, const float* rowcnd, const float* colcnd, const float* amax, char* equed);
void	pzlaqge_(const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* r, const double* c, const double* rowcnd, const double* colcnd, const double* amax, char* equed);

void	PSLAQSY(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* sr, const float* sc, const float* scond, const float* amax, char* equed);
void	PDLAQSY(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* sr, const double* sc, const double* scond, const double* amax, char* equed);
void	PCLAQSY(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* sr, const float* sc, const float* scond, const float* amax, char* equed);
void	PZLAQSY(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* sr, const double* sc, const double* scond, const double* amax, char* equed);
void	PSLAQSY_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* sr, const float* sc, const float* scond, const float* amax, char* equed);
void	PDLAQSY_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* sr, const double* sc, const double* scond, const double* amax, char* equed);
void	PCLAQSY_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* sr, const float* sc, const float* scond, const float* amax, char* equed);
void	PZLAQSY_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* sr, const double* sc, const double* scond, const double* amax, char* equed);
void	pslaqsy_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* sr, const float* sc, const float* scond, const float* amax, char* equed);
void	pdlaqsy_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* sr, const double* sc, const double* scond, const double* amax, char* equed);
void	pclaqsy_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* sr, const float* sc, const float* scond, const float* amax, char* equed);
void	pzlaqsy_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* sr, const double* sc, const double* scond, const double* amax, char* equed);

void	PSLARED1D(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const float* bycol, float* byall, float* work, const MKL_INT* lwork);
void	PDLARED1D(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const double* bycol, double* byall, double* work, const MKL_INT* lwork);
void	PSLARED1D_(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const float* bycol, float* byall, float* work, const MKL_INT* lwork);
void	PDLARED1D_(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const double* bycol, double* byall, double* work, const MKL_INT* lwork);
void	pslared1d_(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const float* bycol, float* byall, float* work, const MKL_INT* lwork);
void	pdlared1d_(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const double* bycol, double* byall, double* work, const MKL_INT* lwork);

void	PSLARED2D(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const float* byrow, float* byall, float* work, const MKL_INT* lwork);
void	PDLARED2D(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const double* byrow, double* byall, double* work, const MKL_INT* lwork);
void	PSLARED2D_(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const float* byrow, float* byall, float* work, const MKL_INT* lwork);
void	PDLARED2D_(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const double* byrow, double* byall, double* work, const MKL_INT* lwork);
void	pslared2d_(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const float* byrow, float* byall, float* work, const MKL_INT* lwork);
void	pdlared2d_(const MKL_INT* n, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desc, const double* byrow, double* byall, double* work, const MKL_INT* lwork);

void	PSLARF(const char* side, const MKL_INT* m, const MKL_INT* n, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	PDLARF(const char* side, const MKL_INT* m, const MKL_INT* n, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	PCLARF(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARF(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	PSLARF_(const char* side, const MKL_INT* m, const MKL_INT* n, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	PDLARF_(const char* side, const MKL_INT* m, const MKL_INT* n, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	PCLARF_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARF_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	pslarf_(const char* side, const MKL_INT* m, const MKL_INT* n, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	pdlarf_(const char* side, const MKL_INT* m, const MKL_INT* n, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	pclarf_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarf_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	PSLARFB(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* t, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	PDLARFB(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* t, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	PCLARFB(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* t, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARFB(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* t, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	PSLARFB_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* t, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	PDLARFB_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* t, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	PCLARFB_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* t, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARFB_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* t, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	pslarfb_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* t, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	pdlarfb_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* t, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	pclarfb_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* t, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarfb_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* t, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	PCLARFC(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARFC(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	PCLARFC_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARFC_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	pclarfc_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarfc_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	PSLARFG(const MKL_INT* n, float* alpha, const MKL_INT* iax, const MKL_INT* jax, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* tau);
void	PDLARFG(const MKL_INT* n, double* alpha, const MKL_INT* iax, const MKL_INT* jax, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* tau);
void	PCLARFG(const MKL_INT* n, MKL_Complex8* alpha, const MKL_INT* iax, const MKL_INT* jax, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex8* tau);
void	PZLARFG(const MKL_INT* n, MKL_Complex16* alpha, const MKL_INT* iax, const MKL_INT* jax, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex16* tau);
void	PSLARFG_(const MKL_INT* n, float* alpha, const MKL_INT* iax, const MKL_INT* jax, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* tau);
void	PDLARFG_(const MKL_INT* n, double* alpha, const MKL_INT* iax, const MKL_INT* jax, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* tau);
void	PCLARFG_(const MKL_INT* n, MKL_Complex8* alpha, const MKL_INT* iax, const MKL_INT* jax, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex8* tau);
void	PZLARFG_(const MKL_INT* n, MKL_Complex16* alpha, const MKL_INT* iax, const MKL_INT* jax, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex16* tau);
void	pslarfg_(const MKL_INT* n, float* alpha, const MKL_INT* iax, const MKL_INT* jax, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* tau);
void	pdlarfg_(const MKL_INT* n, double* alpha, const MKL_INT* iax, const MKL_INT* jax, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* tau);
void	pclarfg_(const MKL_INT* n, MKL_Complex8* alpha, const MKL_INT* iax, const MKL_INT* jax, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex8* tau);
void	pzlarfg_(const MKL_INT* n, MKL_Complex16* alpha, const MKL_INT* iax, const MKL_INT* jax, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex16* tau);

void	PSLARFT(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* tau, float* t, float* work);
void	PDLARFT(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* tau, double* t, double* work);
void	PCLARFT(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* work);
void	PZLARFT(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* work);
void	PSLARFT_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* tau, float* t, float* work);
void	PDLARFT_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* tau, double* t, double* work);
void	PCLARFT_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* work);
void	PZLARFT_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* work);
void	pslarft_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* tau, float* t, float* work);
void	pdlarft_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* tau, double* t, double* work);
void	pclarft_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* work);
void	pzlarft_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* work);

void	PSLARZ(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	PDLARZ(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	PCLARZ(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARZ(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	PSLARZ_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	PDLARZ_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	PCLARZ_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARZ_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	pslarz_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	pdlarz_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	pclarz_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarz_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	PSLARZB(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* t, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	PDLARZB(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* t, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	PCLARZB(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* t, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARZB(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* t, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	PSLARZB_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* t, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	PDLARZB_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* t, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	PCLARZB_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* t, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARZB_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* t, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	pslarzb_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* t, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work);
void	pdlarzb_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* t, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work);
void	pclarzb_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* t, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarzb_(const char* side, const char* trans, const char* direct, const char* storev, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* t, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	PCLARZC(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARZC(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	PCLARZC_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	PZLARZC_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);
void	pclarzc_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work);
void	pzlarzc_(const char* side, const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, const MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_INT* incv, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work);

void	PSLARZT(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* tau, float* t, float* work);
void	PDLARZT(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* tau, double* t, double* work);
void	PCLARZT(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* work);
void	PZLARZT(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* work);
void	PSLARZT_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* tau, float* t, float* work);
void	PDLARZT_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* tau, double* t, double* work);
void	PCLARZT_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* work);
void	PZLARZT_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* work);
void	pslarzt_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, float* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const float* tau, float* t, float* work);
void	pdlarzt_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, double* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const double* tau, double* t, double* work);
void	pclarzt_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex8* tau, MKL_Complex8* t, MKL_Complex8* work);
void	pzlarzt_(const char* direct, const char* storev, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* v, const MKL_INT* iv, const MKL_INT* jv, const MKL_INT* descv, const MKL_Complex16* tau, MKL_Complex16* t, MKL_Complex16* work);

void	PSLASCL(const char* type, const float* cfrom, const float* cto, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDLASCL(const char* type, const double* cfrom, const double* cto, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCLASCL(const char* type, const float* cfrom, const float* cto, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZLASCL(const char* type, const double* cfrom, const double* cto, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PSLASCL_(const char* type, const float* cfrom, const float* cto, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDLASCL_(const char* type, const double* cfrom, const double* cto, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCLASCL_(const char* type, const float* cfrom, const float* cto, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZLASCL_(const char* type, const double* cfrom, const double* cto, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pslascl_(const char* type, const float* cfrom, const float* cto, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdlascl_(const char* type, const double* cfrom, const double* cto, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pclascl_(const char* type, const float* cfrom, const float* cto, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pzlascl_(const char* type, const double* cfrom, const double* cto, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	PSLASET(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* alpha, const float* beta, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PDLASET(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* alpha, const double* beta, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PCLASET(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* alpha, const MKL_Complex8* beta, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PZLASET(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* alpha, const MKL_Complex16* beta, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PSLASET_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* alpha, const float* beta, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PDLASET_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* alpha, const double* beta, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PCLASET_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* alpha, const MKL_Complex8* beta, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PZLASET_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* alpha, const MKL_Complex16* beta, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pslaset_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* alpha, const float* beta, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pdlaset_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* alpha, const double* beta, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pclaset_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* alpha, const MKL_Complex8* beta, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pzlaset_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* alpha, const MKL_Complex16* beta, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);

void	PSLASMSUB(const float* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const float* smlnum, float* buf, const MKL_INT* lwork);
void	PDLASMSUB(const double* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const double* smlnum, double* buf, const MKL_INT* lwork);
void	PSLASMSUB_(const float* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const float* smlnum, float* buf, const MKL_INT* lwork);
void	PDLASMSUB_(const double* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const double* smlnum, double* buf, const MKL_INT* lwork);
void	pslasmsub_(const float* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const float* smlnum, float* buf, const MKL_INT* lwork);
void	pdlasmsub_(const double* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const double* smlnum, double* buf, const MKL_INT* lwork);

void	PSLASSQ(const MKL_INT* n, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* scale, float* sumsq);
void	PDLASSQ(const MKL_INT* n, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* scale, double* sumsq);
void	PCLASSQ(const MKL_INT* n, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* scale, float* sumsq);
void	PZLASSQ(const MKL_INT* n, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* scale, double* sumsq);
void	PSLASSQ_(const MKL_INT* n, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* scale, float* sumsq);
void	PDLASSQ_(const MKL_INT* n, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* scale, double* sumsq);
void	PCLASSQ_(const MKL_INT* n, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* scale, float* sumsq);
void	PZLASSQ_(const MKL_INT* n, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* scale, double* sumsq);
void	pslassq_(const MKL_INT* n, const float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* scale, float* sumsq);
void	pdlassq_(const MKL_INT* n, const double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* scale, double* sumsq);
void	pclassq_(const MKL_INT* n, const MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* scale, float* sumsq);
void	pzlassq_(const MKL_INT* n, const MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* scale, double* sumsq);

void	PSLASWP(const char* direc, const char* rowcol, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	PDLASWP(const char* direc, const char* rowcol, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	PCLASWP(const char* direc, const char* rowcol, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	PZLASWP(const char* direc, const char* rowcol, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	PSLASWP_(const char* direc, const char* rowcol, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	PDLASWP_(const char* direc, const char* rowcol, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	PCLASWP_(const char* direc, const char* rowcol, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	PZLASWP_(const char* direc, const char* rowcol, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	pslaswp_(const char* direc, const char* rowcol, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	pdlaswp_(const char* direc, const char* rowcol, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	pclaswp_(const char* direc, const char* rowcol, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);
void	pzlaswp_(const char* direc, const char* rowcol, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* k1, const MKL_INT* k2, const MKL_INT* ipiv);

float	PSLATRA(const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
double	PDLATRA(const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PCLATRA(MKL_Complex8 *, const MKL_INT *n, const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca);
void	PZLATRA(MKL_Complex16 *, const MKL_INT *n, const MKL_Complex16 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca);
float	PSLATRA_(const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
double	PDLATRA_(const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PCLATRA_(MKL_Complex8 *, const MKL_INT *n, const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca);
void	PZLATRA_(MKL_Complex16 *, const MKL_INT *n, const MKL_Complex16 *a, const MKL_INT *ia,const  MKL_INT *ja, const MKL_INT *desca);
float	pslatra_(const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
double	pdlatra_(const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pclatra_(MKL_Complex8 *, const MKL_INT *n, const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca);
void	pzlatra_(MKL_Complex16 *, const MKL_INT *n, const MKL_Complex16 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca);

void	PSLATRD(const char* uplo, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, float* work);
void	PDLATRD(const char* uplo, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, double* work);
void	PCLATRD(const char* uplo, const MKL_INT* n, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, MKL_Complex8* work);
void	PZLATRD(const char* uplo, const MKL_INT* n, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, MKL_Complex16* work);
void	PSLATRD_(const char* uplo, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, float* work);
void	PDLATRD_(const char* uplo, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, double* work);
void	PCLATRD_(const char* uplo, const MKL_INT* n, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, MKL_Complex8* work);
void	PZLATRD_(const char* uplo, const MKL_INT* n, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, MKL_Complex16* work);
void	pslatrd_(const char* uplo, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, float* work);
void	pdlatrd_(const char* uplo, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, double* work);
void	pclatrd_(const char* uplo, const MKL_INT* n, const MKL_INT* nb, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, MKL_Complex8* work);
void	pzlatrd_(const char* uplo, const MKL_INT* n, const MKL_INT* nb, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* w, const MKL_INT* iw, const MKL_INT* jw, const MKL_INT* descw, MKL_Complex16* work);

void	PSLATRS(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, float* work);
void	PDLATRS(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, double* work);
void	PCLATRS(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, MKL_Complex8* work);
void	PZLATRS(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, MKL_Complex16* work);
void	PSLATRS_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, float* work);
void	PDLATRS_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, double* work);
void	PCLATRS_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, MKL_Complex8* work);
void	PZLATRS_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, MKL_Complex16* work);
void	pslatrs_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, float* work);
void	pdlatrs_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, double* work);
void	pclatrs_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, MKL_Complex8* work);
void	pzlatrs_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, MKL_Complex16* work);

void	PSLATRZ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work);
void	PDLATRZ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work);
void	PCLATRZ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work);
void	PZLATRZ(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work);
void	PSLATRZ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work);
void	PDLATRZ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work);
void	PCLATRZ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work);
void	PZLATRZ_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work);
void	pslatrz_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* tau, float* work);
void	pdlatrz_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* tau, double* work);
void	pclatrz_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* tau, MKL_Complex8* work);
void	pzlatrz_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* l, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* tau, MKL_Complex16* work);

void	PSLAUU2(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PDLAUU2(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PCLAUU2(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PZLAUU2(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PSLAUU2_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PDLAUU2_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PCLAUU2_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PZLAUU2_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pslauu2_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pdlauu2_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pclauu2_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pzlauu2_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);

void	PSLAUUM(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PDLAUUM(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PCLAUUM(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PZLAUUM(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PSLAUUM_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PDLAUUM_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PCLAUUM_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PZLAUUM_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pslauum_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pdlauum_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pclauum_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pzlauum_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);

void	PSLAWIL(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const float* a, const MKL_INT* desca, const float* h44, const float* h33, const float* h43h34, float* v);
void	PDLAWIL(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const double* a, const MKL_INT* desca, const double* h44, const double* h33, const double* h43h34, double* v);
void	PSLAWIL_(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const float* a, const MKL_INT* desca, const float* h44, const float* h33, const float* h43h34, float* v);
void	PDLAWIL_(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const double* a, const MKL_INT* desca, const double* h44, const double* h33, const double* h43h34, double* v);
void	pslawil_(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const float* a, const MKL_INT* desca, const float* h44, const float* h33, const float* h43h34, float* v);
void	pdlawil_(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const double* a, const MKL_INT* desca, const double* h44, const double* h33, const double* h43h34, double* v);

void	PSORG2L(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORG2L(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNG2L(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNG2L(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORG2L_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORG2L_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNG2L_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNG2L_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psorg2l_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorg2l_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcung2l_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzung2l_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORG2R(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORG2R(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNG2R(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNG2R(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORG2R_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORG2R_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNG2R_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNG2R_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psorg2r_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorg2r_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcung2r_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzung2r_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORGL2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGL2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNGL2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGL2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORGL2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGL2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNGL2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGL2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psorgl2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorgl2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcungl2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzungl2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORGR2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGR2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNGR2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGR2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORGR2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORGR2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNGR2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNGR2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psorgr2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorgr2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcungr2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzungr2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORM2L(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORM2L(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNM2L(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNM2L(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORM2L_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORM2L_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNM2L_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNM2L_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psorm2l_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorm2l_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunm2l_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunm2l_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORM2R(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORM2R(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNM2R(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNM2R(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORM2R_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORM2R_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNM2R_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNM2R_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psorm2r_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorm2r_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunm2r_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunm2r_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORML2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORML2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNML2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNML2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORML2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORML2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNML2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNML2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psorml2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdorml2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunml2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunml2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSORMR2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMR2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNMR2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMR2(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORMR2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMR2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNMR2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMR2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	psormr2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormr2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunmr2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmr2_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSPBTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPBTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPBTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPBTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSPBTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPBTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPBTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPBTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pspbtrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, float* a, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpbtrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, double* a, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpbtrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex8* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpbtrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* bw, const MKL_INT* nrhs, MKL_Complex16* a, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSPTTRSV(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPTTRSV(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSPTTRSV_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDPTTRSV_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCPTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZPTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pspttrsv_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, float* d, float* e, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* descb, float* af, const MKL_INT* laf, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdpttrsv_(const char* uplo, const MKL_INT* n, const MKL_INT* nrhs, double* d, double* e, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* descb, double* af, const MKL_INT* laf, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pcpttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, float* d, MKL_Complex8* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex8* af, const MKL_INT* laf, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzpttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, double* d, MKL_Complex16* e, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* descb, MKL_Complex16* af, const MKL_INT* laf, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSPOTF2(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDPOTF2(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCPOTF2(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZPOTF2(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PSPOTF2_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDPOTF2_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCPOTF2_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZPOTF2_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pspotf2_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdpotf2_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pcpotf2_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pzpotf2_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	PSRSCL(const MKL_INT* n, const float* sa, float* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PDRSCL(const MKL_INT* n, const double* sa, double* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PCSRSCL(const MKL_INT* n, const float* sa, MKL_Complex8* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PZDRSCL(const MKL_INT* n, const double* sa, MKL_Complex16* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PSRSCL_(const MKL_INT* n, const float* sa, float* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PDRSCL_(const MKL_INT* n, const double* sa, double* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PCSRSCL_(const MKL_INT* n, const float* sa, MKL_Complex8* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	PZDRSCL_(const MKL_INT* n, const double* sa, MKL_Complex16* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	psrscl_(const MKL_INT* n, const float* sa, float* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pdrscl_(const MKL_INT* n, const double* sa, double* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pcsrscl_(const MKL_INT* n, const float* sa, MKL_Complex8* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);
void	pzdrscl_(const MKL_INT* n, const double* sa, MKL_Complex16* sx, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx);

void	PSSYGS2(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDSYGS2(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCHEGS2(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZHEGS2(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PSSYGS2_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PDSYGS2_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PCHEGS2_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	PZHEGS2_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pssygs2_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pdsygs2_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pchegs2_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);
void	pzhegs2_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, MKL_INT* info);

void	PSSYTD2(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYTD2(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCHETD2(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZHETD2(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PSSYTD2_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYTD2_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PCHETD2_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZHETD2_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pssytd2_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsytd2_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pchetd2_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzhetd2_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSTRTI2(const char* uplo, const char* diag, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDTRTI2(const char* uplo, const char* diag, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCTRTI2(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZTRTI2(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PSTRTI2_(const char* uplo, const char* diag, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PDTRTI2_(const char* uplo, const char* diag, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PCTRTI2_(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	PZTRTI2_(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pstrti2_(const char* uplo, const char* diag, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pdtrti2_(const char* uplo, const char* diag, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pctrti2_(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);
void	pztrti2_(const char* uplo, const char* diag, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_INT* info);

void	SLAMSH(float* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, float* h, const MKL_INT* ldh, const MKL_INT* n, const float* ulp);
void	DLAMSH(double* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, double* h, const MKL_INT* ldh, const MKL_INT* n, const double* ulp);
void	SLAMSH_(float* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, float* h, const MKL_INT* ldh, const MKL_INT* n, const float* ulp);
void	DLAMSH_(double* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, double* h, const MKL_INT* ldh, const MKL_INT* n, const double* ulp);
void	slamsh_(float* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, float* h, const MKL_INT* ldh, const MKL_INT* n, const float* ulp);
void	dlamsh_(double* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, double* h, const MKL_INT* ldh, const MKL_INT* n, const double* ulp);

void	SLAREF(const char* type, float* a, const MKL_INT* lda, const MKL_INT* wantz, float* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const float* vecs, float* v2, float* v3, float* t1, float* t2, float* t3);
void	DLAREF(const char* type, double* a, const MKL_INT* lda, const MKL_INT* wantz, double* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const double* vecs, double* v2, double* v3, double* t1, double* t2, double* t3);
void	SLAREF_(const char* type, float* a, const MKL_INT* lda, const MKL_INT* wantz, float* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const float* vecs, float* v2, float* v3, float* t1, float* t2, float* t3);
void	DLAREF_(const char* type, double* a, const MKL_INT* lda, const MKL_INT* wantz, double* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const double* vecs, double* v2, double* v3, double* t1, double* t2, double* t3);
void	slaref_(const char* type, float* a, const MKL_INT* lda, const MKL_INT* wantz, float* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const float* vecs, float* v2, float* v3, float* t1, float* t2, float* t3);
void	dlaref_(const char* type, double* a, const MKL_INT* lda, const MKL_INT* wantz, double* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const double* vecs, double* v2, double* v3, double* t1, double* t2, double* t3);

void	SLASORTE(float* s, const MKL_INT* lds, const MKL_INT* j, float* out, MKL_INT* info);
void	DLASORTE(double* s, const MKL_INT* lds, const MKL_INT* j, double* out, MKL_INT* info);
void	SLASORTE_(float* s, const MKL_INT* lds, const MKL_INT* j, float* out, MKL_INT* info);
void	DLASORTE_(double* s, const MKL_INT* lds, const MKL_INT* j, double* out, MKL_INT* info);
void	slasorte_(float* s, const MKL_INT* lds, const MKL_INT* j, float* out, MKL_INT* info);
void	dlasorte_(double* s, const MKL_INT* lds, const MKL_INT* j, double* out, MKL_INT* info);

void	SLASRT2(const char* id, const MKL_INT* n, float* d, MKL_INT* key, MKL_INT* info);
void	DLASRT2(const char* id, const MKL_INT* n, double* d, MKL_INT* key, MKL_INT* info);
void	SLASRT2_(const char* id, const MKL_INT* n, float* d, MKL_INT* key, MKL_INT* info);
void	DLASRT2_(const char* id, const MKL_INT* n, double* d, MKL_INT* key, MKL_INT* info);
void	slasrt2_(const char* id, const MKL_INT* n, float* d, MKL_INT* key, MKL_INT* info);
void	dlasrt2_(const char* id, const MKL_INT* n, double* d, MKL_INT* key, MKL_INT* info);

void	SSTEIN2(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, const float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, float* z, const MKL_INT* ldz, float* work, MKL_INT* iwork, MKL_INT* ifail, MKL_INT* info);
void	DSTEIN2(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, const double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, double* z, const MKL_INT* ldz, double* work, MKL_INT* iwork, MKL_INT* ifail, MKL_INT* info);
void	SSTEIN2_(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, const float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, float* z, const MKL_INT* ldz, float* work, MKL_INT* iwork, MKL_INT* ifail, MKL_INT* info);
void	DSTEIN2_(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, const double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, double* z, const MKL_INT* ldz, double* work, MKL_INT* iwork, MKL_INT* ifail, MKL_INT* info);
void	sstein2_(const MKL_INT* n, const float* d, const float* e, const MKL_INT* m, const float* w, const MKL_INT* iblock, const MKL_INT* isplit, const float* orfac, float* z, const MKL_INT* ldz, float* work, MKL_INT* iwork, MKL_INT* ifail, MKL_INT* info);
void	dstein2_(const MKL_INT* n, const double* d, const double* e, const MKL_INT* m, const double* w, const MKL_INT* iblock, const MKL_INT* isplit, const double* orfac, double* z, const MKL_INT* ldz, double* work, MKL_INT* iwork, MKL_INT* ifail, MKL_INT* info);

void	SDBTF2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, float* ab, const MKL_INT* ldab, MKL_INT* info);
void	DDBTF2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, double* ab, const MKL_INT* ldab, MKL_INT* info);
void	CDBTF2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex8* ab, const MKL_INT* ldab, MKL_INT* info);
void	ZDBTF2(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex16* ab, const MKL_INT* ldab, MKL_INT* info);
void	SDBTF2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, float* ab, const MKL_INT* ldab, MKL_INT* info);
void	DDBTF2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, double* ab, const MKL_INT* ldab, MKL_INT* info);
void	CDBTF2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex8* ab, const MKL_INT* ldab, MKL_INT* info);
void	ZDBTF2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex16* ab, const MKL_INT* ldab, MKL_INT* info);
void	sdbtf2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, float* ab, const MKL_INT* ldab, MKL_INT* info);
void	ddbtf2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, double* ab, const MKL_INT* ldab, MKL_INT* info);
void	cdbtf2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex8* ab, const MKL_INT* ldab, MKL_INT* info);
void	zdbtf2_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex16* ab, const MKL_INT* ldab, MKL_INT* info);

void	SDBTRF(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, float* ab, const MKL_INT* ldab, MKL_INT* info);
void	DDBTRF(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, double* ab, const MKL_INT* ldab, MKL_INT* info);
void	CDBTRF(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex8* ab, const MKL_INT* ldab, MKL_INT* info);
void	ZDBTRF(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex16* ab, const MKL_INT* ldab, MKL_INT* info);
void	SDBTRF_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, float* ab, const MKL_INT* ldab, MKL_INT* info);
void	DDBTRF_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, double* ab, const MKL_INT* ldab, MKL_INT* info);
void	CDBTRF_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex8* ab, const MKL_INT* ldab, MKL_INT* info);
void	ZDBTRF_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex16* ab, const MKL_INT* ldab, MKL_INT* info);
void	sdbtrf_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, float* ab, const MKL_INT* ldab, MKL_INT* info);
void	ddbtrf_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, double* ab, const MKL_INT* ldab, MKL_INT* info);
void	cdbtrf_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex8* ab, const MKL_INT* ldab, MKL_INT* info);
void	zdbtrf_(const MKL_INT* m, const MKL_INT* n, const MKL_INT* kl, const MKL_INT* ku, MKL_Complex16* ab, const MKL_INT* ldab, MKL_INT* info);

void	SDTTRF(const MKL_INT* n, float* dl, float* d, float* du, MKL_INT* info);
void	DDTTRF(const MKL_INT* n, double* dl, double* d, double* du, MKL_INT* info);
void	CDTTRF(const MKL_INT* n, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, MKL_INT* info);
void	ZDTTRF(const MKL_INT* n, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, MKL_INT* info);
void	SDTTRF_(const MKL_INT* n, float* dl, float* d, float* du, MKL_INT* info);
void	DDTTRF_(const MKL_INT* n, double* dl, double* d, double* du, MKL_INT* info);
void	CDTTRF_(const MKL_INT* n, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, MKL_INT* info);
void	ZDTTRF_(const MKL_INT* n, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, MKL_INT* info);
void	sdttrf_(const MKL_INT* n, float* dl, float* d, float* du, MKL_INT* info);
void	ddttrf_(const MKL_INT* n, double* dl, double* d, double* du, MKL_INT* info);
void	cdttrf_(const MKL_INT* n, MKL_Complex8* dl, MKL_Complex8* d, MKL_Complex8* du, MKL_INT* info);
void	zdttrf_(const MKL_INT* n, MKL_Complex16* dl, MKL_Complex16* d, MKL_Complex16* du, MKL_INT* info);

void	SDTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* dl, const float* d, const float* du, float* b, const MKL_INT* ldb, MKL_INT* info);
void	DDTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* dl, const double* d, const double* du, double* b, const MKL_INT* ldb, MKL_INT* info);
void	CDTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* dl, const MKL_Complex8* d, const MKL_Complex8* du, MKL_Complex8* b, const MKL_INT* ldb, MKL_INT* info);
void	ZDTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* dl, const MKL_Complex16* d, const MKL_Complex16* du, MKL_Complex16* b, const MKL_INT* ldb, MKL_INT* info);
void	SDTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* dl, const float* d, const float* du, float* b, const MKL_INT* ldb, MKL_INT* info);
void	DDTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* dl, const double* d, const double* du, double* b, const MKL_INT* ldb, MKL_INT* info);
void	CDTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* dl, const MKL_Complex8* d, const MKL_Complex8* du, MKL_Complex8* b, const MKL_INT* ldb, MKL_INT* info);
void	ZDTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* dl, const MKL_Complex16* d, const MKL_Complex16* du, MKL_Complex16* b, const MKL_INT* ldb, MKL_INT* info);
void	sdttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* dl, const float* d, const float* du, float* b, const MKL_INT* ldb, MKL_INT* info);
void	ddttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* dl, const double* d, const double* du, double* b, const MKL_INT* ldb, MKL_INT* info);
void	cdttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex8* dl, const MKL_Complex8* d, const MKL_Complex8* du, MKL_Complex8* b, const MKL_INT* ldb, MKL_INT* info);
void	zdttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const MKL_Complex16* dl, const MKL_Complex16* d, const MKL_Complex16* du, MKL_Complex16* b, const MKL_INT* ldb, MKL_INT* info);

void	SPTTRSV(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* d, const float* e, float* b, const MKL_INT* ldb, MKL_INT* info);
void	DPTTRSV(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* d, const double* e, double* b, const MKL_INT* ldb, MKL_INT* info);
void	CPTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* d, const MKL_Complex8* e, MKL_Complex8* b, const MKL_INT* ldb, MKL_INT* info);
void	ZPTTRSV(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* d, const MKL_Complex16* e, MKL_Complex16* b, const MKL_INT* ldb, MKL_INT* info);
void	SPTTRSV_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* d, const float* e, float* b, const MKL_INT* ldb, MKL_INT* info);
void	DPTTRSV_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* d, const double* e, double* b, const MKL_INT* ldb, MKL_INT* info);
void	CPTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* d, const MKL_Complex8* e, MKL_Complex8* b, const MKL_INT* ldb, MKL_INT* info);
void	ZPTTRSV_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* d, const MKL_Complex16* e, MKL_Complex16* b, const MKL_INT* ldb, MKL_INT* info);
void	spttrsv_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* d, const float* e, float* b, const MKL_INT* ldb, MKL_INT* info);
void	dpttrsv_(const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* d, const double* e, double* b, const MKL_INT* ldb, MKL_INT* info);
void	cpttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const float* d, const MKL_Complex8* e, MKL_Complex8* b, const MKL_INT* ldb, MKL_INT* info);
void	zpttrsv_(const char* uplo, const char* trans, const MKL_INT* n, const MKL_INT* nrhs, const double* d, const MKL_Complex16* e, MKL_Complex16* b, const MKL_INT* ldb, MKL_INT* info);

void	SSTEQR2(const char* compz, const MKL_INT* n, float* d, float* e, float* z, const MKL_INT* ldz, const MKL_INT* nr, float* work, MKL_INT* info);
void	DSTEQR2(const char* compz, const MKL_INT* n, double* d, double* e, double* z, const MKL_INT* ldz, const MKL_INT* nr, double* work, MKL_INT* info);
void	SSTEQR2_(const char* compz, const MKL_INT* n, float* d, float* e, float* z, const MKL_INT* ldz, const MKL_INT* nr, float* work, MKL_INT* info);
void	DSTEQR2_(const char* compz, const MKL_INT* n, double* d, double* e, double* z, const MKL_INT* ldz, const MKL_INT* nr, double* work, MKL_INT* info);
void	ssteqr2_(const char* compz, const MKL_INT* n, float* d, float* e, float* z, const MKL_INT* ldz, const MKL_INT* nr, float* work, MKL_INT* info);
void	dsteqr2_(const char* compz, const MKL_INT* n, double* d, double* e, double* z, const MKL_INT* ldz, const MKL_INT* nr, double* work, MKL_INT* info);

void	PSLABAD(const MKL_INT* ictxt, float* small, float* large);
void	PDLABAD(const MKL_INT* ictxt, double* small, double* large);
void	PSLABAD_(const MKL_INT* ictxt, float* small, float* large);
void	PDLABAD_(const MKL_INT* ictxt, double* small, double* large);
void	pslabad_(const MKL_INT* ictxt, float* small, float* large);
void	pdlabad_(const MKL_INT* ictxt, double* small, double* large);

void	PSLACHKIEEE(MKL_INT* isieee, const float* rmax, const float* rmin);
void	PDLACHKIEEE(MKL_INT* isieee, const double* rmax, const double* rmin);
void	PSLACHKIEEE_(MKL_INT* isieee, const float* rmax, const float* rmin);
void	PDLACHKIEEE_(MKL_INT* isieee, const double* rmax, const double* rmin);
void	pslachkieee_(MKL_INT* isieee, const float* rmax, const float* rmin);
void	pdlachkieee_(MKL_INT* isieee, const double* rmax, const double* rmin);

float	PSLAMCH(const MKL_INT* ictxt, const char* cmach);
double	PDLAMCH(const MKL_INT* ictxt, const char* cmach);
float	PSLAMCH_(const MKL_INT* ictxt, const char* cmach);
double	PDLAMCH_(const MKL_INT* ictxt, const char* cmach);
float	pslamch_(const MKL_INT* ictxt, const char* cmach);
double	pdlamch_(const MKL_INT* ictxt, const char* cmach);

void	PSLASNBT(MKL_INT* ieflag);
void	PDLASNBT(MKL_INT* ieflag);
void	PSLASNBT_(MKL_INT* ieflag);
void	PDLASNBT_(MKL_INT* ieflag);
void	pslasnbt_(MKL_INT* ieflag);
void	pdlasnbt_(MKL_INT* ieflag);

void	PXERBLA(const MKL_INT* ictxt, const char* srname, const MKL_INT* info, MKL_INT srname_len);
void	PXERBLA_(const MKL_INT* ictxt, const char* srname, const MKL_INT* info, MKL_INT srname_len);
void	pxerbla_(const MKL_INT* ictxt, const char* srname, const MKL_INT* info, MKL_INT srname_len);

/* Declarations are added in oneMKL 11.2 Beta */

void	BDLAAPP(const MKL_INT* iside, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* lda, const MKL_INT* nitraf, const MKL_INT* itraf, double* dtraf, double* work);
void	BDLAAPP_(const MKL_INT* iside, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* lda, const MKL_INT* nitraf, const MKL_INT* itraf, double* dtraf, double* work);
void	bdlaapp_(const MKL_INT* iside, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, double* a, const MKL_INT* lda, const MKL_INT* nitraf, const MKL_INT* itraf, double* dtraf, double* work);

void	BDLAEXC(const MKL_INT* n, double* t, const MKL_INT* ldt, const MKL_INT* j1, const MKL_INT* n1, const MKL_INT* n2, MKL_INT* itraf, double* dtraf, double* work, MKL_INT* info);
void	BDLAEXC_(const MKL_INT* n, double* t, const MKL_INT* ldt, const MKL_INT* j1, const MKL_INT* n1, const MKL_INT* n2, MKL_INT* itraf, double* dtraf, double* work, MKL_INT* info);
void	bdlaexc_(const MKL_INT* n, double* t, const MKL_INT* ldt, const MKL_INT* j1, const MKL_INT* n1, const MKL_INT* n2, MKL_INT* itraf, double* dtraf, double* work, MKL_INT* info);

void	BDTREXC(const MKL_INT* n, double* t, const MKL_INT* ldt, MKL_INT* ifst, MKL_INT* ilst, MKL_INT* nitraf, MKL_INT* itraf, MKL_INT* ndtraf, double* dtraf, double* work, MKL_INT* info);
void	BDTREXC_(const MKL_INT* n, double* t, const MKL_INT* ldt, MKL_INT* ifst, MKL_INT* ilst, MKL_INT* nitraf, MKL_INT* itraf, MKL_INT* ndtraf, double* dtraf, double* work, MKL_INT* info);
void	bdtrexc_(const MKL_INT* n, double* t, const MKL_INT* ldt, MKL_INT* ifst, MKL_INT* ilst, MKL_INT* nitraf, MKL_INT* itraf, MKL_INT* ndtraf, double* dtraf, double* work, MKL_INT* info);

void	BSLAAPP(const MKL_INT* iside, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* lda, const MKL_INT* nitraf, const MKL_INT* itraf, float* dtraf, float* work);
void	BSLAAPP_(const MKL_INT* iside, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* lda, const MKL_INT* nitraf, const MKL_INT* itraf, float* dtraf, float* work);
void	bslaapp_(const MKL_INT* iside, const MKL_INT* m, const MKL_INT* n, const MKL_INT* nb, float* a, const MKL_INT* lda, const MKL_INT* nitraf, const MKL_INT* itraf, float* dtraf, float* work);

void	BSLAEXC(const MKL_INT* n, float* t, const MKL_INT* ldt, const MKL_INT* j1, const MKL_INT* n1, const MKL_INT* n2, MKL_INT* itraf, float* dtraf, float* work, MKL_INT* info);
void	BSLAEXC_(const MKL_INT* n, float* t, const MKL_INT* ldt, const MKL_INT* j1, const MKL_INT* n1, const MKL_INT* n2, MKL_INT* itraf, float* dtraf, float* work, MKL_INT* info);
void	bslaexc_(const MKL_INT* n, float* t, const MKL_INT* ldt, const MKL_INT* j1, const MKL_INT* n1, const MKL_INT* n2, MKL_INT* itraf, float* dtraf, float* work, MKL_INT* info);

void	BSTREXC(const MKL_INT* n, float* t, const MKL_INT* ldt, MKL_INT* ifst, MKL_INT* ilst, MKL_INT* nitraf, MKL_INT* itraf, MKL_INT* ndtraf, float* dtraf, float* work, MKL_INT* info);
void	BSTREXC_(const MKL_INT* n, float* t, const MKL_INT* ldt, MKL_INT* ifst, MKL_INT* ilst, MKL_INT* nitraf, MKL_INT* itraf, MKL_INT* ndtraf, float* dtraf, float* work, MKL_INT* info);
void	bstrexc_(const MKL_INT* n, float* t, const MKL_INT* ldt, MKL_INT* ifst, MKL_INT* ilst, MKL_INT* nitraf, MKL_INT* itraf, MKL_INT* ndtraf, float* dtraf, float* work, MKL_INT* info);

void	DLAQR6(const char* job, const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const double* sr, const double* si, double* h, const MKL_INT* ldh, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* ldz, double* v, const MKL_INT* ldv, double* u, const MKL_INT* ldu, const MKL_INT* nv, double* wv, const MKL_INT* ldwv, const MKL_INT* nh, double* wh, const MKL_INT* ldwh);
void	DLAQR6_(const char* job, const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const double* sr, const double* si, double* h, const MKL_INT* ldh, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* ldz, double* v, const MKL_INT* ldv, double* u, const MKL_INT* ldu, const MKL_INT* nv, double* wv, const MKL_INT* ldwv, const MKL_INT* nh, double* wh, const MKL_INT* ldwh);
void	dlaqr6_(const char* job, const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const double* sr, const double* si, double* h, const MKL_INT* ldh, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* ldz, double* v, const MKL_INT* ldv, double* u, const MKL_INT* ldu, const MKL_INT* nv, double* wv, const MKL_INT* ldwv, const MKL_INT* nh, double* wh, const MKL_INT* ldwh);

void	DLAR1VA(const MKL_INT* n, const MKL_INT* b1, const MKL_INT* bn, const double* lambda, const double* d, const double* l, const double* ld, const double* lld, const double* pivmin, const double* gaptol, double* z, const MKL_INT* wantnc, MKL_INT* negcnt, double* ztz, double* mingma, MKL_INT* r, MKL_INT* isuppz, double* nrminv, double* resid, double* rqcorr, double* work);
void	DLAR1VA_(const MKL_INT* n, const MKL_INT* b1, const MKL_INT* bn, const double* lambda, const double* d, const double* l, const double* ld, const double* lld, const double* pivmin, const double* gaptol, double* z, const MKL_INT* wantnc, MKL_INT* negcnt, double* ztz, double* mingma, MKL_INT* r, MKL_INT* isuppz, double* nrminv, double* resid, double* rqcorr, double* work);
void	dlar1va_(const MKL_INT* n, const MKL_INT* b1, const MKL_INT* bn, const double* lambda, const double* d, const double* l, const double* ld, const double* lld, const double* pivmin, const double* gaptol, double* z, const MKL_INT* wantnc, MKL_INT* negcnt, double* ztz, double* mingma, MKL_INT* r, MKL_INT* isuppz, double* nrminv, double* resid, double* rqcorr, double* work);

void	DLARRB2(const MKL_INT* n, const double* d, const double* lld, const MKL_INT* ifirst, const MKL_INT* ilast, const double* rtol1, const double* rtol2, const MKL_INT* offset, double* w, double* wgap, double* werr, double* work, MKL_INT* iwork, const double* pivmin, const double* lgpvmn, const double* lgspdm, const MKL_INT* twist, MKL_INT* info);
void	DLARRB2_(const MKL_INT* n, const double* d, const double* lld, const MKL_INT* ifirst, const MKL_INT* ilast, const double* rtol1, const double* rtol2, const MKL_INT* offset, double* w, double* wgap, double* werr, double* work, MKL_INT* iwork, const double* pivmin, const double* lgpvmn, const double* lgspdm, const MKL_INT* twist, MKL_INT* info);
void	dlarrb2_(const MKL_INT* n, const double* d, const double* lld, const MKL_INT* ifirst, const MKL_INT* ilast, const double* rtol1, const double* rtol2, const MKL_INT* offset, double* w, double* wgap, double* werr, double* work, MKL_INT* iwork, const double* pivmin, const double* lgpvmn, const double* lgspdm, const MKL_INT* twist, MKL_INT* info);

void	DLARRD2(const char* range, const char* order, const MKL_INT* n, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* gers, const double* reltol, const double* d, const double* e, const double* e2, const double* pivmin, const MKL_INT* nsplit, const MKL_INT* isplit, MKL_INT* m, double* w, double* werr, double* wl, double* wu, MKL_INT* iblock, MKL_INT* indexw, double* work, MKL_INT* iwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* info);
void	DLARRD2_(const char* range, const char* order, const MKL_INT* n, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* gers, const double* reltol, const double* d, const double* e, const double* e2, const double* pivmin, const MKL_INT* nsplit, const MKL_INT* isplit, MKL_INT* m, double* w, double* werr, double* wl, double* wu, MKL_INT* iblock, MKL_INT* indexw, double* work, MKL_INT* iwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* info);
void	dlarrd2_(const char* range, const char* order, const MKL_INT* n, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, const double* gers, const double* reltol, const double* d, const double* e, const double* e2, const double* pivmin, const MKL_INT* nsplit, const MKL_INT* isplit, MKL_INT* m, double* w, double* werr, double* wl, double* wu, MKL_INT* iblock, MKL_INT* indexw, double* work, MKL_INT* iwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* info);

void	DLARRE2(const char* range, const MKL_INT* n, double* vl, double* vu, const MKL_INT* il, const MKL_INT* iu, double* d, double* e, double* e2, const double* rtol1, const double* rtol2, const double* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, double* w, double* werr, double* wgap, MKL_INT* iblock, MKL_INT* indexw, double* gers, double* pivmin, double* work, MKL_INT* iwork, MKL_INT* info);
void	DLARRE2_(const char* range, const MKL_INT* n, double* vl, double* vu, const MKL_INT* il, const MKL_INT* iu, double* d, double* e, double* e2, const double* rtol1, const double* rtol2, const double* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, double* w, double* werr, double* wgap, MKL_INT* iblock, MKL_INT* indexw, double* gers, double* pivmin, double* work, MKL_INT* iwork, MKL_INT* info);
void	dlarre2_(const char* range, const MKL_INT* n, double* vl, double* vu, const MKL_INT* il, const MKL_INT* iu, double* d, double* e, double* e2, const double* rtol1, const double* rtol2, const double* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, double* w, double* werr, double* wgap, MKL_INT* iblock, MKL_INT* indexw, double* gers, double* pivmin, double* work, MKL_INT* iwork, MKL_INT* info);

void	DLARRE2A(const char* range, const MKL_INT* n, double* vl, double* vu, const MKL_INT* il, const MKL_INT* iu, double* d, double* e, double* e2, const double* rtol1, const double* rtol2, const double* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, double* w, double* werr, double* wgap, MKL_INT* iblock, MKL_INT* indexw, double* gers, double* sdiam, double* pivmin, double* work, MKL_INT* iwork, const double* minrgp, MKL_INT* info);
void	DLARRE2A_(const char* range, const MKL_INT* n, double* vl, double* vu, const MKL_INT* il, const MKL_INT* iu, double* d, double* e, double* e2, const double* rtol1, const double* rtol2, const double* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, double* w, double* werr, double* wgap, MKL_INT* iblock, MKL_INT* indexw, double* gers, double* sdiam, double* pivmin, double* work, MKL_INT* iwork, const double* minrgp, MKL_INT* info);
void	dlarre2a_(const char* range, const MKL_INT* n, double* vl, double* vu, const MKL_INT* il, const MKL_INT* iu, double* d, double* e, double* e2, const double* rtol1, const double* rtol2, const double* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, double* w, double* werr, double* wgap, MKL_INT* iblock, MKL_INT* indexw, double* gers, double* sdiam, double* pivmin, double* work, MKL_INT* iwork, const double* minrgp, MKL_INT* info);

void	DLARRF2(const MKL_INT* n, const double* d, const double* l, const double* ld, const MKL_INT* clstrt, const MKL_INT* clend, const MKL_INT* clmid1, const MKL_INT* clmid2, const double* w, double* wgap, const double* werr, const MKL_INT* trymid, const double* spdiam, const double* clgapl, const double* clgapr, const double* pivmin, double* sigma, double* dplus, double* lplus, double* work, MKL_INT* info);
void	DLARRF2_(const MKL_INT* n, const double* d, const double* l, const double* ld, const MKL_INT* clstrt, const MKL_INT* clend, const MKL_INT* clmid1, const MKL_INT* clmid2, const double* w, double* wgap, const double* werr, const MKL_INT* trymid, const double* spdiam, const double* clgapl, const double* clgapr, const double* pivmin, double* sigma, double* dplus, double* lplus, double* work, MKL_INT* info);
void	dlarrf2_(const MKL_INT* n, const double* d, const double* l, const double* ld, const MKL_INT* clstrt, const MKL_INT* clend, const MKL_INT* clmid1, const MKL_INT* clmid2, const double* w, double* wgap, const double* werr, const MKL_INT* trymid, const double* spdiam, const double* clgapl, const double* clgapr, const double* pivmin, double* sigma, double* dplus, double* lplus, double* work, MKL_INT* info);

void	DLARRV2(const MKL_INT* n, const double* vl, const double* vu, double* d, double* l, const double* pivmin, const MKL_INT* isplit, const MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, const double* minrgp, const double* rtol1, const double* rtol2, double* w, double* werr, double* wgap, const MKL_INT* iblock, const MKL_INT* indexw, const double* gers, const double* sdiam, double* z, const MKL_INT* ldz, MKL_INT* isuppz, double* work, MKL_INT* iwork, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);
void	DLARRV2_(const MKL_INT* n, const double* vl, const double* vu, double* d, double* l, const double* pivmin, const MKL_INT* isplit, const MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, const double* minrgp, const double* rtol1, const double* rtol2, double* w, double* werr, double* wgap, const MKL_INT* iblock, const MKL_INT* indexw, const double* gers, const double* sdiam, double* z, const MKL_INT* ldz, MKL_INT* isuppz, double* work, MKL_INT* iwork, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);
void	dlarrv2_(const MKL_INT* n, const double* vl, const double* vu, double* d, double* l, const double* pivmin, const MKL_INT* isplit, const MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, const double* minrgp, const double* rtol1, const double* rtol2, double* w, double* werr, double* wgap, const MKL_INT* iblock, const MKL_INT* indexw, const double* gers, const double* sdiam, double* z, const MKL_INT* ldz, MKL_INT* isuppz, double* work, MKL_INT* iwork, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);

void	DSTEGR2(const char* jobz, const char* range, const MKL_INT* n, double* d, double* e, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, const MKL_INT* zoffset, MKL_INT* info);
void	DSTEGR2_(const char* jobz, const char* range, const MKL_INT* n, double* d, double* e, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, const MKL_INT* zoffset, MKL_INT* info);
void	dstegr2_(const char* jobz, const char* range, const MKL_INT* n, double* d, double* e, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, const MKL_INT* zoffset, MKL_INT* info);

void	DSTEGR2A(const char* jobz, const char* range, const MKL_INT* n, double* d, double* e, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* inderr, MKL_INT* nsplit, double* pivmin, double* scale, double* wl, double* wu, MKL_INT* info);
void	DSTEGR2A_(const char* jobz, const char* range, const MKL_INT* n, double* d, double* e, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* inderr, MKL_INT* nsplit, double* pivmin, double* scale, double* wl, double* wu, MKL_INT* info);
void	dstegr2a_(const char* jobz, const char* range, const MKL_INT* n, double* d, double* e, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* inderr, MKL_INT* nsplit, double* pivmin, double* scale, double* wl, double* wu, MKL_INT* info);

void	DSTEGR2B(const char* jobz, const MKL_INT* n, double* d, double* e, const MKL_INT* m, const double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* indwlc, const double* pivmin, const double* scale, const double* wl, const double* wu, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);
void	DSTEGR2B_(const char* jobz, const MKL_INT* n, double* d, double* e, const MKL_INT* m, const double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* indwlc, const double* pivmin, const double* scale, const double* wl, const double* wu, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);
void	dstegr2b_(const char* jobz, const MKL_INT* n, double* d, double* e, const MKL_INT* m, const double* w, double* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* indwlc, const double* pivmin, const double* scale, const double* wl, const double* wu, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);

void	PCHEEVR(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PCHEEVR_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pcheevr_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, float* w, MKL_Complex8* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PCROT(const MKL_INT* n, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const float* c, const MKL_Complex8* s);
void	PCROT_(const MKL_INT* n, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const float* c, const MKL_Complex8* s);
void	pcrot_(const MKL_INT* n, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex8* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const float* c, const MKL_Complex8* s);

void	PDGEBAL(const char* job, const MKL_INT* n, double* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, double* scale, MKL_INT* info);
void	PDGEBAL_(const char* job, const MKL_INT* n, double* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, double* scale, MKL_INT* info);
void	pdgebal_(const char* job, const MKL_INT* n, double* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, double* scale, MKL_INT* info);

void	PDLAMVE(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* dwork);
void	PDLAMVE_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* dwork);
void	pdlamve_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* dwork);

void	PDLAQR0(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* h, const MKL_INT* desch, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info, const MKL_INT* reclevel);
void	PDLAQR0_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* h, const MKL_INT* desch, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info, const MKL_INT* reclevel);
void	pdlaqr0_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* h, const MKL_INT* desch, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info, const MKL_INT* reclevel);

void	PDLAQR1(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	PDLAQR1_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	pdlaqr1_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);

void	PDLAQR2(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, double* a, const MKL_INT* desca, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, double* sr, double* si, double* t, const MKL_INT* ldt, double* v, const MKL_INT* ldv, double* wr, double* wi, double* work, const MKL_INT* lwork);
void	PDLAQR2_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, double* a, const MKL_INT* desca, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, double* sr, double* si, double* t, const MKL_INT* ldt, double* v, const MKL_INT* ldv, double* wr, double* wi, double* work, const MKL_INT* lwork);
void	pdlaqr2_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, double* a, const MKL_INT* desca, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, double* sr, double* si, double* t, const MKL_INT* ldt, double* v, const MKL_INT* ldv, double* wr, double* wi, double* work, const MKL_INT* lwork);

void	PDLAQR3(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, double* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, double* sr, double* si, double* v, const MKL_INT* descv, const MKL_INT* nh, double* t, const MKL_INT* desct, const MKL_INT* nv, double* wv, const MKL_INT* descw, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* reclevel);
void	PDLAQR3_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, double* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, double* sr, double* si, double* v, const MKL_INT* descv, const MKL_INT* nh, double* t, const MKL_INT* desct, const MKL_INT* nv, double* wv, const MKL_INT* descw, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* reclevel);
void	pdlaqr3_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, double* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, double* sr, double* si, double* v, const MKL_INT* descv, const MKL_INT* nh, double* t, const MKL_INT* desct, const MKL_INT* nv, double* wv, const MKL_INT* descw, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* reclevel);

void	PDLAQR4(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* t, const MKL_INT* ldt, double* v, const MKL_INT* ldv, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PDLAQR4_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* t, const MKL_INT* ldt, double* v, const MKL_INT* ldv, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pdlaqr4_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* a, const MKL_INT* desca, double* wr, double* wi, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* t, const MKL_INT* ldt, double* v, const MKL_INT* ldv, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PDLAQR5(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const double* sr, const double* si, double* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork);
void	PDLAQR5_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const double* sr, const double* si, double* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork);
void	pdlaqr5_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const double* sr, const double* si, double* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork);

void	PDROT(const MKL_INT* n, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const double* cs, const double* sn, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PDROT_(const MKL_INT* n, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const double* cs, const double* sn, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pdrot_(const MKL_INT* n, double* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, double* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const double* cs, const double* sn, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PDSYEVR(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDSYEVR_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdsyevr_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, double* w, double* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PDTRORD(const char* compq, MKL_INT* select, const MKL_INT* para, const MKL_INT* n, double* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* wr, double* wi, MKL_INT* m, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDTRORD_(const char* compq, MKL_INT* select, const MKL_INT* para, const MKL_INT* n, double* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* wr, double* wi, MKL_INT* m, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdtrord_(const char* compq, MKL_INT* select, const MKL_INT* para, const MKL_INT* n, double* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* wr, double* wi, MKL_INT* m, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PDTRSEN(const char* job, const char* compq, const MKL_INT* select, const MKL_INT* para, const MKL_INT* n, double* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* wr, double* wi, MKL_INT* m, double* s, double* sep, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDTRSEN_(const char* job, const char* compq, const MKL_INT* select, const MKL_INT* para, const MKL_INT* n, double* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* wr, double* wi, MKL_INT* m, double* s, double* sep, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdtrsen_(const char* job, const char* compq, const MKL_INT* select, const MKL_INT* para, const MKL_INT* n, double* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* wr, double* wi, MKL_INT* m, double* s, double* sep, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PMPCOL(const MKL_INT* myproc, const MKL_INT* nprocs, const MKL_INT* iil, const MKL_INT* needil, const MKL_INT* neediu, const MKL_INT* pmyils, const MKL_INT* pmyius, MKL_INT* colbrt, MKL_INT* frstcl, MKL_INT* lastcl);
void	PMPCOL_(const MKL_INT* myproc, const MKL_INT* nprocs, const MKL_INT* iil, const MKL_INT* needil, const MKL_INT* neediu, const MKL_INT* pmyils, const MKL_INT* pmyius, MKL_INT* colbrt, MKL_INT* frstcl, MKL_INT* lastcl);
void	pmpcol_(const MKL_INT* myproc, const MKL_INT* nprocs, const MKL_INT* iil, const MKL_INT* needil, const MKL_INT* neediu, const MKL_INT* pmyils, const MKL_INT* pmyius, MKL_INT* colbrt, MKL_INT* frstcl, MKL_INT* lastcl);

void	PMPIM2(const MKL_INT* il, const MKL_INT* iu, const MKL_INT* nprocs, MKL_INT* pmyils, MKL_INT* pmyius);
void	PMPIM2_(const MKL_INT* il, const MKL_INT* iu, const MKL_INT* nprocs, MKL_INT* pmyils, MKL_INT* pmyius);
void	pmpim2_(const MKL_INT* il, const MKL_INT* iu, const MKL_INT* nprocs, MKL_INT* pmyils, MKL_INT* pmyius);

void	PSGEBAL(const char* job, const MKL_INT* n, float* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, float* scale, MKL_INT* info);
void	PSGEBAL_(const char* job, const MKL_INT* n, float* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, float* scale, MKL_INT* info);
void	psgebal_(const char* job, const MKL_INT* n, float* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, float* scale, MKL_INT* info);

void	PSLAMVE(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* dwork);
void	PSLAMVE_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* dwork);
void	pslamve_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* dwork);

void	PSLAQR0(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* h, const MKL_INT* desch, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info, const MKL_INT* reclevel);
void	PSLAQR0_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* h, const MKL_INT* desch, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info, const MKL_INT* reclevel);
void	pslaqr0_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* h, const MKL_INT* desch, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info, const MKL_INT* reclevel);

void	PSLAQR1(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	PSLAQR1_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	pslaqr1_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);

void	PSLAQR2(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, float* a, const MKL_INT* desca, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, float* sr, float* si, float* t, const MKL_INT* ldt, float* v, const MKL_INT* ldv, float* wr, float* wi, float* work, const MKL_INT* lwork);
void	PSLAQR2_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, float* a, const MKL_INT* desca, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, float* sr, float* si, float* t, const MKL_INT* ldt, float* v, const MKL_INT* ldv, float* wr, float* wi, float* work, const MKL_INT* lwork);
void	pslaqr2_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, float* a, const MKL_INT* desca, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, float* sr, float* si, float* t, const MKL_INT* ldt, float* v, const MKL_INT* ldv, float* wr, float* wi, float* work, const MKL_INT* lwork);

void	PSLAQR3(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, float* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, float* sr, float* si, float* v, const MKL_INT* descv, const MKL_INT* nh, float* t, const MKL_INT* desct, const MKL_INT* nv, float* wv, const MKL_INT* descw, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* reclevel);
void	PSLAQR3_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, float* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, float* sr, float* si, float* v, const MKL_INT* descv, const MKL_INT* nh, float* t, const MKL_INT* desct, const MKL_INT* nv, float* wv, const MKL_INT* descw, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* reclevel);
void	pslaqr3_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nw, float* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, MKL_INT* ns, MKL_INT* nd, float* sr, float* si, float* v, const MKL_INT* descv, const MKL_INT* nh, float* t, const MKL_INT* desct, const MKL_INT* nv, float* wv, const MKL_INT* descw, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* reclevel);

void	PSLAQR4(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* t, const MKL_INT* ldt, float* v, const MKL_INT* ldv, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PSLAQR4_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* t, const MKL_INT* ldt, float* v, const MKL_INT* ldv, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pslaqr4_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* a, const MKL_INT* desca, float* wr, float* wi, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* t, const MKL_INT* ldt, float* v, const MKL_INT* ldv, float* work, const MKL_INT* lwork, MKL_INT* info);

void	PSLAQR5(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const float* sr, const float* si, float* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork);
void	PSLAQR5_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const float* sr, const float* si, float* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork);
void	pslaqr5_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const float* sr, const float* si, float* h, const MKL_INT* desch, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork);

void	PSROT(const MKL_INT* n, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const float* cs, const float* sn, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PSROT_(const MKL_INT* n, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const float* cs, const float* sn, float* work, const MKL_INT* lwork, MKL_INT* info);
void	psrot_(const MKL_INT* n, float* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, float* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const float* cs, const float* sn, float* work, const MKL_INT* lwork, MKL_INT* info);

void	PSSYEVR(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PSSYEVR_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pssyevr_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, float* w, float* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PSTRORD(const char* compq, MKL_INT* select, const MKL_INT* para, const MKL_INT* n, float* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* wr, float* wi, MKL_INT* m, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PSTRORD_(const char* compq, MKL_INT* select, const MKL_INT* para, const MKL_INT* n, float* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* wr, float* wi, MKL_INT* m, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pstrord_(const char* compq, MKL_INT* select, const MKL_INT* para, const MKL_INT* n, float* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* wr, float* wi, MKL_INT* m, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PSTRSEN(const char* job, const char* compq, const MKL_INT* select, const MKL_INT* para, const MKL_INT* n, float* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* wr, float* wi, MKL_INT* m, float* s, float* sep, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PSTRSEN_(const char* job, const char* compq, const MKL_INT* select, const MKL_INT* para, const MKL_INT* n, float* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* wr, float* wi, MKL_INT* m, float* s, float* sep, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pstrsen_(const char* job, const char* compq, const MKL_INT* select, const MKL_INT* para, const MKL_INT* n, float* t, const MKL_INT* it, const MKL_INT* jt, const MKL_INT* desct, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* wr, float* wi, MKL_INT* m, float* s, float* sep, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PZHEEVR(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PZHEEVR_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pzheevr_(const char* jobz, const char* range, const char* uplo, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* vl, const double* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, MKL_INT* nz, double* w, MKL_Complex16* z, const MKL_INT* iz, const MKL_INT* jz, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PZROT(const MKL_INT* n, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const double* c, const MKL_Complex16* s);
void	PZROT_(const MKL_INT* n, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const double* c, const MKL_Complex16* s);
void	pzrot_(const MKL_INT* n, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, const MKL_INT* incx, MKL_Complex16* y, const MKL_INT* iy, const MKL_INT* jy, const MKL_INT* descy, const MKL_INT* incy, const double* c, const MKL_Complex16* s);

void	SLAQR6(const char* job, const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const float* sr, const float* si, float* h, const MKL_INT* ldh, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* ldz, float* v, const MKL_INT* ldv, float* u, const MKL_INT* ldu, const MKL_INT* nv, float* wv, const MKL_INT* ldwv, const MKL_INT* nh, float* wh, const MKL_INT* ldwh);
void	SLAQR6_(const char* job, const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const float* sr, const float* si, float* h, const MKL_INT* ldh, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* ldz, float* v, const MKL_INT* ldv, float* u, const MKL_INT* ldu, const MKL_INT* nv, float* wv, const MKL_INT* ldwv, const MKL_INT* nh, float* wh, const MKL_INT* ldwh);
void	slaqr6_(const char* job, const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* kacc22, const MKL_INT* n, const MKL_INT* ktop, const MKL_INT* kbot, const MKL_INT* nshfts, const float* sr, const float* si, float* h, const MKL_INT* ldh, const MKL_INT* iloz, const MKL_INT* ihiz, float* z, const MKL_INT* ldz, float* v, const MKL_INT* ldv, float* u, const MKL_INT* ldu, const MKL_INT* nv, float* wv, const MKL_INT* ldwv, const MKL_INT* nh, float* wh, const MKL_INT* ldwh);

void	SLAR1VA(const MKL_INT* n, const MKL_INT* b1, const MKL_INT* bn, const float* lambda, const float* d, const float* l, const float* ld, const float* lld, const float* pivmin, const float* gaptol, float* z, const MKL_INT* wantnc, MKL_INT* negcnt, float* ztz, float* mingma, MKL_INT* r, MKL_INT* isuppz, float* nrminv, float* resid, float* rqcorr, float* work);
void	SLAR1VA_(const MKL_INT* n, const MKL_INT* b1, const MKL_INT* bn, const float* lambda, const float* d, const float* l, const float* ld, const float* lld, const float* pivmin, const float* gaptol, float* z, const MKL_INT* wantnc, MKL_INT* negcnt, float* ztz, float* mingma, MKL_INT* r, MKL_INT* isuppz, float* nrminv, float* resid, float* rqcorr, float* work);
void	slar1va_(const MKL_INT* n, const MKL_INT* b1, const MKL_INT* bn, const float* lambda, const float* d, const float* l, const float* ld, const float* lld, const float* pivmin, const float* gaptol, float* z, const MKL_INT* wantnc, MKL_INT* negcnt, float* ztz, float* mingma, MKL_INT* r, MKL_INT* isuppz, float* nrminv, float* resid, float* rqcorr, float* work);

void	SLARRB2(const MKL_INT* n, const float* d, const float* lld, const MKL_INT* ifirst, const MKL_INT* ilast, const float* rtol1, const float* rtol2, const MKL_INT* offset, float* w, float* wgap, float* werr, float* work, MKL_INT* iwork, const float* pivmin, const float* lgpvmn, const float* lgspdm, const MKL_INT* twist, MKL_INT* info);
void	SLARRB2_(const MKL_INT* n, const float* d, const float* lld, const MKL_INT* ifirst, const MKL_INT* ilast, const float* rtol1, const float* rtol2, const MKL_INT* offset, float* w, float* wgap, float* werr, float* work, MKL_INT* iwork, const float* pivmin, const float* lgpvmn, const float* lgspdm, const MKL_INT* twist, MKL_INT* info);
void	slarrb2_(const MKL_INT* n, const float* d, const float* lld, const MKL_INT* ifirst, const MKL_INT* ilast, const float* rtol1, const float* rtol2, const MKL_INT* offset, float* w, float* wgap, float* werr, float* work, MKL_INT* iwork, const float* pivmin, const float* lgpvmn, const float* lgspdm, const MKL_INT* twist, MKL_INT* info);

void	SLARRD2(const char* range, const char* order, const MKL_INT* n, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* gers, const float* reltol, const float* d, const float* e, const float* e2, const float* pivmin, const MKL_INT* nsplit, const MKL_INT* isplit, MKL_INT* m, float* w, float* werr, float* wl, float* wu, MKL_INT* iblock, MKL_INT* indexw, float* work, MKL_INT* iwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* info);
void	SLARRD2_(const char* range, const char* order, const MKL_INT* n, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* gers, const float* reltol, const float* d, const float* e, const float* e2, const float* pivmin, const MKL_INT* nsplit, const MKL_INT* isplit, MKL_INT* m, float* w, float* werr, float* wl, float* wu, MKL_INT* iblock, MKL_INT* indexw, float* work, MKL_INT* iwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* info);
void	slarrd2_(const char* range, const char* order, const MKL_INT* n, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, const float* gers, const float* reltol, const float* d, const float* e, const float* e2, const float* pivmin, const MKL_INT* nsplit, const MKL_INT* isplit, MKL_INT* m, float* w, float* werr, float* wl, float* wu, MKL_INT* iblock, MKL_INT* indexw, float* work, MKL_INT* iwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* info);

void	SLARRE2(const char* range, const MKL_INT* n, float* vl, float* vu, const MKL_INT* il, const MKL_INT* iu, float* d, float* e, float* e2, const float* rtol1, const float* rtol2, const float* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, float* w, float* werr, float* wgap, MKL_INT* iblock, MKL_INT* indexw, float* gers, float* pivmin, float* work, MKL_INT* iwork, MKL_INT* info);
void	SLARRE2_(const char* range, const MKL_INT* n, float* vl, float* vu, const MKL_INT* il, const MKL_INT* iu, float* d, float* e, float* e2, const float* rtol1, const float* rtol2, const float* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, float* w, float* werr, float* wgap, MKL_INT* iblock, MKL_INT* indexw, float* gers, float* pivmin, float* work, MKL_INT* iwork, MKL_INT* info);
void	slarre2_(const char* range, const MKL_INT* n, float* vl, float* vu, const MKL_INT* il, const MKL_INT* iu, float* d, float* e, float* e2, const float* rtol1, const float* rtol2, const float* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, float* w, float* werr, float* wgap, MKL_INT* iblock, MKL_INT* indexw, float* gers, float* pivmin, float* work, MKL_INT* iwork, MKL_INT* info);

void	SLARRE2A(const char* range, const MKL_INT* n, float* vl, float* vu, const MKL_INT* il, const MKL_INT* iu, float* d, float* e, float* e2, const float* rtol1, const float* rtol2, const float* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, float* w, float* werr, float* wgap, MKL_INT* iblock, MKL_INT* indexw, float* gers, float* sdiam, float* pivmin, float* work, MKL_INT* iwork, const float* minrgp, MKL_INT* info);
void	SLARRE2A_(const char* range, const MKL_INT* n, float* vl, float* vu, const MKL_INT* il, const MKL_INT* iu, float* d, float* e, float* e2, const float* rtol1, const float* rtol2, const float* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, float* w, float* werr, float* wgap, MKL_INT* iblock, MKL_INT* indexw, float* gers, float* sdiam, float* pivmin, float* work, MKL_INT* iwork, const float* minrgp, MKL_INT* info);
void	slarre2a_(const char* range, const MKL_INT* n, float* vl, float* vu, const MKL_INT* il, const MKL_INT* iu, float* d, float* e, float* e2, const float* rtol1, const float* rtol2, const float* spltol, MKL_INT* nsplit, MKL_INT* isplit, MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, float* w, float* werr, float* wgap, MKL_INT* iblock, MKL_INT* indexw, float* gers, float* sdiam, float* pivmin, float* work, MKL_INT* iwork, const float* minrgp, MKL_INT* info);

void	SLARRF2(const MKL_INT* n, const float* d, const float* l, const float* ld, const MKL_INT* clstrt, const MKL_INT* clend, const MKL_INT* clmid1, const MKL_INT* clmid2, const float* w, float* wgap, const float* werr, const MKL_INT* trymid, const float* spdiam, const float* clgapl, const float* clgapr, const float* pivmin, float* sigma, float* dplus, float* lplus, float* work, MKL_INT* info);
void	SLARRF2_(const MKL_INT* n, const float* d, const float* l, const float* ld, const MKL_INT* clstrt, const MKL_INT* clend, const MKL_INT* clmid1, const MKL_INT* clmid2, const float* w, float* wgap, const float* werr, const MKL_INT* trymid, const float* spdiam, const float* clgapl, const float* clgapr, const float* pivmin, float* sigma, float* dplus, float* lplus, float* work, MKL_INT* info);
void	slarrf2_(const MKL_INT* n, const float* d, const float* l, const float* ld, const MKL_INT* clstrt, const MKL_INT* clend, const MKL_INT* clmid1, const MKL_INT* clmid2, const float* w, float* wgap, const float* werr, const MKL_INT* trymid, const float* spdiam, const float* clgapl, const float* clgapr, const float* pivmin, float* sigma, float* dplus, float* lplus, float* work, MKL_INT* info);

void	SLARRV2(const MKL_INT* n, const float* vl, const float* vu, float* d, float* l, const float* pivmin, const MKL_INT* isplit, const MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, const float* minrgp, const float* rtol1, const float* rtol2, float* w, float* werr, float* wgap, const MKL_INT* iblock, const MKL_INT* indexw, const float* gers, const float* sdiam, float* z, const MKL_INT* ldz, MKL_INT* isuppz, float* work, MKL_INT* iwork, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);
void	SLARRV2_(const MKL_INT* n, const float* vl, const float* vu, float* d, float* l, const float* pivmin, const MKL_INT* isplit, const MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, const float* minrgp, const float* rtol1, const float* rtol2, float* w, float* werr, float* wgap, const MKL_INT* iblock, const MKL_INT* indexw, const float* gers, const float* sdiam, float* z, const MKL_INT* ldz, MKL_INT* isuppz, float* work, MKL_INT* iwork, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);
void	slarrv2_(const MKL_INT* n, const float* vl, const float* vu, float* d, float* l, const float* pivmin, const MKL_INT* isplit, const MKL_INT* m, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, const float* minrgp, const float* rtol1, const float* rtol2, float* w, float* werr, float* wgap, const MKL_INT* iblock, const MKL_INT* indexw, const float* gers, const float* sdiam, float* z, const MKL_INT* ldz, MKL_INT* isuppz, float* work, MKL_INT* iwork, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);

void	SSTEGR2(const char* jobz, const char* range, const MKL_INT* n, float* d, float* e, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, const MKL_INT* zoffset, MKL_INT* info);
void	SSTEGR2_(const char* jobz, const char* range, const MKL_INT* n, float* d, float* e, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, const MKL_INT* zoffset, MKL_INT* info);
void	sstegr2_(const char* jobz, const char* range, const MKL_INT* n, float* d, float* e, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, const MKL_INT* zoffset, MKL_INT* info);

void	SSTEGR2A(const char* jobz, const char* range, const MKL_INT* n, float* d, float* e, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* inderr, MKL_INT* nsplit, float* pivmin, float* scale, float* wl, float* wu, MKL_INT* info);
void	SSTEGR2A_(const char* jobz, const char* range, const MKL_INT* n, float* d, float* e, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* inderr, MKL_INT* nsplit, float* pivmin, float* scale, float* wl, float* wu, MKL_INT* info);
void	sstegr2a_(const char* jobz, const char* range, const MKL_INT* n, float* d, float* e, const float* vl, const float* vu, const MKL_INT* il, const MKL_INT* iu, MKL_INT* m, float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* inderr, MKL_INT* nsplit, float* pivmin, float* scale, float* wl, float* wu, MKL_INT* info);

void	SSTEGR2B(const char* jobz, const MKL_INT* n, float* d, float* e, const MKL_INT* m, const float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* indwlc, const float* pivmin, const float* scale, const float* wl, const float* wu, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);
void	SSTEGR2B_(const char* jobz, const MKL_INT* n, float* d, float* e, const MKL_INT* m, const float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* indwlc, const float* pivmin, const float* scale, const float* wl, const float* wu, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);
void	sstegr2b_(const char* jobz, const MKL_INT* n, float* d, float* e, const MKL_INT* m, const float* w, float* z, const MKL_INT* ldz, const MKL_INT* nzc, MKL_INT* isuppz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, const MKL_INT* dol, const MKL_INT* dou, MKL_INT* needil, MKL_INT* neediu, MKL_INT* indwlc, const float* pivmin, const float* scale, const float* wl, const float* wu, MKL_INT* vstart, MKL_INT* finish, MKL_INT* maxcls, MKL_INT* ndepth, MKL_INT* parity, const MKL_INT* zoffset, MKL_INT* info);

/* Declarations added oneMKL 11.3.2 */

void	PCHENGST(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZHENGST(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCHENGST_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZHENGST_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pchengst_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzhengst_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PCHENTRD(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZHENTRD(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PCHENTRD_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	PZHENTRD_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pchentrd_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, float* rwork, const MKL_INT* lrwork, MKL_INT* info);
void	pzhentrd_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, double* rwork, const MKL_INT* lrwork, MKL_INT* info);

void	PCHETTRD(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZHETTRD(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCHETTRD_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZHETTRD_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pchettrd_(const char* uplo, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, MKL_Complex8* tau, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzhettrd_(const char* uplo, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, MKL_Complex16* tau, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

void	PSHSEQR(const char* job, const char* compz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* h, const MKL_INT* desch, float* wr, float* wi, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDHSEQR(const char* job, const char* compz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* h, const MKL_INT* desch, double* wr, double* wi, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PSHSEQR_(const char* job, const char* compz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* h, const MKL_INT* desch, float* wr, float* wi, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDHSEQR_(const char* job, const char* compz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* h, const MKL_INT* desch, double* wr, double* wi, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pshseqr_(const char* job, const char* compz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, float* h, const MKL_INT* desch, float* wr, float* wi, float* z, const MKL_INT* descz, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdhseqr_(const char* job, const char* compz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, double* h, const MKL_INT* desch, double* wr, double* wi, double* z, const MKL_INT* descz, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PCLACONSB(const MKL_Complex8* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const MKL_Complex8* h44, const MKL_Complex8* h33, const MKL_Complex8* h43h34, MKL_Complex8* buf, const MKL_INT* lwork);
void	PZLACONSB(const MKL_Complex16* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const MKL_Complex16* h44, const MKL_Complex16* h33, const MKL_Complex16* h43h34, MKL_Complex16* buf, const MKL_INT* lwork);
void	PCLACONSB_(const MKL_Complex8* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const MKL_Complex8* h44, const MKL_Complex8* h33, const MKL_Complex8* h43h34, MKL_Complex8* buf, const MKL_INT* lwork);
void	PZLACONSB_(const MKL_Complex16* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const MKL_Complex16* h44, const MKL_Complex16* h33, const MKL_Complex16* h43h34, MKL_Complex16* buf, const MKL_INT* lwork);
void	pclaconsb_(const MKL_Complex8* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const MKL_Complex8* h44, const MKL_Complex8* h33, const MKL_Complex8* h43h34, MKL_Complex8* buf, const MKL_INT* lwork);
void	pzlaconsb_(const MKL_Complex16* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* m, const MKL_Complex16* h44, const MKL_Complex16* h33, const MKL_Complex16* h43h34, MKL_Complex16* buf, const MKL_INT* lwork);

void	PCLACP3(const MKL_INT* m, const MKL_INT* i, MKL_Complex8* a, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	PZLACP3(const MKL_INT* m, const MKL_INT* i, MKL_Complex16* a, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	PCLACP3_(const MKL_INT* m, const MKL_INT* i, MKL_Complex8* a, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	PZLACP3_(const MKL_INT* m, const MKL_INT* i, MKL_Complex16* a, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	pclacp3_(const MKL_INT* m, const MKL_INT* i, MKL_Complex8* a, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);
void	pzlacp3_(const MKL_INT* m, const MKL_INT* i, MKL_Complex16* a, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ldb, const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* rev);

void	PSLAED0(const MKL_INT* n, float* d, float* e, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, MKL_INT* iwork, MKL_INT* info);
void	PDLAED0(const MKL_INT* n, double* d, double* e, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, MKL_INT* iwork, MKL_INT* info);
void	PSLAED0_(const MKL_INT* n, float* d, float* e, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, MKL_INT* iwork, MKL_INT* info);
void	PDLAED0_(const MKL_INT* n, double* d, double* e, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, MKL_INT* iwork, MKL_INT* info);
void	pslaed0_(const MKL_INT* n, float* d, float* e, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, MKL_INT* iwork, MKL_INT* info);
void	pdlaed0_(const MKL_INT* n, double* d, double* e, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, MKL_INT* iwork, MKL_INT* info);

void	PSLAED1(const MKL_INT* n, const MKL_INT* n1, float* d, const MKL_INT* id, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, const float* rho, float* work, MKL_INT* iwork, MKL_INT* info);
void	PDLAED1(const MKL_INT* n, const MKL_INT* n1, double* d, const MKL_INT* id, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, const double* rho, double* work, MKL_INT* iwork, MKL_INT* info);
void	PSLAED1_(const MKL_INT* n, const MKL_INT* n1, float* d, const MKL_INT* id, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, const float* rho, float* work, MKL_INT* iwork, MKL_INT* info);
void	PDLAED1_(const MKL_INT* n, const MKL_INT* n1, double* d, const MKL_INT* id, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, const double* rho, double* work, MKL_INT* iwork, MKL_INT* info);
void	pslaed1_(const MKL_INT* n, const MKL_INT* n1, float* d, const MKL_INT* id, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, const float* rho, float* work, MKL_INT* iwork, MKL_INT* info);
void	pdlaed1_(const MKL_INT* n, const MKL_INT* n1, double* d, const MKL_INT* id, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, const double* rho, double* work, MKL_INT* iwork, MKL_INT* info);

void	PSLAED2(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* n1, const MKL_INT* nb, float* d, const MKL_INT* drow, const MKL_INT* dcol, float* q, const MKL_INT* ldq, float* rho, const float* z, float* w, float* dlamda, float* q2, const MKL_INT* ldq2, float* qbuf, MKL_INT* ctot, MKL_INT* psm, const MKL_INT* npcol, MKL_INT* indx, MKL_INT* indxc, MKL_INT* indxp, MKL_INT* indcol, MKL_INT* coltyp, MKL_INT* nn, MKL_INT* nn1, MKL_INT* nn2, MKL_INT* ib1, MKL_INT* ib2);
void	PDLAED2(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* n1, const MKL_INT* nb, double* d, const MKL_INT* drow, const MKL_INT* dcol, double* q, const MKL_INT* ldq, double* rho, const double* z, double* w, double* dlamda, double* q2, const MKL_INT* ldq2, double* qbuf, MKL_INT* ctot, MKL_INT* psm, const MKL_INT* npcol, MKL_INT* indx, MKL_INT* indxc, MKL_INT* indxp, MKL_INT* indcol, MKL_INT* coltyp, MKL_INT* nn, MKL_INT* nn1, MKL_INT* nn2, MKL_INT* ib1, MKL_INT* ib2);
void	PSLAED2_(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* n1, const MKL_INT* nb, float* d, const MKL_INT* drow, const MKL_INT* dcol, float* q, const MKL_INT* ldq, float* rho, const float* z, float* w, float* dlamda, float* q2, const MKL_INT* ldq2, float* qbuf, MKL_INT* ctot, MKL_INT* psm, const MKL_INT* npcol, MKL_INT* indx, MKL_INT* indxc, MKL_INT* indxp, MKL_INT* indcol, MKL_INT* coltyp, MKL_INT* nn, MKL_INT* nn1, MKL_INT* nn2, MKL_INT* ib1, MKL_INT* ib2);
void	PDLAED2_(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* n1, const MKL_INT* nb, double* d, const MKL_INT* drow, const MKL_INT* dcol, double* q, const MKL_INT* ldq, double* rho, const double* z, double* w, double* dlamda, double* q2, const MKL_INT* ldq2, double* qbuf, MKL_INT* ctot, MKL_INT* psm, const MKL_INT* npcol, MKL_INT* indx, MKL_INT* indxc, MKL_INT* indxp, MKL_INT* indcol, MKL_INT* coltyp, MKL_INT* nn, MKL_INT* nn1, MKL_INT* nn2, MKL_INT* ib1, MKL_INT* ib2);
void	pslaed2_(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* n1, const MKL_INT* nb, float* d, const MKL_INT* drow, const MKL_INT* dcol, float* q, const MKL_INT* ldq, float* rho, const float* z, float* w, float* dlamda, float* q2, const MKL_INT* ldq2, float* qbuf, MKL_INT* ctot, MKL_INT* psm, const MKL_INT* npcol, MKL_INT* indx, MKL_INT* indxc, MKL_INT* indxp, MKL_INT* indcol, MKL_INT* coltyp, MKL_INT* nn, MKL_INT* nn1, MKL_INT* nn2, MKL_INT* ib1, MKL_INT* ib2);
void	pdlaed2_(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* n1, const MKL_INT* nb, double* d, const MKL_INT* drow, const MKL_INT* dcol, double* q, const MKL_INT* ldq, double* rho, const double* z, double* w, double* dlamda, double* q2, const MKL_INT* ldq2, double* qbuf, MKL_INT* ctot, MKL_INT* psm, const MKL_INT* npcol, MKL_INT* indx, MKL_INT* indxc, MKL_INT* indxp, MKL_INT* indcol, MKL_INT* coltyp, MKL_INT* nn, MKL_INT* nn1, MKL_INT* nn2, MKL_INT* ib1, MKL_INT* ib2);

void	PSLAED3(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* nb, float* d, const MKL_INT* drow, const MKL_INT* dcol, float* rho, float* dlamda, float* w, const float* z, float* u, const MKL_INT* ldu, float* buf, MKL_INT* indx, MKL_INT* indcol, MKL_INT* indrow, MKL_INT* indxr, MKL_INT* indxc, MKL_INT* ctot, const MKL_INT* npcol, MKL_INT* info);
void	PDLAED3(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* nb, double* d, const MKL_INT* drow, const MKL_INT* dcol, double* rho, double* dlamda, double* w, const double* z, double* u, const MKL_INT* ldu, double* buf, MKL_INT* indx, MKL_INT* indcol, MKL_INT* indrow, MKL_INT* indxr, MKL_INT* indxc, MKL_INT* ctot, const MKL_INT* npcol, MKL_INT* info);
void	PSLAED3_(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* nb, float* d, const MKL_INT* drow, const MKL_INT* dcol, float* rho, float* dlamda, float* w, const float* z, float* u, const MKL_INT* ldu, float* buf, MKL_INT* indx, MKL_INT* indcol, MKL_INT* indrow, MKL_INT* indxr, MKL_INT* indxc, MKL_INT* ctot, const MKL_INT* npcol, MKL_INT* info);
void	PDLAED3_(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* nb, double* d, const MKL_INT* drow, const MKL_INT* dcol, double* rho, double* dlamda, double* w, const double* z, double* u, const MKL_INT* ldu, double* buf, MKL_INT* indx, MKL_INT* indcol, MKL_INT* indrow, MKL_INT* indxr, MKL_INT* indxc, MKL_INT* ctot, const MKL_INT* npcol, MKL_INT* info);
void	pslaed3_(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* nb, float* d, const MKL_INT* drow, const MKL_INT* dcol, float* rho, float* dlamda, float* w, const float* z, float* u, const MKL_INT* ldu, float* buf, MKL_INT* indx, MKL_INT* indcol, MKL_INT* indrow, MKL_INT* indxr, MKL_INT* indxc, MKL_INT* ctot, const MKL_INT* npcol, MKL_INT* info);
void	pdlaed3_(const MKL_INT* ictxt, MKL_INT* k, const MKL_INT* n, const MKL_INT* nb, double* d, const MKL_INT* drow, const MKL_INT* dcol, double* rho, double* dlamda, double* w, const double* z, double* u, const MKL_INT* ldu, double* buf, MKL_INT* indx, MKL_INT* indcol, MKL_INT* indrow, MKL_INT* indxr, MKL_INT* indxc, MKL_INT* ctot, const MKL_INT* npcol, MKL_INT* info);

void	PSLAEDZ(const MKL_INT* n, const MKL_INT* n1, const MKL_INT* id, const float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* ldq, const MKL_INT* descq, float* z, float* work);
void	PDLAEDZ(const MKL_INT* n, const MKL_INT* n1, const MKL_INT* id, const double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* ldq, const MKL_INT* descq, double* z, double* work);
void	PSLAEDZ_(const MKL_INT* n, const MKL_INT* n1, const MKL_INT* id, const float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* ldq, const MKL_INT* descq, float* z, float* work);
void	PDLAEDZ_(const MKL_INT* n, const MKL_INT* n1, const MKL_INT* id, const double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* ldq, const MKL_INT* descq, double* z, double* work);
void	pslaedz_(const MKL_INT* n, const MKL_INT* n1, const MKL_INT* id, const float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* ldq, const MKL_INT* descq, float* z, float* work);
void	pdlaedz_(const MKL_INT* n, const MKL_INT* n1, const MKL_INT* id, const double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* ldq, const MKL_INT* descq, double* z, double* work);

void	PCLAHQR(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* desca, MKL_Complex8* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex8* z, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	PZLAHQR(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* desca, MKL_Complex16* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex16* z, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	PCLAHQR_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* desca, MKL_Complex8* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex8* z, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	PZLAHQR_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* desca, MKL_Complex16* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex16* z, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	pclahqr_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* a, const MKL_INT* desca, MKL_Complex8* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex8* z, const MKL_INT* descz, MKL_Complex8* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);
void	pzlahqr_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* a, const MKL_INT* desca, MKL_Complex16* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex16* z, const MKL_INT* descz, MKL_Complex16* work, const MKL_INT* lwork, const MKL_INT* iwork, const MKL_INT* ilwork, MKL_INT* info);

void	CLAHQR2(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* h, const MKL_INT* ldh, MKL_Complex8* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex8* z, const MKL_INT* ldz, MKL_INT* info);
void	ZLAHQR2(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* h, const MKL_INT* ldh, MKL_Complex16* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex16* z, const MKL_INT* ldz, MKL_INT* info);
void	CLAHQR2_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* h, const MKL_INT* ldh, MKL_Complex8* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex8* z, const MKL_INT* ldz, MKL_INT* info);
void	ZLAHQR2_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* h, const MKL_INT* ldh, MKL_Complex16* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex16* z, const MKL_INT* ldz, MKL_INT* info);
void	clahqr2_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex8* h, const MKL_INT* ldh, MKL_Complex8* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex8* z, const MKL_INT* ldz, MKL_INT* info);
void	zlahqr2_(const MKL_INT* wantt, const MKL_INT* wantz, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, MKL_Complex16* h, const MKL_INT* ldh, MKL_Complex16* w, const MKL_INT* iloz, const MKL_INT* ihiz, MKL_Complex16* z, const MKL_INT* ldz, MKL_INT* info);

void	PDLAIECTB(const double* sigma, const MKL_INT* n, const double* d, MKL_INT* count);
void	PDLAIECTB_(const double* sigma, const MKL_INT* n, const double* d, MKL_INT* count);
void	pdlaiectb_(const double* sigma, const MKL_INT* n, const double* d, MKL_INT* count);

void	PDLAIECTL(const double* sigma, const MKL_INT* n, const double* d, MKL_INT* count);
void	PDLAIECTL_(const double* sigma, const MKL_INT* n, const double* d, MKL_INT* count);
void	pdlaiectl_(const double* sigma, const MKL_INT* n, const double* d, MKL_INT* count);

void	SLAMOV(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const float* A, const MKL_INT* LDA, float* B, const MKL_INT* LDB);
void	DLAMOV(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const double* A, const MKL_INT* LDA, double* B, const MKL_INT* LDB);
void	CLAMOV(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const MKL_Complex8* A, const MKL_INT* LDA, MKL_Complex8* B, const MKL_INT* LDB);
void	ZLAMOV(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const MKL_Complex16* A, const MKL_INT* LDA, MKL_Complex16* B, const MKL_INT* LDB);
void	SLAMOV_(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const float* A, const MKL_INT* LDA, float* B, const MKL_INT* LDB);
void	DLAMOV_(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const double* A, const MKL_INT* LDA, double* B, const MKL_INT* LDB);
void	CLAMOV_(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const MKL_Complex8* A, const MKL_INT* LDA, MKL_Complex8* B, const MKL_INT* LDB);
void	ZLAMOV_(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const MKL_Complex16* A, const MKL_INT* LDA, MKL_Complex16* B, const MKL_INT* LDB);
void	slamov_(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const float* A, const MKL_INT* LDA, float* B, const MKL_INT* LDB);
void	dlamov_(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const double* A, const MKL_INT* LDA, double* B, const MKL_INT* LDB);
void	clamov_(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const MKL_Complex8* A, const MKL_INT* LDA, MKL_Complex8* B, const MKL_INT* LDB);
void	zlamov_(const char* UPLO, const MKL_INT* M, const MKL_INT* N, const MKL_Complex16* A, const MKL_INT* LDA, MKL_Complex16* B, const MKL_INT* LDB);

void	PSLAMR1D(const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PDLAMR1D(const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PCLAMR1D(const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PZLAMR1D(const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PSLAMR1D_(const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PDLAMR1D_(const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PCLAMR1D_(const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	PZLAMR1D_(const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pslamr1d_(const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pdlamr1d_(const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pclamr1d_(const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);
void	pzlamr1d_(const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb);

void	CLAMSH(MKL_Complex8* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, MKL_Complex8* h, const MKL_INT* ldh, const MKL_INT* n, const float* ulp);
void	ZLAMSH(MKL_Complex16* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, MKL_Complex16* h, const MKL_INT* ldh, const MKL_INT* n, const double* ulp);
void	CLAMSH_(MKL_Complex8* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, MKL_Complex8* h, const MKL_INT* ldh, const MKL_INT* n, const float* ulp);
void	ZLAMSH_(MKL_Complex16* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, MKL_Complex16* h, const MKL_INT* ldh, const MKL_INT* n, const double* ulp);
void	clamsh_(MKL_Complex8* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, MKL_Complex8* h, const MKL_INT* ldh, const MKL_INT* n, const float* ulp);
void	zlamsh_(MKL_Complex16* s, const MKL_INT* lds, MKL_INT* nbulge, const MKL_INT* jblk, MKL_Complex16* h, const MKL_INT* ldh, const MKL_INT* n, const double* ulp);

void	CLANV2(MKL_Complex8* a, MKL_Complex8* b, MKL_Complex8* c, MKL_Complex8* d, MKL_Complex8* rt1, MKL_Complex8* rt2, float* cs, MKL_Complex8* sn);
void	ZLANV2(MKL_Complex16* a, MKL_Complex16* b, MKL_Complex16* c, MKL_Complex16* d, MKL_Complex16* rt1, MKL_Complex16* rt2, double* cs, MKL_Complex16* sn);
void	CLANV2_(MKL_Complex8* a, MKL_Complex8* b, MKL_Complex8* c, MKL_Complex8* d, MKL_Complex8* rt1, MKL_Complex8* rt2, float* cs, MKL_Complex8* sn);
void	ZLANV2_(MKL_Complex16* a, MKL_Complex16* b, MKL_Complex16* c, MKL_Complex16* d, MKL_Complex16* rt1, MKL_Complex16* rt2, double* cs, MKL_Complex16* sn);
void	clanv2_(MKL_Complex8* a, MKL_Complex8* b, MKL_Complex8* c, MKL_Complex8* d, MKL_Complex8* rt1, MKL_Complex8* rt2, float* cs, MKL_Complex8* sn);
void	zlanv2_(MKL_Complex16* a, MKL_Complex16* b, MKL_Complex16* c, MKL_Complex16* d, MKL_Complex16* rt1, MKL_Complex16* rt2, double* cs, MKL_Complex16* sn);

void	SLAPST(const char* id, const MKL_INT* n, const float* d, MKL_INT* indx, MKL_INT* info);
void	DLAPST(const char* id, const MKL_INT* n, const double* d, MKL_INT* indx, MKL_INT* info);
void	SLAPST_(const char* id, const MKL_INT* n, const float* d, MKL_INT* indx, MKL_INT* info);
void	DLAPST_(const char* id, const MKL_INT* n, const double* d, MKL_INT* indx, MKL_INT* info);
void	slapst_(const char* id, const MKL_INT* n, const float* d, MKL_INT* indx, MKL_INT* info);
void	dlapst_(const char* id, const MKL_INT* n, const double* d, MKL_INT* indx, MKL_INT* info);

void	PSLAPV2(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	PDLAPV2(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	PCLAPV2(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	PZLAPV2(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	PSLAPV2_(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	PDLAPV2_(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	PCLAPV2_(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	PZLAPV2_(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	pslapv2_(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	pdlapv2_(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	pclapv2_(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);
void	pzlapv2_(const char* direc, const char* rowcol, const MKL_INT* m, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_INT* ipiv, const MKL_INT* ip, const MKL_INT* jp, const MKL_INT* descip);

void	CLAREF(const char* type, MKL_Complex8* a, const MKL_INT* lda, const MKL_INT* wantz, MKL_Complex8* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const MKL_Complex8* vecs, MKL_Complex8* v2, MKL_Complex8* v3, MKL_Complex8* t1, MKL_Complex8* t2, MKL_Complex8* t3);
void	ZLAREF(const char* type, MKL_Complex16* a, const MKL_INT* lda, const MKL_INT* wantz, MKL_Complex16* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const MKL_Complex16* vecs, MKL_Complex16* v2, MKL_Complex16* v3, MKL_Complex16* t1, MKL_Complex16* t2, MKL_Complex16* t3);
void	CLAREF_(const char* type, MKL_Complex8* a, const MKL_INT* lda, const MKL_INT* wantz, MKL_Complex8* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const MKL_Complex8* vecs, MKL_Complex8* v2, MKL_Complex8* v3, MKL_Complex8* t1, MKL_Complex8* t2, MKL_Complex8* t3);
void	ZLAREF_(const char* type, MKL_Complex16* a, const MKL_INT* lda, const MKL_INT* wantz, MKL_Complex16* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const MKL_Complex16* vecs, MKL_Complex16* v2, MKL_Complex16* v3, MKL_Complex16* t1, MKL_Complex16* t2, MKL_Complex16* t3);
void	claref_(const char* type, MKL_Complex8* a, const MKL_INT* lda, const MKL_INT* wantz, MKL_Complex8* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const MKL_Complex8* vecs, MKL_Complex8* v2, MKL_Complex8* v3, MKL_Complex8* t1, MKL_Complex8* t2, MKL_Complex8* t3);
void	zlaref_(const char* type, MKL_Complex16* a, const MKL_INT* lda, const MKL_INT* wantz, MKL_Complex16* z, const MKL_INT* ldz, const MKL_INT* block, MKL_INT* irow1, MKL_INT* icol1, const MKL_INT* istart, const MKL_INT* istop, const MKL_INT* itmp1, const MKL_INT* itmp2, const MKL_INT* liloz, const MKL_INT* lihiz, const MKL_Complex16* vecs, MKL_Complex16* v2, MKL_Complex16* v3, MKL_Complex16* t1, MKL_Complex16* t2, MKL_Complex16* t3);

void	PSLASE2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* alpha, const float* beta, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PDLASE2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* alpha, const double* beta, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PCLASE2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* alpha, const MKL_Complex8* beta, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PZLASE2(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* alpha, const MKL_Complex16* beta, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PSLASE2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* alpha, const float* beta, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PDLASE2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* alpha, const double* beta, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PCLASE2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* alpha, const MKL_Complex8* beta, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	PZLASE2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* alpha, const MKL_Complex16* beta, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pslase2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const float* alpha, const float* beta, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pdlase2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const double* alpha, const double* beta, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pclase2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex8* alpha, const MKL_Complex8* beta, MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);
void	pzlase2_(const char* uplo, const MKL_INT* m, const MKL_INT* n, const MKL_Complex16* alpha, const MKL_Complex16* beta, MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca);

void	PCLASMSUB(const MKL_Complex8* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const float* smlnum, MKL_Complex8* buf, const MKL_INT* lwork);
void	PZLASMSUB(const MKL_Complex16* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const double* smlnum, MKL_Complex16* buf, const MKL_INT* lwork);
void	PCLASMSUB_(const MKL_Complex8* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const float* smlnum, MKL_Complex8* buf, const MKL_INT* lwork);
void	PZLASMSUB_(const MKL_Complex16* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const double* smlnum, MKL_Complex16* buf, const MKL_INT* lwork);
void	pclasmsub_(const MKL_Complex8* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const float* smlnum, MKL_Complex8* buf, const MKL_INT* lwork);
void	pzlasmsub_(const MKL_Complex16* a, const MKL_INT* desca, const MKL_INT* i, const MKL_INT* l, MKL_INT* k, const double* smlnum, MKL_Complex16* buf, const MKL_INT* lwork);

void	PSLASRT(const char* id, const MKL_INT* n, float* d, const float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDLASRT(const char* id, const MKL_INT* n, double* d, const double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PSLASRT_(const char* id, const MKL_INT* n, float* d, const float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDLASRT_(const char* id, const MKL_INT* n, double* d, const double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pslasrt_(const char* id, const MKL_INT* n, float* d, const float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdlasrt_(const char* id, const MKL_INT* n, double* d, const double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, const MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	PCLATTRS(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, MKL_INT* info);
void	PZLATTRS(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, MKL_INT* info);
void	PCLATTRS_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, MKL_INT* info);
void	PZLATTRS_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, MKL_INT* info);
void	pclattrs_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex8* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, float* scale, float* cnorm, MKL_INT* info);
void	pzlattrs_(const char* uplo, const char* trans, const char* diag, const char* normin, const MKL_INT* n, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, MKL_Complex16* x, const MKL_INT* ix, const MKL_INT* jx, const MKL_INT* descx, double* scale, double* cnorm, MKL_INT* info);

void	PILAVER(MKL_INT* vers_major, MKL_INT* vers_minor, MKL_INT* vers_patch);
void	PILAVER_(MKL_INT* vers_major, MKL_INT* vers_minor, MKL_INT* vers_patch);
void	pilaver_(MKL_INT* vers_major, MKL_INT* vers_minor, MKL_INT* vers_patch);

void	PCLAWIL(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const MKL_Complex8* a, const MKL_INT* desca, const MKL_Complex8* h44, const MKL_Complex8* h33, const MKL_Complex8* h43h34, MKL_Complex8* v);
void	PZLAWIL(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const MKL_Complex16* a, const MKL_INT* desca, const MKL_Complex16* h44, const MKL_Complex16* h33, const MKL_Complex16* h43h34, MKL_Complex16* v);
void	PCLAWIL_(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const MKL_Complex8* a, const MKL_INT* desca, const MKL_Complex8* h44, const MKL_Complex8* h33, const MKL_Complex8* h43h34, MKL_Complex8* v);
void	PZLAWIL_(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const MKL_Complex16* a, const MKL_INT* desca, const MKL_Complex16* h44, const MKL_Complex16* h33, const MKL_Complex16* h43h34, MKL_Complex16* v);
void	pclawil_(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const MKL_Complex8* a, const MKL_INT* desca, const MKL_Complex8* h44, const MKL_Complex8* h33, const MKL_Complex8* h43h34, MKL_Complex8* v);
void	pzlawil_(const MKL_INT* ii, const MKL_INT* jj, const MKL_INT* m, const MKL_Complex16* a, const MKL_INT* desca, const MKL_Complex16* h44, const MKL_Complex16* h33, const MKL_Complex16* h43h34, MKL_Complex16* v);

void	PSORMR3(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMR3(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSORMR3_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDORMR3_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);
void	psormr3_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* tau, float* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdormr3_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* tau, double* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PSSTEDC(const char* compz, const MKL_INT* n, float* d, float* e, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDSTEDC(const char* compz, const MKL_INT* n, double* d, double* e, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PSSTEDC_(const char* compz, const MKL_INT* n, float* d, float* e, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	PDSTEDC_(const char* compz, const MKL_INT* n, double* d, double* e, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	psstedc_(const char* compz, const MKL_INT* n, float* d, float* e, float* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, float* work, MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);
void	pdstedc_(const char* compz, const MKL_INT* n, double* d, double* e, double* q, const MKL_INT* iq, const MKL_INT* jq, const MKL_INT* descq, double* work, MKL_INT* lwork, MKL_INT* iwork, const MKL_INT* liwork, MKL_INT* info);

void	CSTEQR2(const char* compz, const MKL_INT* n, float* d, float* e, MKL_Complex8* z, const MKL_INT* ldz, const MKL_INT* nr, float* work, MKL_INT* info);
void	ZSTEQR2(const char* compz, const MKL_INT* n, double* d, double* e, MKL_Complex16* z, const MKL_INT* ldz, const MKL_INT* nr, double* work, MKL_INT* info);
void	CSTEQR2_(const char* compz, const MKL_INT* n, float* d, float* e, MKL_Complex8* z, const MKL_INT* ldz, const MKL_INT* nr, float* work, MKL_INT* info);
void	ZSTEQR2_(const char* compz, const MKL_INT* n, double* d, double* e, MKL_Complex16* z, const MKL_INT* ldz, const MKL_INT* nr, double* work, MKL_INT* info);
void	csteqr2_(const char* compz, const MKL_INT* n, float* d, float* e, MKL_Complex8* z, const MKL_INT* ldz, const MKL_INT* nr, float* work, MKL_INT* info);
void	zsteqr2_(const char* compz, const MKL_INT* n, double* d, double* e, MKL_Complex16* z, const MKL_INT* ldz, const MKL_INT* nr, double* work, MKL_INT* info);

void	PSSYNGST(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYNGST(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSSYNGST_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYNGST_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pssyngst_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const float* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, float* scale, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsyngst_(const MKL_INT* ibtype, const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const double* b, const MKL_INT* ib, const MKL_INT* jb, const MKL_INT* descb, double* scale, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PSSYNTRD(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYNTRD(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSSYNTRD_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYNTRD_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pssyntrd_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsyntrd_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PSSYTTRD(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYTTRD(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	PSSYTTRD_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	PDSYTTRD_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);
void	pssyttrd_(const char* uplo, const MKL_INT* n, float* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, float* d, float* e, float* tau, float* work, const MKL_INT* lwork, MKL_INT* info);
void	pdsyttrd_(const char* uplo, const MKL_INT* n, double* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, double* d, double* e, double* tau, double* work, const MKL_INT* lwork, MKL_INT* info);

void	PCTREVC(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, MKL_Complex8* t, const MKL_INT* desct, MKL_Complex8* vl, const MKL_INT* descvl, MKL_Complex8* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, MKL_Complex8* work, float* rwork, MKL_INT* info);
void	PZTREVC(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, MKL_Complex16* t, const MKL_INT* desct, MKL_Complex16* vl, const MKL_INT* descvl, MKL_Complex16* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, MKL_Complex16* work, double* rwork, MKL_INT* info);
void	PSTREVC(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, float* t, const MKL_INT* desct, float* vl, const MKL_INT* descvl, float* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, float* work, MKL_INT* info);
void	PDTREVC(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, double* t, const MKL_INT* desct, double* vl, const MKL_INT* descvl, double* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, double* work, MKL_INT* info);
void	PCTREVC_(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, MKL_Complex8* t, const MKL_INT* desct, MKL_Complex8* vl, const MKL_INT* descvl, MKL_Complex8* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, MKL_Complex8* work, float* rwork, MKL_INT* info);
void	PZTREVC_(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, MKL_Complex16* t, const MKL_INT* desct, MKL_Complex16* vl, const MKL_INT* descvl, MKL_Complex16* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, MKL_Complex16* work, double* rwork, MKL_INT* info);
void	PSTREVC_(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, float* t, const MKL_INT* desct, float* vl, const MKL_INT* descvl, float* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, float* work, MKL_INT* info);
void	PDTREVC_(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, double* t, const MKL_INT* desct, double* vl, const MKL_INT* descvl, double* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, double* work, MKL_INT* info);
void	pctrevc_(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, MKL_Complex8* t, const MKL_INT* desct, MKL_Complex8* vl, const MKL_INT* descvl, MKL_Complex8* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, MKL_Complex8* work, float* rwork, MKL_INT* info);
void	pztrevc_(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, MKL_Complex16* t, const MKL_INT* desct, MKL_Complex16* vl, const MKL_INT* descvl, MKL_Complex16* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, MKL_Complex16* work, double* rwork, MKL_INT* info);
void	pstrevc_(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, float* t, const MKL_INT* desct, float* vl, const MKL_INT* descvl, float* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, float* work, MKL_INT* info);
void	pdtrevc_(const char* side, const char* howmny, const MKL_INT* select, const MKL_INT* n, double* t, const MKL_INT* desct, double* vl, const MKL_INT* descvl, double* vr, const MKL_INT* descvr, const MKL_INT* mm, MKL_INT* m, double* work, MKL_INT* info);

void	STRMVT(const char* uplo, const MKL_INT* n, const float* t, const MKL_INT* ldt, float* x, const MKL_INT* incx, const float* y, const MKL_INT* incy, float* w, const MKL_INT* incw, const float* z, const MKL_INT* incz);
void	DTRMVT(const char* uplo, const MKL_INT* n, const double* t, const MKL_INT* ldt, double* x, const MKL_INT* incx, const double* y, const MKL_INT* incy, double* w, const MKL_INT* incw, const double* z, const MKL_INT* incz);
void	CTRMVT(const char* uplo, const MKL_INT* n, const MKL_Complex8* t, const MKL_INT* ldt, MKL_Complex8* x, const MKL_INT* incx, const MKL_Complex8* y, const MKL_INT* incy, MKL_Complex8* w, const MKL_INT* incw, const MKL_Complex8* z, const MKL_INT* incz);
void	ZTRMVT(const char* uplo, const MKL_INT* n, const MKL_Complex16* t, const MKL_INT* ldt, MKL_Complex16* x, const MKL_INT* incx, const MKL_Complex16* y, const MKL_INT* incy, MKL_Complex16* w, const MKL_INT* incw, const MKL_Complex16* z, const MKL_INT* incz);
void	STRMVT_(const char* uplo, const MKL_INT* n, const float* t, const MKL_INT* ldt, float* x, const MKL_INT* incx, const float* y, const MKL_INT* incy, float* w, const MKL_INT* incw, const float* z, const MKL_INT* incz);
void	DTRMVT_(const char* uplo, const MKL_INT* n, const double* t, const MKL_INT* ldt, double* x, const MKL_INT* incx, const double* y, const MKL_INT* incy, double* w, const MKL_INT* incw, const double* z, const MKL_INT* incz);
void	CTRMVT_(const char* uplo, const MKL_INT* n, const MKL_Complex8* t, const MKL_INT* ldt, MKL_Complex8* x, const MKL_INT* incx, const MKL_Complex8* y, const MKL_INT* incy, MKL_Complex8* w, const MKL_INT* incw, const MKL_Complex8* z, const MKL_INT* incz);
void	ZTRMVT_(const char* uplo, const MKL_INT* n, const MKL_Complex16* t, const MKL_INT* ldt, MKL_Complex16* x, const MKL_INT* incx, const MKL_Complex16* y, const MKL_INT* incy, MKL_Complex16* w, const MKL_INT* incw, const MKL_Complex16* z, const MKL_INT* incz);
void	strmvt_(const char* uplo, const MKL_INT* n, const float* t, const MKL_INT* ldt, float* x, const MKL_INT* incx, const float* y, const MKL_INT* incy, float* w, const MKL_INT* incw, const float* z, const MKL_INT* incz);
void	dtrmvt_(const char* uplo, const MKL_INT* n, const double* t, const MKL_INT* ldt, double* x, const MKL_INT* incx, const double* y, const MKL_INT* incy, double* w, const MKL_INT* incw, const double* z, const MKL_INT* incz);
void	ctrmvt_(const char* uplo, const MKL_INT* n, const MKL_Complex8* t, const MKL_INT* ldt, MKL_Complex8* x, const MKL_INT* incx, const MKL_Complex8* y, const MKL_INT* incy, MKL_Complex8* w, const MKL_INT* incw, const MKL_Complex8* z, const MKL_INT* incz);
void	ztrmvt_(const char* uplo, const MKL_INT* n, const MKL_Complex16* t, const MKL_INT* ldt, MKL_Complex16* x, const MKL_INT* incx, const MKL_Complex16* y, const MKL_INT* incy, MKL_Complex16* w, const MKL_INT* incw, const MKL_Complex16* z, const MKL_INT* incz);

void	PCUNMR3(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMR3(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	PCUNMR3_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	PZUNMR3_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);
void	pcunmr3_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex8* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex8* tau, MKL_Complex8* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex8* work, const MKL_INT* lwork, MKL_INT* info);
void	pzunmr3_(const char* side, const char* trans, const MKL_INT* m, const MKL_INT* n, const MKL_INT* k, const MKL_INT* l, const MKL_Complex16* a, const MKL_INT* ia, const MKL_INT* ja, const MKL_INT* desca, const MKL_Complex16* tau, MKL_Complex16* c, const MKL_INT* ic, const MKL_INT* jc, const MKL_INT* descc, MKL_Complex16* work, const MKL_INT* lwork, MKL_INT* info);

MKL_INT	PILAENVX(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n1, const MKL_INT* n2, const MKL_INT* n3, const MKL_INT* n4);
MKL_INT	PIPARMQ(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_INT* lworknb);
MKL_INT	PJLAENV(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n1, const MKL_INT* n2, const MKL_INT* n3, const MKL_INT* n4);
MKL_INT	PILAENVX_(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n1, const MKL_INT* n2, const MKL_INT* n3, const MKL_INT* n4);
MKL_INT	PIPARMQ_(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_INT* lworknb);
MKL_INT	PJLAENV_(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n1, const MKL_INT* n2, const MKL_INT* n3, const MKL_INT* n4);
MKL_INT	pilaenvx_(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n1, const MKL_INT* n2, const MKL_INT* n3, const MKL_INT* n4);
MKL_INT	piparmq_(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n, const MKL_INT* ilo, const MKL_INT* ihi, const MKL_INT* lworknb);
MKL_INT	pjlaenv_(const MKL_INT* ictxt, const MKL_INT* ispec, const char* name, const char* opts, const MKL_INT* n1, const MKL_INT* n2, const MKL_INT* n3, const MKL_INT* n4);

/* p?gemr2d - redistribute general submatrix */

void psgemr2d( const MKL_INT *m, const MKL_INT *n,
               const float *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               float *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pdgemr2d( const MKL_INT *m, const MKL_INT *n,
               const double *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               double *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pcgemr2d( const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex8 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pzgemr2d( const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex16 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex16 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pigemr2d( const MKL_INT *m, const MKL_INT *n,
               const MKL_INT *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_INT *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);

void PSGEMR2D( const MKL_INT *m, const MKL_INT *n,
               const float *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               float *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PDGEMR2D( const MKL_INT *m, const MKL_INT *n,
               const double *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               double *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PCGEMR2D( const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex8 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PZGEMR2D( const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex16 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex16 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PIGEMR2D( const MKL_INT *m, const MKL_INT *n,
               const MKL_INT *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_INT *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);

void psgemr2d_(const MKL_INT *m, const MKL_INT *n,
               const float *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               float *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pdgemr2d_(const MKL_INT *m, const MKL_INT *n,
               const double *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               double *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pcgemr2d_(const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex8 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pzgemr2d_(const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex16 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex16 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pigemr2d_(const MKL_INT *m, const MKL_INT *n,
               const MKL_INT *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_INT *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);

void PSGEMR2D_(const MKL_INT *m, const MKL_INT *n,
               const float *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               float *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PDGEMR2D_(const MKL_INT *m, const MKL_INT *n,
               const double *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               double *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PCGEMR2D_(const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex8 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PZGEMR2D_(const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex16 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex16 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PIGEMR2D_(const MKL_INT *m, const MKL_INT *n,
               const MKL_INT *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_INT *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);

void Cpsgemr2d(MKL_INT m, MKL_INT n,
               const float *a, MKL_INT ia, MKL_INT ja, const MKL_INT *desca,
               float *b, MKL_INT ib, MKL_INT jb, const MKL_INT *descb,
               MKL_INT ictxt);
void Cpdgemr2d(MKL_INT m, MKL_INT n,
               const double *a, MKL_INT ia, MKL_INT ja, const MKL_INT *desca,
               double *b, MKL_INT ib, MKL_INT jb, const MKL_INT *descb,
               MKL_INT ictxt);
void Cpcgemr2d(MKL_INT m, MKL_INT n,
               const MKL_Complex8 *a, MKL_INT ia, MKL_INT ja, const MKL_INT *desca,
               MKL_Complex8 *b, MKL_INT ib, MKL_INT jb, const MKL_INT *descb,
               MKL_INT ictxt);
void Cpzgemr2d(MKL_INT m, MKL_INT n,
               const MKL_Complex16 *a, MKL_INT ia, MKL_INT ja, const MKL_INT *desca,
               MKL_Complex16 *b, MKL_INT ib, MKL_INT jb, const MKL_INT *descb,
               MKL_INT ictxt);
void Cpigemr2d(MKL_INT m, MKL_INT n,
               const MKL_INT *a, MKL_INT ia, MKL_INT ja, const MKL_INT *desca,
               MKL_INT *b, MKL_INT ib, MKL_INT jb, const MKL_INT *descb,
               MKL_INT ictxt);

/* p?trmr2d - redistribute trapezoidal submatrix */

void pstrmr2d( const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const float *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               float *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pdtrmr2d( const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const double *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               double *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pctrmr2d( const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex8 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pztrmr2d( const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex16 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex16 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pitrmr2d( const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_INT *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_INT *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);

void PSTRMR2D( const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const float *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               float *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PDTRMR2D( const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const double *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               double *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PCTRMR2D( const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex8 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PZTRMR2D( const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex16 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex16 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PITRMR2D( const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_INT *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_INT *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);

void pstrmr2d_(const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const float *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               float *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pdtrmr2d_(const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const double *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               double *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pctrmr2d_(const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex8 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pztrmr2d_(const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex16 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex16 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void pitrmr2d_(const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_INT *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_INT *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);

void PSTRMR2D_(const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const float *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               float *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PDTRMR2D_(const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const double *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               double *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PCTRMR2D_(const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex8 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex8 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PZTRMR2D_(const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_Complex16 *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_Complex16 *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);
void PITRMR2D_(const char *uplo, const char *diag, const MKL_INT *m, const MKL_INT *n,
               const MKL_INT *a, const MKL_INT *ia, const MKL_INT *ja, const MKL_INT *desca,
               MKL_INT *b, const MKL_INT *ib, const MKL_INT *jb, const MKL_INT *descb,
               const MKL_INT *ictxt);

void Cpstrmr2d(const char *uplo, const char *diag, MKL_INT m, MKL_INT n,
               const float *a, MKL_INT ia, MKL_INT ja, const MKL_INT *desca,
               float *b, MKL_INT ib, MKL_INT jb, const MKL_INT *descb,
               MKL_INT ictxt);
void Cpdtrmr2d(const char *uplo, const char *diag, MKL_INT m, MKL_INT n,
               const double *a, MKL_INT ia, MKL_INT ja, const MKL_INT *desca,
               double *b, MKL_INT ib, MKL_INT jb, const MKL_INT *descb,
               MKL_INT ictxt);
void Cpctrmr2d(const char *uplo, const char *diag, MKL_INT m, MKL_INT n,
               const MKL_Complex8 *a, MKL_INT ia, MKL_INT ja, const MKL_INT *desca,
               MKL_Complex8 *b, MKL_INT ib, MKL_INT jb, const MKL_INT *descb,
               MKL_INT ictxt);
void Cpztrmr2d(const char *uplo, const char *diag, MKL_INT m, MKL_INT n,
               const MKL_Complex16 *a, MKL_INT ia, MKL_INT ja, const MKL_INT *desca,
               MKL_Complex16 *b, MKL_INT ib, MKL_INT jb, const MKL_INT *descb,
               MKL_INT ictxt);
void Cpitrmr2d(const char *uplo, const char *diag, MKL_INT m, MKL_INT n,
               const MKL_INT *a, MKL_INT ia, MKL_INT ja, const MKL_INT *desca,
               MKL_INT *b, MKL_INT ib, MKL_INT jb, const MKL_INT *descb,
               MKL_INT ictxt);

void descinit(MKL_INT* desc, const MKL_INT* m, const MKL_INT* n,
              const MKL_INT* mb, const MKL_INT* nb, const MKL_INT* irsrc,
              const MKL_INT* icsrc, const MKL_INT* ictxt, const MKL_INT* lld,
              MKL_INT* info);
void descinit_(MKL_INT* desc, const MKL_INT* m, const MKL_INT* n,
               const MKL_INT* mb, const MKL_INT* nb, const MKL_INT* irsrc,
               const MKL_INT* icsrc, const MKL_INT* ictxt, const MKL_INT* lld,
               MKL_INT* info);
void DESCINIT(MKL_INT* desc, const MKL_INT* m, const MKL_INT* n,
              const MKL_INT* mb, const MKL_INT* nb, const MKL_INT* irsrc,
              const MKL_INT* icsrc, const MKL_INT* ictxt, const MKL_INT* lld,
              MKL_INT* info);
void DESCINIT_(MKL_INT* desc, const MKL_INT* m, const MKL_INT* n,
               const MKL_INT* mb, const MKL_INT* nb, const MKL_INT* irsrc,
               const MKL_INT* icsrc, const MKL_INT* ictxt, const MKL_INT* lld,
               MKL_INT* info);

MKL_INT numroc(const MKL_INT* n, const MKL_INT* nb, const MKL_INT* iproc,
               const MKL_INT* isrcproc, const MKL_INT* nprocs);
MKL_INT numroc_(const MKL_INT* n, const MKL_INT* nb, const MKL_INT* iproc,
                const MKL_INT* isrcproc, const MKL_INT* nprocs);
MKL_INT NUMROC(const MKL_INT* n, const MKL_INT* nb, const MKL_INT* iproc,
               const MKL_INT* isrcproc, const MKL_INT* nprocs);
MKL_INT NUMROC_(const MKL_INT* n, const MKL_INT* nb, const MKL_INT* iproc,
                const MKL_INT* isrcproc, const MKL_INT* nprocs);

void infog2l(const MKL_INT* grindx, const MKL_INT* gcindx, const MKL_INT* desc,
             const MKL_INT* nprow, const MKL_INT* npcol,
             const MKL_INT* myrow, const MKL_INT* mycol,
             MKL_INT* lrindx, MKL_INT* lcindx, MKL_INT* rsrc, MKL_INT* csrc);
void infog2l_(const MKL_INT* grindx, const MKL_INT* gcindx, const MKL_INT* desc,
             const MKL_INT* nprow, const MKL_INT* npcol,
             const MKL_INT* myrow, const MKL_INT* mycol,
             MKL_INT* lrindx, MKL_INT* lcindx, MKL_INT* rsrc, MKL_INT* csrc);
void INFOG2L(const MKL_INT* grindx, const MKL_INT* gcindx, const MKL_INT* desc,
             const MKL_INT* nprow, const MKL_INT* npcol,
             const MKL_INT* myrow, const MKL_INT* mycol,
             MKL_INT* lrindx, MKL_INT* lcindx, MKL_INT* rsrc, MKL_INT* csrc);
void INFOG2L_(const MKL_INT* grindx, const MKL_INT* gcindx, const MKL_INT* desc,
             const MKL_INT* nprow, const MKL_INT* npcol,
             const MKL_INT* myrow, const MKL_INT* mycol,
             MKL_INT* lrindx, MKL_INT* lcindx, MKL_INT* rsrc, MKL_INT* csrc);

void pcgebal(const char* job, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, float* scale, MKL_INT* info);
void PCGEBAL(const char* job, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, float* scale, MKL_INT* info);
void PCGEBAL_(const char* job, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, float* scale, MKL_INT* info);
void pcgebal_(const char* job, const MKL_INT* n, MKL_Complex8* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, float* scale, MKL_INT* info);

void pzgebal(const char* job, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, double* scale, MKL_INT* info);
void PZGEBAL(const char* job, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, double* scale, MKL_INT* info);
void PZGEBAL_(const char* job, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, double* scale, MKL_INT* info);
void pzgebal_(const char* job, const MKL_INT* n, MKL_Complex16* a, const MKL_INT* desca, MKL_INT* ilo, MKL_INT* ihi, double* scale, MKL_INT* info);


void	pcgebak(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, float* scale, const MKL_INT* m, MKL_Complex8* v, const MKL_INT* descv,  MKL_INT* info);
void	PCGEBAK(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, float* scale, const MKL_INT* m, MKL_Complex8* v, const MKL_INT* descv,  MKL_INT* info);
void	pcgebak_(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, float* scale, const MKL_INT* m, MKL_Complex8* v, const MKL_INT* descv,  MKL_INT* info);
void	PCGEBAK_(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, float* scale, const MKL_INT* m, MKL_Complex8* v, const MKL_INT* descv,  MKL_INT* info);

void	pdgebak(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, double* scale, const MKL_INT* m, double* v, const MKL_INT* descv,  MKL_INT* info);
void	PDGEBAK(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, double* scale, const MKL_INT* m, double* v, const MKL_INT* descv,  MKL_INT* info);
void	pdgebak_(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, double* scale, const MKL_INT* m, double* v, const MKL_INT* descv,  MKL_INT* info);
void	PDGEBAK_(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, double* scale, const MKL_INT* m, double* v, const MKL_INT* descv,  MKL_INT* info);

void	pzgebak(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, double* scale, const MKL_INT* m, MKL_Complex16* v, const MKL_INT* descv,  MKL_INT* info);
void	PZGEBAK(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, double* scale, const MKL_INT* m, MKL_Complex16* v, const MKL_INT* descv,  MKL_INT* info);
void	pzgebak_(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, double* scale, const MKL_INT* m, MKL_Complex16* v, const MKL_INT* descv,  MKL_INT* info);
void	PZGEBAK_(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, double* scale, const MKL_INT* m, MKL_Complex16* v, const MKL_INT* descv,  MKL_INT* info);

void	psgebak(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, float* scale, const MKL_INT* m, float* v, const MKL_INT* descv,  MKL_INT* info);
void	PSGEBAK(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, float* scale, const MKL_INT* m, float* v, const MKL_INT* descv,  MKL_INT* info);
void	psgebak_(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, float* scale, const MKL_INT* m, float* v, const MKL_INT* descv,  MKL_INT* info);
void	PSGEBAK_(const char* job, const char* side, const MKL_INT* n, MKL_INT* ilo, MKL_INT* ihi, float* scale, const MKL_INT* m, float* v, const MKL_INT* descv,  MKL_INT* info);


#ifdef __cplusplus
}
#endif /* __cplusplus */

#endif /* _MKL_SCALAPACK_H_ */