Home
last modified time | relevance | path

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

/dports/science/tinker/tinker/source/
H A Dechgdpl2.f74 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 Dedipole2.f88 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 Dechgdpl1.f53 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 Dedipole1.f56 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 …]