| H A D | jvltest.F | 896 wijab(a,f,k,j) = 0.0d0
899 wijab(a,f,k,j) = wijab(a,f,k,j) + wiabc(f,b,e,j)
944 double precision wijab(virt,virt,occ,occ), local
953 wijab(b,e,n,j) = 0.0d0
956 wijab(b,e,n,j) = wijab(b,e,n,j) + t2(i,j,c,e)
1247 double precision wijab(virt,virt,occ,occ), local
1256 wijab(c,a,n,m) = 0.0d0
1259 wijab(c,a,n,m) = wijab(c,a,n,m) + t2(k,m,a,b) * t2(k,n,c,b)
1325 double precision wijab(virt,virt,occ,occ), local
1334 wijab(f,e,i,k) = 0.0d0
[all …]
|