1 |
#ifdef __C |
2 |
#ifndef __FFORCEOPTIONS |
3 |
#define __FFORCEOPTIONS |
4 |
|
5 |
#define GEOMETRIC_MIXING_RULE 1 |
6 |
#define ARITHMETIC_MIXING_RULE 2 |
7 |
#define CUBIC_MIXING_RULE 3 |
8 |
#define HHG_MIXING_RULE 4 |
9 |
|
10 |
typedef struct{ |
11 |
int DistanceMixingRule; |
12 |
int EnergyMixingRule; |
13 |
RealType vdw14scale; |
14 |
RealType electrostatic14scale; |
15 |
RealType GayBerneMu; |
16 |
RealType GayBerneNu; |
17 |
} ForceOptions; |
18 |
|
19 |
|
20 |
#endif |
21 |
#endif /*__C*/ |
22 |
|
23 |
#ifdef __FORTRAN90 |
24 |
|
25 |
INTEGER, PARAMETER:: GEOMETRIC_MIXING_RULE = 1 |
26 |
INTEGER, PARAMETER:: ARITHMETIC_MIXING_RULE = 2 |
27 |
INTEGER, PARAMETER:: CUBIC_MIXING_RULE = 3 |
28 |
INTEGER, PARAMETER:: HHG_MIXING_RULE = 4 |
29 |
|
30 |
type :: ForceOptions |
31 |
SEQUENCE |
32 |
integer :: DistanceMixingRule |
33 |
integer :: EnergyMixingRule |
34 |
real(kind=dp) :: vdw14scale |
35 |
real(kind=dp) :: electrostatic14scale |
36 |
real(kind=dp) :: GayBerneMu |
37 |
real(kind=dp) :: GayBerneNu |
38 |
end type ForceOptions |
39 |
|
40 |
#endif |