WebSVN - slepc-dev - Diff - Rev 2857 and 2858 - /trunk/include/slepcblaslapack.h

Line 106...

#define LAPACKlaev2_ SLEPC_BLASLAPACK(laev2,LAEV2)

#define LAPACKlaev2_ SLEPC_BLASLAPACK(laev2,LAEV2)

#define LAPACKgehrd_ SLEPC_BLASLAPACK(gehrd,GEHRD)

#define LAPACKgehrd_ SLEPC_BLASLAPACK(gehrd,GEHRD)

#define LAPACKgetri_ SLEPC_BLASLAPACK(getri,GETRI)

#define LAPACKgetri_ SLEPC_BLASLAPACK(getri,GETRI)

#define LAPACKgelqf_ SLEPC_BLASLAPACK(gelqf,GELQF)

#define LAPACKgelqf_ SLEPC_BLASLAPACK(gelqf,GELQF)

#define LAPACKtgexc_ SLEPC_BLASLAPACK(tgexc,TGEXC)

#define LAPACKtgexc_ SLEPC_BLASLAPACK(tgexc,TGEXC)

#define LAPACKlarfg_ SLEPC_BLASLAPACK(larfg,LARFG)

#define LAPACKlag2_  SLEPC_BLASLAPACKREAL(lag2,LAG2)

#define LAPACKlag2_  SLEPC_BLASLAPACKREAL(lag2,LAG2)

#define LAPACKlasv2_ SLEPC_BLASLAPACKREAL(lasv2,LASV2)

#define LAPACKlasv2_ SLEPC_BLASLAPACKREAL(lasv2,LASV2)

#define LAPACKlartg_ SLEPC_BLASLAPACKREAL(lartg,LARTG)

#define LAPACKlartg_ SLEPC_BLASLAPACKREAL(lartg,LARTG)

#if !defined(PETSC_USE_COMPLEX)

#if !defined(PETSC_USE_COMPLEX)

#define LAPACKorghr_ SLEPC_BLASLAPACK(orghr,ORGHR)

#define LAPACKorghr_ SLEPC_BLASLAPACK(orghr,ORGHR)

Line 141...

Line 142...

#define LAPACKlange_(a,b,c,d,e,f) SLEPC_BLASLAPACK(lange,LANGE) ((a),(b),(c),(d),(e),(f),1)

#define LAPACKlange_(a,b,c,d,e,f) SLEPC_BLASLAPACK(lange,LANGE) ((a),(b),(c),(d),(e),(f),1)

#define LAPACKggevx_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,aa,ab,ac) SLEPC_BLASLAPACK(ggevx,GGEVX) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),(u),(v),(w),(x),(y),(z),(aa),(ab),(ac),1,1,1,1)

#define LAPACKggevx_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,aa,ab,ac) SLEPC_BLASLAPACK(ggevx,GGEVX) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),(u),(v),(w),(x),(y),(z),(aa),(ab),(ac),1,1,1,1)

#define LAPACKggev_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q) SLEPC_BLASLAPACK(ggev,GGEV) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),1,1)

#define LAPACKggev_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q) SLEPC_BLASLAPACK(ggev,GGEV) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),1,1)

#define LAPACKpbtrf_(a,b,c,d,e,f) SLEPC_BLASLAPACK(pbtrf,PBTRF) ((a),(b),(c),(d),(e),(f),1)

#define LAPACKpbtrf_(a,b,c,d,e,f) SLEPC_BLASLAPACK(pbtrf,PBTRF) ((a),(b),(c),(d),(e),(f),1)

#define LAPACKsteqr_(a,b,c,d,e,f,g,h) SLEPC_BLASLAPACK(steqr,STEQR) ((a),(b),(c),(d),(e),(f),(g),(h),1)

#define LAPACKsteqr_(a,b,c,d,e,f,g,h) SLEPC_BLASLAPACK(steqr,STEQR) ((a),(b),(c),(d),(e),(f),(g),(h),1)

