EVSL
1.1.0
EigenValues Slicing Library
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | gen57pt (nx, ny, nz, al, mode, n, a, ja, ia, iau, rhs) |
subroutine | getsten (nx, ny, nz, mode, kx, ky, kz, stencil, h, rhs) |
subroutine | gen57bl (nx, ny, nz, nfree, na, n, a, ja, ia, iau, stencil) |
subroutine | bsten (nx, ny, nz, kx, ky, kz, nfree, stencil, h) |
subroutine | fdreduce (nx, ny, nz, alpha, n, a, ja, ia, iau, rhs, stencil) |
subroutine | fdaddbc (nx, ny, nz, a, ja, ia, iau, rhs, al, h) |
subroutine | clrow (i, a, ja, ia) |
integer function | lctcsr (i, j, ja, ia) |
subroutine | csrcsc (n, job, ipos, a, ja, ia, ao, jao, iao) |
subroutine | csrcsc2 (n, n2, job, ipos, a, ja, ia, ao, jao, iao) |
subroutine bsten | ( | integer | nx, |
integer | ny, | ||
integer | nz, | ||
integer | kx, | ||
integer | ky, | ||
integer | kz, | ||
integer | nfree, | ||
real*8, dimension(7,*) | stencil, | ||
real*8 | h | ||
) |
subroutine clrow | ( | integer | i, |
real *8, dimension(*) | a, | ||
integer, dimension(*) | ja, | ||
integer, dimension(*) | ia | ||
) |
subroutine csrcsc | ( | n, | |
job, | |||
ipos, | |||
real*8, dimension(*) | a, | ||
integer, dimension(*) | ja, | ||
integer, dimension(n+1) | ia, | ||
real*8, dimension(*) | ao, | ||
integer, dimension(*) | jao, | ||
integer, dimension(n+1) | iao | ||
) |
subroutine csrcsc2 | ( | n, | |
n2, | |||
job, | |||
ipos, | |||
real*8, dimension(*) | a, | ||
integer, dimension(*) | ja, | ||
integer, dimension(n+1) | ia, | ||
real*8, dimension(*) | ao, | ||
integer, dimension(*) | jao, | ||
integer, dimension(n2+1) | iao | ||
) |
subroutine fdaddbc | ( | integer | nx, |
integer | ny, | ||
integer | nz, | ||
real*8, dimension(7*nx*ny*nz) | a, | ||
integer, dimension(7*nx*ny*nz) | ja, | ||
integer, dimension(nx*ny*nz) | ia, | ||
integer, dimension(nx*ny*nz) | iau, | ||
real*8, dimension(nx*ny*nz) | rhs, | ||
real*8, dimension(6) | al, | ||
real*8 | h | ||
) |
subroutine fdreduce | ( | integer | nx, |
integer | ny, | ||
integer | nz, | ||
real*8, dimension(*) | alpha, | ||
integer | n, | ||
real*8, dimension(*) | a, | ||
integer, dimension(*) | ja, | ||
integer, dimension(*) | ia, | ||
integer, dimension(*) | iau, | ||
real*8, dimension(*) | rhs, | ||
real*8, dimension(*) | stencil | ||
) |
subroutine gen57bl | ( | integer | nx, |
integer | ny, | ||
integer | nz, | ||
integer | nfree, | ||
integer | na, | ||
integer | n, | ||
real*8, dimension(na,1) | a, | ||
integer, dimension(*) | ja, | ||
integer, dimension(*) | ia, | ||
integer, dimension(*) | iau, | ||
real*8, dimension(7,1) | stencil | ||
) |
subroutine gen57pt | ( | integer | nx, |
integer | ny, | ||
integer | nz, | ||
real*8, dimension(6) | al, | ||
integer | mode, | ||
integer | n, | ||
real*8, dimension(*) | a, | ||
integer, dimension(*) | ja, | ||
integer, dimension(*) | ia, | ||
integer, dimension(*) | iau, | ||
real*8, dimension(*) | rhs | ||
) |
subroutine getsten | ( | integer | nx, |
integer | ny, | ||
integer | nz, | ||
integer | mode, | ||
integer | kx, | ||
integer | ky, | ||
integer | kz, | ||
real*8, dimension(*) | stencil, | ||
real*8 | h, | ||
real*8 | rhs | ||
) |
integer function lctcsr | ( | integer | i, |
integer | j, | ||
integer, dimension(*) | ja, | ||
integer, dimension(*) | ia | ||
) |
Definition at line 1260 of file genmat.f.
Referenced by fdaddbc(), and fdreduce().