Searched refs:dtapery (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 198 dtapery = yr * dtaper 452 dtapery = yr * dtaper 645 & + dtapery*dedxk1 - sk1*d2taperxy 663 & + dtapery*dedyk1 - sk1*d2taperyy 681 & + dtapery*dedzk1 - sk1*d2taperyz 700 & + dtapery*dedxk2 - sk2*d2taperxy 718 & + dtapery*dedyk2 - sk2*d2taperyy 736 & + dtapery*dedzk2 - sk2*d2taperyz 862 dtapery = yr * dtaper [all …]
|
H A D | edipole2.f | 88 real*8 dtaperx,dtapery,dtaperz local 263 dtapery = yr * dtaper 579 hessx(2,i1) = hessx(2,i1) + si1*dtapery*dedxi1 585 hessx(2,i2) = hessx(2,i2) + si2*dtapery*dedxi1 591 hessx(2,k1) = hessx(2,k1) - sk1*dtapery*dedxi1 597 hessx(2,k2) = hessx(2,k2) - sk2*dtapery*dedxi1 603 hessy(2,i1) = hessy(2,i1) + si1*dtapery*dedyi1 609 hessy(2,i2) = hessy(2,i2) + si2*dtapery*dedyi1 615 hessy(2,k1) = hessy(2,k1) - sk1*dtapery*dedyi1 621 hessy(2,k2) = hessy(2,k2) - sk2*dtapery*dedyi1 [all …]
|
H A D | echgdpl1.f | 53 real*8 dtaperx,dtapery,dtaperz local 175 dtapery = yr * dtaper 179 dedyi1 = dedyi1*taper - dtapery 182 dedyk1 = dedyk1*taper + sk1*dtapery 185 dedyk2 = dedyk2*taper + sk2*dtapery 328 dtapery = yr * dtaper 332 dedyi1 = dedyi1*taper - dtapery 335 dedyk1 = dedyk1*taper + sk1*dtapery 338 dedyk2 = dedyk2*taper + sk2*dtapery
|
H A D | edipole1.f | 56 real*8 dtaperx,dtapery,dtaperz local 193 dtapery = yr * dtaper 197 dedyi1 = dedyi1*taper + si1*dtapery 200 dedyi2 = dedyi2*taper + si2*dtapery 203 dedyk1 = dedyk1*taper - sk1*dtapery 206 dedyk2 = dedyk2*taper - sk2*dtapery 380 dtapery = yr * dtaper 384 dedyi1 = dedyi1*taper + si1*dtapery 387 dedyi2 = dedyi2*taper + si2*dtapery 390 dedyk1 = dedyk1*taper - sk1*dtapery [all …]
|