util Module Reference

Data Types
interface	putarr_attime

Functions/Subroutines
subroutine, public	mrqcof (x, y, sig, ndata, a, ia, ma, alpha, beta, nalp, chisq, funcs)
subroutine, public	gaussj (a, n, np, b, m, mp)
real(kind=r8) function, public	zbrent (func, x1, x2, tol)
real(kind=r8) function, public	log2real (lin)
subroutine	putarr_attime_1 (fresid, name, array, current_time, pardim)
subroutine	putarr_attime_2 (fresid, name, array, current_time, pardim)
subroutine	putarr_attime_3 (fresid, name, array, current_time, pardim)
subroutine	putarr_attime_4 (fresid, name, array, current_time, pardim)
subroutine	putarrz_attime_1 (fresid, name, array, current_time, pardim)
subroutine	putarrz_attime_2 (fresid, name, array, current_time, pardim)
subroutine	putarrz_attime_3 (fresid, name, array, current_time, pardim)
subroutine	putarrz_attime_4 (fresid, name, array, current_time, pardim)
subroutine, public	creatd_stat (fid, r, d, name, desc)
	Futils wrapper to create 3 datasets, min, max and mean.
subroutine, public	append_stat (fid, name, array, nvp_world, me_world)
	Compute min, max and mean statistics of an array over all MPI ranks, and append it to datasets.
real(kind=r8) function, public	interp1 (x, y, n, xq)
	Linear interpolation from y values defined at x positions to query position xq.
subroutine, public	a3interp (y_in, x_in, nr_in, y_out, x_out, nr_out)
subroutine, public	a3deriv (y_in, x_in, nr_in, dydx_out, x_out, nr_out)
subroutine, public	choose_int (kform, krqpts, pqp, pqw)
subroutine, public	execute_command_line_wrapper (command, status)
	Wrapper for execute_command_line F2008 intrinsic routine.

Function/Subroutine Documentation

a3deriv()

subroutine, public util::a3deriv	(	real(kind=r8), dimension(nr_in), intent(in)	y_in,
		real(kind=r8), dimension(nr_in), intent(in)	x_in,
		integer	nr_in,
		real(kind=r8), dimension(nr_out), intent(out)	dydx_out,
		real(kind=r8), dimension(nr_out), intent(in)	x_out,
		integer	nr_out )

Here is the caller graph for this function:

a3interp()

subroutine, public util::a3interp	(	real(kind=r8), dimension(nr_in), intent(in)	y_in,
		real(kind=r8), dimension(nr_in), intent(in)	x_in,
		integer	nr_in,
		real(kind=r8), dimension(nr_out), intent(out)	y_out,
		real(kind=r8), dimension(nr_out), intent(in)	x_out,
		integer	nr_out )

Here is the caller graph for this function:

append_stat()

subroutine, public util::append_stat	(	integer, intent(in)	fid,
		character(len=*), intent(in)	name,
		integer, dimension(:), intent(in)	array,
		integer, intent(in)	nvp_world,
		integer, intent(in)	me_world )

Compute min, max and mean statistics of an array over all MPI ranks, and append it to datasets.

(only supports 1D integer array, might be extended...)

Author

N. Ohana

Date

11.2017

Parameters

[in]	fid	File identifier
[in]	name	Group name
[in]	array	Diagnosed array
[in]	nvp_world	Total number of MPI tasks
[in]	me_world	MPI rank

Here is the call graph for this function:

Here is the caller graph for this function:

choose_int()

subroutine, public util::choose_int	(	integer, intent(in)	kform,
		integer, intent(out)	krqpts,
		real(kind=r8), dimension(10), intent(out)	pqp,
		real(kind=r8), dimension(10), intent(out)	pqw )

Here is the call graph for this function:

Here is the caller graph for this function:

creatd_stat()

subroutine, public util::creatd_stat	(	integer, intent(in)	fid,
		integer, intent(in)	r,
		integer, dimension(:), intent(in)	d,
		character(len=*), intent(in)	name,
		character(len=*), intent(in)	desc )

Futils wrapper to create 3 datasets, min, max and mean.

Author

N. Ohana

Date

11.2017

Parameters

[in]	fid	File identifier
[in]	r	Number of fixed dimensions
[in]	d	Shape of the r dimensions
[in]	name	Group name
[in]	desc	Group description

Here is the caller graph for this function:

execute_command_line_wrapper()

subroutine, public util::execute_command_line_wrapper	(	character(len=*), intent(in)	command,
		integer, intent(out), optional	status )

Wrapper for execute_command_line F2008 intrinsic routine.

Author

N. Ohana

Date

11.2017

Parameters

[in]	command	Command to be executed
[out]	status	Return status

