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]++;
-
-}
-