Searched refs:distds (Results 1 – 1 of 1) sorted by relevance
136 real*8 distds local196 dd= distds(x1,x2,x3,x(i,1),x(i,2),x(i,3))337 function distds(x1,y1,z1,x2,y2,z2) function338 real*8 distds local343 distds=x*x+y*y+z*z