Trisurf Monte Carlo simulator
mihaf
2014-03-24 ea1cce4c80ddb68c0b46a6873ef3b64cc4a958a1
src/bond.c
@@ -29,11 +29,23 @@
   blist->bond[blist->n - 1]->vtx1=vtx1;   
   blist->bond[blist->n - 1]->vtx2=vtx2;
   blist->bond[blist->n - 1]->tainted=0;
   blist->bond[blist->n - 1]->idx=blist->n-1;
    //Should we calculate bond length NOW?
   
   return blist->bond[blist->n-1];
}
ts_bool bond_vector(ts_bond *bond){
   bond->x = bond->vtx1->x - bond->vtx2->x;
   bond->y = bond->vtx1->y - bond->vtx2->y;
   bond->z = bond->vtx1->z - bond->vtx2->z;
   return TS_SUCCESS;
}
ts_bool bond_list_free(ts_bond_list *blist){
    ts_uint i;
    for(i=0;i<blist->n;i++){