9 May 2025   9:32:12.549 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:            20
         3:            19
         4:             3
         5:            15
         6:            16
         7:            20
         8:             6
         9:             8
        10:            19
        11:            19
        12:            16
        13:            19
        14:            11
        15:             9
        16:            20
        17:             6
        18:             5
        19:            15
        20:            10
 
  Sorted array:
 
         1:             3
         2:             5
         3:             6
         4:             6
         5:             8
         6:             9
         7:            10
         8:            11
         9:            15
        10:            15
        11:            16
        12:            16
        13:            18
        14:            19
        15:            19
        16:            19
        17:            19
        18:            20
        19:            20
        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:            14
         2:             1
         3:             8
         4:            12
         5:            18
         6:            19
         7:             2
         8:             2
         9:             5
        10:            19
        11:            12
        12:            20
        13:             4
        14:             4
        15:             1
        16:             8
        17:            18
        18:             8
        19:            18
        20:             5
 
  Sorted array:
 
         1:             1
         2:             1
         3:             2
         4:             2
         5:             4
         6:             4
         7:             5
         8:             5
         9:             8
        10:             8
        11:             8
        12:            12
        13:            12
        14:            14
        15:            18
        16:            18
        17:            18
        18:            19
        19:            19
        20:            20
 
SORT_RC_TEST
  Normal end of execution.

 9 May 2025   9:32:12.549 PM