Lines Matching refs:nsr
1257 int n0,n1,n2,mp0,nsr; in OND_Solver() local
1964 nsr = EindC[n2][mm] - SindC[n2][mm] + 1; in OND_Solver()
1970 #pragma omp parallel shared(is1,ie1,myid2,nsr,Bnum,n1,n2,m1,mm,SindB,Bi,Bx,Vvec,IS,Q1,Q0,SindC,numo… in OND_Solver()
1986 for (i=0; i<nsr; i++){ in OND_Solver()
2029 for (i=0; i<nsr; i++){ in OND_Solver()
2032 for (k=0; k<nsr; k++){ in OND_Solver()
2033 csum1 += (IS[n2][mm][i*nsr+k].r+I*IS[n2][mm][i*nsr+k].i)*Q0[j][k]; in OND_Solver()
2054 #pragma omp parallel shared(is1,ie1,myid2,EindB,SindB,n2,mm,nsr,Lvec,Q1,Vvec,SindC,numop1) \ in OND_Solver()
2075 i2 = i*nsr; in OND_Solver()
2078 for (k=0; k<nsr; k++){ in OND_Solver()
2085 numop0 += (double)(EindB[n2][2*mm]-SindB[n2][2*mm]+1)*nsr; in OND_Solver()
2091 i2 = i*nsr; in OND_Solver()
2094 for (k=0; k<nsr; k++){ in OND_Solver()
2101 numop0 += (double)(EindB[n2][2*mm+1]-SindB[n2][2*mm+1]+1)*nsr; in OND_Solver()
2105 for (i=0; i<nsr; i++){ in OND_Solver()