mirror of
https://github.com/nasa/trick.git
synced 2025-05-09 03:52:59 +00:00
19025d77ad
Reorganized. Created a new top level include directory that will hold all of Trick's header files. Moved all of the Trick headers to this directory. Created a libexec directory that holds all of the executables that users don't need to execute directly. Changed all of the executables remaining in bin to start with "trick-". In the sim_services directories changed all source files to find the Trick headers in their new location. Since all of the include files are gone in sim_services, removed the src directories as well, moving all of the source files up a level. Moved the makefiles, docs, man, and other architecture independent files into a top level share directory. Renamed lib_${TRICK_HOST_CPU} to lib64 or lib depending on the platform we're currently on.
refs #63
40 lines
1018 B
C
40 lines
1018 B
C
/*
|
|
PURPOSE: (Invert lower triangular matrix)
|
|
|
|
ASSUMPTIONS AND LIMITATIONS: ((Input matrix is lower triangular))
|
|
|
|
PROGRAMMERS: (((M Schira) (McDonnell Douglas) (Feb 1994) (v1.0) (Init Release))) */
|
|
|
|
#include "trick/trick_math.h"
|
|
|
|
int LUT_inv( /* RETURN: -- Zero */
|
|
double **y, /* OUT: -- Matrix inverse */
|
|
double **a, /* IN: -- Matrix */
|
|
int n)
|
|
{ /* IN: -- Matrix dimension */
|
|
int i, j, k;
|
|
int iverr;
|
|
|
|
iverr = 0;
|
|
for (i = 0; i < n; i++)
|
|
if (a[i][i] == 0.0)
|
|
iverr = 1;
|
|
|
|
if (iverr == 0) {
|
|
for (i = 0; i < n; i++)
|
|
y[i][i] = 1.0 / a[i][i];
|
|
|
|
for (i = 1; i < n; i++) {
|
|
for (j = 0; j < i; j++) {
|
|
y[i][j] = 0.0;
|
|
for (k = j; k < i; k++) {
|
|
y[i][j] -= a[i][k] * y[k][j];
|
|
}
|
|
y[i][j] /= a[i][i];
|
|
}
|
|
}
|
|
}
|
|
|
|
return (iverr);
|
|
}
|