Home
last modified time | relevance | path

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

/dports/science/tinker/tinker/source/
H A Depitors1.f65 real*8 dedxig,dedyig,dedzig local
252 dedzig = yec*dedxiq - xec*dedyiq
255 dedzic = dedzic + dedzip - dedzie - dedzig
280 dept(3,ig) = dept(3,ig) + dedzig
H A Depitors2.f225 real*8 dedxig,dedyig,dedzig local
374 dedzig = yec*dedxiq - xec*dedyiq
377 dedzic = dedzic + dedzip - dedzie - dedzig
401 de(3,ig) = dedzig