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

Go to the source code of this file.

Functions/Subroutines

subroutine setrhs (p, h1, h2, h2inv)
 
subroutine gensoln (p, h1, h2, h2inv)
 
subroutine updtset (p, h1, h2, h2inv, IERR)
 
subroutine econj (kprev, h1, h2, h2inv, ierr)
 
subroutine chkptol
 
function vlsc3 (X, Y, B, N)
 
subroutine updrhse (p, h1, h2, h2inv, ierr)
 
subroutine hconj (approx, k, h1, h2, vml, vmk, ws, name4, ierr)
 
subroutine hmhzpf (name, u, r, h1, h2, mask, mult, imesh, tli, maxit, isd, bi)
 
subroutine hsolve (name, u, r, h1, h2, vmk, vml, imsh, tol, maxit, isd, approx, napprox, bi)
 
subroutine project1 (b, n, rvar, ivar, h1, h2, msk, w, ifwt, ifvec, name6)
 
subroutine project1_a (xbar, bbar, b, xx, bb, n, m, w, ifwt, ifvec)
 
function iproj_chk (h1old, h2old, h1, h2, n)
 
subroutine proj_matvec (b, x, n, h1, h2, msk, name6)
 
subroutine proj_ortho (xx, bb, n, m, w, ifwt, ifvec, name6)
 
subroutine proj_ortho_full (xx, bb, n, m, w, ifwt, ifvec, name6)
 
subroutine proj_ortho_full_mgs (xx, bb, n, m, w, ifwt, ifvec, name6)
 
subroutine proj_ortho_full_cgs2 (xx, bb, n, m, w, ifwt, ifvec, name6)
 
subroutine project2 (x, n, rvar, ivar, h1, h2, msk, w, ifwt, ifvec, name6)
 
subroutine project2_a (x, xbar, xx, bb, n, m, mmx, h1, h2, msk, w, ifwt, ifvec, name6)
 
subroutine proj_get_ivar (m, mmx, ixb, ibb, ix, ib, ih1, ih2, ivar, n, ifvec, name6)
 
subroutine laplacep (name, u, mask, mult, ifld, tol, maxi, approx, napprox)
 
subroutine givens_rotation (a, b, c, s, r)
 
real function hypot (a, b)
 

Function/Subroutine Documentation

◆ chkptol()

subroutine chkptol

Definition at line 268 of file navier4.f.

References col3(), glsc2(), and opdiv().

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

◆ econj()

subroutine econj (   kprev,
real, dimension (lx1,ly1,lz1,lelv)  h1,
real, dimension (lx1,ly1,lz1,lelv)  h2,
real, dimension(lx1,ly1,lz1,lelv)  h2inv,
  ierr 
)

Definition at line 200 of file navier4.f.

References add2s2(), cdabdtp(), cmult(), glsc2(), gop(), and vlsc2().

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

◆ gensoln()

subroutine gensoln ( real, dimension (lx2,ly2,lz2,lelv)  p,
real, dimension (lx1,ly1,lz1,lelv)  h1,
real, dimension (lx1,ly1,lz1,lelv)  h2,
real, dimension(lx1,ly1,lz1,lelv)  h2inv 
)

Definition at line 110 of file navier4.f.

References add2(), copy(), and updtset().

+ Here is the call graph for this function:

◆ givens_rotation()

subroutine givens_rotation ( real  a,
real  b,
real  c,
real  s,
real  r 
)

Definition at line 1308 of file navier4.f.

References hypot().

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

◆ hconj()

subroutine hconj ( real, dimension(lt,0:1)  approx,
  k,
real, dimension(1)  h1,
real, dimension(1)  h2,
real, dimension(1)  vml,
real, dimension(1)  vmk,
real, dimension(1)  ws,
character*4  name4,
  ierr 
)

Definition at line 433 of file navier4.f.

References add2s2(), axhelm(), cmult(), col2(), glsc2(), gop(), and vlsc2().

+ Here is the call graph for this function:

◆ hmhzpf()

