length.h

Lin-Kernighan heuristic for the TSP and minimum weight perfect matching

/*4:*/
#line 198 "./length.w"

#line 199 "./length.w"
#if !defined(_LENGTH_H_)
#define _LENGTH_H_

#if defined(LENGTH_USE_RCS_ID)
static const char*length_rcs_id= "$Id: length.w,v 1.124 1998/08/23 21:38:50 neto Exp neto $";
#endif

#if defined(LENGTH_LONG_LONG)

typedef long long length_t;
# define LENGTH_TYPE_STRING "long long"
# define LENGTH_TYPE_IS_EXACT (1)
# define LENGTH_TYPE_IS_INTEGRAL (1)
# define INFINITY \
 ((( ((long long)0x7FFF) << 16   \
     |((long long)0xFFFF)) << 16 \
     |((long long)0xFFFF)) << 16 \
     |((long long)0xFFFF))  

# define length_t_pcast(Y) (long)((Y)>>32),(unsigned long)((Y)&0xffffffff)
# define length_t_spec "(0000%ld*2^32+%ld)"
# define length_t_native_pcast(Y) (Y)
# define length_t_native_spec "%qd"



# if WORDS_BIGENDIAN
#  define length_t_native_incast(PTR) ((int *)(PTR)),((int *)(((char *)(PTR))+sizeof(int))),
# else
#  define length_t_native_incast(PTR) ((int *)(((char *)(PTR))+sizeof(int))),((int *)(PTR))
# endif
# define length_t_inspec "(0000%ld*2^32+%ld)"
# define length_t_incount (2)
# define length_t_native_incast(PTR) (PTR)
# define length_t_native_inspec "%qd"
# define length_t_native_incount (1)


#else 
#if defined(LENGTH_DOUBLE)

typedef double length_t;
# define LENGTH_TYPE_STRING "double"
# define LENGTH_TYPE_IS_EXACT (0)
# define LENGTH_TYPE_IS_INTEGRAL (0)
#   include <math.h>
#   include <float.h>
#   define LENGTH_MACHINE_EPSILON  DBL_EPSILON
# define INFINITY DBL_MAX
# define length_t_pcast(Y) ((double)(Y))
# define length_t_spec "(0*2^32+%f)"
# define length_t_native_pcast(Y) (Y)
# define length_t_native_spec "%0.15f"

# define length_t_incast(PTR) (PTR)
# define length_t_inspec "%lf"
# define length_t_incount (1)
# define length_t_native_incast(PTR) (PTR)
# define length_t_native_inspec "%lf"
# define length_t_native_incount (1)

#else 
#if defined(LENGTH_FLOAT)

typedef float length_t;
# define LENGTH_TYPE_STRING "float"
# define LENGTH_TYPE_IS_EXACT (0)
# define LENGTH_TYPE_IS_INTEGRAL (0)
#   include <math.h>
#   include <float.h>
#   define LENGTH_MACHINE_EPSILON  FLT_EPSILON
# define INFINITY FLT_MAX
# define length_t_pcast(Y) ((double)(Y))
# define length_t_spec "(000*2^32+%.3f)"
# define length_t_native_pcast(Y) (Y)
# define length_t_native_spec "%.6f"

# define length_t_incast(PTR) (PTR)
# define length_t_inspec "%f"
# define length_t_incount (1)
# define length_t_native_incast(PTR) (PTR)
# define length_t_native_inspec "%f"
# define length_t_native_incount (1)
#else 

# define LENGTH_TYPE_STRING "int"
typedef int length_t;
# define LENGTH_TYPE_IS_EXACT (1)
# define LENGTH_TYPE_IS_INTEGRAL (1)
# define INFINITY (0x7FFFFFFF)
# define length_t_pcast(Y) (Y)
# define length_t_spec "(00*2^32+%d)"
# define length_t_native_pcast(Y) (Y)
# define length_t_native_spec "%d"

# define length_t_incast(PTR) (PTR)
# define length_t_inspec "%d"
# define length_t_incount (1)
# define length_t_native_incast(PTR) (PTR)
# define length_t_native_inspec "%d"
# define length_t_native_incount (1)
#endif 
#endif 
#endif 

#endif 

/*:4*/