zhyang-dev/openfoam
1
0
Fork 0
mirror of https://develop.openfoam.com/Development/openfoam.git synced 2025-11-28 03:28:01 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Creation of OpenFOAM-dev repository 15/04/2008

Browse Source
This commit is contained in:
OpenFOAM-admin
2008-04-15 18:56:58 +01:00
commit 3170c7c0c9
9896 changed files with 4016171 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

158
applications/utilities/parallelProcessing/decompositionMethods/metis-5.0pre2/programs/mesh2dual.c Normal file
View File

@ -0,0 +1,158 @@
/*
* Copyright 1997, Regents of the University of Minnesota
*
* mesh2dual.c
*
* This file reads in the element node connectivity array of a mesh and writes
* out its dual in the format suitable for Metis.
*
* Started 9/29/97
* George
*
* $Id: mesh2dual.c,v 1.2 2002/08/10 06:02:53 karypis Exp $
*
*/
#include <metisbin.h>
/*************************************************************************
* Let the game begin
**************************************************************************/
int main(int argc, char *argv[])
{
idxtype i, j, ne, nn, etype, mtype, cnt, numflag=0;
idxtype *elmnts, *xadj, *adjncy, *metype;
idxtype *conmat, *elms, *weights;
double IOTmr, DUALTmr;
char fileout[256], etypestr[5][5] = {"TRI", "TET", "HEX", "QUAD", "LINE"};
if (argc <2) {
mprintf("Usage: %s <meshfile> [confile]\n",argv[0]);
exit(0);
}
mtype=MeshType(argv[1]);
ne=MixedElements(argv[1]);
metype = idxmalloc(ne, "main: metype");
weights = idxmalloc(ne, "main: weights");
if (mtype==1 || mtype==3){
gk_clearcputimer(IOTmr);
gk_clearcputimer(DUALTmr);
gk_startcputimer(IOTmr);
if (mtype==1)
elmnts = ReadMesh(argv[1], &ne, &nn, &etype);
else
elmnts = ReadMeshWgt(argv[1], &ne, &nn, &etype, weights);
gk_stopcputimer(IOTmr);
mprintf("**********************************************************************\n");
mprintf("%s", METISTITLE);
mprintf("Mesh Information ----------------------------------------------------\n");
mprintf(" Name: %s, #Elements: %D, #Nodes: %D, Etype: %s\n\n", argv[1], ne, nn, etypestr[etype-1]);
mprintf("Forming Dual Graph... -----------------------------------------------\n");
xadj = idxmalloc(ne+1, "main: xadj");
elms = idxsmalloc(ne+1, 0, "main: elms");
gk_startcputimer(DUALTmr);
cnt=METIS_MeshToDualCount(&ne, &nn, elmnts, elms, &etype, &numflag);
adjncy = idxmalloc(cnt+1, "main: adjncy");
METIS_MeshToDual(&ne, &nn, elmnts, elms, &etype, &numflag, xadj, adjncy);
gk_stopcputimer(DUALTmr);
mprintf(" Dual Information: #Vertices: %D, #Edges: %D\n", ne, xadj[ne]/2);
msprintf(fileout, "%s.dgraph", argv[1]);
gk_startcputimer(IOTmr);
if (mtype==1)
WriteGraph(fileout, ne, xadj, adjncy);
else
WriteWgtGraph(fileout, ne, xadj, adjncy, weights);
gk_stopcputimer(IOTmr);
mprintf("\nTiming Information --------------------------------------------------\n");
mprintf(" I/O: \t\t %7.3f\n", gk_getcputimer(IOTmr));
mprintf(" Dual Creation:\t\t %7.3f\n", gk_getcputimer(DUALTmr));
mprintf("**********************************************************************\n");
}
else {
gk_clearcputimer(IOTmr);
gk_clearcputimer(DUALTmr);
gk_startcputimer(IOTmr);
if(mtype==0)
elmnts = ReadMixedMesh(argv[1], &ne, &nn, metype);
else
elmnts = ReadMixedMeshWgt(argv[1], &ne, &nn, metype, weights);
if (argc==3)
conmat = ReadMgcnums(argv[2]);
gk_stopcputimer(IOTmr);
mprintf("**********************************************************************\n");
mprintf("%s", METISTITLE);
mprintf("Mesh Information ----------------------------------------------------\n");
mprintf(" Name: %s, #Elements: %D, #Nodes: %D, Etype: %s\n\n", argv[1], ne, nn, "Mixed");
mprintf("Forming Dual Graph... ----------------------------------------------\n");
xadj = idxmalloc(ne+1, "main: xadj");
elms = idxsmalloc(ne+1, 0, "main: elms");
gk_startcputimer(DUALTmr);
if (argc==3){
cnt=METIS_MixedMeshToDualCount(&ne, &nn, elmnts, elms, metype, &numflag,
conmat, 1);
adjncy = idxmalloc(cnt+1, "main: adjncy");
METIS_MixedMeshToDual(&ne, &nn, elmnts, elms, metype, &numflag, xadj, adjncy,
conmat, 1);
}
else{
cnt=METIS_MixedMeshToDualCount(&ne, &nn, elmnts, elms, metype, &numflag,
conmat, 0);
adjncy = idxmalloc(cnt+1, "main: adjncy");
METIS_MixedMeshToDual(&ne, &nn, elmnts, elms, metype, &numflag, xadj, adjncy, conmat, 0);
}
gk_stopcputimer(DUALTmr);
mprintf(" Dual Information: #Vertices: %D, #Edges: %D\n", ne, xadj[ne]/2);
msprintf(fileout, "%s.dgraph", argv[1]);
gk_startcputimer(IOTmr);
if (mtype==0)
WriteGraph(fileout, ne, xadj, adjncy);
else
WriteWgtGraph(fileout, ne, xadj, adjncy, weights);
gk_stopcputimer(IOTmr);
mprintf("\nTiming Information --------------------------------------------------\n");
mprintf(" I/O: \t\t %7.3f\n", gk_getcputimer(IOTmr));
mprintf(" Dual Creation:\t\t %7.3f\n", gk_getcputimer(DUALTmr));
mprintf("**********************************************************************\n");
}
gk_free((void **)&elmnts, &xadj, &adjncy, &metype, &weights, &elms, LTERM);
}