Searched refs:fkds (Results 1 – 3 of 3) sorted by relevance
5484 real*8 fids(3),fkds(3) local5643 fkds(1) = rr3*duixs + rr5*duirs*xr5644 fkds(2) = rr3*duiys + rr5*duirs*yr5645 fkds(3) = rr3*duizs + rr5*duirs*zr5702 fkds(j) = 0.5d0 * fkds(j)5709 fieldts(j,kk) = fieldts(j,kk) + fkds(j)6554 real*8 fids(3),fkds(3) local6677 fkds(1) = rr3*duixs + rr5*duirs*xr6678 fkds(2) = rr3*duiys + rr5*duirs*yr6679 fkds(3) = rr3*duizs + rr5*duirs*zr[all …]
3684 real*8 fids(3),fkds(3)4120 real*8 fids(3),fkds(3)4254 fkds(1) = -rr3*duixs + rr5*duirs*xr4255 fkds(2) = -rr3*duiys + rr5*duirs*yr4256 fkds(3) = -rr3*duizs + rr5*duirs*zr4313 fkds(j) = 0.5d0 * fkds(j)4320 fields(j,k) = fields(j,k) + fkds(j)5006 real*8 fids(3),fkds(3)5133 fkds(1) = -rr3*duixs + rr5*duirs*xr5134 fkds(2) = -rr3*duiys + rr5*duirs*yr[all …]
76 D:fkds kldj jkld fdsa fdsa fdsa fdsa jkls sakd dsaö jkdk djfk