1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#include "FEDataStructures.h"
#include <mpi.h>
#ifdef USE_CATALYST
#include "FEAdaptor.h"
#endif
// Example of a C adaptor for a simulation code
// where the simulation code has a fixed topology
// grid. We treat the grid as an unstructured
// grid even though in the example provided it
// would be best described as a vtkImageData.
// Also, the points are stored in an inconsistent
// manner with respect to the velocity vector.
// This is purposefully done to demonstrate
// the different approaches for getting data
// into Catalyst. In this example we don't
// use any of the Fortran/C API provided in
// Catalyst. That is in CFullExample2.
// Note that through configuration
// that the driver can be run without linking
// to Catalyst.
int main(int argc, char* argv[])
{
MPI_Init(&argc, &argv);
Grid grid = (Grid) { .NumberOfPoints = 0, .Points = 0, .NumberOfCells = 0, .Cells = 0};
unsigned int numPoints[3] = {70, 60, 44};
double spacing[3] = {1, 1.1, 1.3};
InitializeGrid(&grid, numPoints, spacing);
Attributes attributes;
InitializeAttributes(&attributes, &grid);
#ifdef USE_CATALYST
CatalystInitialize(argc, argv);
#endif
unsigned int numberOfTimeSteps = 100;
unsigned int timeStep;
for(timeStep=0;timeStep<numberOfTimeSteps;timeStep++)
{
// use a time step length of 0.1
double time = timeStep * 0.1;
UpdateFields(&attributes, time);
#ifdef USE_CATALYST
int lastTimeStep = 0;
if(timeStep == numberOfTimeSteps-1)
{
lastTimeStep = 1;
}
CatalystCoProcess(grid.NumberOfPoints, grid.Points, grid.NumberOfCells, grid.Cells,
attributes.Velocity, attributes.Pressure, time, timeStep, lastTimeStep);
#endif
}
#ifdef USE_CATALYST
CatalystFinalize();
#endif
MPI_Finalize();
return 0;
}
|
