19
real(dp), pointer, save :: xij(:,:)
20
integer, pointer, save, public :: jan(:)
21
real(dp), pointer, save, public :: r2ij(:)
22
real(dp), pointer, save, public :: xij(:,:)
23
29
subroutine mneighb( CELL, range, NA, XA, IA, ISC,
26
32
C ********************************************************************
27
33
C Finds the neighbours of an atom in a cell with periodic boundary