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 |
143 |
|
deallocate(c_idents_Row) |
144 |
|
endif |
145 |
|
|
146 |
< |
#else |
146 |
> |
#endif |
147 |
> |
|
148 |
> |
! We build the local atid's for both mpi and nonmpi |
149 |
|
do i = 1, nLocal |
150 |
|
|
151 |
|
me = getFirstMatchingElement(atypes, "c_ident", c_idents(i)) |
152 |
|
atid(i) = me |
153 |
|
|
154 |
|
enddo |
152 |
– |
#endif |
155 |
|
|
156 |
|
|
157 |
|
|
158 |
+ |
|
159 |
|
do i = 1, nExcludes_Local |
160 |
|
excludesLocal(1,i) = CexcludesLocal(1,i) |
161 |
|
excludesLocal(2,i) = CexcludesLocal(2,i) |
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 |
219 |
|
doesit = thisSim%SIM_uses_dipoles |