Home
last modified time | relevance | path

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

/dports/science/tinker/tinker/source/
H A Dechgdpl2.f74 real*8 dtaperx,dtapery,dtaperz local
197 dtaperx = xr * dtaper
451 dtaperx = xr * dtaper
643 & + dtaperx*dedxk1 - sk1*d2taperxx
661 & + dtaperx*dedyk1 - sk1*d2taperxy
679 & + dtaperx*dedzk1 - sk1*d2taperxz
698 & + dtaperx*dedxk2 - sk2*d2taperxx
716 & + dtaperx*dedyk2 - sk2*d2taperxy
734 & + dtaperx*dedzk2 - sk2*d2taperxz
861 dtaperx = xr * dtaper
[all …]
H A Dedipole2.f88 real*8 dtaperx,dtapery,dtaperz local
262 dtaperx = xr * dtaper
577 hessx(1,i1) = hessx(1,i1) + si1*dtaperx*dedxi1
583 hessx(1,i2) = hessx(1,i2) + si2*dtaperx*dedxi1
589 hessx(1,k1) = hessx(1,k1) - sk1*dtaperx*dedxi1
595 hessx(1,k2) = hessx(1,k2) - sk2*dtaperx*dedxi1
601 hessy(1,i1) = hessy(1,i1) + si1*dtaperx*dedyi1
607 hessy(1,i2) = hessy(1,i2) + si2*dtaperx*dedyi1
613 hessy(1,k1) = hessy(1,k1) - sk1*dtaperx*dedyi1
619 hessy(1,k2) = hessy(1,k2) - sk2*dtaperx*dedyi1
[all …]
H A Dechgdpl1.f53 real*8 dtaperx,dtapery,dtaperz local
174 dtaperx = xr * dtaper
178 dedxi1 = dedxi1*taper - dtaperx
181 dedxk1 = dedxk1*taper + sk1*dtaperx
184 dedxk2 = dedxk2*taper + sk2*dtaperx
327 dtaperx = xr * dtaper
331 dedxi1 = dedxi1*taper - dtaperx
334 dedxk1 = dedxk1*taper + sk1*dtaperx
337 dedxk2 = dedxk2*taper + sk2*dtaperx
H A Dedipole1.f56 real*8 dtaperx,dtapery,dtaperz local
192 dtaperx = xr * dtaper
196 dedxi1 = dedxi1*taper + si1*dtaperx
199 dedxi2 = dedxi2*taper + si2*dtaperx
202 dedxk1 = dedxk1*taper - sk1*dtaperx
205 dedxk2 = dedxk2*taper - sk2*dtaperx
379 dtaperx = xr * dtaper
383 dedxi1 = dedxi1*taper + si1*dtaperx
386 dedxi2 = dedxi2*taper + si2*dtaperx
389 dedxk1 = dedxk1*taper - sk1*dtaperx
[all …]