Searched refs:fieldtps (Results 1 – 1 of 1) sorted by relevance
| /dports/science/tinker/tinker/source/ |
| H A D | induce.f | 4993 allocate (fieldtps(3,npole))
5002 fieldtps(j,ii) = 0.0d0
5341 fieldtps(j,ii) = fieldtps(j,ii) + fid(j)
5342 fieldtps(j,kk) = fieldtps(j,kk) + fkd(j)
5428 deallocate (fieldtps)
5530 allocate (fieldtps(3,npole))
5659 fieldtps(j,ii) = fieldtps(j,ii) + fips(j)
5660 fieldtps(j,kk) = fieldtps(j,kk) + fkps(j)
5710 fieldtps(j,ii) = fieldtps(j,ii) + fips(j)
5711 fieldtps(j,kk) = fieldtps(j,kk) + fkps(j)
[all …]
|