Searched refs:dipfield2 (Results 1 – 4 of 4) sorted by relevance
/dports/science/tinker/tinker/other/ |
H A D | buildframe.f | 82 real*8 dipfield2(3,maxatm) local 486 dipfield2(j,i) = a(j,1)*fdip_phi2(2,i)
|
H A D | induce.no-tarray | 2596 real*8, allocatable :: dipfield2(:,:) 2611 allocate (dipfield2(3,npole)) 2663 dipfield2(k,i) = a(k,1)*fdip_phi2(2,i) 2674 fieldp(k,i) = fieldp(k,i) - dipfield2(k,i) 2686 deallocate (dipfield2)
|
H A D | empole1.taper | 4671 real*8 dipfield2(3,maxatm) 5009 call pmesh_field_frac_to_cart (fdip_phi2,dipfield2)
|
/dports/science/tinker/tinker/source/ |
H A D | induce.f | 3837 real*8, allocatable :: dipfield2(:,:) local 3852 allocate (dipfield2(3,npole)) 3915 dipfield2(j,ii) = a(j,1)*fdip_phi2(2,ii) 3926 fieldp(j,ii) = fieldp(j,ii) - dipfield2(j,ii) 3938 deallocate (dipfield2)
|