WebSVN - slepc-dev - Diff - Rev 806 and 895 - /trunk/include/slepcblaslapack.h

Rev 806	Rev 895
Line 5...	Line 5...
*/	*/
#if !defined(_SLEPCBLASLAPACK_H)	#if !defined(_SLEPCBLASLAPACK_H)
#define _SLEPCBLASLAPACK_H	#define _SLEPCBLASLAPACK_H
#include "petscblaslapack.h"	#include "petscblaslapack.h"
PETSC_EXTERN_CXX_BEGIN	PETSC_EXTERN_CXX_BEGIN


#if defined(PETSC_HAVE_FORTRAN_UNDERSCORE) \|\| defined(PETSC_BLASLAPACK_UNDERSCORE)	#if defined(PETSC_HAVE_FORTRAN_UNDERSCORE) \|\| defined(PETSC_BLASLAPACK_UNDERSCORE)
#if defined(PETSC_USE_COMPLEX)
#if defined(PETSC_USE_SINGLE)	#if defined(PETSC_USE_SINGLE)
	#define SLEPC_BLASLAPACKREAL(lcase,ucase) s##lcase##_
	#if defined(PETSC_USE_COMPLEX)
#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase##_	#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase##_
#else	#else
#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase##_	#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase##_
#endif	#endif
#else	#else
#if defined(PETSC_USE_SINGLE)	#define SLEPC_BLASLAPACKREAL(lcase,ucase) d##lcase##_
#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase##_	#if defined(PETSC_USE_COMPLEX)
	#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase##_
#else	#else
#define SLEPC_BLASLAPACK(lcase,ucase) d##lcase##_	#define SLEPC_BLASLAPACK(lcase,ucase) d##lcase##_
#endif	#endif
#endif	#endif

#elif defined(PETSC_HAVE_FORTRAN_CAPS)	#elif defined(PETSC_HAVE_FORTRAN_CAPS)
#if defined(PETSC_USE_COMPLEX)
#if defined(PETSC_USE_SINGLE)	#if defined(PETSC_USE_SINGLE)
	#define SLEPC_BLASLAPACKREAL(lcase,ucase) S##ucase
	#if defined(PETSC_USE_COMPLEX)
#define SLEPC_BLASLAPACK(lcase,ucase) C##ucase	#define SLEPC_BLASLAPACK(lcase,ucase) C##ucase
#else	#else
#define SLEPC_BLASLAPACK(lcase,ucase) Z##ucase	#define SLEPC_BLASLAPACK(lcase,ucase) S##ucase
#endif	#endif
#else	#else
#if defined(PETSC_USE_SINGLE)	#define SLEPC_BLASLAPACKREAL(lcase,ucase) D##ucase
#define SLEPC_BLASLAPACK(lcase,ucase) S##ucase	#if defined(PETSC_USE_COMPLEX)
	#define SLEPC_BLASLAPACK(lcase,ucase) Z##ucase
#else	#else
#define SLEPC_BLASLAPACK(lcase,ucase) D##ucase	#define SLEPC_BLASLAPACK(lcase,ucase) D##ucase
#endif	#endif
#endif	#endif

#else	#else
#if defined(PETSC_USE_COMPLEX)
#if defined(PETSC_USE_SINGLE)	#if defined(PETSC_USE_SINGLE)
	#define SLEPC_BLASLAPACKREAL(lcase,ucase) s##lcase
	#if defined(PETSC_USE_COMPLEX)
#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase	#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase
#else	#else
#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase	#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase
#endif	#endif
#else	#else
#if defined(PETSC_USE_SINGLE)	#define SLEPC_BLASLAPACKREAL(lcase,ucase) d##lcase
#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase	#if defined(PETSC_USE_COMPLEX)
	#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase
#else	#else
#define SLEPC_BLASLAPACK(lcase,ucase) d##lcase	#define SLEPC_BLASLAPACK(lcase,ucase) d##lcase
#endif	#endif
#endif	#endif

