Home
last modified time | relevance | path

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

/dports/science/tinker/tinker/other/
H A Dbuildframe.f82 real*8 dipfield2(3,maxatm) local
486 dipfield2(j,i) = a(j,1)*fdip_phi2(2,i)
H A Dinduce.no-tarray2596 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 Dempole1.taper4671 real*8 dipfield2(3,maxatm)
5009 call pmesh_field_frac_to_cart (fdip_phi2,dipfield2)
/dports/science/tinker/tinker/source/
H A Dinduce.f3837 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)