| | |
| | | ts_vertex *k=bond->vtx2; |
| | | ts_uint nei,neip,neim; |
| | | ts_uint i,j; |
| | | ts_double oldenergy, delta_energy, dvol=0.0, darea=0.0; |
| | | ts_double oldenergy=0.0, delta_energy=0.0, dvol=0.0, darea=0.0; |
| | | ts_triangle *lm=NULL,*lp=NULL, *lp1=NULL, *lm2=NULL; |
| | | |
| | | ts_vertex *kp,*km; |
| | |
| | | /* end backup vertex */ |
| | | |
| | | /* Save old energy */ |
| | | oldenergy=0; |
| | | oldenergy=0.0; |
| | | oldenergy+=k->xk* k->energy; |
| | | oldenergy+=kp->xk* kp->energy; |
| | | oldenergy+=km->xk* km->energy; |
| | |
| | | |
| | | |
| | | /* Calculating the new energy */ |
| | | delta_energy=0; |
| | | delta_energy=0.0; |
| | | delta_energy+=k->xk* k->energy; |
| | | delta_energy+=kp->xk* kp->energy; |
| | | delta_energy+=km->xk* km->energy; |