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

Go to the source code of this file.

Functions/Subroutines

subroutine setics
 
subroutine slogic (iffort, ifrest, ifprsl, nfiles)
 
subroutine restart (nfiles)
 
subroutine sioflag (ndumps, fname, rsopts)
 
subroutine mapdmp (sdump, tdump, ieg, nxr, nyr, nzr, if_byte_sw)
 
subroutine mapab (x, y, nxr, nel)
 
subroutine mapab4r (x, y, nxr, nel)
 
function i1_from_char (s1)
 
integer function indx2 (s1, l1, s2, l2)
 
integer function indx1 (S1, S2, L2)
 
integer function indx_cut (S1, S2, L2)
 
subroutine csplit (s0, s1, s2, l0)
 
subroutine lshft (string, ipt)
 
subroutine ljust (string)
 
subroutine chknorm (ifzero)
 
subroutine prsolvt
 
subroutine prsolvv
 
subroutine nekuic
 
subroutine capit (lettrs, n)
 
logical function ifgtrl (VALUE, LINE)
 
logical function ifgtil (IVALUE, LINE)
 
subroutine perturb (tt, ifld, eps)
 
subroutine vcospf (x, y, n)
 
subroutine vbyte_swap (x, n)
 
logical function if_byte_swap_test (bytetest, ierr)
 
subroutine geom_reset (icall)
 
subroutine dsavg (u)
 
subroutine map13_all (x3, x1)
 
subroutine mfi_gets (u, wk, lwk, iskip)
 
subroutine mfi_getv (u, v, w, wk, lwk, iskip)
 
subroutine mfi_parse_hdr (hdr, ierr)
 
subroutine parse_std_hdr (hdr)
 
subroutine parse_std_hdr_2006 (hdr, rlcode)
 
subroutine mfi (fname_in, ifile)
 
subroutine addfid (fname, fid)
 
subroutine mfi_prepare (hname)
 
subroutine axis_interp_ic (pm1)
 
subroutine map_pm1_to_pr (pm1, ifile)
 
subroutine full_restart (fnames, n_restart)
 
subroutine projfld_c0 ()
 

Function/Subroutine Documentation

◆ addfid()

subroutine addfid ( character*1, dimension(132)  fname,
integer  fid 
)

Definition at line 2511 of file ic.f.

References chcopy(), and indx1().

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

◆ axis_interp_ic()

subroutine axis_interp_ic ( real, dimension(lx1,ly1,lz1,lelv)  pm1)

Definition at line 2662 of file ic.f.

References copy(), and mxm().

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

◆ capit()

subroutine capit ( character, dimension(n)  lettrs,
  n 
)

Definition at line 1647 of file ic.f.

+ Here is the caller graph for this function:

◆ chknorm()

subroutine chknorm ( logical  ifzero)

Definition at line 1455 of file ic.f.

References unorm().

+ Here is the call graph for this function:

◆ csplit()

subroutine csplit ( character*132  s0,
character*132  s1,
character*132  s2,
  l0 
)

Definition at line 1401 of file ic.f.

References blank(), indx_cut(), and lshft().

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

◆ dsavg()