#endif	#endif

#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 LAPACKlanhs_ SLEPC_BLASLAPACK(lanhs,LANHS)	#define LAPACKlanhs_ SLEPC_BLASLAPACK(lanhs,LANHS)
Line 71...	Line 81...
#else	#else
#define LAPACKorghr_ SLEPC_BLASLAPACK(unghr,UNGHR)	#define LAPACKorghr_ SLEPC_BLASLAPACK(unghr,UNGHR)
#define LAPACKsyevr_ SLEPC_BLASLAPACK(heevr,HEEVR)	#define LAPACKsyevr_ SLEPC_BLASLAPACK(heevr,HEEVR)
#define LAPACKsygvd_ SLEPC_BLASLAPACK(hegvd,HEGVD)	#define LAPACKsygvd_ SLEPC_BLASLAPACK(hegvd,HEGVD)
#endif	#endif

	#define LAPACKlamch_ SLEPC_BLASLAPACKREAL(lamch,LAMCH)
	#define LAPACKstevr_ SLEPC_BLASLAPACKREAL(stevr,stevr)

EXTERN_C_BEGIN	EXTERN_C_BEGIN

	EXTERN PetscReal LAPACKlamch_(const char*,PetscBLASInt);
	EXTERN PetscReal LAPACKlanhs_(const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal*,PetscBLASInt);
	EXTERN PetscReal LAPACKlange_(const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt);
EXTERN void LAPACKlaev2_(PetscScalar,PetscScalar,PetscScalar,PetscReal,PetscReal,PetscReal,PetscScalar*);	EXTERN void LAPACKlaev2_(PetscScalar,PetscScalar,PetscScalar,PetscReal,PetscReal,PetscReal,PetscScalar*);
EXTERN void LAPACKgehrd_(PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt*);	EXTERN void LAPACKgehrd_(PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt*);
EXTERN void LAPACKorghr_(PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt*);	EXTERN void LAPACKorghr_(PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscBLASInt*);
EXTERN PetscReal LAPACKlanhs_(const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal*,PetscBLASInt);
EXTERN PetscReal LAPACKlange_(const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt);
EXTERN void LAPACKgetri_(PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt*);	EXTERN void LAPACKgetri_(PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt*);
EXTERN void LAPACKstegr_(const char,const char,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscScalar,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);	EXTERN void LAPACKstevr_(const char,const char,PetscBLASInt,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);
EXTERN void LAPACKsteqr_(const char,PetscBLASInt,PetscReal,PetscReal,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt);

#if !defined(PETSC_USE_COMPLEX)	#if !defined(PETSC_USE_COMPLEX)
EXTERN void LAPACKhseqr_(const char,const char,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);	EXTERN void LAPACKhseqr_(const char,const char,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);
EXTERN void LAPACKtrexc_(const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt);	EXTERN void LAPACKtrexc_(const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt);
EXTERN void LAPACKtrevc_(const char,const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt);	EXTERN void LAPACKtrevc_(const char,const char,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt);
Line 100...	Line 113...
EXTERN void LAPACKgeevx_(const char,const char,const char,const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);	EXTERN void LAPACKgeevx_(const char,const char,const char,const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);
EXTERN void LAPACKggevx_(const char,const char,const char,const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt, PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscScalar, PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);	EXTERN void LAPACKggevx_(const char,const char,const char,const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscScalar,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscBLASInt, PetscBLASInt,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscScalar, PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);
EXTERN void LAPACKsyevr_(const char ,const char,const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscScalar,PetscBLASInt,PetscBLASInt, PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt);	EXTERN void LAPACKsyevr_(const char ,const char,const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscReal,PetscBLASInt,PetscBLASInt,PetscReal,PetscBLASInt,PetscReal,PetscScalar,PetscBLASInt,PetscBLASInt, PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt);
EXTERN void LAPACKsygvd_(PetscBLASInt,const char,const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);	EXTERN void LAPACKsygvd_(PetscBLASInt,const char,const char,PetscBLASInt,PetscScalar,PetscBLASInt,PetscScalar,PetscBLASInt,PetscReal,PetscScalar,PetscBLASInt,PetscReal,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);
#endif	#endif


