ic.f File Reference

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, ifile)
subroutine	addfid (fname, fid)
subroutine	mfi_prepare (hname)
subroutine	axis_interp_ic (pm1)
subroutine	map_pm1_to_pr (pm1, ifile)
subroutine	full_restart (s80, n_restart)

Function/Subroutine Documentation

addfid()

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

axis_interp_ic()

subroutine axis_interp_ic

(

real, dimension(lx1,ly1,lz1,lelv)

pm1

)

capit()

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

chknorm()

subroutine chknorm

(

logical

ifzero

)

csplit()

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

dsavg()

subroutine dsavg

(

real, dimension(lx1,ly1,lz1,lelt)

u

)

full_restart()

subroutine full_restart	(	character*80, dimension(n_restart)	s80,
			n_restart
	)

geom_reset()

subroutine geom_reset

(

icall

)

i1_from_char()

function i1_from_char

(

character*1

s1

)

if_byte_swap_test()

logical function if_byte_swap_test	(	real*4	bytetest,
			ierr
	)

ifgtil()

logical function ifgtil	(		IVALUE,
		character*132	LINE
	)

ifgtrl()

logical function ifgtrl	(		VALUE,
		character*132	LINE
	)

indx1()

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

indx2()

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

indx_cut()

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

ljust()

subroutine ljust

(

character*1, dimension(132)

string

)

lshft()

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

map13_all()

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

map_pm1_to_pr()

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

mapab()

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

mapab4r()

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

mapdmp()

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

mfi()

subroutine mfi	(	character*132	fname,
			ifile
	)

mfi_gets()

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

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(lwk)	wk,
			lwk,
		logical	iskip
	)

mfi_parse_hdr()

subroutine mfi_parse_hdr	(	character*132	hdr,
			ierr
	)

mfi_prepare()

subroutine mfi_prepare

(

character*132

hname

)

nekuic()

subroutine nekuic

(

)

parse_std_hdr()

subroutine parse_std_hdr

(

character*132

hdr

)

parse_std_hdr_2006()

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

perturb()

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

prsolvt()

subroutine prsolvt

(

)

prsolvv()

subroutine prsolvv

(

)

restart()

subroutine restart

(

nfiles

)

setics()

subroutine setics

(

)

sioflag()

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

slogic()

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

vbyte_swap()

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

vcospf()

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