Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F77560171
lapack_inter.h
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Subscribers
None
File Metadata
Details
File Info
Storage
Attached
Created
Thu, Aug 15, 04:39
Size
1 KB
Mime Type
text/x-c
Expires
Sat, Aug 17, 04:39 (1 d, 23 h)
Engine
blob
Format
Raw Data
Handle
19888098
Attached To
rLAMMPS lammps
lapack_inter.h
View Options
// Interface for LAPACK function
# ifndef LAPACK_INTER_H
# define LAPACK_INTER_H
#include <complex>
typedef
int
lapack_int
;
typedef
complex
<
float
>
lapack_complex_float
;
typedef
complex
<
double
>
lapack_complex_double
;
#ifdef _WIN32
//#define MKL_Complex8 lapack_complex_float
//#define MKL_Complex16 lapack_complex_double
#include "mkl.h"
inline
void
ZPPTRF
(
char
*
uplo
,
const
lapack_int
*
n
,
lapack_complex_double
*
ap
,
lapack_int
*
info
)
{
ZPPTRF
(
uplo
,
(
int
*
)
n
,
(
MKL_Complex16
*
)
ap
,
(
int
*
)
info
);
}
inline
void
ZPPTRI
(
char
*
uplo
,
const
lapack_int
*
n
,
lapack_complex_double
*
ap
,
lapack_int
*
info
){
ZPPTRI
(
uplo
,
(
int
*
)
n
,
(
MKL_Complex16
*
)
ap
,
(
int
*
)
info
);
}
#else
#define DGETRF dgetrf_
#define DGETRS dgetrs_
#define DGETRI dgetri_
#define ZPPTRF zpptrf_
#define ZPPTRI zpptri_
#ifdef __cplusplus
extern
"C"
{
#endif
/* __cplusplus */
void
dgetrf_
(
const
lapack_int
*
m
,
const
lapack_int
*
n
,
double
*
a
,
const
lapack_int
*
lda
,
lapack_int
*
ipiv
,
lapack_int
*
info
);
void
dgetrs_
(
const
char
*
trans
,
const
lapack_int
*
n
,
const
lapack_int
*
nrhs
,
const
double
*
a
,
const
lapack_int
*
lda
,
const
lapack_int
*
ipiv
,
double
*
b
,
const
lapack_int
*
ldb
,
lapack_int
*
info
);
void
dgetri_
(
const
lapack_int
*
n
,
double
*
a
,
const
lapack_int
*
lda
,
const
lapack_int
*
ipiv
,
double
*
work
,
const
lapack_int
*
lwork
,
lapack_int
*
info
);
void
zpptrf_
(
const
char
*
uplo
,
const
lapack_int
*
n
,
lapack_complex_double
*
ap
,
lapack_int
*
info
);
void
zpptri_
(
const
char
*
uplo
,
const
lapack_int
*
n
,
lapack_complex_double
*
ap
,
lapack_int
*
info
);
#ifdef __cplusplus
}
#endif
/* __cplusplus */
#endif
#endif
/* lapack_intER_H */
Event Timeline
Log In to Comment