/dports/science/tinker/tinker/source/ |
H A D | echarge2.f | 72 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 D | evcorr.f | 45 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 D | echarge.f | 75 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 D | esolv2.f | 313 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 D | echarge1.f | 78 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 D | echarge3.f | 84 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 D | echgdpl.f | 37 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 D | echgdpl3.f | 45 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 D | edipole.f | 36 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 D | edipole3.f | 44 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 D | echgdpl1.f | 39 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 D | fock_2e_lab.F | 460 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 D | fock_2e_c.F | 7 $ 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 D | fock_2e_file.F | 4 $ 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 D | fock_2e_cdf.F | 8 $ 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 D | fock_2e_task.F | 9 $ 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 D | fock_2e_a.F | 20 $ 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 D | fock_2e_lab.F | 460 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 D | fock_2e_c.F | 7 $ 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 D | fock_2e_file.F | 4 $ 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 D | fock_2e_cdf.F | 8 $ 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 D | fock_2e_task.F | 9 $ 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 D | fock_2e_a.F | 20 $ 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 D | da.po | 60 "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 D | da.po | 60 "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 "
|