Go to the source code of this file.
Functions |
subroutine | dmexp (M, A, LDA, EA, LDE, R, IR, NR, NI, NQ, J, ISSYMM, WORK, LWORK) |
subroutine | dmexpc (M, A, LDA, TOL, NR, NI, NQ, J) |
subroutine | dpoly2 (M, A, N, V1, V2, P1, P2, B, B2) |
Function Documentation
subroutine dmexp |
( |
integer |
M, |
|
|
double precision, dimension(lda*m) |
A, |
|
|
integer |
LDA, |
|
|
double precision, dimension(lde*m) |
EA, |
|
|
integer |
LDE, |
|
|
double precision, dimension(nr) |
R, |
|
|
integer, dimension(ni) |
IR, |
|
|
integer |
NR, |
|
|
integer |
NI, |
|
|
integer |
NQ, |
|
|
integer |
J, |
|
|
logical |
ISSYMM, |
|
|
double precision, dimension(lwork) |
WORK, |
|
|
integer |
LWORK |
|
) |
| |
subroutine dmexpc |
( |
integer |
M, |
|
|
double precision, dimension(lda*m) |
A, |
|
|
integer |
LDA, |
|
|
double precision |
TOL, |
|
|
integer |
NR, |
|
|
integer |
NI, |
|
|
integer |
NQ, |
|
|
integer |
J |
|
) |
| |
subroutine dpoly2 |
( |
integer |
M, |
|
|
double precision, dimension(m*m) |
A, |
|
|
integer |
N, |
|
|
double precision, dimension(n) |
V1, |
|
|
double precision, dimension(n) |
V2, |
|
|
double precision, dimension(m*m) |
P1, |
|
|
double precision, dimension(m*m) |
P2, |
|
|
double precision, dimension(1) |
B, |
|
|
double precision, dimension(1) |
B2 |
|
) |
| |