Searched refs:xufield (Results 1 – 3 of 3) sorted by relevance
| /dports/science/tinker/tinker/other/ |
| H A D | empole1.taper | 1614 real*8 xdfield,xufield
1743 xufield = -term * (xu+xup)
1751 trqi(2) = rpole(4,i)*xufield - rpole(2,i)*zufield
1752 trqi(3) = rpole(2,i)*yufield - rpole(3,i)*xufield
3473 real*8 xdfield,xufield
3602 xufield = -term * (xu+xup)
3610 trqi(2) = rpole(4,i)*xufield - rpole(2,i)*zufield
3611 trqi(3) = rpole(2,i)*yufield - rpole(3,i)*xufield
|
| H A D | empole1.both | 2867 real*8 xdfield,xufield
2997 xufield = -term * (xu+xup)
3005 trqi(2) = rpole(4,i)*xufield - rpole(2,i)*zufield
3006 trqi(3) = rpole(2,i)*yufield - rpole(3,i)*xufield
4878 real*8 xdfield,xufield
5008 xufield = -term * (xu+xup)
5016 trqi(2) = rpole(4,i)*xufield - rpole(2,i)*zufield
5017 trqi(3) = rpole(2,i)*yufield - rpole(3,i)*xufield
|
| /dports/science/tinker/tinker/source/ |
| H A D | epolar1.f | 3927 real*8 xufield,yufield local
4066 xufield = -term * (xu+xup)
4071 tep(2) = rpole(4,ii)*xufield - rpole(2,ii)*zufield
4072 tep(3) = rpole(2,ii)*yufield - rpole(3,ii)*xufield
6789 real*8 xufield,yufield local
6927 xufield = -term * (xu+xup)
6932 tep(2) = rpole(4,ii)*xufield - rpole(2,ii)*zufield
6933 tep(3) = rpole(2,ii)*yufield - rpole(3,ii)*xufield
|