Searched refs:CsumK0 (Results 1 – 1 of 1) sorted by relevance
150 dcomplex CsumK0,CsumKr,CsumKt,CsumKp; in Set_OLP_Kin() local535 CsumK0 = Complex(0.0,0.0); in Set_OLP_Kin()572 CsumK0 = Cadd(CsumK0,Ctmp2); in Set_OLP_Kin()599 CmatK0[L0+M0][L1+M1] = CsumK0; in Set_OLP_Kin()617 CsumK0 = Complex(0.0,0.0); in Set_OLP_Kin()694 CsumK0 = Cadd(CsumK0,Ctmp1); in Set_OLP_Kin()720 H0[0][Mc_AN][h_AN][num0+L0+M0][num1+L1+M1] = 4.0*CsumK0.r; in Set_OLP_Kin()