Changeset e19002 in git for kernel/ring.cc
- Timestamp:
- Jan 9, 2007, 2:07:04 PM (17 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- eb3a3ce8b87aaa8f1f63a449db240123e51f8b79
- Parents:
- 9675434920f5dba21c7906f147376672641bcb7c
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/ring.cc
r967543 re19002 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ring.cc,v 1.5 1 2007-01-09 12:36:05Singular Exp $ */4 /* $Id: ring.cc,v 1.52 2007-01-09 13:07:04 Singular Exp $ */ 5 5 6 6 /* … … 3938 3938 return r; 3939 3939 } 3940 if ( rIsPluralRing(src) )3941 {3942 3940 rChangeCurrRing(r); /* we were not in r */ 3943 3941 /* basic nc constructions */ … … 3949 3947 int *par_perm = NULL; 3950 3948 nMapFunc nMap = nSetMap(src); 3951 int j;3952 3949 int ni,nj; 3953 3950 for(i=1; i<=r->N; i++) … … 3957 3954 matrix C = mpNew(rVar(r),rVar(r)); 3958 3955 matrix D = mpNew(rVar(r),rVar(r)); 3956 r->nc->C = C; 3957 r->nc->D = D; 3958 if (nc_InitMultiplication(r)) 3959 WarnS("Error initializing multiplication!"); 3959 3960 for (i=1; i< rVar(r); i++) 3960 3961 { … … 3969 3970 idTest((ideal)C); 3970 3971 idTest((ideal)D); 3971 r->nc->C = C;3972 r->nc->D = D;3973 3972 if (nc_InitMultiplication(r)) 3974 3973 WarnS("Error initializing multiplication!"); … … 3983 3982 rTest(r); 3984 3983 rChangeCurrRing(save); 3985 }3986 3984 #endif /* HAVE_PLURAL */ 3987 3985 return r;
Note: See TracChangeset
for help on using the changeset viewer.