#define LAPACKlarf_(a,b,c,d,e,f,g,h,i) SLEPC_BLASLAPACK(larf,LARF) ((a),(b),(c),(d),(e),(f),(g),(h),(i),1)

/* subroutines in which we use only the real version, do not care whether they have different name */

/* subroutines in which we use only the real version, do not care whether they have different name */

#define LAPACKstevr_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t) SLEPC_BLASLAPACKREAL(stevr,STEVR) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),1,1)

#define LAPACKstevr_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t) SLEPC_BLASLAPACKREAL(stevr,STEVR) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),1,1)

#define LAPACKbdsdc_(a,b,c,d,e,f,g,h,i,j,k,l,m,n) SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),1,1)

#define LAPACKbdsdc_(a,b,c,d,e,f,g,h,i,j,k,l,m,n) SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),1,1)

#define LAPACKlamch_(a) SLEPC_BLASLAPACKREAL(lamch,LAMCH) ((a),1)

#define LAPACKlamch_(a) SLEPC_BLASLAPACKREAL(lamch,LAMCH) ((a),1)

Line 186...

Line 188...

#define LAPACKlange_(a,b,c,d,e,f) SLEPC_BLASLAPACK(lange,LANGE) ((a),1,(b),(c),(d),(e),(f))

#define LAPACKlange_(a,b,c,d,e,f) SLEPC_BLASLAPACK(lange,LANGE) ((a),1,(b),(c),(d),(e),(f))

#define LAPACKggevx_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,aa,ab,ac) SLEPC_BLASLAPACK(ggevx,GGEVX) ((a),1,(b),1,(c),1,(d),1,(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),(u),(v),(w),(x),(y),(z),(aa),(ab),(ac))

#define LAPACKggevx_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,aa,ab,ac) SLEPC_BLASLAPACK(ggevx,GGEVX) ((a),1,(b),1,(c),1,(d),1,(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),(u),(v),(w),(x),(y),(z),(aa),(ab),(ac))

#define LAPACKggev_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q) SLEPC_BLASLAPACK(ggev,GGEV) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q))

#define LAPACKggev_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q) SLEPC_BLASLAPACK(ggev,GGEV) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q))

#define LAPACKpbtrf_(a,b,c,d,e,f) SLEPC_BLASLAPACK(pbtrf,PBTRF) ((a),1,(b),(c),(d),(e),(f))

#define LAPACKpbtrf_(a,b,c,d,e,f) SLEPC_BLASLAPACK(pbtrf,PBTRF) ((a),1,(b),(c),(d),(e),(f))

#define LAPACKsteqr_(a,b,c,d,e,f,g,h) SLEPC_BLASLAPACK(steqr,STEQR) ((a),1,(b),(c),(d),(e),(f),(g),(h))

#define LAPACKsteqr_(a,b,c,d,e,f,g,h) SLEPC_BLASLAPACK(steqr,STEQR) ((a),1,(b),(c),(d),(e),(f),(g),(h))

#define LAPACKlarf_(a,b,c,d,e,f,g,h,i) SLEPC_BLASLAPACK(larf,LARF) ((a),1,(b),(c),(d),(e),(f),(g),(h),(i))

/* subroutines in which we use only the real version, do not care whether they have different name */

/* subroutines in which we use only the real version, do not care whether they have different name */

#define LAPACKstevr_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t) SLEPC_BLASLAPACKREAL(stevr,STEVR) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t))

#define LAPACKstevr_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t) SLEPC_BLASLAPACKREAL(stevr,STEVR) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t))

#define LAPACKbdsdc_(a,b,c,d,e,f,g,h,i,j,k,l,m,n) SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n))

#define LAPACKbdsdc_(a,b,c,d,e,f,g,h,i,j,k,l,m,n) SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n))

#define LAPACKlamch_(a) SLEPC_BLASLAPACKREAL(lamch,LAMCH) ((a),1)

#define LAPACKlamch_(a) SLEPC_BLASLAPACKREAL(lamch,LAMCH) ((a),1)

Line 230...

Line 233...

/* LAPACK functions without string parameters */

