5 |
|
|
6 |
|
extern "C" { |
7 |
|
|
8 |
< |
void wrapforcefield_( void (*wrapFunction)( void (*p1) newAtypeList, |
9 |
< |
void (*p2) initFortranList, |
8 |
> |
void wrapforcefield_( void (*wrapFunction)( void (*p1) makeAtypeList, |
9 |
> |
void (*p2) initFortranFFList, |
10 |
|
void (*p3) doForceLoopList )); |
11 |
|
|
12 |
|
void wrapsimmod_ ( void (*wrapFunction)( void (*p1) setFortranSimList, |
19 |
|
} |
20 |
|
|
21 |
|
|
22 |
< |
void wrapFF( void (*p1) newAtypeList, void (*p2) initFortranList, |
22 |
> |
void wrapFF( void (*p1) makeAtypeList, void (*p2) initFortranFFList, |
23 |
|
void (*p3) doForceLoopList ); |
24 |
< |
void (*newAtype) newAtypeList; |
25 |
< |
void (*initFortranFF) initFortranList; |
24 |
> |
void (*makeAtype) makeAtypeList; |
25 |
> |
void (*initFortranFF) initFortranFFList; |
26 |
|
|
27 |
|
void wrapSimInfo( void (*p1) setFortranSimList, void (*p2) setFortranBoxList ); |
28 |
|
|
41 |
|
} |
42 |
|
|
43 |
|
|
44 |
< |
void wrapFF( void (*p1) newAtypeList, void (*p2) initFortranList, |
44 |
> |
void wrapFF( void (*p1) makeAtypeList, void (*p2) initFortranFFList, |
45 |
|
void (*p3) doForceLoopList ){ |
46 |
|
|
47 |
< |
newAtype = p1; |
47 |
> |
makeAtype = p1; |
48 |
|
initFortranFF = p2; |
49 |
|
currentFF->setFortranForceLoop( p3 ); |
50 |
|
} |
52 |
|
|
53 |
|
// wrap the SimInfo functions |
54 |
|
|
55 |
< |
SimInfo* currentPlug |
55 |
> |
SimInfo* currentPlug; |
56 |
|
void wrapMeSimInfo( SimInfo* thePlug ){ |
57 |
|
|
58 |
|
currentPlug = thePlug; |