6 October 2025   6:36:35.550 PM
 
sort_rc_test():
  Fortran90 version
  Test sort_rc().
 
SORT_RC_TEST()
  SORT_RC() sorts objects externally.
  This function relies on the use of persistent
  data stored internally.
 
  Unsorted array:
 
         1:            18
         2:             3
         3:             5
         4:             6
         5:            15
         6:            15
         7:            17
         8:            17
         9:             7
        10:             1
        11:            18
        12:             6
        13:            15
        14:             8
        15:             6
        16:            16
        17:            11
        18:            12
        19:            16
        20:            18
 
  Sorted array:
 
         1:             1
         2:             3
         3:             5
         4:             6
         5:             6
         6:             6
         7:             7
         8:             8
         9:            11
        10:            12
        11:            15
        12:            15
        13:            15
        14:            16
        15:            16
        16:            17
        17:            17
        18:            18
        19:            18
        20:            18
 
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:            10
         2:             2
         3:            18
         4:             2
         5:            10
         6:            14
         7:             4
         8:            19
         9:            13
        10:            11
        11:            12
        12:            13
        13:             4
        14:             1
        15:             5
        16:            12
        17:             8
        18:             5
        19:            18
        20:            10
 
  Sorted array:
 
         1:             1
         2:             2
         3:             2
         4:             4
         5:             4
         6:             5
         7:             5
         8:             8
         9:            10
        10:            10
        11:            10
        12:            11
        13:            12
        14:            12
        15:            13
        16:            13
        17:            14
        18:            18
        19:            18
        20:            19
 
sort_rc_test():
  Normal end of execution.

 6 October 2025   6:36:35.550 PM