Home
last modified time | relevance | path

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

/dports/science/tinker/tinker/source/
H A Dechgdpl1.f49 real*8 dedxi1,dedyi1,dedzi1 local
153 dedyi1 = termy
179 dedyi1 = dedyi1*taper - dtapery
193 decd(2,i1) = decd(2,i1) + dedyi1
306 dedyi1 = termy
332 dedyi1 = dedyi1*taper - dtapery
346 decd(2,i1) = decd(2,i1) + dedyi1
H A Dechgdpl2.f48 real*8 dedxi1,dedyi1,dedzi1 local
178 dedyi1 = termy
297 hessx(2,i1) = hessx(2,i1) + dtaperx*dedyi1
314 & + dtaperx*dedyi1 + d2taperxy
315 hessy(2,i1) = hessy(2,i1) + dtapery*dedyi1
316 & + dtapery*dedyi1 + d2taperyy
318 & + dtaperz*dedyi1 + d2taperyz
333 hessz(2,i1) = hessz(2,i1) + dtaperz*dedyi1
432 dedyi1 = termy
842 dedyi1 = termy
[all …]
H A Dedipole2.f62 real*8 dedxi1,dedyi1,dedzi1 local
240 dedyi1 = si1*termy - termyi
601 hessy(1,i1) = hessy(1,i1) + si1*dtaperx*dedyi1
603 hessy(2,i1) = hessy(2,i1) + si1*dtapery*dedyi1
605 hessy(3,i1) = hessy(3,i1) + si1*dtaperz*dedyi1
607 hessy(1,i2) = hessy(1,i2) + si2*dtaperx*dedyi1
609 hessy(2,i2) = hessy(2,i2) + si2*dtapery*dedyi1
611 hessy(3,i2) = hessy(3,i2) + si2*dtaperz*dedyi1
613 hessy(1,k1) = hessy(1,k1) - sk1*dtaperx*dedyi1
615 hessy(2,k1) = hessy(2,k1) - sk1*dtapery*dedyi1
[all …]
H A Dedipole1.f51 real*8 dedxi1,dedyi1,dedzi1 local
168 dedyi1 = si1*termy - termyi
197 dedyi1 = dedyi1*taper + si1*dtapery
214 ded(2,i1) = ded(2,i1) + dedyi1
355 dedyi1 = si1*termy - termyi
384 dedyi1 = dedyi1*taper + si1*dtapery
402 ded(2,i1) = ded(2,i1) + dedyi1