Lines Matching refs:qs
36 qs(i,j,k,c) = square(i,j,k,c) * rho_inv;
102 xxcon3 * (qs(i+1,j,k,c) - 2.0e0*qs(i,j,k,c) +
103 qs(i-1,j,k,c)) +
213 yycon3 * (qs(i,j+1,k,c) - 2.0e0*qs(i,j,k,c) +
214 qs(i,j-1,k,c)) +
328 zzcon3 * (qs(i,j,k+1,c) - 2.0e0*qs(i,j,k,c) +
329 qs(i,j,k-1,c)) +