else {
tmp=betaini*pow(zeta,ni-1.0); /* beta^n * zeta^n-1 */
b=(1+zeta*tmp); /* 1 + beta^n zeta^n */
- db=chi*pow(b,-1.0/(2*ni)-1); /* x(...)^(-1/2n - 1) */
+ db=chi*pow(b,-1.0/(2.0*ni)-1); /* x(...)^(-1/2n - 1) */
b=db*b; /* b_ij */
db*=-0.5*tmp; /* db_ij */
v3_scale(&force,&(exchange->dzeta_ij),f_a*db);