Functions/Subroutines | |
subroutine | lsolve (a, nsite, q_tmp) |
lsolve, AX = B More... | |
subroutine | dgesl (a, lda, n, ipvt, b, job) |
subroutine | dgeco (a, lda, n, ipvt, rcond, z) |
subroutine | dgefa (a, lda, n, ipvt, info) |
double precision function | dasum (n, dx, incx) |
dasum More... | |
subroutine | daxpy (n, da, dx, incx, dy, incy) |
double precision function | ddot (n, dx, incx, dy, incy) |
subroutine | dscal (n, da, dx, incx) |
dscal More... | |
integer function | idamax (n, dx, incx) |
idamax More... | |
double precision function dasum | ( | integer | n, |
double precision, dimension(*) | dx, | ||
integer | incx | ||
) |
dasum
subroutine daxpy | ( | integer | n, |
double precision | da, | ||
double precision, dimension(*) | dx, | ||
integer | incx, | ||
double precision, dimension(*) | dy, | ||
integer | incy | ||
) |
double precision function ddot | ( | integer | n, |
double precision, dimension(*) | dx, | ||
integer | incx, | ||
double precision, dimension(*) | dy, | ||
integer | incy | ||
) |
subroutine dgeco | ( | real ( kind = 8 ), dimension(lda,n) | a, |
integer ( kind = 4 ) | lda, | ||
integer ( kind = 4 ) | n, | ||
integer ( kind = 4 ), dimension(n) | ipvt, | ||
real ( kind = 8 ) | rcond, | ||
real ( kind = 8 ), dimension(n) | z | ||
) |
subroutine dgefa | ( | real ( kind = 8 ), dimension(lda,n) | a, |
integer ( kind = 4 ) | lda, | ||
integer ( kind = 4 ) | n, | ||
integer ( kind = 4 ), dimension(n) | ipvt, | ||
integer ( kind = 4 ) | info | ||
) |
subroutine dgesl | ( | real ( kind = 8 ), dimension(lda,n) | a, |
integer ( kind = 4 ) | lda, | ||
integer ( kind = 4 ) | n, | ||
integer ( kind = 4 ), dimension(n) | ipvt, | ||
real ( kind = 8 ), dimension(n) | b, | ||
integer ( kind = 4 ) | job | ||
) |
subroutine dscal | ( | integer | n, |
double precision | da, | ||
double precision, dimension(*) | dx, | ||
integer | incx | ||
) |
dscal
integer function idamax | ( | integer | n, |
double precision, dimension(*) | dx, | ||
integer | incx | ||
) |
idamax
subroutine lsolve | ( | real ( kind=8 ), dimension ( nsite, nsite ) | a, |
integer, intent(in) | nsite, | ||
real ( kind=8 ), dimension ( nsite ), intent(out) | q_tmp | ||
) |
lsolve, AX = B