23 lines
398 B
C
23 lines
398 B
C
|
|
#define SWAP(a,b) {swap=(a);(a)=(b);(b)=swap;}
|
|
|
|
void covsrt(covar,ma,ia,mfit)
|
|
float **covar;
|
|
int ia[],ma,mfit;
|
|
{
|
|
int i,j,k;
|
|
float swap;
|
|
|
|
for (i=mfit+1;i<=ma;i++)
|
|
for (j=1;j<=i;j++) covar[i][j]=covar[j][i]=0.0;
|
|
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])
|
|
k--;
|
|
}
|
|
}
|
|
}
|
|
#undef SWAP
|