Abstract class to represent a generic sort algoritm
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  | 
        
type, abstract :: sort_base !! Abstract class to represent a generic sort algoritm contains ! METHODS ! * sort procedure (sort_procedure), deferred, pass :: sort end type sort_base