| 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 |
