SF_MISC Module

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Interfaces

public interface uniinv

private subroutine d_uniinv(xdont, igoest)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension (:)	::	xdont
integer,	intent(out),		dimension (:)	::	igoest

private subroutine r_uniinv(xdont, igoest)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		dimension (:)	::	xdont
integer,	intent(out),		dimension (:)	::	igoest

private subroutine i_uniinv(xdont, igoest)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension (:)	::	xdont
integer,	intent(out),		dimension (:)	::	igoest

public interface unista

private subroutine d_unista(xdont, nuni, mask)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(inout),		dimension (:)	::	xdont
integer,	intent(out)			::	nuni
logical,		optional,	dimension (size(xdont))	::	mask

private subroutine r_unista(xdont, nuni, mask)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(inout),		dimension (:)	::	xdont
integer,	intent(out)			::	nuni
logical,		optional,	dimension (size(xdont))	::	mask

private subroutine i_unista(xdont, nuni, mask)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension (:)	::	xdont
integer,	intent(out)			::	nuni
logical,		optional,	dimension (size(xdont))	::	mask

public interface uniq_array

private subroutine i_uniq(AIN, AOUT, MASK)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:)	::	AIN
integer,	intent(out),		dimension(:), allocatable	::	AOUT
logical,	intent(out),	optional,	dimension(:), allocatable	::	MASK

private subroutine d_uniq(AIN, AOUT, MASK)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(inout),		dimension(:)	::	AIN
real(kind=8),	intent(out),		dimension(:), allocatable	::	AOUT
logical,	intent(out),	optional,	dimension(:), allocatable	::	MASK

public interface uniq

private function f_i_uniq(AIN, MASK) result(AOUT)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:)	::	AIN
logical,	intent(out),	optional,	dimension(:), allocatable	::	MASK

Return Value integer, dimension(:), allocatable

private function f_d_uniq(AIN, MASK) result(AOUT)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(inout),		dimension(:)	::	AIN
logical,	intent(out),	optional,	dimension(:), allocatable	::	MASK

Return Value real(kind=8), dimension(:), allocatable

public interface assert_shape

private subroutine i_assert_shape_N1(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine i_assert_shape_N2(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine i_assert_shape_N3(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine i_assert_shape_N4(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine i_assert_shape_N5(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:,:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine i_assert_shape_N6(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:,:,:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine i_assert_shape_N7(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:,:,:,:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine d_assert_shape_N1(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine d_assert_shape_N2(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine d_assert_shape_N3(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine d_assert_shape_N4(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine d_assert_shape_N5(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:,:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine d_assert_shape_N6(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:,:,:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine d_assert_shape_N7(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:,:,:,:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine z_assert_shape_N1(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in),		dimension(:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine z_assert_shape_N2(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in),		dimension(:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine z_assert_shape_N3(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in),		dimension(:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine z_assert_shape_N4(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in),		dimension(:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine z_assert_shape_N5(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in),		dimension(:,:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine z_assert_shape_N6(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in),		dimension(:,:,:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

private subroutine z_assert_shape_N7(A, Ndim, routine, matname)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in),		dimension(:,:,:,:,:,:,:)	::	A
integer,	intent(in),		dimension(:)	::	Ndim
character(len=*),		optional		::	routine
character(len=*),		optional		::	matname

public interface reorder_array

private subroutine I_reshuffle(Ain, Index)

Arguments

Type	Intent	Optional	Attributes		Name
integer,			dimension(:)	::	Ain
integer,			dimension(size(Ain))	::	Index

private subroutine D_reshuffle(Ain, Index)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),			dimension(:)	::	Ain
integer,			dimension(size(Ain))	::	Index

private subroutine Z_reshuffle(Ain, Index)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),			dimension(:)	::	Ain
integer,			dimension(size(Ain))	::	Index

private subroutine L_reshuffle(Ain, Index)

Arguments

Type	Intent	Optional	Attributes		Name
logical,			dimension(:)	::	Ain
integer,			dimension(size(Ain))	::	Index

public interface reorder

private function f_I_reshuffle(Ain, Index) result(Aout)

Arguments

Type	Intent	Optional	Attributes		Name
integer,			dimension(:)	::	Ain
integer,			dimension(size(Ain))	::	Index

Return Value integer, dimension(size(Ain))

private function f_D_reshuffle(Ain, Index) result(Aout)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),			dimension(:)	::	Ain
integer,			dimension(size(Ain))	::	Index

Return Value real(kind=8), dimension(size(Ain))

private function f_Z_reshuffle(Ain, Index) result(Aout)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),			dimension(:)	::	Ain
integer,			dimension(size(Ain))	::	Index

Return Value complex(kind=8), dimension(size(Ain))

private function f_L_reshuffle(Ain, Index) result(Aout)

Arguments

Type	Intent	Optional	Attributes		Name
logical,			dimension(:)	::	Ain
integer,			dimension(size(Ain))	::	Index

Return Value logical, dimension(size(Ain))

public interface sort_insertion

private subroutine sort_insertion_i(a, indx_a)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:)	::	a
integer,	intent(inout),		dimension(size(a))	::	indx_a

private subroutine sort_insertion_d(a, indx_a)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(inout),		dimension(:)	::	a
integer,	intent(inout),		dimension(size(a))	::	indx_a

public interface sort_quicksort

private subroutine sort_quicksort_i(a, indx)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:)	::	a
integer,	intent(inout),	optional,	dimension(size(a))	::	indx

private subroutine sort_quicksort_d(a, indx)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(inout),		dimension(:)	::	a
integer,	intent(inout),	optional,	dimension(size(a))	::	indx

public interface sort

private subroutine sort_quicksort_i(a, indx)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:)	::	a
integer,	intent(inout),	optional,	dimension(size(a))	::	indx

private subroutine sort_quicksort_d(a, indx)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(inout),		dimension(:)	::	a
integer,	intent(inout),	optional,	dimension(size(a))	::	indx

public interface sort_array

private subroutine sort_quicksort_i(a, indx)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:)	::	a
integer,	intent(inout),	optional,	dimension(size(a))	::	indx

private subroutine sort_quicksort_d(a, indx)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(inout),		dimension(:)	::	a
integer,	intent(inout),	optional,	dimension(size(a))	::	indx

public interface sort_qsort

private subroutine sort_array_i(a, indx_a)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout),		dimension(:)	::	a
integer,	intent(inout),		dimension(size(a))	::	indx_a

private subroutine sort_array_d(a, indx_a)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(inout),		dimension(:)	::	a
integer,	intent(inout),		dimension(size(a))	::	indx_a