9 May 2025   9:00:58.694 PM
 
RECURSIVE_SUB_TEST():
  FORTRAN90 version.
 
  Demonstrate recursive subroutine definitions.
 
  We sort a vector by recursion.
  Our recursive step finds the largest element and moves
  it to the end.
 
  Unsorted vector:
 
         1             8
         2             4
         3             8
         4             1
         5             3
         6            10
         7             2
         8             1
         9             5
        10             5
 
  Sorted vector:
 
         1             1
         2             1
         3             2
         4             3
         5             4
         6             5
         7             5
         8             8
         9             8
        10            10
 
RECURSIVE_SUB_TEST:
  Normal end of execution.
 
 9 May 2025   9:00:58.694 PM