3
#include "prototypes.h"
8
void compute_connectivity()
12
double radius_i, radius_j, rij;
13
#include <vdw_radii.h>
15
connectivity = init_int_matrix(natom,natom);
17
for(i=0;i<natom;i++) {
19
radius_i = (zi <= LAST_VDW_RADII_INDEX) ? atomic_vdw_radii[zi] : atomic_vdw_radii[0];
20
radius_i /= _bohr2angstroms;
23
radius_j = (zj <= LAST_VDW_RADII_INDEX) ? atomic_vdw_radii[zj] : atomic_vdw_radii[0];
24
radius_j /= _bohr2angstroms;
26
rij = sqrt((geom[i][0] - geom[j][0])*(geom[i][0] - geom[j][0]) +
27
(geom[i][1] - geom[j][1])*(geom[i][1] - geom[j][1]) +
28
(geom[i][2] - geom[j][2])*(geom[i][2] - geom[j][2]));
30
if (rij <= VDW_SCALE*(radius_i + radius_j))
31
connectivity[i][j] = connectivity[j][i] = 1;