Home
last modified time | relevance | path

Searched refs:SCC_ref (Results 1 – 4 of 4) sorted by relevance

/dports/science/openmx/openmx3.8/source/
H A DTRAN_Calc_CentGreen.c33 #define SCC_ref(i,j) SCC[nc*((j)-1)+(i)-1] in TRAN_Calc_CentGreen() macro
46 GC_ref(i,j).r = w.r*SCC_ref(i,j).r - w.i*SCC_ref(i,j).i - HCC_ref(i,j).r in TRAN_Calc_CentGreen()
48 GC_ref(i,j).i = w.r*SCC_ref(i,j).i + w.i*SCC_ref(i,j).r - HCC_ref(i,j).i in TRAN_Calc_CentGreen()
H A DTRAN_Set_CentOverlap.c44 #define SCC_ref(i,j) ( ((j)-1)*NUM_c + (i)-1 ) macro
161 SCC[SCC_ref(Anum+i,Bnum+j)].r += co*S1[q]; in TRAN_Set_CentOverlap()
162 SCC[SCC_ref(Anum+i,Bnum+j)].i += si*S1[q]; in TRAN_Set_CentOverlap()
165 HCC[k][SCC_ref(Anum+i,Bnum+j)].r += co*H1[k][q]; in TRAN_Set_CentOverlap()
166 HCC[k][SCC_ref(Anum+i,Bnum+j)].i += si*H1[k][q]; in TRAN_Set_CentOverlap()
220 SCC[SCC_ref(Anum+i,Bnum+j)] = S00_e[iside][S00l_ref(Anum_e+i,Bnum_e+j)]; in TRAN_Set_CentOverlap()
223 HCC[k][SCC_ref(Anum+i,Bnum+j)] = H00_e[iside][k][S00l_ref(Anum_e+i,Bnum_e+j)]; in TRAN_Set_CentOverlap()
271 SCC[SCC_ref(Anum+i,Bnum+j)] = S00_e[iside][S00r_ref(Anum_e+i,Bnum_e+j)]; in TRAN_Set_CentOverlap()
274 HCC[k][SCC_ref(Anum+i,Bnum+j)] = H00_e[iside][k][S00r_ref(Anum_e+i,Bnum_e+j)]; in TRAN_Set_CentOverlap()
H A DTRAN_Main_Analysis.c33 #define SCC_ref(i,j) ( ((j)-1)*NUM_c + (i)-1 ) macro
3832 SCC[SCC_ref(Anum + i, Bnum + j)].r += co*OLP[0][GA_AN][LB_AN][i][j]; in MTRAN_Set_CentOverlap()
3833 SCC[SCC_ref(Anum + i, Bnum + j)].i += si*OLP[0][GA_AN][LB_AN][i][j]; in MTRAN_Set_CentOverlap()
3836 HCC[k][SCC_ref(Anum + i, Bnum + j)].r += co*H[k][GA_AN][LB_AN][i][j]; in MTRAN_Set_CentOverlap()
3837 HCC[k][SCC_ref(Anum + i, Bnum + j)].i += si*H[k][GA_AN][LB_AN][i][j]; in MTRAN_Set_CentOverlap()
3888 SCC[SCC_ref(Anum + i, Bnum + j)] = S00_e[iside][S00l_ref(Anum_e + i, Bnum_e + j)]; in MTRAN_Set_CentOverlap()
3890 VCC[k][SCC_ref(Anum + i, Bnum + j)].r = VCC[k][SCC_ref(Anum + i, Bnum + j)].r in MTRAN_Set_CentOverlap()
3892 VCC[k][SCC_ref(Anum + i, Bnum + j)].i = VCC[k][SCC_ref(Anum + i, Bnum + j)].i in MTRAN_Set_CentOverlap()
3939 SCC[SCC_ref(Anum + i, Bnum + j)] = S00_e[iside][S00r_ref(Anum_e + i, Bnum_e + j)]; in MTRAN_Set_CentOverlap()
3941 VCC[k][SCC_ref(Anum + i, Bnum + j)].r = VCC[k][SCC_ref(Anum + i, Bnum + j)].r in MTRAN_Set_CentOverlap()
[all …]
H A DTRAN_Calc_CentGreenLesser.c49 #define SCC_ref(i,j) SCC[nc*((j)-1)+(i)-1] in TRAN_Calc_CentGreenLesser() macro