1 |
chuckv |
1602 |
/* |
2 |
|
|
* mpisimulation_module_interface.h |
3 |
|
|
* oopse |
4 |
|
|
* |
5 |
|
|
* Created by Charles Vardeman II on 10/19/04. |
6 |
|
|
* Copyright 2004 __MyCompanyName__. All rights reserved. |
7 |
|
|
* |
8 |
|
|
*/ |
9 |
|
|
#define __C |
10 |
|
|
#include "config.h" |
11 |
|
|
|
12 |
|
|
extern "C" { |
13 |
|
|
|
14 |
|
|
typedef void (setFortranMPI)( mpiSimData* the_mpiPlug, |
15 |
|
|
int* nLocal, |
16 |
|
|
int* globalAtomIndex, |
17 |
|
|
int* nGroupsLocal, |
18 |
|
|
int* globalGroupIndex, |
19 |
|
|
int* isError ){ |
20 |
|
|
F90_FUNC(setfortranmpi, SETFORTRANMPI)(the_mpiPlug, |
21 |
|
|
nLocal, |
22 |
|
|
globalAtomIndex, |
23 |
|
|
nGroupsLocal, |
24 |
|
|
globalGroupIndex); |
25 |
|
|
|
26 |
|
|
|
27 |
|
|
} |
28 |
|
|
} |