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