Changeset 6ce260 in git
- Timestamp:
- Apr 1, 1998, 9:01:42 PM (25 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
- Children:
- 36ff0ee47861d9c243c573d5f915206fde045c9b
- Parents:
- 9917052fb66734c3cc2e6270ba510557c9250002
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/syz1.cc
r991705 r6ce260 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: syz1.cc,v 1.2 2 1998-03-27 11:41:00 obachmanExp $ */4 /* $Id: syz1.cc,v 1.23 1998-04-01 19:01:42 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: resolutions … … 2230 2230 } 2231 2231 resolvente tr; 2232 int typ0 ;2232 int typ0=IDEAL_CMD; 2233 2233 if (syzstr->minres!=NULL) 2234 2234 tr = syzstr->minres; 2235 2235 else 2236 2236 tr = syzstr->fullres; 2237 resolvente trueres=(resolvente)Alloc0((syzstr->length)*sizeof(ideal)); 2238 for (int i=(syzstr->length)-1;i>=0;i--) 2239 { 2240 if (tr[i]!=NULL) 2241 { 2242 trueres[i] = idCopy(tr[i]); 2243 } 2244 } 2245 if (idRankFreeModule(trueres[0])==0) 2246 typ0 = IDEAL_CMD; 2247 else 2248 typ0 = MODUL_CMD; 2237 resolvente trueres=NULL; 2238 if (syzstr->length>0) 2239 { 2240 trueres=(resolvente)Alloc0((syzstr->length)*sizeof(ideal)); 2241 for (int i=(syzstr->length)-1;i>=0;i--) 2242 { 2243 if (tr[i]!=NULL) 2244 { 2245 trueres[i] = idCopy(tr[i]); 2246 } 2247 } 2248 if (idRankFreeModule(trueres[0])>0) 2249 typ0 = MODUL_CMD; 2250 } 2249 2251 return liMakeResolv(trueres,syzstr->length,-1,typ0,NULL); 2250 2252 }
Note: See TracChangeset
for help on using the changeset viewer.