subroutine hmhzpf ( character*4  name,
real, dimension (lx1,ly1,lz1,1)  u,
real, dimension (lx1,ly1,lz1,1)  r,
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,
  tli,
  maxit,
  isd,
real, dimension (lx1,ly1,lz1,1)  bi 
)

Definition at line 513 of file navier4.f.

References cggo(), cggo_dg(), chktcg1(), and dnekclock().

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

◆ hsolve()

subroutine hsolve ( character*4  name,
real, dimension (lx1,ly1,lz1,1)  u,
real, dimension (lx1,ly1,lz1,1)  r,
real, dimension (lx1,ly1,lz1,1)  h1,
real, dimension (lx1,ly1,lz1,1)  h2,
real, dimension (lx1,ly1,lz1,1)  vmk,
real, dimension (lx1,ly1,lz1,1)  vml,
  imsh,
  tol,
  maxit,
  isd,
real, dimension (1)  approx,
integer, dimension(1)  napprox,
real, dimension (lx1,ly1,lz1,1)  bi 
)

Definition at line 562 of file navier4.f.

References blank(), capit(), chcopy(), col2(), dssum(), hmholtz(), hmhzpf(), project1(), and project2().

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

◆ hypot()

real function hypot ( real  a,
real  b 
)

Definition at line 1330 of file navier4.f.

+ Here is the caller graph for this function:

◆ iproj_chk()

function iproj_chk ( real, dimension(n)  h1old,
real, dimension(n)  h2old,
real, dimension(n)  h1,
real, dimension(n)  h2,
  n 
)

Definition at line 791 of file navier4.f.

References copy(), and glmax().

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

◆ laplacep()

subroutine laplacep ( character*4  name,
real, dimension(1)  u,
real, dimension(1)  mask,
real, dimension(1)  mult,
  ifld,
  tol,
  maxi,
real, dimension (1)  approx,
integer, dimension(1)  napprox 
)

Definition at line 1222 of file navier4.f.

References add2(), axhelm(), blank(), capit(), chcopy(), copy(), dsavg(), dssum(), hmhzpf(), project1(), project2(), rone(), and rzero().

+ Here is the call graph for this function:

◆ proj_get_ivar()

subroutine proj_get_ivar (   m,
  mmx,
  ixb,
  ibb,
  ix,
  ib,
  ih1,
  ih2,
integer, dimension(10)  ivar,
  n,
logical  ifvec,
character*6  name6 
)

Definition at line 1189 of file navier4.f.

+ Here is the caller graph for this function:

◆ proj_matvec()

subroutine proj_matvec ( real, dimension(n)  b,
real, dimension(n)  x,
  n,
real, dimension(n)  h1,
real, dimension(n)  h2,
real, dimension(n)  msk,
character*6  name6 
)

Definition at line 827 of file navier4.f.

References axhelm(), col2(), and dssum().

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

◆ proj_ortho()

subroutine proj_ortho ( real, dimension(n,1)  xx,
real, dimension(n,1)  bb,
  n,
  m,
real, dimension(n)  w,
logical  ifwt,
logical  ifvec,
character*6  name6 
)

Definition at line 852 of file navier4.f.

References add2s2(), cmult(), givens_rotation(), glsc2(), glsc3(), gop(), vlsc2(), and vlsc3().

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

◆ proj_ortho_full()

subroutine proj_ortho_full ( real, dimension(n,1)  xx,
real, dimension(n,1)  bb,
  n,
  m,
real, dimension(n)  w,
logical  ifwt,
logical  ifvec,
character*6  name6 
)

Definition at line 959 of file navier4.f.

References proj_ortho_full_cgs2().

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

◆ proj_ortho_full_cgs2()

subroutine proj_ortho_full_cgs2 ( real, dimension(n,1)  xx,
real, dimension(n,1)  bb,
  n,
  m,
real, dimension(n)  w,
logical  ifwt,
logical  ifvec,
character*6  name6 
)

Definition at line 1060 of file navier4.f.

References add2s2(), cmult(), copy(), glsc2(), glsc3(), gop(), vlsc2(), and vlsc3().

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

◆ proj_ortho_full_mgs()

