INTEGER max_cols,max_pairs,max_cities,
     &max_level,max_bad_flip,max_verticies,max_edges,max_branch
      REAL small_number,bignum
      LOGICAL one,zero
      PARAMETER (max_cities=1008)
      PARAMETER (max_cols=15000,max_pairs=1000000)
      PARAMETER (one=.TRUE.,zero=.FALSE.)
      PARAMETER (small_number=0.001)
      PARAMETER (bignum=1000000)