← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/libscotch/library_graph_order_f.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/libscotch/library_graph_order_f.c
46
46
/**                # Version 5.0  : from : 04 aug 2007     **/
47
47
/**                                 to     31 may 2008     **/
48
48
/**                # Version 5.1  : from : 27 mar 2010     **/
49
 
/**                                 to     29 mar 2010     **/
 
49
/**                                 to     25 jul 2010     **/
50
50
/**                                                        **/
51
51
/************************************************************/
52
52
 
67
67
/*                                    */
68
68
/**************************************/
69
69
 
70
 
FORTRAN (                                         \
71
 
SCOTCHFSTRATGRAPHORDER, scotchfstratgraphorder, ( \
72
 
SCOTCH_Strat * const        stratptr,             \
73
 
const char * const          string,               \
74
 
int * const                 revaptr,              \
75
 
const int                   strnbr),              \
76
 
(stratptr, string, revaptr, strnbr))
77
 
{
78
 
  char * restrict     strtab;                     /* Pointer to null-terminated string */
79
 
 
80
 
  if ((strtab = (char *) memAlloc (strnbr + 1)) == NULL) { /* Allocate temporary space */
81
 
    errorPrint ("SCOTCHFSTRATGRAPHORDER: out of memory (1)");
82
 
    *revaptr = 1;
83
 
  }
84
 
  memCpy (strtab, string, strnbr);                /* Copy string contents */
85
 
  strtab[strnbr] = '\0';                          /* Terminate string     */
86
 
 
87
 
  *revaptr = SCOTCH_stratGraphOrder (stratptr, strtab); /* Call original routine */
88
 
 
89
 
  memFree (strtab);                               /* Prevent compiler warnings */
90
 
}
91
 
 
92
70
/*
93
71
**
94
72
*/
236
214
 
237
215
FORTRAN (                                             \
238
216
SCOTCHFGRAPHORDERCOMPUTE, scotchfgraphordercompute, ( \
239
 
const SCOTCH_Graph * const  grafptr,                  \
 
217
SCOTCH_Graph * const        grafptr,                  \
240
218
SCOTCH_Ordering * const     ordeptr,                  \
241
219
SCOTCH_Strat * const        stratptr,                 \
242
220
int * const                 revaptr),                 \
251
229
 
252
230
FORTRAN (                                                     \
253
231
SCOTCHFGRAPHORDERCOMPUTELIST, scotchfgraphordercomputelist, ( \
254
 
const SCOTCH_Graph * const  grafptr,                          \
 
232
SCOTCH_Graph * const        grafptr,                          \
255
233
SCOTCH_Ordering * const     ordeptr,                          \
256
234
const SCOTCH_Num *          listptr,                          \
257
235
const SCOTCH_Num * const    listtab,                          \
268
246
 
269
247
FORTRAN (                                       \
270
248
SCOTCHFGRAPHORDER, scotchfgraphorder, (         \
271
 
const SCOTCH_Graph * const  grafptr,            \
 
249
SCOTCH_Graph * const        grafptr,            \
272
250
SCOTCH_Strat * const        stratptr,           \
273
251
SCOTCH_Num * const          permtab,            \
274
252
SCOTCH_Num * const          peritab,            \
288
266
 
289
267
FORTRAN (                                       \
290
268
SCOTCHFGRAPHORDERLIST, scotchfgraphorderlist, ( \
291
 
const SCOTCH_Graph * const  grafptr,            \
 
269
SCOTCH_Graph * const        grafptr,            \
292
270
const SCOTCH_Num * const    listptr,            \
293
271
const SCOTCH_Num * const    listtab,            \
294
272
SCOTCH_Strat * const        stratptr,           \
317
295
{
318
296
  *revaptr = SCOTCH_graphOrderCheck (grafptr, ordeptr);
319
297
}
 
298
 
 
299
/*
 
300
**
 
301
*/
 
302
 
 
303
FORTRAN (                                         \
 
304
SCOTCHFSTRATGRAPHORDER, scotchfstratgraphorder, ( \
 
305
SCOTCH_Strat * const        stratptr,             \
 
306
const char * const          string,               \
 
307
int * const                 revaptr,              \
 
308
const int                   strnbr),              \
 
309
(stratptr, string, revaptr, strnbr))
 
310
{
 
311
  char * restrict     strtab;                     /* Pointer to null-terminated string */
 
312
 
 
313
  if ((strtab = (char *) memAlloc (strnbr + 1)) == NULL) { /* Allocate temporary space */
 
314
    errorPrint ("SCOTCHFSTRATGRAPHORDER: out of memory (1)");
 
315
    *revaptr = 1;
 
316
  }
 
317
  memCpy (strtab, string, strnbr);                /* Copy string contents */
 
318
  strtab[strnbr] = '\0';                          /* Terminate string     */
 
319
 
 
320
  *revaptr = SCOTCH_stratGraphOrder (stratptr, strtab); /* Call original routine */
 
321
 
 
322
  memFree (strtab);                               /* Prevent compiler warnings */
 
323
}
 
324
 
 
325
/*
 
326
**
 
327
*/
 
328
 
 
329
FORTRAN (                                                   \
 
330
SCOTCHFSTRATGRAPHORDERBUILD, scotchfstratgraphorderbuild, ( \
 
331
SCOTCH_Strat * const        stratptr,                       \
 
332
const SCOTCH_Num * const    flagval,                        \
 
333
const double * const        balrat,                         \
 
334
int * const                 revaptr),                       \
 
335
(stratptr, flagval, balrat, revaptr))
 
336
{
 
337
  *revaptr = SCOTCH_stratGraphOrderBuild (stratptr, *flagval, *balrat);
 
338
}