6 |
|
!! @author Charles F. Vardeman II |
7 |
|
!! @author Matthew Meineke |
8 |
|
!! @author J. Daniel Gezelter |
9 |
< |
!! @version $Id: neighborLists.F90,v 1.3 2003-03-12 19:10:54 gezelter Exp $, |
9 |
> |
!! @version $Id: neighborLists.F90,v 1.4 2003-03-13 17:45:54 gezelter Exp $, |
10 |
|
|
11 |
|
module neighborLists |
12 |
< |
|
12 |
> |
|
13 |
|
use definitions |
14 |
|
#ifdef IS_MPI |
15 |
|
use mpiSimulation |
31 |
|
!! Neighbor list for atom i. |
32 |
|
integer, dimension(:),public, pointer :: list => null() |
33 |
|
!! Position array of previous positions for check. Allocated first time |
34 |
< |
!! into save_neighborList. |
34 |
> |
!! into saveNeighborList. |
35 |
|
real( kind = dp ), dimension(:,:), allocatable , save :: q0 |
36 |
|
!! Current list size |
37 |
|
integer, save :: listSize |
38 |
|
!--------------MODULE ACCESS--------------------------> |
39 |
|
public :: expandNeighborList |
40 |
|
public :: checkNeighborList |
41 |
< |
public :: save_neighborList |
41 |
> |
public :: saveNeighborList |
42 |
|
public :: getNeighborListSize |
43 |
|
|
44 |
|
contains |
196 |
|
!! Saves neighbor list for comparison in check. |
197 |
|
!! Save_neighborList will work even if the number of |
198 |
|
!! local atoms has changed. |
199 |
< |
subroutine save_neighborList(q) |
199 |
> |
subroutine saveNeighborList(q) |
200 |
|
real(kind = dp ), dimension(:,:), intent(in) :: q |
201 |
|
integer :: list_size |
202 |
|
|
210 |
|
allocate(q0(3,list_size)) |
211 |
|
endif |
212 |
|
q0 = q |
213 |
< |
end subroutine save_neighborList |
213 |
> |
end subroutine saveNeighborList |
214 |
|
|
215 |
|
|
216 |
|
function getNeighborListSize() result(returnListSize) |
217 |
|
integer :: returnListSize |
218 |
|
returnListSize = listSize |
219 |
|
end function getNeighborListSize |
220 |
< |
|
221 |
< |
|
220 |
> |
|
221 |
|
end module neighborLists |