TOMS347_PRB
  Test SORT, which ascending sorts
  an integer vector.
 
TEST01
  SORT ascending sorts an integer vector.
  Here we sort entries II =      1
  through JJ =     20
 
  Unsorted array:
 
       1       4
       2      19
       3      16
       4      11
       5       8
       6       1
       7       5
       8       2
       9       0
      10      12
      11       1
      12       8
      13       8
      14      15
      15      15
      16       0
      17      17
      18       7
      19       1
      20       0
 
  Sorted array:
 
       1       0
       2       0
       3       0
       4       1
       5       1
       6       1
       7       2
       8       4
       9       5
      10       7
      11       8
      12       8
      13       8
      14      11
      15      12
      16      15
      17      15
      18      16
      19      17
      20      19
 
TEST01
  SORT ascending sorts an integer vector.
  Here we sort entries II =      5
  through JJ =     18
 
  Unsorted array:
 
       1       4
       2      19
       3      16
       4      11
       5       8
       6       1
       7       5
       8       2
       9       0
      10      12
      11       1
      12       8
      13       8
      14      15
      15      15
      16       0
      17      17
      18       7
      19       1
      20       0
 
  Sorted array:
 
       1       4
       2      19
       3      16
       4      11
       5       0
       6       0
       7       1
       8       1
       9       2
      10       5
      11       7
      12       8
      13       8
      14       8
      15      12
      16      15
      17      15
      18      17
      19       1
      20       0
 
TOMS347_PRB
  Normal end of execution.