15 September 2021   3:23:20.018 PM
 
SORT_RC_TEST
  FORTRAN90 version
  Test the SORT_RC library.
 
SORT_RC_TEST
  SORT_RC sorts objects externally.
  This function relies on the use of persistent
  data stored internally.
 
  Unsorted array:
 
         1:             5
         2:            20
         3:            17
         4:            12
         5:             9
         6:             2
         7:             6
         8:             3
         9:             1
        10:            13
        11:             2
        12:             9
        13:             9
        14:            16
        15:            16
        16:             1
        17:            18
        18:             8
        19:             2
        20:             1
 
  Sorted array:
 
         1:             1
         2:             1
         3:             1
         4:             2
         5:             2
         6:             2
         7:             3
         8:             5
         9:             6
        10:             8
        11:             9
        12:             9
        13:             9
        14:            12
        15:            13
        16:            16
        17:            16
        18:            17
        19:            18
        20:            20
 
SORT_SAFE_RC_TEST
  SORT_SAFE_RC sorts objects externally.
  This version of the algorithm does not rely on
  internally saved or "persistent" or "static" memory.
 
  Unsorted array:
 
         1:             5
         2:            20
         3:            17
         4:            12
         5:             9
         6:             2
         7:             6
         8:             3
         9:             1
        10:            13
        11:             2
        12:             9
        13:             9
        14:            16
        15:            16
        16:             1
        17:            18
        18:             8
        19:             2
        20:             1
 
  Sorted array:
 
         1:             1
         2:             1
         3:             1
         4:             2
         5:             2
         6:             2
         7:             3
         8:             5
         9:             6
        10:             8
        11:             9
        12:             9
        13:             9
        14:            12
        15:            13
        16:            16
        17:            16
        18:            17
        19:            18
        20:            20
 
SORT_RC_TEST
  Normal end of execution.

15 September 2021   3:23:20.018 PM