Lines Matching refs:Dk
13 . Haux, Saux, psi, Dk, Ek, caux,
120 complex(dp), dimension(2,nuotot,2,nuo) :: Haux, Saux, Dk, Ek
382 Dk = dcmplx(0.0_dp,0.0_dp)
411 Dk(1,juo,1,iuo) = Dk(1,juo,1,iuo) + qe * cicj
415 Dk(2,juo,2,iuo) = Dk(2,juo,2,iuo) + qe * cicj
419 Dk(1,juo,2,iuo) = Dk(1,juo,2,iuo) + qe * cicj
423 Dk(2,juo,1,iuo) = Dk(2,juo,1,iuo) + qe * cicj
451 D11 = Dk(1,juo,1,iuo) * kphs
452 D22 = Dk(2,juo,2,iuo) * kphs
453 D12 = Dk(1,juo,2,iuo) * kphs
454 D21 = Dk(2,juo,1,iuo) * kphs