Home
last modified time | relevance | path

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

/dports/science/tinker/tinker/source/
H A Dechgdpl2.f74 real*8 dtaperx,dtapery,dtaperz local
199 dtaperz = zr * dtaper
453 dtaperz = zr * dtaper
647 & + dtaperz*dedxk1 - sk1*d2taperxz
665 & + dtaperz*dedyk1 - sk1*d2taperyz
683 & + dtaperz*dedzk1 - sk1*d2taperzz
702 & + dtaperz*dedxk2 - sk2*d2taperxz
720 & + dtaperz*dedyk2 - sk2*d2taperyz
738 & + dtaperz*dedzk2 - sk2*d2taperzz
863 dtaperz = zr * dtaper
[all …]
H A Dedipole2.f88 real*8 dtaperx,dtapery,dtaperz local
264 dtaperz = zr * dtaper
581 hessx(3,i1) = hessx(3,i1) + si1*dtaperz*dedxi1
587 hessx(3,i2) = hessx(3,i2) + si2*dtaperz*dedxi1
593 hessx(3,k1) = hessx(3,k1) - sk1*dtaperz*dedxi1
599 hessx(3,k2) = hessx(3,k2) - sk2*dtaperz*dedxi1
605 hessy(3,i1) = hessy(3,i1) + si1*dtaperz*dedyi1
611 hessy(3,i2) = hessy(3,i2) + si2*dtaperz*dedyi1
617 hessy(3,k1) = hessy(3,k1) - sk1*dtaperz*dedyi1
623 hessy(3,k2) = hessy(3,k2) - sk2*dtaperz*dedyi1
[all …]
H A Dechgdpl1.f53 real*8 dtaperx,dtapery,dtaperz local
176 dtaperz = zr * dtaper
180 dedzi1 = dedzi1*taper - dtaperz
183 dedzk1 = dedzk1*taper + sk1*dtaperz
186 dedzk2 = dedzk2*taper + sk2*dtaperz
329 dtaperz = zr * dtaper
333 dedzi1 = dedzi1*taper - dtaperz
336 dedzk1 = dedzk1*taper + sk1*dtaperz
339 dedzk2 = dedzk2*taper + sk2*dtaperz
H A Dedipole1.f56 real*8 dtaperx,dtapery,dtaperz local
194 dtaperz = zr * dtaper
198 dedzi1 = dedzi1*taper + si1*dtaperz
201 dedzi2 = dedzi2*taper + si2*dtaperz
204 dedzk1 = dedzk1*taper - sk1*dtaperz
207 dedzk2 = dedzk2*taper - sk2*dtaperz
381 dtaperz = zr * dtaper
385 dedzi1 = dedzi1*taper + si1*dtaperz
388 dedzi2 = dedzi2*taper + si2*dtaperz
391 dedzk1 = dedzk1*taper - sk1*dtaperz
[all …]