sort Subroutine

subroutine sort(a)

Arguments

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

Contents

Variables

b i j mask

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=8),	public		::	b(size(a))
integer,	public		::	i
integer,	public		::	j(size(a))
logical,	public		::	mask(size(a))