1429 	dmatrix distan;  in njdistantree()  local
1432 	distan = new_dmatrix(Maxspc,Maxspc);  in njdistantree()
1435 			distan[i][j] = Distanmat[i][j];  in njdistantree()
1458 						r[i] += distan[i][j];  in njdistantree()
1469 						sij = ( r[i] + r[j] ) * dnsp2 - distan[i][j];  in njdistantree()
1483 		dij = distan[otui][otuj];  in njdistantree()
1505 				dij = (distan[otui][k] + distan[otuj][k] - distan[otui][otuj]) * 0.5;  in njdistantree()
1506 				distan[otui][k] = dij;  in njdistantree()
1507 				distan[k][otui] = dij;  in njdistantree()
1510 		distan[otui][otui] = 0.0;  in njdistantree()
1531 	bix = (distan[otui][otuj] + distan[otui][otuk] - distan[otuj][otuk]) * 0.5;  in njdistantree()
1532 	bjx = distan[otui][otuj] - bix;  in njdistantree()
1533 	bkx = distan[otui][otuk] - bix;  in njdistantree()
1550 	free_dmatrix(distan);  in njdistantree()