ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libmdtools/fortranWrappers.cpp
(Generate patch)

Comparing trunk/OOPSE/libmdtools/fortranWrappers.cpp (file contents):
Revision 747 by gezelter, Fri Sep 5 21:28:52 2003 UTC vs.
Revision 829 by gezelter, Tue Oct 28 16:03:37 2003 UTC

# Line 2 | Line 2
2  
3   #include "config.h"
4   #include "fSimulation.h"
5 < #include <fortranWrappers.hpp>
5 > #include "fortranWrappers.hpp"
6  
7 – extern "C" {
7  
9 –  void F90_FUNC(wrapforcefield, WRAPFORCEFIELD) (void (*wrapFunction)(void (*p1) makeAtypeList,
10 –                                                                      void (*p2) initFortranFFList,
11 –                                                                      void (*p3) doForceLoopList,
12 –                                                                      void (*p4) set_sticky_params_List,
13 –                                                                      void (*p5) set_gb_pair_params_List,
14 –                                                                      void (*p6) newEAMtype_List)
15 –                                  );
16 –  
17 –  void F90_FUNC(wrapsimmod, WRAPSIMMOD) (void (*wrapFunction)(void (*p1) setFortranSimList,
18 –                                                              void (*p2) setFortranBoxList,
19 –                                                              void (*p3) notifyFortranCutOffList)
20 –                             );
8  
9 + extern void F90_FUNC(wrapforcefield, WRAPFORCEFIELD) (void (*wrapFunction)(void (*p1) makeAtypeList,
10 +                                                                      void (*p2) initFortranFFList,
11 +                                                                      void (*p3) doForceLoopList,
12 +                                                                      void (*p4) set_sticky_params_List,
13 +                                                                      void (*p5) set_gb_pair_params_List,
14 +                                                                      void (*p6) newEAMtype_List)
15 +                                                 );
16 +  
17 + extern void F90_FUNC(wrapsimmod, WRAPSIMMOD) (void (*wrapFunction)(void (*p1) setFortranSimList,
18 +                                                              void (*p2) setFortranBoxList,
19 +                                                              void (*p3) notifyFortranCutOffList)
20 +                                         );
21 +  
22   #ifdef IS_MPI
23 <  void F90_FUNC(wrapsimparallelmod, WRAPSIMPARALLELMOD) (void (*wrapFunction)(void (*p1) setFortranMPIlist) );
23 > extern void F90_FUNC(wrapsimparallelmod, WRAPSIMPARALLELMOD) (void (*wrapFunction)(void (*p1) setFortranMPIlist) );
24   #endif // is_mpi
25 –  
26 – }
25  
28 –
26   void wrapFF( void (*p1) makeAtypeList, void (*p2) initFortranFFList,
27               void (*p3) doForceLoopList, void (*p4) set_sticky_params_List,
28               void (*p5) set_gb_pair_params_List, void (*p6) newEAMtype_List);
# Line 101 | Line 98 | void wrapSimParallel(void (*p1) setFortranMPIlist ){
98  
99  
100   #endif // is_mpi
101 +

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines