Home
last modified time | relevance | path

Searched refs:distds (Results 1 – 1 of 1) sorted by relevance

/phasta/phSolver/common/ !
H A Dbctint.f136 real*8 distds local
196 dd= distds(x1,x2,x3,x(i,1),x(i,2),x(i,3))
337 function distds(x1,y1,z1,x2,y2,z2) function
338 real*8 distds local
343 distds=x*x+y*y+z*z