1 |
/* |
2 |
* simulation_module_interface.h |
3 |
* oopse |
4 |
* |
5 |
* Created by Charles Vardeman II on 10/19/04. |
6 |
* Copyright 2004 University of Notre Dame. All rights reserved. |
7 |
* |
8 |
*/ |
9 |
|
10 |
#ifndef SIMULATION_MODULE_INTERFACE_H |
11 |
#define SIMULATION_MODULE_INTERFACE_H |
12 |
|
13 |
#define __C |
14 |
#include "config.h" |
15 |
extern "C"{ |
16 |
void F90_FUNC(setfortransim, SETFORTRANSIM)( simtype* the_Info, |
17 |
int* nGlobal, |
18 |
int* nLocal, |
19 |
int* identArray, |
20 |
int* nLocalExcludes, |
21 |
int* excludesLocalArray, |
22 |
int* nGlobalExcludes, |
23 |
int* excludesGlobalArray, |
24 |
int* molMembershipArray, |
25 |
double* mfact, |
26 |
int* ngroup, |
27 |
int* globalGroupMembership, |
28 |
int* isError ); |
29 |
|
30 |
void setFortranSim ( simtype* the_Info, |
31 |
int* nGlobal, |
32 |
int* nLocal, |
33 |
int* identArray, |
34 |
int* nLocalExcludes, |
35 |
int* excludesLocalArray, |
36 |
int* nGlobalExcludes, |
37 |
int* excludesGlobalArray, |
38 |
int* molMembershipArray, |
39 |
double* mfact, |
40 |
int* ngroup, |
41 |
int* globalGroupMembership, |
42 |
int* isError ){ |
43 |
F90_FUNC(setfortransim, SETFORTRANSIM)( nGlobal, |
44 |
nLocal, |
45 |
identArray, |
46 |
nLocalExcludes, |
47 |
excludesLocalArray, |
48 |
nGlobalExcludes, |
49 |
excludesGlobalArray, |
50 |
molMembershipArray, |
51 |
mfact, |
52 |
ngroup, |
53 |
globalGroupMembership, |
54 |
isError); |
55 |
} |
56 |
|
57 |
void F90_FUNC(setfortranbox,SETFORTRANBOX) ( double *Hmat, |
58 |
double *HmatI, |
59 |
int* orthoRhombic ); |
60 |
|
61 |
void setFortranBox ( double *Hmat, |
62 |
double *HmatI, |
63 |
int* orthoRhombic ){ |
64 |
F90_FUNC(setfortranbox,SETFORTRANBOX)( Hmat, |
65 |
HmatI, |
66 |
orthoRhombic) |
67 |
|
68 |
} |
69 |
|
70 |
} |
71 |
#endif |