Subroutine to sort an array import sort_base
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(sort_base), | intent(inout) | :: | my_sort |
my_sort: A sort_base object |
||
real(kind=wp), | intent(inout), | dimension(:) | :: | list |
list: A real vector |
|
integer, | intent(inout), | dimension(:) | :: | order |
order: An integer vector |
Abstract class to represent a generic sort algoritm
procedure(sort_procedure), public, deferred, pass :: sort |