set_to_scalar Interface

public interface set_to_scalar

Efficiently set arrays to zero

Contents

Module Procedures

set_to_scalar_1D set_to_scalar_2D set_to_scalar_3D set_to_scalar_4D

Module Procedures

private subroutine set_to_scalar_1D(ni, array, value) bind(C, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ni
real(kind=wp),	intent(out),		dimension(ni)	::	array
real(kind=wp),	intent(in)			::	value

private subroutine set_to_scalar_2D(ni, nj, array, value) bind(C, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ni
integer,	intent(in)			::	nj
real(kind=wp),	intent(out),		dimension(ni, nj)	::	array
real(kind=wp),	intent(in)			::	value

private subroutine set_to_scalar_3D(ni, nj, nk, array, value) bind(C, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ni
integer,	intent(in)			::	nj
integer,	intent(in)			::	nk
real(kind=wp),	intent(out),		dimension(ni, nj, nk)	::	array
real(kind=wp),	intent(in)			::	value

private subroutine set_to_scalar_4D(ni, nj, nk, nl, array, value) bind(C, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ni
integer,	intent(in)			::	nj
integer,	intent(in)			::	nk
integer,	intent(in)			::	nl
real(kind=wp),	intent(out),		dimension(ni, nj, nk, nl)	::	array
real(kind=wp),	intent(in)			::	value