Searched refs:dtaperz (Results 1 – 4 of 4) sorted by relevance
/dports/science/tinker/tinker/source/ |
H A D | echgdpl2.f | 74 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 D | edipole2.f | 88 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 D | echgdpl1.f | 53 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 D | edipole1.f | 56 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 …]
|