Changeset ea68ed in git for kernel/ideals.cc
- Timestamp:
- Apr 21, 2005, 6:16:47 PM (19 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 8c8c809bf53ba83e18c7c2ebd0c767279e305509
- Parents:
- eeb1337dbd6e03efdc6f0d3d5aa17c7b2655e1b9
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/ideals.cc
reeb133 rea68ed 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ideals.cc,v 1. 8 2005-03-17 14:13:02 SingularExp $ */4 /* $Id: ideals.cc,v 1.9 2005-04-21 16:16:46 levandov Exp $ */ 5 5 /* 6 6 * ABSTRACT - all basic methods to manipulate ideals … … 2376 2376 if (currRing->nc->type!=nc_skew) 2377 2377 { 2378 if ( !nc_CheckSubalgebra(delVar,currRing))2378 if (nc_CheckSubalgebra(delVar,currRing)) 2379 2379 { 2380 2380 WerrorS("no elimination is possible: subalgebra is not admissible"); … … 2425 2425 rComplete(&tmpR, 1); 2426 2426 2427 #ifdef HAVE_PLURAL 2428 // update nc structure on tmpR 2429 // in particular, tests the admissibility of the ordering 2430 if (nc_rComplete(origR, &tmpR)) 2431 { 2432 WerrorS("no elimination is possible: subalgebra is not admissible"); 2433 // goto cleanup 2434 omFree((ADDRESS)wv[0]); 2435 omFreeSize((ADDRESS)wv,ordersize*sizeof(int**)); 2436 omFreeSize((ADDRESS)ord,ordersize*sizeof(int)); 2437 omFreeSize((ADDRESS)block0,ordersize*sizeof(int)); 2438 omFreeSize((ADDRESS)block1,ordersize*sizeof(int)); 2439 rUnComplete(&tmpR); 2440 if (w!=NULL) 2441 delete w; 2442 return idCopy(h1); 2443 } 2444 #endif 2427 2445 // change into the new ring 2428 2446 //pChangeRing(pVariables,currRing->OrdSgn,ord,block0,block1,wv); 2429 2447 rChangeCurrRing(&tmpR); 2448 2430 2449 h = idInit(IDELEMS(h1),h1->rank); 2431 2450 // fetch data from the old ring
Note: See TracChangeset
for help on using the changeset viewer.