Home
last modified time | relevance | path

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

/dports/science/tinker/tinker/source/
H A Depitors1.f65 real*8 dedxig,dedyig,dedzig local
251 dedyig = xec*dedziq - zec*dedxiq
254 dedyic = dedyic + dedyip - dedyie - dedyig
279 dept(2,ig) = dept(2,ig) + dedyig
H A Depitors2.f225 real*8 dedxig,dedyig,dedzig local
373 dedyig = xec*dedziq - zec*dedxiq
376 dedyic = dedyic + dedyip - dedyie - dedyig
400 de(2,ig) = dedyig