subroutine proj_ortho_full_mgs ( real, dimension(n,1)  xx,
real, dimension(n,1)  bb,
  n,
  m,
real, dimension(n)  w,
logical  ifwt,
logical  ifvec,
character*6  name6 
)

Definition at line 975 of file navier4.f.

References add2s2(), cmult(), copy(), glsc2(), glsc3(), glsum(), scale(), vlsc2(), and vlsc3().

+ Here is the call graph for this function:

◆ project1()

subroutine project1 ( real, dimension(n)  b,
  n,
real, dimension(n,1)  rvar,
integer, dimension(1)  ivar,
real, dimension(n)  h1,
real, dimension(n)  h2,
real, dimension(n)  msk,
real, dimension(n)  w,
logical  ifwt,
logical  ifvec,
character*6  name6 
)

Definition at line 636 of file navier4.f.

References dnekclock(), glsc3(), iproj_chk(), proj_get_ivar(), proj_matvec(), proj_ortho_full(), and project1_a().

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

◆ project1_a()

subroutine project1_a ( real, dimension(n)  xbar,
real, dimension(n)  bbar,
real, dimension(n)  b,
real, dimension(n,m)  xx,
real, dimension(n,m)  bb,
  n,
  m,
real, dimension(n)  w,
logical  ifwt,
logical  ifvec 
)

Definition at line 735 of file navier4.f.

References add2s2(), cmult2(), gop(), vlsc2(), and vlsc3().

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

◆ project2()

subroutine project2 ( real, dimension(n)  x,
  n,
real, dimension(n,1)  rvar,
integer, dimension(1)  ivar,
real, dimension(n)  h1,
real, dimension(n)  h2,
real, dimension(n)  msk,
real, dimension(n)  w,
logical  ifwt,
logical  ifvec,
character*6  name6 
)

Definition at line 1129 of file navier4.f.

References dnekclock(), proj_get_ivar(), and project2_a().

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

◆ project2_a()

subroutine project2_a ( real, dimension(n)  x,
real, dimension(n)  xbar,
real, dimension(n,1)  xx,
real, dimension(n,1)  bb,
  n,
  m,
  mmx,
real, dimension(n)  h1,
real, dimension(n)  h2,
real, dimension(n)  msk,
real, dimension(n)  w,
logical  ifwt,
logical  ifvec,
character*6  name6 
)

Definition at line 1156 of file navier4.f.

References add2(), copy(), proj_matvec(), and proj_ortho().

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

◆ setrhs()

subroutine setrhs ( real, dimension (lx2,ly2,lz2,lelv)  p,
real, dimension (lx1,ly1,lz1,lelv)  h1,
real, dimension (lx1,ly1,lz1,lelv)  h2,
real, dimension(lx1,ly1,lz1,lelv)  h2inv 
)

Definition at line 9 of file navier4.f.

References add2s2(), cdabdtp(), glsc3(), gop(), rzero(), sub2(), updrhse(), and vlsc2().

+ Here is the call graph for this function:

◆ updrhse()

subroutine updrhse ( real, dimension (lx2,ly2,lz2,lelv)  p,
real, dimension (lx1,ly1,lz1,lelv)  h1,
real, dimension (lx1,ly1,lz1,lelv)  h2,
real, dimension(lx1,ly1,lz1,lelv)  h2inv,
  ierr 
)

Definition at line 356 of file navier4.f.

References econj(), and invers2().

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

◆ updtset()

subroutine updtset ( real, dimension (lx2,ly2,lz2,lelv)  p,
real, dimension (lx1,ly1,lz1,lelv)  h1,
real, dimension (lx1,ly1,lz1,lelv)  h2,
real, dimension(lx1,ly1,lz1,lelv)  h2inv,
  IERR 
)

Definition at line 147 of file navier4.f.

References copy(), and econj().

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

◆ vlsc3()

function vlsc3 ( dimension(1)  X,
dimension(1)  Y,
dimension(1)  B,
  N 
)

Definition at line 323 of file navier4.f.

+ Here is the caller graph for this function: