|
|
|
@ -67,7 +67,6 @@ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* |
|
|
|
* Function declarations |
|
|
|
*/ |
|
|
|
@ -78,7 +77,6 @@ static void ExpandTranslationArrays( MatrixPtr, int ); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* |
|
|
|
* CLEAR MATRIX |
|
|
|
* |
|
|
|
@ -225,7 +223,6 @@ ElementPtr pElement; |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* |
|
|
|
* SINGLE ELEMENT ADDITION TO MATRIX BY INDEX |
|
|
|
* |
|
|
|
@ -290,7 +287,8 @@ spGetElement(MatrixPtr Matrix, int Row, int Col) |
|
|
|
/* Re-size Matrix if necessary. */ |
|
|
|
if ((Row > Matrix->Size) || (Col > Matrix->Size)) |
|
|
|
EnlargeMatrix( Matrix, MAX(Row, Col) ); |
|
|
|
if (Matrix->Error == spNO_MEMORY) return NULL; |
|
|
|
if (Matrix->Error == spNO_MEMORY) |
|
|
|
return NULL; |
|
|
|
#endif |
|
|
|
#endif |
|
|
|
|
|
|
|
@ -321,12 +319,6 @@ spGetElement(MatrixPtr Matrix, int Row, int Col) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* |
|
|
|
* FIND ELEMENT BY SEARCHING COLUMN |
|
|
|
* |
|
|
|
@ -396,11 +388,8 @@ spcFindElementInCol(MatrixPtr Matrix, ElementPtr *LastAddr, |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#if TRANSLATE |
|
|
|
|
|
|
|
|
|
|
|
/* |
|
|
|
* TRANSLATE EXTERNAL INDICES TO INTERNAL |
|
|
|
* |
|
|
|
@ -508,7 +497,6 @@ Translate(MatrixPtr Matrix, int *Row, int *Col) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#if QUAD_ELEMENT |
|
|
|
/* |
|
|
|
* ADDITION OF ADMITTANCE TO MATRIX BY INDEX |
|
|
|
@ -573,7 +561,6 @@ spGetAdmittance(MatrixPtr Matrix, int Node1, int Node2, |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#if QUAD_ELEMENT |
|
|
|
/* |
|
|
|
* ADDITION OF FOUR ELEMENTS TO MATRIX BY INDEX |
|
|
|
@ -656,7 +643,6 @@ spGetQuad(MatrixPtr Matrix, int Row1, int Row2, int Col1, int Col2, |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#if QUAD_ELEMENT |
|
|
|
/* |
|
|
|
* ADDITION OF FOUR STRUCTURAL ONES TO MATRIX BY INDEX |
|
|
|
@ -723,7 +709,6 @@ spGetOnes(MatrixPtr Matrix, int Pos, int Neg, int Eqn, |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* |
|
|
|
* |
|
|
|
* CREATE AND SPLICE ELEMENT INTO MATRIX |
|
|
|
@ -790,7 +775,8 @@ spcCreateElement(MatrixPtr Matrix, int Row, int Col, |
|
|
|
if (pElement == NULL) return NULL; |
|
|
|
|
|
|
|
/* If element is on diagonal, store pointer in Diag. */ |
|
|
|
if (Row == Col) Matrix->Diag[Row] = pElement; |
|
|
|
if (Row == Col) |
|
|
|
Matrix->Diag[Row] = pElement; |
|
|
|
|
|
|
|
/* Initialize Element. */ |
|
|
|
pCreatedElement = pElement; |
|
|
|
@ -835,7 +821,6 @@ spcCreateElement(MatrixPtr Matrix, int Row, int Col, |
|
|
|
pElement->NextInRow = pLastElement->NextInRow; |
|
|
|
pLastElement->NextInRow = pElement; |
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
else |
|
|
|
{ |
|
|
|
@ -876,8 +861,6 @@ spcCreateElement(MatrixPtr Matrix, int Row, int Col, |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* |
|
|
|
* |
|
|
|
* LINK ROWS |
|
|
|
@ -937,7 +920,6 @@ spcLinkRows(MatrixPtr Matrix) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* |
|
|
|
* ENLARGE MATRIX |
|
|
|
* |
|
|
|
@ -1026,7 +1008,6 @@ EnlargeMatrix(MatrixPtr Matrix, int NewSize) |
|
|
|
|
|
|
|
|
|
|
|
#if TRANSLATE |
|
|
|
|
|
|
|
/* |
|
|
|
* EXPAND TRANSLATION ARRAYS |
|
|
|
* |
|
|
|
@ -1087,8 +1068,6 @@ ExpandTranslationArrays(MatrixPtr Matrix, int NewSize) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#if INITIALIZE |
|
|
|
/* |
|
|
|
* INITIALIZE MATRIX |
|
|
|
|