16 |
|
#define __FORTRAN90 |
17 |
|
#include "fSimulation.h" |
18 |
|
|
19 |
< |
type (simtype), public :: thisSim |
19 |
> |
type (simtype), public, save :: thisSim |
20 |
|
|
21 |
|
logical, save :: simulation_setup_complete = .false. |
22 |
|
|
36 |
|
public :: getDielect |
37 |
|
public :: SimUsesPBC |
38 |
|
public :: SimUsesLJ |
39 |
+ |
public :: SimUsesCharges |
40 |
|
public :: SimUsesDipoles |
41 |
|
public :: SimUsesSticky |
42 |
|
public :: SimUsesRF |
208 |
|
logical :: doesit |
209 |
|
doesit = thisSim%SIM_uses_sticky |
210 |
|
end function SimUsesSticky |
211 |
+ |
|
212 |
+ |
function SimUsesCharges() result(doesit) |
213 |
+ |
logical :: doesit |
214 |
+ |
doesit = thisSim%SIM_uses_charges |
215 |
+ |
end function SimUsesCharges |
216 |
|
|
217 |
|
function SimUsesDipoles() result(doesit) |
218 |
|
logical :: doesit |