ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/UseTheForce/DarkSide/simulation_interface.h
(Generate patch)

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/simulation_interface.h (file contents):
Revision 1608 by gezelter, Wed Oct 20 04:02:48 2004 UTC vs.
Revision 1617 by chuckv, Wed Oct 20 20:46:20 2004 UTC

# Line 11 | Line 11
11   #define USETHEFORCE_DARKSIDE_SIMULATION_INTERFACE_H
12  
13   #define __C
14 + #include "brains/fSimulation.h"
15   #include "config.h"
16 +
17 + #define setFortranSim F90_FUNC(setfortransim, SETFORTRANSIM)
18 + #define setFortranBox F90_FUNC(setfortranbox, SETFORTRANBOX)
19 +
20   extern "C"{
21 <  void F90_FUNC(setfortransim, SETFORTRANSIM)( simtype* the_Info,
22 <                       int* nGlobal,
23 <                       int* nLocal,
24 <                       int* identArray,
25 <                       int* nLocalExcludes,
26 <                       int* excludesLocalArray,
27 <                       int* nGlobalExcludes,
28 <                       int* excludesGlobalArray,
29 <                       int* molMembershipArray,
30 <                       double* mfact,
31 <                       int* ngroup,
32 <                       int* globalGroupMembership,
33 <                                               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 <  }
21 >  void setFortranSim( simtype* the_Info,
22 >                      int* nGlobal,
23 >                      int* nLocal,
24 >                      int* identArray,
25 >                      int* nLocalExcludes,
26 >                      int* excludesLocalArray,
27 >                      int* nGlobalExcludes,
28 >                      int* excludesGlobalArray,
29 >                      int* molMembershipArray,
30 >                      double* mfact,
31 >                      int* ngroup,
32 >                      int* globalGroupMembership,
33 >                      int* isError );
34    
35 < void F90_FUNC(setfortranbox,SETFORTRANBOX) ( double *Hmat,
58 <                                              double *HmatI,
59 <                                              int* orthoRhombic );
60 <
61 < void setFortranBox ( double *Hmat,
35 >  void setFortranBox( double *Hmat,
36                        double *HmatI,
37 <                      int* orthoRhombic ){
64 <   F90_FUNC(setfortranbox,SETFORTRANBOX)( Hmat,
65 <                                          HmatI,
66 <                                          orthoRhombic)
67 <  
68 < }
69 <
37 >                      int* orthoRhombic );
38   }
39   #endif

Diff Legend

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