Home
last modified time | relevance | path

Searched refs:fik (Results 1 – 25 of 499) sorted by relevance

12345678910>>...20

/dports/science/tinker/tinker/source/
H A Decharge2.f72 real*8 fi,fik,fgrp local
170 de = -fik / rb2
176 e = fik / rb
275 if (rc2 .le. polycut2) fik = fik * cscale(kn)
387 real*8 fi,fik,fgrp local
496 de = -fik / rb2
502 e = fik / rb
814 real*8 fi,fik,fgrp local
1058 real*8 fi,fik,fgrp local
1233 real*8 fi,fik,fgrp local
[all …]
H A Devcorr.f45 real*8 fi,fk,fim,fkm,fik local
119 fik = fi*fk - vlam1*(fim*(fk-fkm)+(fi-fim)*fkm)
121 fik = vlambda*fi*fk + vlam1*(fi-fim)*(fk-fkm)
123 if (k .eq. i) fik = 0.5d0 * fik
168 elrc = elrc + fik*etot
220 real*8 fi,fk,fim,fkm,fik local
297 fik = fi*fk - vlam1*(fim*(fk-fkm)+(fi-fim)*fkm)
299 fik = vlambda*fi*fk + vlam1*(fi-fim)*(fk-fkm)
301 if (k .eq. i) fik = 0.5d0 * fik
358 elrc = elrc + fik*etot
[all …]
H A Decharge.f75 real*8 f,fi,fik local
166 e = fik / rb
275 if (r2 .le. polycut2) fik = fik * cscale(kn)
364 real*8 f,fi,fik local
516 if (prime) fik = fik * cscale(kn)
610 real*8 f,fi,fik local
799 real*8 f,fi,fik local
1080 real*8 f,fi,fik local
1342 real*8 f,fi,fik local
1537 real*8 f,fi,fik local
[all …]
H A Desolv2.f313 real*8 fi,fik local
367 fik = fi * pchg(kk)
379 de = -fik * dfgb / fgb2
380 d2e = -fik * (d2fgb-2.0d0*dfgb2/fgb) / fgb2
385 e = fik / fgb
401 dtrans = fik * (7.0d0*f7*r6 + 6.0d0*f6*r5
471 real*8 fi,fik,de,d2e local
521 fik = fi * pchg(kk)
533 de = -fik * dfgb / fgb2
534 d2e = -fik * (d2fgb-2.0d0*dfgb2/fgb) / fgb2
[all …]
H A Decharge1.f78 real*8 f,fi,fik local
181 e = fik / rb
347 if (r2 .le. polycut2) fik = fik * cscale(kn)
495 real*8 f,fi,fik local
659 if (prime) fik = fik * cscale(kn)
811 real*8 f,fi,fik local
1072 real*8 fi,fik,fs local
1454 real*8 fi,fik,fs local
1778 real*8 fi,fik,fs local
2035 real*8 f,fi,fik local
[all …]
H A Decharge3.f84 real*8 f,fi,fik
194 e = fik / rb
329 if (r2 .le. polycut2) fik = fik * cscale(kn)
452 real*8 f,fi,fik
622 if (prime) fik = fik * cscale(kn)
761 real*8 f,fi,fik
1004 real*8 f,fi,fik
1377 real*8 f,fi,fik
1712 real*8 f,fi,fik
1973 real*8 f,fi,fik
[all …]
H A Dechgdpl.f37 real*8 f,fi,fik local
103 fik = fi * bdpl(k)
107 e = fik * dotk / rkr3
173 fik = fi * bdpl(k)
177 & fik = 0.0d0
183 e = fik * dotk / rkr3
H A Dechgdpl3.f45 real*8 f,fi,fik local
128 fik = fi * bdpl(k)
132 e = fik * dotk / rkr3
226 fik = fi * bdpl(k)
230 & fik = 0.0d0
236 e = fik * dotk / rkr3
H A Dedipole.f36 real*8 f,fi,fik local
102 fik = fi * bdpl(k)
103 e = fik * (dotp-3.0d0*doti*dotk/r2) / rirkr3
178 fik = fi * bdpl(k)
182 & k2.eq.i1 .or. k2.eq.i2) fik = 0.0d0
185 e = fik * (dotp-3.0d0*doti*dotk/r2) / rirkr3
H A Dedipole3.f44 real*8 f,fi,fik local
126 fik = fi * bdpl(k)
127 e = fik * (dotp-3.0d0*doti*dotk/r2) / rirkr3
232 fik = fi * bdpl(k)
236 & k2.eq.i1 .or. k2.eq.i2) fik = 0.0d0
239 e = fik * (dotp-3.0d0*doti*dotk/r2) / rirkr3
H A Dechgdpl1.f39 real*8 f,fi,fik,fgrp local
125 fik = fi * bdpl(k)
132 e = fik * dotk / rkr3
133 term = -fik / rkr3
272 fik = fi * bdpl(k)
276 & fik = 0.0d0
285 e = fik * dotk / rkr3
286 term = -fik / rkr3
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/
H A Dfock_2e_lab.F460 fik(ik) = fik(ik) + g*dlj(lj)
634 fik(1,ik) = fik(1,ik) + g*dlj(1,lj)
640 fik(2,ik) = fik(2,ik) + g*dlj(2,lj)
815 fik(1,ik) = fik(1,ik) + g*dlj(1,lj)
821 fik(2,ik) = fik(2,ik) + g*dlj(2,lj)
827 fik(3,ik) = fik(3,ik) + g*dlj(3,lj)
1002 fik(1,ik) = fik(1,ik) + g*dlj(1,lj)
1008 fik(2,ik) = fik(2,ik) + g*dlj(2,lj)
1014 fik(3,ik) = fik(3,ik) + g*dlj(3,lj)
1020 fik(4,ik) = fik(4,ik) + g*dlj(4,lj)
[all …]
H A Dfock_2e_c.F7 $ fij, fik, fli, fjk, flj, flk )
31 double precision fik(nfock,ialo:iahi,kalo:kahi)
65 fik(v,i,k) = fik(v,i,k) + g*dlj(v,l,j)
89 $ fij, fik, fli, fjk, flj, flk )
112 double precision fik(ialo:iahi,kalo:kahi)
160 fik(i,k) = fik(i,k) + f_ik
H A Dfock_2e_file.F4 $ fij, fik, fli, fjk, flj, flk,
29 double precision fij(nfock*ablklen),fik(nfock*ablklen)
58 call dfill(blklen, 0.0d0, fik, 1)
78 $ fij, fik, fli, fjk, flj, flk,
93 $ fij, fik, fli, fjk, flj, flk)
120 $ kfac, fik, tmp )
H A Dfock_2e_cdf.F8 $ fij, fik, fli, fjk, flj, flk,
38 $ fij(nfock,*), fik(nfock,*), fli(nfock,*),
70 $ ijk_prev(3,1), ijk_prev(3,2), kfac, fik, tmp)
73 call dfill((idim*kdim*nfock), 0.0d0, fik, 1)
H A Dfock_2e_task.F9 $ fij, fik, fli, fjk, flj, flk,
37 double precision fij(nfock,*), fik(nfock,*), fli(nfock,*),
92 $ fij, fik, fli, fjk, flj, flk,
126 $ fij, fik, fli, fjk, flj, flk)
143 $ fij, fik, fli, fjk, flj, flk,
169 $ fij, fik, fli, fjk, flj, flk,
195 double precision fij(nfock,*), fik(nfock,*), fli(nfock,*),
379 $ fij, fik, fli, fjk, flj, flk,
395 $ fij, fik, fli, fjk, flj, flk,
410 $ fij, fik, fli, fjk, flj, flk,
[all …]
H A Dfock_2e_a.F20 $ fij, fik, fli, fjk, flj, flk,
48 double precision fij(nfock*ablklen),fik(nfock*ablklen)
122 call dfill(blklen, 0.0d0, fik, 1)
173 $ fij, fik, fli, fjk, flj, flk,
198 $ kfac, fik, tmp )
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/
H A Dfock_2e_lab.F460 fik(ik) = fik(ik) + g*dlj(lj)
634 fik(1,ik) = fik(1,ik) + g*dlj(1,lj)
640 fik(2,ik) = fik(2,ik) + g*dlj(2,lj)
815 fik(1,ik) = fik(1,ik) + g*dlj(1,lj)
821 fik(2,ik) = fik(2,ik) + g*dlj(2,lj)
827 fik(3,ik) = fik(3,ik) + g*dlj(3,lj)
1002 fik(1,ik) = fik(1,ik) + g*dlj(1,lj)
1008 fik(2,ik) = fik(2,ik) + g*dlj(2,lj)
1014 fik(3,ik) = fik(3,ik) + g*dlj(3,lj)
1020 fik(4,ik) = fik(4,ik) + g*dlj(4,lj)
[all …]
H A Dfock_2e_c.F7 $ fij, fik, fli, fjk, flj, flk )
31 double precision fik(nfock,ialo:iahi,kalo:kahi)
65 fik(v,i,k) = fik(v,i,k) + g*dlj(v,l,j)
89 $ fij, fik, fli, fjk, flj, flk )
112 double precision fik(ialo:iahi,kalo:kahi)
160 fik(i,k) = fik(i,k) + f_ik
H A Dfock_2e_file.F4 $ fij, fik, fli, fjk, flj, flk,
29 double precision fij(nfock*ablklen),fik(nfock*ablklen)
58 call dfill(blklen, 0.0d0, fik, 1)
78 $ fij, fik, fli, fjk, flj, flk,
93 $ fij, fik, fli, fjk, flj, flk)
120 $ kfac, fik, tmp )
H A Dfock_2e_cdf.F8 $ fij, fik, fli, fjk, flj, flk,
38 $ fij(nfock,*), fik(nfock,*), fli(nfock,*),
70 $ ijk_prev(3,1), ijk_prev(3,2), kfac, fik, tmp)
73 call dfill((idim*kdim*nfock), 0.0d0, fik, 1)
H A Dfock_2e_task.F9 $ fij, fik, fli, fjk, flj, flk,
37 double precision fij(nfock,*), fik(nfock,*), fli(nfock,*),
92 $ fij, fik, fli, fjk, flj, flk,
126 $ fij, fik, fli, fjk, flj, flk)
143 $ fij, fik, fli, fjk, flj, flk,
169 $ fij, fik, fli, fjk, flj, flk,
195 double precision fij(nfock,*), fik(nfock,*), fli(nfock,*),
379 $ fij, fik, fli, fjk, flj, flk,
395 $ fij, fik, fli, fjk, flj, flk,
410 $ fij, fik, fli, fjk, flj, flk,
[all …]
H A Dfock_2e_a.F20 $ fij, fik, fli, fjk, flj, flk,
48 double precision fij(nfock*ablklen),fik(nfock*ablklen)
122 call dfill(blklen, 0.0d0, fik, 1)
173 $ fij, fik, fli, fjk, flj, flk,
198 $ kfac, fik, tmp )
/dports/math/R/R-4.1.2/src/library/methods/po/
H A Dda.po60 "valg af S-sprogmetode fik en fejl når den blev kaldt fra intern afsender for "
85 "forventede en funktion eller en grundform, fik et objekt af klasse »%s«"
108 "forventede et navn, fik et objekt af klasse »%s«"
121 "metodeafsendelse: fik et objekt af klasse »%s«"
157 "skal være et R-miljø; fik et objekt af klasse »%s«"
179 msgstr "'%s' skal være en enkelt streng (fik en tegnvektor med længden %d)"
184 msgstr "'%s' skal være en udfyldt streng; fik en tom streng"
189 msgstr "'%s' skal være en enkel streng (fik et objekt af klasse »%s«)"
207 "Forventede en generisk funktion eller en primitive for afsendelse, fik et "
/dports/math/libRmath/R-4.1.1/src/library/methods/po/
H A Dda.po60 "valg af S-sprogmetode fik en fejl når den blev kaldt fra intern afsender for "
85 "forventede en funktion eller en grundform, fik et objekt af klasse »%s«"
108 "forventede et navn, fik et objekt af klasse »%s«"
121 "metodeafsendelse: fik et objekt af klasse »%s«"
157 "skal være et R-miljø; fik et objekt af klasse »%s«"
179 msgstr "'%s' skal være en enkelt streng (fik en tegnvektor med længden %d)"
184 msgstr "'%s' skal være en udfyldt streng; fik en tom streng"
189 msgstr "'%s' skal være en enkel streng (fik et objekt af klasse »%s«)"
207 "Forventede en generisk funktion eller en primitive for afsendelse, fik et "

12345678910>>...20