Searched refs:yufield (Results 1 – 3 of 3) sorted by relevance
| /dports/science/tinker/tinker/other/ |
| H A D | empole1.taper | 1615 real*8 ydfield,yufield
1744 yufield = -term * (yu+yup)
1750 trqi(1) = rpole(3,i)*zufield - rpole(4,i)*yufield
1752 trqi(3) = rpole(2,i)*yufield - rpole(3,i)*xufield
3474 real*8 ydfield,yufield
3603 yufield = -term * (yu+yup)
3609 trqi(1) = rpole(3,i)*zufield - rpole(4,i)*yufield
3611 trqi(3) = rpole(2,i)*yufield - rpole(3,i)*xufield
|
| H A D | empole1.both | 2868 real*8 ydfield,yufield
2998 yufield = -term * (yu+yup)
3004 trqi(1) = rpole(3,i)*zufield - rpole(4,i)*yufield
3006 trqi(3) = rpole(2,i)*yufield - rpole(3,i)*xufield
4879 real*8 ydfield,yufield
5009 yufield = -term * (yu+yup)
5015 trqi(1) = rpole(3,i)*zufield - rpole(4,i)*yufield
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
4067 yufield = -term * (yu+yup)
4070 tep(1) = rpole(3,ii)*zufield - rpole(4,ii)*yufield
4072 tep(3) = rpole(2,ii)*yufield - rpole(3,ii)*xufield
6789 real*8 xufield,yufield local
6928 yufield = -term * (yu+yup)
6931 tep(1) = rpole(3,ii)*zufield - rpole(4,ii)*yufield
6933 tep(3) = rpole(2,ii)*yufield - rpole(3,ii)*xufield
|