Searched refs:CsumKt (Results 1 – 1 of 1) sorted by relevance
150 dcomplex CsumK0,CsumKr,CsumKt,CsumKp; in Set_OLP_Kin() local537 CsumKt = Complex(0.0,0.0); in Set_OLP_Kin()584 CsumKt = Cadd(CsumKt,Ctmp2); in Set_OLP_Kin()601 CmatKt[L0+M0][L1+M1] = CsumKt; in Set_OLP_Kin()619 CsumKt = Complex(0.0,0.0); in Set_OLP_Kin()704 CsumKt = Cadd(CsumKt,Ctmp1); in Set_OLP_Kin()736 -4.0*(siT*coP*CsumKr.r + coT*coP/r*CsumKt.r); in Set_OLP_Kin()742 -4.0*(coT*CsumKr.r - siT/r*CsumKt.r); in Set_OLP_Kin()759 -4.0*(siT*coP*CsumKr.r + coT*coP/r*CsumKt.r in Set_OLP_Kin()763 -4.0*(siT*siP*CsumKr.r + coT*siP/r*CsumKt.r in Set_OLP_Kin()[all …]