custom_findloc Interface

public interface custom_findloc

Contents

Module Procedures

custom_findloc_integer_int32 custom_findloc_integer_int64 custom_findloc_real_sp custom_findloc_real_dp custom_findloc_complex_sp custom_findloc_complex_dp custom_findloc_logical_

Module Procedures

private pure function custom_findloc_integer_int32(arr, val, back) result(loc)

Custom implementation of the findloc intrinsic (with somewhat reduced functionality) as it requires fortran2008 support and is thus not available for some relevant compilers

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	arr(:)
integer(kind=int32),	intent(in)			::	val
logical,	intent(in),	optional		::	back

Return Value integer

private pure function custom_findloc_integer_int64(arr, val, back) result(loc)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int64),	intent(in)			::	arr(:)
integer(kind=int64),	intent(in)			::	val
logical,	intent(in),	optional		::	back

Return Value integer

private pure function custom_findloc_real_sp(arr, val, back) result(loc)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=sp),	intent(in)			::	arr(:)
real(kind=sp),	intent(in)			::	val
logical,	intent(in),	optional		::	back

Return Value integer

private pure function custom_findloc_real_dp(arr, val, back) result(loc)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	arr(:)
real(kind=dp),	intent(in)			::	val
logical,	intent(in),	optional		::	back

Return Value integer

private pure function custom_findloc_complex_sp(arr, val, back) result(loc)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=sp),	intent(in)			::	arr(:)
complex(kind=sp),	intent(in)			::	val
logical,	intent(in),	optional		::	back

Return Value integer

private pure function custom_findloc_complex_dp(arr, val, back) result(loc)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	arr(:)
complex(kind=dp),	intent(in)			::	val
logical,	intent(in),	optional		::	back

Return Value integer

private pure function custom_findloc_logical_(arr, val, back) result(loc)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	arr(:)
logical,	intent(in)			::	val
logical,	intent(in),	optional		::	back

Return Value integer