if (!isready) {
return;
}
- Standard_Integer i, j, k, Ci, Nincx, Neq, i2, k1, k2;
+ Standard_Integer i, j, k, Ci, Nincx, i2, k1, k2;
Standard_Integer nbpol1 = nbpoles-1, Ninc1 = Ninc-1;
Standard_Real AD1, A0;
// gp_Pnt Pt;
math_Vector myTABB(1, Nincx, 0.0);
MakeTAA(TheAA, mytab);
- Standard_Integer Error = DACTCL_Decompose(TheAA, Index);
+ DACTCL_Decompose(TheAA, Index);
Standard_Integer kk2;
for (j = 1; j <= B2.ColNumber(); j++) {
myTABB(kk2) = mytab(i, j);
kk2++;
}
- Error = DACTCL_Solve(TheAA, myTABB, Index);
+ DACTCL_Solve(TheAA, myTABB, Index);
i2 = 1;
for (k = resinit; k <= resfin; k++) {
// ===========================================================
Nincx = resfin-resinit+1;
- Neq = LastP-FirstP+1;
Standard_Integer deport = 0, Nincx2 = 2*Nincx;
math_IntegerVector InternalIndex(1, Nincx);
math_Vector myTABB(1, Nincx, 0.0);
- Standard_Integer Error = DACTCL_Decompose(AA, Index);
+ DACTCL_Decompose(AA, Index);
Standard_Integer kk2;
for (j = 1; j <= B2.ColNumber(); j++) {
kk2++;
}
- Error = DACTCL_Solve(AA, myTABB, Index);
+ DACTCL_Solve(AA, myTABB, Index);
i2 = 1;
for (k = resinit; k <= resfin; k++) {
F = 0.0;
i2 = 1;
math_Vector Px(1, nbpoles), Py(1, nbpoles), Pz(1, nbpoles);
- Standard_Integer l;
for (k = 1 ; k <= nbP+nbP2d; k++) {
i21 = i2+1; i22 = i2+2;
AA = 0.0; BB = 0.0; CC = 0.0;
indexdeb = myindex(i) + 1;
indexfin = indexdeb + deg;
- l = (i-1)*(deg+1)-indexdeb+1;
for (j = indexdeb; j <= indexfin; j++) {
AIJ = A(i, j);
AA += AIJ*Px(j);