Lines Matching refs:ki
128 int ki; /* Control variables in for loop */ local
232 for(ki=0; ki<kdim; ki++) vec[ki]*=ius;
238 for(ki=0; ki<kdim; ki++) vec[ki]*=ivs;
253 for(ki=0; ki<kdim; ki++) utang[ki] = vec[ki];
259 for(ki=0; ki<kdim; ki++) utang[ki] = (double)0.0;
271 for(ki=0; ki<kdim; ki++) vec[ki]*=ius;
277 for(ki=0; ki<kdim; ki++) vec[ki]*=ivs;
292 for(ki=0; ki<kdim; ki++) vtang[ki] = vec[ki];
298 for(ki=0; ki<kdim; ki++) vtang[ki] = (double)0.0;
323 for(ki=0; ki<kdim; ki++) vec[ki]*=is;
333 for(ki=0; ki<kdim; ki++) vec[ki]*=ius;
340 for(ki=0; ki<kdim; ki++) vec[ki]*=ivs;
353 for(ki=0; ki<kdim; ki++) vec[ki]*=ius;
360 for(ki=0; ki<kdim; ki++) vec[ki]*=ivs;
371 for(ki=0; ki<kdim; ki++) vec[ki]=vec1[ki]+vec2[ki];
372 for(ki=0; ki<kdim; ki++) vec[ki]*=ius;
380 for(ki=0; ki<kdim; ki++) vec[ki]=vec1[ki]+vec2[ki];
381 for(ki=0; ki<kdim; ki++) vec[ki]*=ivs;
390 for(ki=0; ki<kdim; ki++) enorm[ki] = (double)0.0;
409 for(ki=0; ki<kdim; ki++) enorm[ki] = normal[ki];