/* LAPACK functions without string parameters */

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(laev2,LAEV2) (PetscScalar*,PetscScalar*,PetscScalar*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(laev2,LAEV2) (PetscScalar*,PetscScalar*,PetscScalar*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(gehrd,GEHRD) (PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(gehrd,GEHRD) (PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(getri,GETRI) (PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(getri,GETRI) (PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(gelqf,GELQF) (PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(gelqf,GELQF) (PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(larfg,LARFG) (PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACKREAL(lag2,LAG2) (PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACKREAL(lag2,LAG2) (PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACKREAL(lasv2,LASV2) (PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACKREAL(lasv2,LASV2) (PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACKREAL(lartg,LARTG) (PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void      SLEPC_BLASLAPACKREAL(lartg,LARTG) (PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void      BLASrot_(PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void      BLASrot_(PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscReal*);

#if !defined(PETSC_USE_COMPLEX)

#if !defined(PETSC_USE_COMPLEX)

Line 250...

Line 254...

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(trsm,TRSM)   (const char*,const char*,const char*,const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(trsm,TRSM)   (const char*,const char*,const char*,const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);

PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(lanhs,LANHS) (const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);

PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(lanhs,LANHS) (const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);

PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(lange,LANGE) (const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);

PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(lange,LANGE) (const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);

PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(pbtrf,PBTRF) (const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt);

PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(pbtrf,PBTRF) (const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(steqr,STEQR) (const char*,PetscBLASInt*,PetscReal*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(steqr,STEQR) (const char*,PetscBLASInt*,PetscReal*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt);

PETSC_EXTERN_C void      SLEPC_BLASLAPACK(larf,LARF) (const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt);

PETSC_EXTERN_C void      SLEPC_BLASLAPACKREAL(stevr,STEVR) (const char*,const char*,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

PETSC_EXTERN_C void      SLEPC_BLASLAPACKREAL(stevr,STEVR) (const char*,const char*,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

PETSC_EXTERN_C void      SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) (const char*,const char*,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

PETSC_EXTERN_C void      SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) (const char*,const char*,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACKREAL(lamch,LAMCH) (const char*,PetscBLASInt);

PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACKREAL(lamch,LAMCH) (const char*,PetscBLASInt);

Line 294...

Line 299...

/* LAPACK functions without string parameters */

/* LAPACK functions without string parameters */

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(laev2,LAEV2) (PetscScalar*,PetscScalar*,PetscScalar*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(laev2,LAEV2) (PetscScalar*,PetscScalar*,PetscScalar*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(gehrd,GEHRD) (PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(gehrd,GEHRD) (PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(getri,GETRI) (PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(getri,GETRI) (PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(gelqf,GELQF) (PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(gelqf,GELQF) (PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(larfg,LARFG) (PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lag2,LAG2) (PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lag2,LAG2) (PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lasv2,LASV2) (PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lasv2,LASV2) (PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lartg,LARTG) (PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lartg,LARTG) (PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void PETSC_STDCALL BLASrot_(PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscReal*);

PETSC_EXTERN_C void PETSC_STDCALL BLASrot_(PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscReal*);

#if !defined(PETSC_USE_COMPLEX)

#if !defined(PETSC_USE_COMPLEX)

Line 314...

Line 320...

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(trsm,TRSM)   (const char*,PetscBLASInt,const char*,PetscBLASInt,const char*,PetscBLASInt,const char*,PetscBLASInt,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(trsm,TRSM)   (const char*,PetscBLASInt,const char*,PetscBLASInt,const char*,PetscBLASInt,const char*,PetscBLASInt,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*);

PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(lanhs,LANHS) (const char*,PetscBLASInt,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*);

PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(lanhs,LANHS) (const char*,PetscBLASInt,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*);

PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(lange,LANGE) (const char*,PetscBLASInt,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*);

PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(lange,LANGE) (const char*,PetscBLASInt,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*);

PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(pbtrf,PBTRF) (const char*,PetscBLASInt,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(pbtrf,PBTRF) (const char*,PetscBLASInt,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(steqr,STEQR) (const char*,PetscBLASInt,PetscBLASInt*,PetscReal*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(steqr,STEQR) (const char*,PetscBLASInt,PetscBLASInt*,PetscReal*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(larf,LARF) (const char*,PetscBLASInt,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(stevr,STEVR) (const char*,PetscBLASInt,const char*,PetscBLASInt,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(stevr,STEVR) (const char*,PetscBLASInt,const char*,PetscBLASInt,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) (const char*,PetscBLASInt,const char*,PetscBLASInt,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) (const char*,PetscBLASInt,const char*,PetscBLASInt,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*);

PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACKREAL(lamch,LAMCH) (const char*,PetscBLASInt);

PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACKREAL(lamch,LAMCH) (const char*,PetscBLASInt);

Subversion Repositories slepc-dev

(root)/trunk/include/slepcblaslapack.h @ 2858 - Rev 2857 → 2858

Rev 2857	Rev 2858
Line 106...	Line 106...
#define LAPACKlaev2_ SLEPC_BLASLAPACK(laev2,LAEV2)	#define LAPACKlaev2_ SLEPC_BLASLAPACK(laev2,LAEV2)
#define LAPACKgehrd_ SLEPC_BLASLAPACK(gehrd,GEHRD)	#define LAPACKgehrd_ SLEPC_BLASLAPACK(gehrd,GEHRD)
#define LAPACKgetri_ SLEPC_BLASLAPACK(getri,GETRI)	#define LAPACKgetri_ SLEPC_BLASLAPACK(getri,GETRI)
#define LAPACKgelqf_ SLEPC_BLASLAPACK(gelqf,GELQF)	#define LAPACKgelqf_ SLEPC_BLASLAPACK(gelqf,GELQF)
#define LAPACKtgexc_ SLEPC_BLASLAPACK(tgexc,TGEXC)	#define LAPACKtgexc_ SLEPC_BLASLAPACK(tgexc,TGEXC)
	#define LAPACKlarfg_ SLEPC_BLASLAPACK(larfg,LARFG)
#define LAPACKlag2_ SLEPC_BLASLAPACKREAL(lag2,LAG2)	#define LAPACKlag2_ SLEPC_BLASLAPACKREAL(lag2,LAG2)
#define LAPACKlasv2_ SLEPC_BLASLAPACKREAL(lasv2,LASV2)	#define LAPACKlasv2_ SLEPC_BLASLAPACKREAL(lasv2,LASV2)
#define LAPACKlartg_ SLEPC_BLASLAPACKREAL(lartg,LARTG)	#define LAPACKlartg_ SLEPC_BLASLAPACKREAL(lartg,LARTG)
#if !defined(PETSC_USE_COMPLEX)	#if !defined(PETSC_USE_COMPLEX)
#define LAPACKorghr_ SLEPC_BLASLAPACK(orghr,ORGHR)	#define LAPACKorghr_ SLEPC_BLASLAPACK(orghr,ORGHR)
Line 141...	Line 142...
#define LAPACKlange_(a,b,c,d,e,f) SLEPC_BLASLAPACK(lange,LANGE) ((a),(b),(c),(d),(e),(f),1)	#define LAPACKlange_(a,b,c,d,e,f) SLEPC_BLASLAPACK(lange,LANGE) ((a),(b),(c),(d),(e),(f),1)
#define LAPACKggevx_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,aa,ab,ac) SLEPC_BLASLAPACK(ggevx,GGEVX) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),(u),(v),(w),(x),(y),(z),(aa),(ab),(ac),1,1,1,1)	#define LAPACKggevx_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,aa,ab,ac) SLEPC_BLASLAPACK(ggevx,GGEVX) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),(u),(v),(w),(x),(y),(z),(aa),(ab),(ac),1,1,1,1)
#define LAPACKggev_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q) SLEPC_BLASLAPACK(ggev,GGEV) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),1,1)	#define LAPACKggev_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q) SLEPC_BLASLAPACK(ggev,GGEV) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),1,1)
#define LAPACKpbtrf_(a,b,c,d,e,f) SLEPC_BLASLAPACK(pbtrf,PBTRF) ((a),(b),(c),(d),(e),(f),1)	#define LAPACKpbtrf_(a,b,c,d,e,f) SLEPC_BLASLAPACK(pbtrf,PBTRF) ((a),(b),(c),(d),(e),(f),1)
#define LAPACKsteqr_(a,b,c,d,e,f,g,h) SLEPC_BLASLAPACK(steqr,STEQR) ((a),(b),(c),(d),(e),(f),(g),(h),1)	#define LAPACKsteqr_(a,b,c,d,e,f,g,h) SLEPC_BLASLAPACK(steqr,STEQR) ((a),(b),(c),(d),(e),(f),(g),(h),1)
	#define LAPACKlarf_(a,b,c,d,e,f,g,h,i) SLEPC_BLASLAPACK(larf,LARF) ((a),(b),(c),(d),(e),(f),(g),(h),(i),1)
/* subroutines in which we use only the real version, do not care whether they have different name */	/* subroutines in which we use only the real version, do not care whether they have different name */
#define LAPACKstevr_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t) SLEPC_BLASLAPACKREAL(stevr,STEVR) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),1,1)	#define LAPACKstevr_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t) SLEPC_BLASLAPACKREAL(stevr,STEVR) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),1,1)
#define LAPACKbdsdc_(a,b,c,d,e,f,g,h,i,j,k,l,m,n) SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),1,1)	#define LAPACKbdsdc_(a,b,c,d,e,f,g,h,i,j,k,l,m,n) SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) ((a),(b),(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),1,1)
#define LAPACKlamch_(a) SLEPC_BLASLAPACKREAL(lamch,LAMCH) ((a),1)	#define LAPACKlamch_(a) SLEPC_BLASLAPACKREAL(lamch,LAMCH) ((a),1)

Line 186...	Line 188...
#define LAPACKlange_(a,b,c,d,e,f) SLEPC_BLASLAPACK(lange,LANGE) ((a),1,(b),(c),(d),(e),(f))	#define LAPACKlange_(a,b,c,d,e,f) SLEPC_BLASLAPACK(lange,LANGE) ((a),1,(b),(c),(d),(e),(f))
#define LAPACKggevx_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,aa,ab,ac) SLEPC_BLASLAPACK(ggevx,GGEVX) ((a),1,(b),1,(c),1,(d),1,(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),(u),(v),(w),(x),(y),(z),(aa),(ab),(ac))	#define LAPACKggevx_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,aa,ab,ac) SLEPC_BLASLAPACK(ggevx,GGEVX) ((a),1,(b),1,(c),1,(d),1,(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t),(u),(v),(w),(x),(y),(z),(aa),(ab),(ac))
#define LAPACKggev_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q) SLEPC_BLASLAPACK(ggev,GGEV) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q))	#define LAPACKggev_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q) SLEPC_BLASLAPACK(ggev,GGEV) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q))
#define LAPACKpbtrf_(a,b,c,d,e,f) SLEPC_BLASLAPACK(pbtrf,PBTRF) ((a),1,(b),(c),(d),(e),(f))	#define LAPACKpbtrf_(a,b,c,d,e,f) SLEPC_BLASLAPACK(pbtrf,PBTRF) ((a),1,(b),(c),(d),(e),(f))
#define LAPACKsteqr_(a,b,c,d,e,f,g,h) SLEPC_BLASLAPACK(steqr,STEQR) ((a),1,(b),(c),(d),(e),(f),(g),(h))	#define LAPACKsteqr_(a,b,c,d,e,f,g,h) SLEPC_BLASLAPACK(steqr,STEQR) ((a),1,(b),(c),(d),(e),(f),(g),(h))
	#define LAPACKlarf_(a,b,c,d,e,f,g,h,i) SLEPC_BLASLAPACK(larf,LARF) ((a),1,(b),(c),(d),(e),(f),(g),(h),(i))
/* subroutines in which we use only the real version, do not care whether they have different name */	/* subroutines in which we use only the real version, do not care whether they have different name */
#define LAPACKstevr_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t) SLEPC_BLASLAPACKREAL(stevr,STEVR) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t))	#define LAPACKstevr_(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t) SLEPC_BLASLAPACKREAL(stevr,STEVR) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n),(o),(p),(q),(r),(s),(t))
#define LAPACKbdsdc_(a,b,c,d,e,f,g,h,i,j,k,l,m,n) SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n))	#define LAPACKbdsdc_(a,b,c,d,e,f,g,h,i,j,k,l,m,n) SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) ((a),1,(b),1,(c),(d),(e),(f),(g),(h),(i),(j),(k),(l),(m),(n))
#define LAPACKlamch_(a) SLEPC_BLASLAPACKREAL(lamch,LAMCH) ((a),1)	#define LAPACKlamch_(a) SLEPC_BLASLAPACKREAL(lamch,LAMCH) ((a),1)

Line 230...	Line 233...
/* LAPACK functions without string parameters */	/* LAPACK functions without string parameters */
PETSC_EXTERN_C void SLEPC_BLASLAPACK(laev2,LAEV2) (PetscScalar,PetscScalar,PetscScalar,PetscReal,PetscReal,PetscReal,PetscScalar*);	PETSC_EXTERN_C void SLEPC_BLASLAPACK(laev2,LAEV2) (PetscScalar,PetscScalar,PetscScalar,PetscReal,PetscReal,PetscReal,PetscScalar*);
PETSC_EXTERN_C void SLEPC_BLASLAPACK(gehrd,GEHRD) (PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt*);	PETSC_EXTERN_C void SLEPC_BLASLAPACK(gehrd,GEHRD) (PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt*);
PETSC_EXTERN_C void SLEPC_BLASLAPACK(getri,GETRI) (PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt*);	PETSC_EXTERN_C void SLEPC_BLASLAPACK(getri,GETRI) (PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt*);
PETSC_EXTERN_C void SLEPC_BLASLAPACK(gelqf,GELQF) (PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt);	PETSC_EXTERN_C void SLEPC_BLASLAPACK(gelqf,GELQF) (PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt);
	PETSC_EXTERN_C void SLEPC_BLASLAPACK(larfg,LARFG) (PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar*);
PETSC_EXTERN_C void SLEPC_BLASLAPACKREAL(lag2,LAG2) (PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal);	PETSC_EXTERN_C void SLEPC_BLASLAPACKREAL(lag2,LAG2) (PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal);
PETSC_EXTERN_C void SLEPC_BLASLAPACKREAL(lasv2,LASV2) (PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal*);	PETSC_EXTERN_C void SLEPC_BLASLAPACKREAL(lasv2,LASV2) (PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal*);
PETSC_EXTERN_C void SLEPC_BLASLAPACKREAL(lartg,LARTG) (PetscReal,PetscReal,PetscReal,PetscReal,PetscReal*);	PETSC_EXTERN_C void SLEPC_BLASLAPACKREAL(lartg,LARTG) (PetscReal,PetscReal,PetscReal,PetscReal,PetscReal*);
PETSC_EXTERN_C void BLASrot_(PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscReal*);	PETSC_EXTERN_C void BLASrot_(PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscReal*);
#if !defined(PETSC_USE_COMPLEX)	#if !defined(PETSC_USE_COMPLEX)
Line 250...	Line 254...
PETSC_EXTERN_C void SLEPC_BLASLAPACK(trsm,TRSM) (const char,const char,const char,const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);	PETSC_EXTERN_C void SLEPC_BLASLAPACK(trsm,TRSM) (const char,const char,const char,const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);
PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(lanhs,LANHS) (const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal*,PetscBLASInt);	PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(lanhs,LANHS) (const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal*,PetscBLASInt);
PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(lange,LANGE) (const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt);	PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(lange,LANGE) (const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt);
PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(pbtrf,PBTRF) (const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt);	PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACK(pbtrf,PBTRF) (const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt);
PETSC_EXTERN_C void SLEPC_BLASLAPACK(steqr,STEQR) (const char,PetscBLASInt,PetscReal,PetscReal,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt);	PETSC_EXTERN_C void SLEPC_BLASLAPACK(steqr,STEQR) (const char,PetscBLASInt,PetscReal,PetscReal,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt);
	PETSC_EXTERN_C void SLEPC_BLASLAPACK(larf,LARF) (const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar*,PetscBLASInt);

PETSC_EXTERN_C void SLEPC_BLASLAPACKREAL(stevr,STEVR) (const char,const char,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);	PETSC_EXTERN_C void SLEPC_BLASLAPACKREAL(stevr,STEVR) (const char,const char,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);
PETSC_EXTERN_C void SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) (const char,const char,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);	PETSC_EXTERN_C void SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) (const char,const char,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);
PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACKREAL(lamch,LAMCH) (const char*,PetscBLASInt);	PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACKREAL(lamch,LAMCH) (const char*,PetscBLASInt);

Line 294...	Line 299...
/* LAPACK functions without string parameters */	/* LAPACK functions without string parameters */
PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(laev2,LAEV2) (PetscScalar,PetscScalar,PetscScalar,PetscReal,PetscReal,PetscReal,PetscScalar*);	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(laev2,LAEV2) (PetscScalar,PetscScalar,PetscScalar,PetscReal,PetscReal,PetscReal,PetscScalar*);
PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(gehrd,GEHRD) (PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt*);	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(gehrd,GEHRD) (PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt*);
PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(getri,GETRI) (PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt*);	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(getri,GETRI) (PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt*);
PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(gelqf,GELQF) (PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt);	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(gelqf,GELQF) (PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt);
	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(larfg,LARFG) (PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar*);
PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lag2,LAG2) (PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal);	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lag2,LAG2) (PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal);
PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lasv2,LASV2) (PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal*);	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lasv2,LASV2) (PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal*);
PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lartg,LARTG) (PetscReal,PetscReal,PetscReal,PetscReal,PetscReal*);	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(lartg,LARTG) (PetscReal,PetscReal,PetscReal,PetscReal,PetscReal*);
PETSC_EXTERN_C void PETSC_STDCALL BLASrot_(PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscReal*);	PETSC_EXTERN_C void PETSC_STDCALL BLASrot_(PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscReal*);
#if !defined(PETSC_USE_COMPLEX)	#if !defined(PETSC_USE_COMPLEX)
Line 314...	Line 320...
PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(trsm,TRSM) (const char,PetscBLASInt,const char,PetscBLASInt,const char,PetscBLASInt,const char,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt*);	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(trsm,TRSM) (const char,PetscBLASInt,const char,PetscBLASInt,const char,PetscBLASInt,const char,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt*);
PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(lanhs,LANHS) (const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal*);	PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(lanhs,LANHS) (const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal*);
PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(lange,LANGE) (const char,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal);	PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(lange,LANGE) (const char,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal);
PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(pbtrf,PBTRF) (const char,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt);	PETSC_EXTERN_C PetscReal PETSC_STDCALL SLEPC_BLASLAPACK(pbtrf,PBTRF) (const char,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt);
PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(steqr,STEQR) (const char,PetscBLASInt,PetscBLASInt,PetscReal,PetscReal,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt);	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(steqr,STEQR) (const char,PetscBLASInt,PetscBLASInt,PetscReal,PetscReal,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt);
	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACK(larf,LARF) (const char,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar*);

PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(stevr,STEVR) (const char,PetscBLASInt,const char,PetscBLASInt,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(stevr,STEVR) (const char,PetscBLASInt,const char,PetscBLASInt,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);
PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) (const char,PetscBLASInt,const char,PetscBLASInt,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt);	PETSC_EXTERN_C void PETSC_STDCALL SLEPC_BLASLAPACKREAL(bdsdc,BDSDC) (const char,PetscBLASInt,const char,PetscBLASInt,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt);
PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACKREAL(lamch,LAMCH) (const char*,PetscBLASInt);	PETSC_EXTERN_C PetscReal SLEPC_BLASLAPACKREAL(lamch,LAMCH) (const char*,PetscBLASInt);