Searched refs:fphip (Results 1 – 2 of 2) sorted by relevance
| /dports/science/tinker/tinker/source/ |
| H A D | epolar1.f | 8613 real*8, allocatable :: fphip(:,:) local
8801 allocate (fphip(10,npole))
8841 call fphi_uind (fphid,fphip,fphidp)
8845 fphip(j,i) = f * fphip(j,i)
9006 fphip(j,i) = f * foptp(k,j,i)
9024 f1 = f1 + fuind(j,i)*fphip(j1,i)
9101 call fphi_uind (fphid,fphip,fphidp)
9105 fphip(j,i) = f * fphip(j,i)
9177 call fphi_uind (fphid,fphip,fphidp)
9181 fphip(j,i) = f * fphip(j,i)
[all …]
|
| /dports/science/tinker/tinker/other/ |
| H A D | empole1.both | 6213 real*8, allocatable :: fphip(:,:)
6239 allocate (fphip(10,npole))
6638 call fphi_uind (fphid,fphip,fphidp)
6642 fphip(j,i) = electric * fphip(j,i)
6662 & + fuind(k,i)*fphip(j1,i)
6665 & + fuind(k,i)*fphip(j2,i)
6668 & + fuind(k,i)*fphip(j3,i)
6671 f1 = f1 - fuind(k,i)*fphip(j1,i)
6673 f2 = f2 - fuind(k,i)*fphip(j2,i)
6675 f3 = f3 - fuind(k,i)*fphip(j3,i)
[all …]
|