}
++(ipiv[icol]);
if (irow != icol) {
- for (l=1;l<=n;l++) SWAP(a[irow][l],a[icol][l])
- for (l=1;l<=m;l++) SWAP(b[irow][l],b[icol][l])
+ for (l=1;l<=n;l++) SWAP(a[irow][l],a[icol][l]);
+ for (l=1;l<=m;l++) SWAP(b[irow][l],b[icol][l]);
}
indxr[i]=irow;
indxc[i]=icol;
k=mfit;
for (j=ma;j>=1;j--) {
if (ia[j]) {
- for (i=1;i<=ma;i++) SWAP(covar[i][k],covar[i][j])
- for (i=1;i<=ma;i++) SWAP(covar[k][i],covar[j][i])
+ for (i=1;i<=ma;i++) SWAP(covar[i][k],covar[i][j]);
+ for (i=1;i<=ma;i++) SWAP(covar[k][i],covar[j][i]);
k--;
}
}