Lines Matching defs:s2
404 DenseIndex s1,s2;
405 s1 = 0; s2 = 1; // alternate rows in array a
417 a(s2,0) = a(s1,0)/ndu(pk+1,rk);
418 d = a(s2,0)*ndu(rk,pk);
429 a(s2,j) = (a(s1,j)-a(s1,j-1))/ndu(pk+1,rk+j);
430 d += a(s2,j)*ndu(rk+j,pk);
435 a(s2,k) = -a(s1,k-1)/ndu(pk+1,r);
436 d += a(s2,k)*ndu(r,pk);
440 j = s1; s1 = s2; s2 = j; // Switch rows
