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 829 by gezelter, Tue Oct 28 16:03:37 2003 UTC vs.
Revision 832 by gezelter, Tue Oct 28 17:04:06 2003 UTC

# Line 5 | Line 5
5   #include "fortranWrappers.hpp"
6  
7  
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 <                                                 );
8 > extern "C" {
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 < extern void F90_FUNC(wrapsimmod, WRAPSIMMOD) (void (*wrapFunction)(void (*p1) setFortranSimList,
17 >  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 < extern void F90_FUNC(wrapsimparallelmod, WRAPSIMPARALLELMOD) (void (*wrapFunction)(void (*p1) setFortranMPIlist) );
23 >  void F90_FUNC(wrapsimparallelmod, WRAPSIMPARALLELMOD) (void (*wrapFunction)(void (*p1) setFortranMPIlist) );
24   #endif // is_mpi
25  
26 +
27   void wrapFF( void (*p1) makeAtypeList, void (*p2) initFortranFFList,
28               void (*p3) doForceLoopList, void (*p4) set_sticky_params_List,
29               void (*p5) set_gb_pair_params_List, void (*p6) newEAMtype_List);
30 + }
31 +
32 + /*
33   void (*makeAtype) makeAtypeList;
34   void (*initFortranFF) initFortranFFList;
35   void (*set_sticky_params) set_sticky_params_List;
36   void (*set_gb_pair_params) set_gb_pair_params_List;
37   void (*newEAMtype) newEAMtype_List;
38 + */
39  
40 + extern "C" {
41   void wrapSimInfo( void (*p1) setFortranSimList, void (*p2) setFortranBoxList,
42                    void (*p3) notifyFortranCutOffList );
43  
44   #ifdef IS_MPI
45   void wrapSimParallel(void (*p1) setFortranMPIlist );
46   #endif // is_mpi
47 + }
48  
42 –
49   // take care of the ForceField functions
50  
51   ForceFields* currentFF;
# Line 73 | Line 79 | void wrapSimInfo( void (*p1) setFortranSimList, void (
79    F90_FUNC(wrapsimmod, WRAPSIMMOD) ( wrapSimInfo );
80   }
81  
82 < void wrapSimInfo( void (*p1) setFortranSimList, void (*p2) setFortranBoxList,
82 >
83 > extern "C" void wrapSimInfo( void (*p1) setFortranSimList, void (*p2) setFortranBoxList,
84                    void (*p3) notifyFortranCutOffList){
85 <  
85 >
86    currentPlug->setInternal( p1, p2, p3 );
87   }
88  

Diff Legend

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