Searched refs:dcsum0 (Results 1 – 1 of 1) sorted by relevance
/dports/science/openmx/openmx3.8/source/ |
H A D | Cluster_DFT_ON2.c | 1262 dcomplex dcsum0,dcsum1,dcsum2,dcsum3,dcsum4; in OND_Solver() local 2365 …Row2ID,myid2,nsc,IS,Lvec,Vvec2,numop2) private(OMPID,Nthrds,Nprocs,i,i2,j,j2,k,i3,j3,dcsum0,numop0) in OND_Solver() 2386 dcsum0.r = 0.0; dcsum0.i = 0.0; in OND_Solver() 2393 dcsum0.r += IS[n1][m][j3].r*Lvec[0][n1][m][i3].r - IS[n1][m][j3].i*Lvec[0][n1][m][i3].i; in OND_Solver() 2394 dcsum0.i += IS[n1][m][j3].i*Lvec[0][n1][m][i3].r + IS[n1][m][j3].r*Lvec[0][n1][m][i3].i; in OND_Solver() 2397 Vvec2[i+SindB[n1][2*m]][j] = dcsum0.r + I*dcsum0.i; in OND_Solver() 2416 dcsum0.r = 0.0; dcsum0.i = 0.0; in OND_Solver() 2423 dcsum0.r += IS[n1][m][j3].r*Lvec[1][n1][m][i3].r - IS[n1][m][j3].i*Lvec[1][n1][m][i3].i; in OND_Solver() 2424 dcsum0.i += IS[n1][m][j3].i*Lvec[1][n1][m][i3].r + IS[n1][m][j3].r*Lvec[1][n1][m][i3].i; in OND_Solver() 2427 Vvec2[i+SindB[n1][2*m+1]][j] = dcsum0.r + I*dcsum0.i; in OND_Solver()
|