KTH framework for Nek5000 toolboxes; testing version  0.0.1
hmholtz.f File Reference

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)
 

Function/Subroutine Documentation

◆ axhelm()

subroutine axhelm ( real, dimension (lx1,ly1,lz1,1)  au,
real, dimension (lx1,ly1,lz1,1)  u,
real, dimension (lx1,ly1,lz1,1)  helm1,
real, dimension (lx1,ly1,lz1,1)  helm2,
  imesh,
  isd 
)

Definition at line 72 of file hmholtz.f.

References add2(), add3(), addcol3(), addcol4(), cmult(), col2(), col3(), dnekclock(), mxm(), rzero(), setaxdy(), and setfast().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ calc()

subroutine calc ( dimension(n)  diag,
dimension(n)  upper,
dimension(n)  d,
dimension(n)  e,
  n,
  dmax,
  dmin 
)

Definition at line 857 of file hmholtz.f.

References copy().

+ Here is the call graph for this function:

◆ cggo()

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().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ cggo_dg()

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 
)

Definition at line 1493 of file hmholtz.f.

References add2s1(), add2s2(), cadd(), col3(), copy(), glmax(), glmin(), glsc2(), glsum(), gop(), hxdg(), rzero(), setprec_dg(), vlsc2(), and vlsc3().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ chktcg1()

subroutine chktcg1 (   tol,
real, dimension (lx1,ly1,lz1,1)  res,
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,
  imesh,
  isd 
)

Definition at line 527 of file hmholtz.f.

References axhelm(), col2(), col3(), copy(), glsc3(), glsum(), and rone().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ face_diff()

subroutine face_diff ( real, dimension(lx1*lz1*2*ldim*lelt,2)  u,
integer  d,
integer  gsh_loc,
real, dimension(lx1*lz1*2*ldim*lelt,2)  w 
)

Definition at line 1771 of file hmholtz.f.

+ Here is the caller graph for this function:

◆ fdm_h1()

subroutine fdm_h1 ( real, dimension(lx1,ly1,lz1,1)  z,
real, dimension(lx1,ly1,lz1,1)  r,
real, dimension(lx1,ly1,lz1,1)  d,
real, dimension(lx1,ly1,lz1,1)  mask,
real, dimension(lx1,ly1,lz1,1)  mult,
  nel,
integer, dimension(lelt,3)  kt,
real, dimension(lx1,ly1,lz1,1)  rr 
)

Definition at line 936 of file hmholtz.f.

References col2(), col3(), copy(), dssum(), and mxm().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ generalev()

subroutine generalev ( real, dimension(n,n)  a,
real, dimension(n,n)  b,
real, dimension(n)  lam,
  n,
real, dimension(n,n)  w 
)

Definition at line 1368 of file hmholtz.f.

References copy(), dsygv(), exitt(), and outmat2().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ gradr()

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 
)

Definition at line 1715 of file hmholtz.f.

References mxm().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ gradrta()

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 
)

Definition at line 1742 of file hmholtz.f.

References mxma().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ hmh_flex_cg()

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().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ hmholtz()

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().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ hmholtz_dg()

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().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ hxdg()

subroutine hxdg ( real, dimension(lx1,ly1,lz1,1)  au,
real, dimension(lx1,ly1,lz1,1)  u,
real, dimension(lx1,ly1,lz1,1)  h1,
real, dimension(1)  h2 
)

Definition at line 2053 of file hmholtz.f.

References col4(), dsset(), face_diff(), gradr(), gradrta(), and setaxdy().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ hxdg_surfa()

subroutine hxdg_surfa ( real, dimension(lx1,ly1,lz1,lelt au,
real, dimension(lx1,ly1,lz1,lelt u,
real, dimension(lx1,ly1,lz1,lelt h1,
real, dimension(1)  h2 
)

Definition at line 1980 of file hmholtz.f.

References dsset(), gradrta(), and setaxdy().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ ioutfld()

subroutine ioutfld ( integer, dimension(m,n,nel)  a,
  m,
  n,
  nel,
character*6  name6,
  ie 
)

Definition at line 1694 of file hmholtz.f.

◆ ioutmat4()

subroutine ioutmat4 ( integer, dimension(l,m,n,nel)  a,
  l,
  m,
  n,
  nel,
character*6  name6,
  ie 
)

Definition at line 1674 of file hmholtz.f.

◆ outmat2()

subroutine outmat2 ( real, dimension(m,n)  a,
  m,
  n,
  k,
character*4  name 
)

Definition at line 1419 of file hmholtz.f.

+ Here is the caller graph for this function:

◆ outmat4()

subroutine outmat4 ( real, dimension(l,m,n,nel)  a,
  l,
  m,
  n,
  nel,
character*6  name6,
  ie 
)

Definition at line 1654 of file hmholtz.f.

◆ outmax()

subroutine outmax ( real, dimension(m,n)  a,
  m,
  n,
character*6  name6,
  ie 
)

Definition at line 1639 of file hmholtz.f.

◆ rescale_abhalf()

subroutine rescale_abhalf ( real, dimension(n,n)  a,
real, dimension(n,n)  b,
real, dimension(n)  w,
  n 
)

Definition at line 1435 of file hmholtz.f.

References ident().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ set_fdm_prec_h1a()

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().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ set_fdm_prec_h1a_els()

subroutine set_fdm_prec_h1a_els

Definition at line 1119 of file hmholtz.f.

References copy().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ set_fdm_prec_h1a_gen()

subroutine set_fdm_prec_h1a_gen

Definition at line 1027 of file hmholtz.f.

References copy(), generalev(), mxm(), rescale_abhalf(), rzero(), transpose(), and vsqrt().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ set_fdm_prec_h1b()

subroutine set_fdm_prec_h1b ( real, dimension (lx1,ly1,lz1,1)  d,
real, dimension(lx1,ly1,lz1,1)  h1,
real, dimension(lx1,ly1,lz1,1)  h2,
  nel 
)

Definition at line 1273 of file hmholtz.f.

References vlsc2(), and vlsum().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ setfast()

subroutine setfast ( real, dimension(lx1,ly1,lz1,1)  helm1,
real, dimension(lx1,ly1,lz1,1)  helm2,
  imesh 
)

Definition at line 262 of file hmholtz.f.

References vlamax(), vlmax(), and vlmin().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ setprec()

subroutine setprec ( real, dimension (lx1,ly1,lz1,1)  dpcm1,
real, dimension(lx1,ly1,lz1,1)  helm1,
real, dimension(lx1,ly1,lz1,1)  helm2,
  imsh,
  isd 
)

Definition at line 380 of file hmholtz.f.

References addcol3(), col2(), dssum(), invcol1(), mxm(), rzero(), and setaxdy().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ setprec_dg()

subroutine setprec_dg ( real, dimension(lx1,ly1,lz1,1)  d,
real, dimension(lx1*ly1*lz1,1)  h1,
real, dimension(lx1*ly1*lz1,1)  h2,
  imsh,
  isd 
)

Definition at line 1798 of file hmholtz.f.

References dsset(), invcol1(), mxm(), rzero(), and setaxdy().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ sfastax()

subroutine sfastax

Definition at line 310 of file hmholtz.f.

References rzero().

+ Here is the call graph for this function:
+ Here is the caller graph for this function:

◆ vlsc32()

function vlsc32 ( real, dimension(1)  r,
real, dimension(1)  b,
real, dimension(1)  m,
  n 
)

Definition at line 847 of file hmholtz.f.

+ Here is the caller graph for this function: