Contents

Additional ScaLAPACK Routines

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
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
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
*