Here is the caller graph for this function:

gaussj()

subroutine, public util::gaussj	(	real(kind=r8), dimension(np,np), intent(inout)	a,
		integer, intent(in)	n,
		integer, intent(in)	np,
		real(kind=r8), dimension(np,mp), intent(inout)	b,
		integer, intent(in)	m,
		integer, intent(in)	mp )

Here is the call graph for this function:

interp1()

real(kind=r8) function, public util::interp1	(	real(kind=r8), dimension(n), intent(in)	x,
		real(kind=r8), dimension(n), intent(in)	y,
		integer, intent(in)	n,
		real(kind=r8), intent(in)	xq )

Linear interpolation from y values defined at x positions to query position xq.

Note

x array is assumed to be sorted

Author

N. Ohana

Date

03.2019

Parameters

[in]	x	Data abscissa
[in]	y	Data ordinates
[in]	n	Data length
[in]	xq	Query abscissa

Returns

Query ordinate

Here is the caller graph for this function:

log2real()

real(kind=r8) function, public util::log2real

(

logical, intent(in)

lin

)

Here is the call graph for this function:

Here is the caller graph for this function:

mrqcof()

subroutine, public util::mrqcof	(	real(kind=r8), dimension(ndata), intent(in)	x,
		real(kind=r8), dimension(ndata), intent(in)	y,
		real(kind=r8), dimension(ndata), intent(in)	sig,
		integer, intent(in)	ndata,
		real(kind=r8), dimension(ma)	a,
		integer, dimension(ma), intent(in)	ia,
		integer	ma,
		real(kind=r8), dimension(nalp,nalp), intent(inout)	alpha,
		real(kind=r8), dimension(ma), intent(inout)	beta,
		integer, intent(in)	nalp,
		real(kind=r8), intent(inout)	chisq,
		external subroutine(real(kind=r8), intent(in) px, real(kind=r8), dimension(ka), intent(in) pa, real(kind=r8), intent(out) py, real(kind=r8), dimension(ka), intent(out) pdyda, integer, intent(in) ka)	funcs )

putarr_attime_1()

subroutine util::putarr_attime_1 ( integer, intent(in) fresid, character(len=*), intent(in) name, real(kind=r8), dimension(:), intent(in) array, real(kind=r8), intent(in) current_time, integer, intent(in), optional pardim )

private

putarr_attime_2()

subroutine util::putarr_attime_2 ( integer, intent(in) fresid, character(len=*), intent(in) name, real(kind=r8), dimension(:,:), intent(in) array, real(kind=r8), intent(in) current_time, integer, intent(in), optional pardim )

private

putarr_attime_3()

subroutine util::putarr_attime_3 ( integer, intent(in) fresid, character(len=*), intent(in) name, real(kind=r8), dimension(:,:,:), intent(in) array, real(kind=r8), intent(in) current_time, integer, intent(in), optional pardim )

private

putarr_attime_4()

subroutine util::putarr_attime_4 ( integer, intent(in) fresid, character(len=*), intent(in) name, real(kind=r8), dimension(:,:,:,:), intent(in) array, real(kind=r8), intent(in) current_time, integer, intent(in), optional pardim )

private

putarrz_attime_1()

subroutine util::putarrz_attime_1 ( integer, intent(in) fresid, character(len=*), intent(in) name, complex(kind=r8), dimension(:), intent(in) array, real(kind=r8), intent(in) current_time, integer, intent(in), optional pardim )

private

putarrz_attime_2()

subroutine util::putarrz_attime_2 ( integer, intent(in) fresid, character(len=*), intent(in) name, complex(kind=r8), dimension(:,:), intent(in) array, real(kind=r8), intent(in) current_time, integer, intent(in), optional pardim )

private

putarrz_attime_3()

subroutine util::putarrz_attime_3 ( integer, intent(in) fresid, character(len=*), intent(in) name, complex(kind=r8), dimension(:,:,:), intent(in) array, real(kind=r8), intent(in) current_time, integer, intent(in), optional pardim )

private

putarrz_attime_4()

subroutine util::putarrz_attime_4 ( integer, intent(in) fresid, character(len=*), intent(in) name, complex(kind=r8), dimension(:,:,:,:), intent(in) array, real(kind=r8), intent(in) current_time, integer, intent(in), optional pardim )

private

zbrent()

real(kind=r8) function, public util::zbrent	(	external real(kind=r8) function(real(kind=r8), intent(in) x)	func,
		real(kind=r8), intent(in)	x1,
		real(kind=r8), intent(in)	x2,
		real(kind=r8), intent(in)	tol )

Here is the call graph for this function:

Here is the caller graph for this function: