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

Comparing trunk/OOPSE-4/src/UseTheForce/doForces_interface.h (file contents):
Revision 2279 by chrisfen, Tue Aug 30 18:23:50 2005 UTC vs.
Revision 3129 by chrisfen, Fri Apr 20 18:15:48 2007 UTC

# Line 45 | Line 45
45   #define __C
46   #include "config.h"
47  
48 < #define initFortranFF F90_FUNC(initfortranff, INITFORTRANFF)
49 < #define doForceLoop F90_FUNC(doforceloop, DOFORCELOOP)
48 > #define initFortranFF FC_FUNC(initfortranff, INITFORTRANFF)
49 > #define doForceLoop FC_FUNC(doforceloop, DOFORCELOOP)
50 > #define getAccumulatedBoxDipole FC_FUNC(getaccumulatedboxdipole, GETACCUMULATEDBOXDIPOLE)
51 > #define setAccumulateBoxDipole FC_FUNC(setaccumulateboxdipole, SETACCUMULATEBOXDIPOLE)
52 > #define setFortranElectrostaticMethod FC_FUNC(setfortranelectrostaticmethod, SETFORTRANELECTROSTATICMETHOD)
53 > #define notifyFortranCutoffPolicy FC_FUNC(notifyfortrancutoffpolicy, NOTIFYFORTRANCUTOFFPOLICY)
54 > #define notifyFortranSkinThickness FC_FUNC(notifyfortranskinthickness, NOTIFYFORTRANSKINTHICKNESS)
55 > #define notifyFortranCutoffs FC_FUNC(notifyfortrancutoffs, NOTIFYFORTRANCUTOFFS)
56 > #define notifyFortranYouAreOnYourOwn FC_FUNC(notifyfortranyouareonyourown, NOTIFYFORTRANYOUAREONYOUROWN)
57  
58   extern "C"{
59    
60 <  void initFortranFF( int* useReactionField,
61 <                      int* useUndampedWolf,
62 <                      int* useDampedWolf,
63 <                      int *isError );        
64 <
65 <  
66 <  void doForceLoop( double* positionArray,
67 <                    double* rcArray,
68 <                    double* RotationMatrixArray,
69 <                    double* unitVectorArray_l,
63 <                    double* forceArray,
64 <                    double *torqueArray,
65 <                    double* StressTensor,
66 <                    double* potentialEnergy,
60 >  void initFortranFF( int* isError );        
61 >
62 >  void doForceLoop( RealType* positionArray,
63 >                    RealType* rcArray,
64 >                    RealType* RotationMatrixArray,
65 >                    RealType* unitVectorArray_l,
66 >                    RealType* forceArray,
67 >                    RealType *torqueArray,
68 >                    RealType* StressTensor,
69 >                    RealType* potentialEnergy,
70                      short int* doPotentialCalc,
71                      short int* doStressCalc,
72                      int* isError );
73 +
74 +  void getAccumulatedBoxDipole( RealType* boxDipole );
75 +
76 +  void setAccumulateBoxDipole();
77 +
78 +  void setFortranElectrostaticMethod( int* electrostaticMethod );
79 +
80 +  void notifyFortranCutoffPolicy( int* cutPolicy );
81 +
82 +  void notifyFortranSkinThickness( RealType *skinThickness );
83 +
84 +  void notifyFortranCutoffs( RealType *rCut,
85 +                             RealType *rSw,
86 +                             bool *ljsp,
87 +                             bool *ljsf);
88 +
89 +  void notifyFortranYouAreOnYourOwn( );
90 +
91   }
92   #endif

Diff Legend

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