EXTERN_C_END	EXTERN_C_END

PETSC_EXTERN_CXX_END	PETSC_EXTERN_CXX_END
#endif	#endif

Line 5...

*/

*/

#if !defined(_SLEPCBLASLAPACK_H)

#if !defined(_SLEPCBLASLAPACK_H)

#define _SLEPCBLASLAPACK_H

#define _SLEPCBLASLAPACK_H

#include "petscblaslapack.h"

#include "petscblaslapack.h"

PETSC_EXTERN_CXX_BEGIN

PETSC_EXTERN_CXX_BEGIN

#if defined(PETSC_HAVE_FORTRAN_UNDERSCORE) || defined(PETSC_BLASLAPACK_UNDERSCORE)

#if defined(PETSC_HAVE_FORTRAN_UNDERSCORE) || defined(PETSC_BLASLAPACK_UNDERSCORE)

#if defined(PETSC_USE_COMPLEX)

#if defined(PETSC_USE_SINGLE)

#if defined(PETSC_USE_SINGLE)

#define SLEPC_BLASLAPACKREAL(lcase,ucase) s##lcase##_

#if defined(PETSC_USE_COMPLEX)

#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase##_

#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase##_

#else

#else

#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase##_

#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase##_

#endif

#endif

#else

#else

#if defined(PETSC_USE_SINGLE)

#define SLEPC_BLASLAPACKREAL(lcase,ucase) d##lcase##_

#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase##_

#if defined(PETSC_USE_COMPLEX)

#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase##_

#else

#else

#define SLEPC_BLASLAPACK(lcase,ucase) d##lcase##_

#define SLEPC_BLASLAPACK(lcase,ucase) d##lcase##_

#endif

#endif

#endif

#endif

#elif defined(PETSC_HAVE_FORTRAN_CAPS)

#elif defined(PETSC_HAVE_FORTRAN_CAPS)

#if defined(PETSC_USE_COMPLEX)

#if defined(PETSC_USE_SINGLE)

#if defined(PETSC_USE_SINGLE)

#define SLEPC_BLASLAPACKREAL(lcase,ucase) S##ucase

#if defined(PETSC_USE_COMPLEX)

#define SLEPC_BLASLAPACK(lcase,ucase) C##ucase

#define SLEPC_BLASLAPACK(lcase,ucase) C##ucase

#else

#else

#define SLEPC_BLASLAPACK(lcase,ucase) Z##ucase

#define SLEPC_BLASLAPACK(lcase,ucase) S##ucase

#endif

#endif

#else

#else

#if defined(PETSC_USE_SINGLE)

#define SLEPC_BLASLAPACKREAL(lcase,ucase) D##ucase

#define SLEPC_BLASLAPACK(lcase,ucase) S##ucase

#if defined(PETSC_USE_COMPLEX)

#define SLEPC_BLASLAPACK(lcase,ucase) Z##ucase

#else

#else

#define SLEPC_BLASLAPACK(lcase,ucase) D##ucase

#define SLEPC_BLASLAPACK(lcase,ucase) D##ucase

#endif

#endif

#endif

#endif

#else

#else

#if defined(PETSC_USE_COMPLEX)

#if defined(PETSC_USE_SINGLE)

#if defined(PETSC_USE_SINGLE)

#define SLEPC_BLASLAPACKREAL(lcase,ucase) s##lcase

#if defined(PETSC_USE_COMPLEX)

#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase

#define SLEPC_BLASLAPACK(lcase,ucase) c##lcase

#else

#else

#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase

#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase

#endif

#endif

#else

#else

#if defined(PETSC_USE_SINGLE)

#define SLEPC_BLASLAPACKREAL(lcase,ucase) d##lcase

#define SLEPC_BLASLAPACK(lcase,ucase) s##lcase

