6 |
|
!! @author Charles F. Vardeman II |
7 |
|
!! @author Matthew Meineke |
8 |
|
!! @author J. Daniel Gezelter |
9 |
< |
!! @version $Id: neighborLists.F90,v 1.1 2003-02-26 18:45:57 mmeineke Exp $, |
9 |
> |
!! @version $Id: neighborLists.F90,v 1.2 2003-02-27 18:42:52 chuckv Exp $, |
10 |
|
|
11 |
|
module neighborLists |
12 |
|
use simulation |
38 |
|
public :: expandList |
39 |
|
public :: check |
40 |
|
public :: save_neighborList |
41 |
+ |
public :: getNeighborListSize |
42 |
|
|
43 |
|
contains |
44 |
|
|
209 |
|
end subroutine save_neighborList |
210 |
|
|
211 |
|
|
212 |
+ |
function getNeighborListSize() result(returnListSize) |
213 |
+ |
integer :: returnListSize |
214 |
+ |
returnListSize = listSize |
215 |
+ |
end function getNeighborListSize |
216 |
+ |
|
217 |
+ |
|
218 |
|
end module neighborLists |