tsp_att48_order <- function ( )

#*****************************************************************************80
#
## tsp_att48_order() returns the location data for the AT&T 48 city TSP challenge.
#
#  Licensing:
#
#    This code is distributed under the MIT license.
#
#  Modified:
#
#    18 June 2026
#
#  Author:
#
#    John Burkardt
#
#  Output:
#
#    integer att48_order[48]: the 1-based optimal tour order.
#
{
  att48_order = c (
     1,  8, 38, 31, 44, 18,  7, 28,  6, 37, 
    19, 27, 17, 43, 30, 36, 46, 33, 20, 47, 
    21, 32, 39, 48,  5, 42, 24, 10, 45, 35, 
     4, 26,  2, 29, 34, 41, 16, 22,  3, 23, 
    14, 25, 13, 11, 12, 15, 40,  9 )

  return ( att48_order )
}