Searched refs:usums (Results 1 – 1 of 1) sorted by relevance
| /dports/science/tinker/tinker/source/ |
| H A D | induce.f | 4495 real*8, allocatable :: usums(:,:) local
4582 allocate (usums(3,n))
4593 usums(j,i) = 0.0d0
4598 usums(j,i) = usums(j,i) + uopts(k,j,i)
4602 uinds(j,i) = uinds(j,i) + copt(k)*usums(j,i)
4610 deallocate (usums)
5818 real*8, allocatable :: usums(:,:) local
5905 allocate (usums(3,n))
5916 usums(j,i) = 0.0d0
5921 usums(j,i) = usums(j,i) + uopts(k,j,i)
[all …]
|