| 10 |
|
PRIVATE |
| 11 |
|
|
| 12 |
|
logical, save :: force_globals_initialized = .false. |
| 13 |
– |
integer, save :: natoms |
| 13 |
|
|
| 14 |
|
#ifdef IS_MPI |
| 15 |
|
real( kind = dp ), allocatable, dimension(:,:), public :: q_Row |
| 42 |
|
real(kind = dp), public :: virial_Temp = 0.0_dp |
| 43 |
|
|
| 44 |
|
public :: InitializeForceGlobals |
| 46 |
– |
public :: getNlocal |
| 45 |
|
|
| 46 |
|
contains |
| 47 |
|
|
| 53 |
|
integer :: alloc_stat |
| 54 |
|
|
| 55 |
|
thisStat = 0 |
| 58 |
– |
natoms = nlocal |
| 56 |
|
|
| 57 |
|
#ifdef IS_MPI |
| 58 |
|
nrow = getNrow(plan_row) |
| 234 |
|
#endif |
| 235 |
|
|
| 236 |
|
end subroutine FreeForceGlobals |
| 237 |
< |
|
| 241 |
< |
pure function getNlocal() result(nlocal) |
| 242 |
< |
integer :: nlocal |
| 243 |
< |
nlocal = natoms |
| 244 |
< |
end function getNlocal |
| 245 |
< |
|
| 237 |
> |
|
| 238 |
|
end module force_globals |
