← Back to branch summary

~ubuntu-branches/ubuntu/trusty/scotch/trusty

« back to all changes in this revision

Viewing changes to src/scotch/amk_fft2.c

  • Committer: Bazaar Package Importer
  • Author(s): "Adam C. Powell, IV", Christophe Trophime, Adam C. Powell, IV
  • Date: 2010-12-29 13:07:19 UTC
  • mfrom: (1.1.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20101229130719-jwalolw5d6av6wqx
Tags: 5.1.11.dfsg-1
[Christophe Trophime]
* New upstream release
* Forward-ported patches to version 5.1.10b.
* Install scotch headers properly.
* Fix chrpath commands in debian/rules.
* Fix (pt)scotch library install paths.
* Fix lintian errors and warnings.

[Adam C. Powell, IV]
* Forward-ported patches to version 5.1.11.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/scotch/amk_fft2.c
1
 
/* Copyright 2004,2007,2008 ENSEIRB, INRIA & CNRS
 
1
/* Copyright 2004,2007,2008,2010 ENSEIRB, INRIA & CNRS
2
2
**
3
3
** This file is part of the Scotch software package for static mapping,
4
4
** graph partitioning and sparse matrix ordering.
52
52
/**                                 to   : 03 feb 2000     **/
53
53
/**                # Version 5.0  : from : 23 dec 2007     **/
54
54
/**                                 to   : 16 mar 2008     **/
 
55
/**                # Version 5.1  : from : 01 jul 2010     **/
 
56
/**                                 to   : 15 aug 2010     **/
55
57
/**                                                        **/
56
58
/************************************************************/
57
59
 
140
142
          usagePrint (stdout, C_usageList);
141
143
          return     (0);
142
144
        case 'V' :
143
 
          fprintf (stderr, "amk_fft2, version %s - F. Pellegrini\n", SCOTCH_VERSION);
144
 
          fprintf (stderr, "Copyright 2004,2007,2008 ENSEIRB, INRIA & CNRS, France\n");
 
145
          fprintf (stderr, "amk_fft2, version " SCOTCH_VERSION_STRING "\n");
 
146
          fprintf (stderr, "Copyright 2004,2007,2008,2010 ENSEIRB, INRIA & CNRS, France\n");
145
147
          fprintf (stderr, "This software is libre/free software under CeCILL-C -- see the user's manual for more information\n");
146
148
          return  (0);
147
149
        default :
157
159
  fmax = (1 << (fdim * 2 - 1)) - 1;               /* Compute maximum terminal number */
158
160
  fmsk = (1 << fdim) - 1;                         /* Get maximum position number     */
159
161
 
160
 
  fprintf (C_filepntrarcout, "deco\n0\n%ld\t%ld\n", /* Print file header              */
161
 
           (long) fnbr,                           /* Print number of terminal domains */
162
 
           (long) fmax);                          /* Print the biggest terminal value */
 
162
  fprintf (C_filepntrarcout, "deco\n0\n" SCOTCH_NUMSTRING "\t" SCOTCH_NUMSTRING "\n", /* Print file header */
 
163
           (SCOTCH_Num) fnbr,                     /* Print number of terminal domains */
 
164
           (SCOTCH_Num) fmax);                    /* Print the biggest terminal value */
163
165
 
164
166
  for (v.lvl = 0; v.lvl <= fdim; v.lvl ++) {      /* For all vertices */
165
167
    for (v.pos = 0; v.pos <= fmsk; v.pos ++) {
217
219
      }
218
220
 
219
221
      if (v.lvl + v.pos > 0) {                    /* Print the distance triangular map line */
220
 
        fprintf (C_filepntrarcout, "%ld",
221
 
                 (long) C_distaTab[0].dist);
 
222
        fprintf (C_filepntrarcout, SCOTCH_NUMSTRING,
 
223
                 (SCOTCH_Num) C_distaTab[0].dist);
222
224
        for (i = 1; i < (v.lvl << fdim) + v.pos; i ++)
223
 
          fprintf (C_filepntrarcout, " %ld",
224
 
                   (long) C_distaTab[i].dist);
 
225
          fprintf (C_filepntrarcout, " " SCOTCH_NUMSTRING,
 
226
                   (SCOTCH_Num) C_distaTab[i].dist);
225
227
        fprintf (C_filepntrarcout, "\n");
226
228
      }
227
229
    }