#if defined(PETSC_USE_COMPLEX)

#define SLEPC_BLASLAPACK(lcase,ucase) z##lcase

#else

#else

#define SLEPC_BLASLAPACK(lcase,ucase) d##lcase

#define SLEPC_BLASLAPACK(lcase,ucase) d##lcase

#endif

#endif

#endif

#endif

#endif

#endif

#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 LAPACKlanhs_ SLEPC_BLASLAPACK(lanhs,LANHS)

#define LAPACKlanhs_ SLEPC_BLASLAPACK(lanhs,LANHS)

Line 71...

Line 81...

#else

#else

#define LAPACKorghr_ SLEPC_BLASLAPACK(unghr,UNGHR)

#define LAPACKorghr_ SLEPC_BLASLAPACK(unghr,UNGHR)

#define LAPACKsyevr_ SLEPC_BLASLAPACK(heevr,HEEVR)

#define LAPACKsyevr_ SLEPC_BLASLAPACK(heevr,HEEVR)

#define LAPACKsygvd_ SLEPC_BLASLAPACK(hegvd,HEGVD)

#define LAPACKsygvd_ SLEPC_BLASLAPACK(hegvd,HEGVD)

#endif

#endif

#define LAPACKlamch_ SLEPC_BLASLAPACKREAL(lamch,LAMCH)

#define LAPACKstevr_ SLEPC_BLASLAPACKREAL(stevr,stevr)

EXTERN_C_BEGIN

EXTERN_C_BEGIN

EXTERN PetscReal LAPACKlamch_(const char*,PetscBLASInt);

EXTERN PetscReal LAPACKlanhs_(const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);

EXTERN PetscReal LAPACKlange_(const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);

EXTERN void      LAPACKlaev2_(PetscScalar*,PetscScalar*,PetscScalar*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*);

EXTERN void      LAPACKlaev2_(PetscScalar*,PetscScalar*,PetscScalar*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*);

EXTERN void      LAPACKgehrd_(PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

EXTERN void      LAPACKgehrd_(PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

EXTERN void      LAPACKorghr_(PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

EXTERN void      LAPACKorghr_(PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

EXTERN PetscReal LAPACKlanhs_(const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);

EXTERN PetscReal LAPACKlange_(const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt);

EXTERN void      LAPACKgetri_(PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

EXTERN void      LAPACKgetri_(PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*);

EXTERN void      LAPACKstegr_(const char*,const char*,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKstevr_(const char*,const char*,PetscBLASInt*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKsteqr_(const char*,PetscBLASInt*,PetscReal*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt);

#if !defined(PETSC_USE_COMPLEX)

#if !defined(PETSC_USE_COMPLEX)

EXTERN void      LAPACKhseqr_(const char*,const char*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKhseqr_(const char*,const char*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKtrexc_(const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt);

EXTERN void      LAPACKtrexc_(const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt);

EXTERN void      LAPACKtrevc_(const char*,const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKtrevc_(const char*,const char*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

Line 100...

Line 113...

EXTERN void      LAPACKgeevx_(const char*,const char*,const char*,const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKgeevx_(const char*,const char*,const char*,const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKggevx_(const char*,const char*,const char*,const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*, PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*, PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKggevx_(const char*,const char*,const char*,const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscBLASInt*, PetscBLASInt*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscReal*,PetscScalar*, PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKsyevr_(const char *,const char*,const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscBLASInt*, PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKsyevr_(const char *,const char*,const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscBLASInt*, PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKsygvd_(PetscBLASInt*,const char*,const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

EXTERN void      LAPACKsygvd_(PetscBLASInt*,const char*,const char*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscBLASInt,PetscBLASInt);

#endif

#endif

EXTERN_C_END

EXTERN_C_END

PETSC_EXTERN_CXX_END

PETSC_EXTERN_CXX_END

#endif

#endif

Subversion Repositories slepc-dev

(root)/trunk/include/slepcblaslapack.h - Rev 806 → 895