6 |
|
!! @author Charles F. Vardeman II |
7 |
|
!! @author Matthew Meineke |
8 |
|
!! @author J. Daniel Gezelter |
9 |
< |
!! @version $Id: neighborLists.F90,v 1.1.1.1 2003-03-21 17:42:12 mmeineke Exp $, |
9 |
> |
!! @version $Id: neighborLists.F90,v 1.2 2003-04-04 19:57:01 mmeineke Exp $, |
10 |
|
|
11 |
|
module neighborLists |
12 |
|
|
32 |
|
integer, dimension(:),public, pointer :: list => null() |
33 |
|
!! Position array of previous positions for check. Allocated first time |
34 |
|
!! into saveNeighborList. |
35 |
< |
real( kind = dp ), dimension(:,:), allocatable , save :: q0 |
35 |
> |
real( kind = dp ), dimension(:,:), allocatable, save :: q0 |
36 |
|
!! Current list size |
37 |
|
integer, save :: listSize |
38 |
|
!--------------MODULE ACCESS--------------------------> |
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 saveNeighborList(q) |
200 |
< |
real(kind = dp ), dimension(:,:), intent(in) :: q |
199 |
> |
subroutine saveNeighborList(natoms, q) |
200 |
> |
|
201 |
> |
integer :: natoms |
202 |
> |
real(kind = dp ), dimension(3,natoms), intent(in) :: q |
203 |
|
integer :: list_size |
204 |
+ |
|
205 |
|
|
206 |
|
!! get size of list |
207 |
< |
list_size = size(q) |
207 |
> |
list_size = natoms |
208 |
|
|
209 |
|
if (.not. allocated(q0)) then |
210 |
|
allocate(q0(3,list_size)) |