|
parameter (natmax=10000000,nelmax=12)
|
|
common /lat/ natoms,ntypes,rv(6,natmax),itype(natmax),
|
|
* perlb(3),perub(3),perlen(3),xy,xz,yz,ilatseed,ntag(natmax),
|
|
* nntype(nelmax),amass(nelmax),ielement(nelmax),
|
|
* nhitcards,nhittag(natmax),nw_del,natoms0,numneigh(natmax),
|
|
* neigh(24,natmax)
|