subroutine dsavg ( real, dimension(lx1,ly1,lz1,lelt u)

Definition at line 1877 of file ic.f.

References col2(), and dssum().

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

◆ full_restart()

subroutine full_restart ( character *(*), dimension(*)  fnames,
  n_restart 
)

Definition at line 2748 of file ic.f.

References bcast(), chcopy(), restart(), and setprop().

+ Here is the call graph for this function:

◆ geom_reset()

subroutine geom_reset (   icall)

Definition at line 1801 of file ic.f.

References copy(), geom1(), geom2(), map13_all(), setdef(), setinvm(), sfastax(), updmsys(), and volume().

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

◆ i1_from_char()

function i1_from_char ( character*1  s1)

Definition at line 1326 of file ic.f.

References indx2().

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

◆ if_byte_swap_test()

logical function if_byte_swap_test ( real*4  bytetest,
  ierr 
)

Definition at line 1781 of file ic.f.

References byte_reverse.

+ Here is the caller graph for this function:

◆ ifgtil()

logical function ifgtil (   IVALUE,
character*132  LINE 
)

Definition at line 1698 of file ic.f.

References indx1(), and ljust().

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

◆ ifgtrl()

logical function ifgtrl (   VALUE,
character*132  LINE 
)

Definition at line 1661 of file ic.f.

References indx1(), and ljust().

+ Here is the call graph for this function:

◆ indx1()

integer function indx1 ( character*132  S1,
character*132  S2,
  L2 
)

Definition at line 1356 of file ic.f.

+ Here is the caller graph for this function:

◆ indx2()

integer function indx2 ( character*132  s1,
  l1,
character*132  s2,
  l2 
)

Definition at line 1338 of file ic.f.

+ Here is the caller graph for this function:

◆ indx_cut()

integer function indx_cut ( character*1, dimension(132)  S1,
character*1, dimension(132)  S2,
  L2 
)

Definition at line 1374 of file ic.f.

References indx1().

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

◆ ljust()

subroutine ljust ( character*1, dimension(132)  string)

Definition at line 1432 of file ic.f.

+ Here is the caller graph for this function:

◆ lshft()

subroutine lshft ( character*1, dimension(132)  string,
  ipt 
)

Definition at line 1416 of file ic.f.

+ Here is the caller graph for this function:

◆ map13_all()

subroutine map13_all ( real, dimension(lx3,ly3,lz3,lelt x3,
real, dimension(lx1,ly1,lz1,lelt x1 
)

Definition at line 1905 of file ic.f.

References map13().

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

◆ map_pm1_to_pr()

subroutine map_pm1_to_pr ( real, dimension(lx1*ly1*lz1,lelv)  pm1,
  ifile 
)

Definition at line 2714 of file ic.f.

References copy(), and map12().

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

◆ mapab()

subroutine mapab ( dimension(lx1,ly1,lz1,nel)  x,
dimension(nxr,nxr,nxr,nel)  y,
  nxr,
  nel 
)

Definition at line 1183 of file ic.f.

References copy(), exitt(), igllm(), mxm(), and zwgll().

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

◆ mapab4r()

subroutine mapab4r ( real*4, dimension(lx1,ly1,lz1,nel)  x,
real, dimension(nxr,nxr,nxr,nel)  y,
  nxr,
  nel 
)

Definition at line 1252 of file ic.f.

References copy(), copy4r(), exitt(), igllm(), mxm(), and zwgll().

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

◆ mapdmp()

subroutine mapdmp ( real, dimension(lxyz1,lelt sdump,
real*4, dimension(lxyzr)  tdump,
  ieg,
  nxr,
  nyr,
  nzr,
logical  if_byte_sw 
)

Definition at line 1108 of file ic.f.

References byte_reverse, copy4r(), crecv2(), csend(), err_chk(), exitti(), gllel(), gllnid(), and mapab4r().

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

◆ mfi()

subroutine mfi ( character*132  fname_in,
  ifile 
)

Definition at line 2354 of file ic.f.

References axis_interp_ic(), blank(), byte_close, byte_close_mpi(), byte_set_view(), chcopy(), dnekclock(), err_chk(), glsum(), ltrunc(), map_pm1_to_pr(), mfi_gets(), mfi_getv(), and mfi_prepare().

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

◆ mfi_gets()

subroutine mfi_gets ( real, dimension(lx1*ly1*lz1,1)  u,
real*4, dimension(2*lwk)  wk,
  lwk,
logical  iskip 
)

Definition at line 1922 of file ic.f.

References bcast(), byte_read, byte_read_mpi(), byte_reverse, byte_reverse8, copy(), copy4r(), csend(), err_chk(), gllel(), gllnid(), iglmax(), irecv(), lim_chk(), mapab(), mapab4r(), msgwait(), nekgsync(), and rzero().

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

◆ mfi_getv()

subroutine mfi_getv ( real, dimension(lx1*ly1*lz1,1)  u,
real, dimension(lx1*ly1*lz1,1)  v,
real, dimension(lx1*ly1*lz1,1)  w,
real*4, dimension(2*lwk)  wk,
  lwk,
logical  iskip 
)

Definition at line 2056 of file ic.f.

References bcast(), byte_read, byte_read_mpi(), byte_reverse, byte_reverse8, copy(), copy4r(), csend(), err_chk(), gllel(), gllnid(), iglmax(), irecv(), lim_chk(), mapab(), mapab4r(), msgwait(), nekgsync(), and rzero().

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

◆ mfi_parse_hdr()

subroutine mfi_parse_hdr ( character*132  hdr,
  ierr 
)

Definition at line 2199 of file ic.f.

References indx2(), and parse_std_hdr().

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

◆ mfi_prepare()

subroutine mfi_prepare ( character*132  hname)

Definition at line 2542 of file ic.f.

References addfid(), bcast(), blank(), byte_close, byte_open, byte_open_mpi(), byte_read, byte_read_mpi(), byte_reverse, byte_set_view(), chcopy(), err_chk(), exitt(), igl_running_sum(), and mfi_parse_hdr().

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

◆ nekuic()

subroutine nekuic

Definition at line 1598 of file ic.f.

References nekasgn().

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

◆ parse_std_hdr()

subroutine parse_std_hdr ( character*132  hdr)

Definition at line 2216 of file ic.f.

References parse_std_hdr_2006().

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

◆ parse_std_hdr_2006()

subroutine parse_std_hdr_2006 ( character*132  hdr,
character*1, dimension(20)  rlcode 
)

Definition at line 2315 of file ic.f.

+ Here is the caller graph for this function:

◆ perturb()

subroutine perturb ( real, dimension(1)  tt,
integer  ifld,
  eps 
)

Definition at line 1730 of file ic.f.

References cmult(), dssum(), and vcospf().

+ Here is the call graph for this function:

◆ projfld_c0()

subroutine projfld_c0

Definition at line 2769 of file ic.f.

References col2(), dsavg(), dssum(), opcolv(), opdssum(), and ortho().

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

◆ prsolvt()

subroutine prsolvt

Definition at line 1487 of file ic.f.

References heat(), setprop(), and setsolv().

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

◆ prsolvv()

subroutine prsolvv

Definition at line 1534 of file ic.f.

References cfill(), exitt(), fluid(), setprop(), and setsolv().

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

◆ restart()

subroutine restart (   nfiles)

Definition at line 415 of file ic.f.

References axis_interp_ic(), bcast(), byte_close, byte_open, byte_read, chcopy(), copy(), err_chk(), exitt(), gllnid(), i1_from_char(), if_byte_swap_test(), izero(), lbcast(), ltrunc(), map12(), map_pm1_to_pr(), mapdmp(), mfi(), and sioflag().

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

◆ setics()

subroutine setics

Definition at line 2 of file ic.f.

References col2(), dssum(), exitt(), exitti(), geom_reset(), glmax(), glmin(), glsum(), lagvel(), meshv(), nekgsync(), nekuic(), opcopy(), projfld_c0(), prsolvt(), prsolvv(), ptbgeom(), restart(), rone(), rzero(), setup_convect(), and slogic().

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

◆ sioflag()

subroutine sioflag (   ndumps,
character*132  fname,
character*132  rsopts 
)

Definition at line 953 of file ic.f.

References blank(), capit(), chcopy(), csplit(), indx1(), indx_cut(), ljust(), and ltrunc().

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

◆ slogic()

subroutine slogic ( logical, dimension( ldimt1,0:lpert)  iffort,
logical, dimension(0:ldimt1,0:lpert)  ifrest,
logical, dimension( ldimt1,0:lpert)  ifprsl,
  nfiles 
)

Definition at line 283 of file ic.f.

References blank(), capit(), csplit(), indx1(), indx_cut(), ljust(), ltrunc(), and sioflag().

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

◆ vbyte_swap()

subroutine vbyte_swap ( character*1, dimension(0:3,1)  x,
  n 
)

Definition at line 1755 of file ic.f.

◆ vcospf()

subroutine vcospf ( real, dimension(1)  x,
real, dimension(1)  y,
  n 
)

Definition at line 1747 of file ic.f.

+ Here is the caller graph for this function: