#!/usr/bin/env python def r8_unswap3 ( x, y, z ): #*****************************************************************************80 # ## R8_UNSWAP3 unswaps three R8's. # # Example: # # Input: # # X = 2, Y = 3, Z = 1 # # Output: # # X = 1, Y = 2, Z = 3 # # Licensing: # # This code is distributed under the GNU LGPL license. # # Modified: # # 04 June 2013 # # Author: # # John Burkardt # # Parameters: # # Input, real X, Y, Z, three values to be swapped. # # Output, real X, Y, Z, the swapped values. # w = z z = y y = x x = w return x, y, z