KTH framework for Nek5000 toolboxes; testing version
0.0.1
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | hmholtz (name, u, rhs, h1, h2, mask, mult, imsh, tli, maxit, isd) |
subroutine | axhelm (au, u, helm1, helm2, imesh, isd) |
subroutine | setfast (helm1, helm2, imesh) |
subroutine | sfastax |
subroutine | setprec (dpcm1, helm1, helm2, imsh, isd) |
subroutine | chktcg1 (tol, res, h1, h2, mask, mult, imesh, isd) |
subroutine | cggo (x, f, h1, h2, mask, mult, imsh, tin, maxit, isd, binv, name) |
function | vlsc32 (r, b, m, n) |
subroutine | calc (diag, upper, d, e, n, dmax, dmin) |
subroutine | fdm_h1 (z, r, d, mask, mult, nel, kt, rr) |
subroutine | set_fdm_prec_h1a_gen |
subroutine | set_fdm_prec_h1a_els |
subroutine | set_fdm_prec_h1b (d, h1, h2, nel) |
subroutine | set_fdm_prec_h1a |
subroutine | generalev (a, b, lam, n, w) |
subroutine | outmat2 (a, m, n, k, name) |
subroutine | rescale_abhalf (a, b, w, n) |
subroutine | hmholtz_dg (name, u, rhs, h1, h2, mask, tol, maxit) |
subroutine | cggo_dg (x, f, h1, h2, binv, mask, name, tin, maxit) |
subroutine | outmax (a, m, n, name6, ie) |
subroutine | outmat4 (a, l, m, n, nel, name6, ie) |
subroutine | ioutmat4 (a, l, m, n, nel, name6, ie) |
subroutine | ioutfld (a, m, n, nel, name6, ie) |
subroutine | gradr (ur, us, ut, u, Dr, Dst, Dtt, nr, ns, nt, if3d) |
subroutine | gradrta (u, ur, us, ut, Drt, Ds, Dt, nr, ns, nt, if3d) |
subroutine | face_diff (u, d, gsh_loc, w) |
subroutine | setprec_dg (d, h1, h2, imsh, isd) |
subroutine | hxdg_surfa (au, u, h1, h2) |
subroutine | hxdg (au, u, h1, h2) |
subroutine | hmh_flex_cg (res, h1, h2, wt, iter) |
subroutine calc | ( | dimension(n) | diag, |
dimension(n) | upper, | ||
dimension(n) | d, | ||
dimension(n) | e, | ||
n, | |||
dmax, | |||
dmin | |||
) |
subroutine cggo | ( | real, dimension(1) | x, |
real, dimension(1) | f, | ||
real, dimension(1) | h1, | ||
real, dimension(1) | h2, | ||
real, dimension(1) | mask, | ||
real, dimension(1) | mult, | ||
imsh, | |||
tin, | |||
maxit, | |||
isd, | |||
real, dimension(1) | binv, | ||
character*4 | name | ||
) |
Definition at line 611 of file hmholtz.f.
References add2(), add2s1(), add2s2(), axhelm(), cadd(), col2(), col3(), copy(), crs_solve_h1(), dssum(), fdm_h1(), glamax(), glmax(), glmin(), glsc2(), glsc3(), glsum(), gop(), h1_overlap_2(), hmh_flex_cg(), hmh_gmres(), ortho(), rzero(), set_fdm_prec_h1b(), setfast(), setprec(), vlsc3(), and vlsc32().
subroutine cggo_dg | ( | real, dimension(1) | x, |
real, dimension(1) | f, | ||
real, dimension(1) | h1, | ||
real, dimension(1) | h2, | ||
real, dimension(1) | binv, | ||
real, dimension(1) | mask, | ||
character*4 | name, | ||
tin, | |||
maxit | |||
) |
subroutine generalev | ( | real, dimension(n,n) | a, |
real, dimension(n,n) | b, | ||
real, dimension(n) | lam, | ||
n, | |||
real, dimension(n,n) | w | ||
) |
subroutine gradr | ( | real, dimension(nr,ns,nt) | ur, |
real, dimension(nr,ns,nt) | us, | ||
real, dimension(nr,ns,nt) | ut, | ||
real, dimension (nr,ns,nt) | u, | ||
real, dimension(nr,nr) | Dr, | ||
real, dimension(ns,ns) | Dst, | ||
real, dimension(nt,nt) | Dtt, | ||
nr, | |||
ns, | |||
nt, | |||
logical | if3d | ||
) |
subroutine gradrta | ( | real, dimension (nr,ns,nt) | u, |
real, dimension(nr,ns,nt) | ur, | ||
real, dimension(nr,ns,nt) | us, | ||
real, dimension(nr,ns,nt) | ut, | ||
Drt, | |||
Ds, | |||
Dt, | |||
nr, | |||
ns, | |||
nt, | |||
logical | if3d | ||
) |
subroutine hmh_flex_cg | ( | real, dimension (lx1*ly1*lz1*lelv) | res, |
real, dimension (lx1,ly1,lz1,lelv) | h1, | ||
real, dimension (lx1,ly1,lz1,lelv) | h2, | ||
real, dimension (lx1,ly1,lz1,lelv) | wt, | ||
iter | |||
) |
Definition at line 2160 of file hmholtz.f.
References add2s1(), ax(), chktcg1(), copy(), dnekclock(), fem_amg_solve, glsc3(), gop(), h1mg_solve(), ortho(), rzero(), and sub2().
subroutine hmholtz | ( | character | name, |
real, dimension (lx1,ly1,lz1,1) | u, | ||
real, dimension (lx1,ly1,lz1,1) | rhs, | ||
real, dimension (lx1,ly1,lz1,1) | h1, | ||
real, dimension (lx1,ly1,lz1,1) | h2, | ||
real, dimension (lx1,ly1,lz1,1) | mask, | ||
real, dimension (lx1,ly1,lz1,1) | mult, | ||
imsh, | |||
tli, | |||
maxit, | |||
isd | |||
) |
Definition at line 2 of file hmholtz.f.
References cggo(), chcopy(), chktcg1(), col2(), dnekclock(), dssum(), and set_fdm_prec_h1a().
subroutine hmholtz_dg | ( | character | name, |
real, dimension (lx1,ly1,lz1,1) | u, | ||
real, dimension (lx1,ly1,lz1,1) | rhs, | ||
real, dimension (lx1,ly1,lz1,1) | h1, | ||
real, dimension (lx1,ly1,lz1,1) | h2, | ||
real, dimension (lx1,ly1,lz1,1) | mask, | ||
tol, | |||
maxit | |||
) |
Definition at line 1462 of file hmholtz.f.
References cggo_dg(), and dnekclock().
subroutine ioutfld | ( | integer, dimension(m,n,nel) | a, |
m, | |||
n, | |||
nel, | |||
character*6 | name6, | ||
ie | |||
) |
subroutine ioutmat4 | ( | integer, dimension(l,m,n,nel) | a, |
l, | |||
m, | |||
n, | |||
nel, | |||
character*6 | name6, | ||
ie | |||
) |
subroutine outmat2 | ( | real, dimension(m,n) | a, |
m, | |||
n, | |||
k, | |||
character*4 | name | ||
) |
subroutine outmat4 | ( | real, dimension(l,m,n,nel) | a, |
l, | |||
m, | |||
n, | |||
nel, | |||
character*6 | name6, | ||
ie | |||
) |
subroutine outmax | ( | real, dimension(m,n) | a, |
m, | |||
n, | |||
character*6 | name6, | ||
ie | |||
) |
subroutine rescale_abhalf | ( | real, dimension(n,n) | a, |
real, dimension(n,n) | b, | ||
real, dimension(n) | w, | ||
n | |||
) |
subroutine set_fdm_prec_h1a |
Definition at line 1359 of file hmholtz.f.
References set_fdm_prec_h1a_els(), and set_fdm_prec_h1a_gen().
subroutine set_fdm_prec_h1a_els |
subroutine set_fdm_prec_h1a_gen |
Definition at line 1027 of file hmholtz.f.
References copy(), generalev(), mxm(), rescale_abhalf(), rzero(), transpose(), and vsqrt().
subroutine sfastax |