You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
2.0 KiB
77 lines
2.0 KiB
2 years ago
|
/*
|
||
|
|
* Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
||
|
|
* of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
||
|
|
* NTESS, the U.S. Government retains certain rights in this software.
|
||
|
|
*
|
||
|
|
* See packages/seacas/LICENSE for details
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "defs.h" // for FALSE, TRUE
|
||
|
|
#include "structs.h" // for vtx_data
|
||
|
|
#include <stdio.h> // for fprintf, NULL, fclose, etc
|
||
|
|
|
||
|
|
/* Print out subgraph in program-readable form. */
|
||
|
|
void graph_out(struct vtx_data **graph, /* graph data structure */
|
||
|
|
int nvtxs, /* number of vtxs in graph */
|
||
|
|
int using_ewgts, /* Are edges weighted? */
|
||
|
|
char * tag, /* message to include */
|
||
|
|
char * file_name /* output file name if not null */
|
||
|
|
)
|
||
|
|
{
|
||
|
|
FILE *file; /* output file */
|
||
|
|
int using_vwgts; /* Are vertices weighted? */
|
||
|
|
int nedges; /* number of edges in graph */
|
||
|
|
int option; /* output option */
|
||
|
|
int i, j; /* loop counter */
|
||
|
|
|
||
|
|
if (file_name != NULL) {
|
||
|
|
file = fopen(file_name, "w");
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
file = stdout;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Determine all the appropriate parameters. */
|
||
|
|
using_vwgts = FALSE;
|
||
|
|
nedges = 0;
|
||
|
|
for (i = 1; i <= nvtxs; i++) {
|
||
|
|
if (graph[i]->vwgt != 1) {
|
||
|
|
using_vwgts = TRUE;
|
||
|
|
}
|
||
|
|
nedges += graph[i]->nedges - 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
option = 0;
|
||
|
|
if (using_ewgts) {
|
||
|
|
option += 1;
|
||
|
|
}
|
||
|
|
if (using_vwgts) {
|
||
|
|
option += 10;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (tag != NULL) {
|
||
|
|
fprintf(file, "%% graph_out: %s\n", tag);
|
||
|
|
}
|
||
|
|
fprintf(file, " %d %d", nvtxs, nedges / 2);
|
||
|
|
if (option != 0) {
|
||
|
|
fprintf(file, " %d", option);
|
||
|
|
}
|
||
|
|
fprintf(file, "\n");
|
||
|
|
for (i = 1; i <= nvtxs; i++) {
|
||
|
|
if (using_vwgts) {
|
||
|
|
fprintf(file, "%d ", graph[i]->vwgt);
|
||
|
|
}
|
||
|
|
for (j = 1; j < graph[i]->nedges; j++) {
|
||
|
|
fprintf(file, " %d", graph[i]->edges[j]);
|
||
|
|
if (using_ewgts) {
|
||
|
|
fprintf(file, " %.9f ", graph[i]->ewgts[j]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
fprintf(file, "\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
if (file_name != NULL) {
|
||
|
|
fclose(file);
|
||
|
|
}
|
||
|
|
}
|