diff options
| author | Tor Aamodt <[email protected]> | 2010-10-01 08:55:28 -0800 |
|---|---|---|
| committer | Tor Aamodt <[email protected]> | 2010-10-01 08:55:28 -0800 |
| commit | 11b308e7363e937966b035b4891db32b4eece3bf (patch) | |
| tree | 50ca4c9ad6f163ac4acb2bf505e64dfebed66947 /benchmarks/CUDA/DG/3rdParty/ParMetis-3.1/METISLib/fortran.c | |
| parent | bb820c116764d7a1b8e071137d32b74e7f34dd2f (diff) | |
integrating recent changes from fermi-test into fermi
(i'll use "fermi" for more disruptive changes to the pipeline model such
as updating the MSHRs and getting rid of the warp tracker, ripping out DWF, etc...)
[git-p4: depot-paths = "//depot/gpgpu_sim_research/fermi/distribution/": change = 7805]
Diffstat (limited to 'benchmarks/CUDA/DG/3rdParty/ParMetis-3.1/METISLib/fortran.c')
| -rw-r--r-- | benchmarks/CUDA/DG/3rdParty/ParMetis-3.1/METISLib/fortran.c | 141 |
1 files changed, 0 insertions, 141 deletions
diff --git a/benchmarks/CUDA/DG/3rdParty/ParMetis-3.1/METISLib/fortran.c b/benchmarks/CUDA/DG/3rdParty/ParMetis-3.1/METISLib/fortran.c deleted file mode 100644 index 46ebefd..0000000 --- a/benchmarks/CUDA/DG/3rdParty/ParMetis-3.1/METISLib/fortran.c +++ /dev/null @@ -1,141 +0,0 @@ -/* - * Copyright 1997, Regents of the University of Minnesota - * - * fortran.c - * - * This file contains code for the fortran to C interface - * - * Started 8/19/97 - * George - * - * $Id: fortran.c,v 1.1 2003/07/16 15:55:02 karypis Exp $ - * - */ - -#include <metis.h> - - -/************************************************************************* -* This function changes the numbering to start from 0 instead of 1 -**************************************************************************/ -void Change2CNumbering(int nvtxs, idxtype *xadj, idxtype *adjncy) -{ - int i, nedges; - - for (i=0; i<=nvtxs; i++) - xadj[i]--; - - nedges = xadj[nvtxs]; - for (i=0; i<nedges; i++) - adjncy[i]--; -} - -/************************************************************************* -* This function changes the numbering to start from 1 instead of 0 -**************************************************************************/ -void Change2FNumbering(int nvtxs, idxtype *xadj, idxtype *adjncy, idxtype *vector) -{ - int i, nedges; - - for (i=0; i<nvtxs; i++) - vector[i]++; - - nedges = xadj[nvtxs]; - for (i=0; i<nedges; i++) - adjncy[i]++; - - for (i=0; i<=nvtxs; i++) - xadj[i]++; -} - -/************************************************************************* -* This function changes the numbering to start from 1 instead of 0 -**************************************************************************/ -void Change2FNumbering2(int nvtxs, idxtype *xadj, idxtype *adjncy) -{ - int i, nedges; - - nedges = xadj[nvtxs]; - for (i=0; i<nedges; i++) - adjncy[i]++; - - for (i=0; i<=nvtxs; i++) - xadj[i]++; -} - - - -/************************************************************************* -* This function changes the numbering to start from 1 instead of 0 -**************************************************************************/ -void Change2FNumberingOrder(int nvtxs, idxtype *xadj, idxtype *adjncy, idxtype *v1, idxtype *v2) -{ - int i, nedges; - - for (i=0; i<nvtxs; i++) { - v1[i]++; - v2[i]++; - } - - nedges = xadj[nvtxs]; - for (i=0; i<nedges; i++) - adjncy[i]++; - - for (i=0; i<=nvtxs; i++) - xadj[i]++; - -} - - - -/************************************************************************* -* This function changes the numbering to start from 0 instead of 1 -**************************************************************************/ -void ChangeMesh2CNumbering(int n, idxtype *mesh) -{ - int i; - - for (i=0; i<n; i++) - mesh[i]--; - -} - - -/************************************************************************* -* This function changes the numbering to start from 1 instead of 0 -**************************************************************************/ -void ChangeMesh2FNumbering(int n, idxtype *mesh, int nvtxs, idxtype *xadj, idxtype *adjncy) -{ - int i, nedges; - - for (i=0; i<n; i++) - mesh[i]++; - - nedges = xadj[nvtxs]; - for (i=0; i<nedges; i++) - adjncy[i]++; - - for (i=0; i<=nvtxs; i++) - xadj[i]++; - -} - - -/************************************************************************* -* This function changes the numbering to start from 1 instead of 0 -**************************************************************************/ -void ChangeMesh2FNumbering2(int n, idxtype *mesh, int ne, int nn, idxtype *epart, idxtype *npart) -{ - int i, nedges; - - for (i=0; i<n; i++) - mesh[i]++; - - for (i=0; i<ne; i++) - epart[i]++; - - for (i=0; i<nn; i++) - npart[i]++; - -} - |
