Changeset a1ada5 in git for Singular/iparith.cc
 Timestamp:
 Sep 29, 2009, 12:37:15 PM (14 years ago)
 Branches:
 (u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')
 Children:
 8388ca6fcf9818d8283cb348a276e3df373686bf
 Parents:
 fda6e6ef5610f3872c7b9c6228cba279a73c792c
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/iparith.cc
rfda6e6e ra1ada5 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: iparith.cc,v 1.51 7 20090925 08:00:48Singular Exp $ */4 /* $Id: iparith.cc,v 1.518 20090929 10:37:15 Singular Exp $ */ 5 5 6 6 /* … … 1941 1941 // now make sure that all matices have the corect size: 1942 1942 matrix T = idModule2formatedMatrix(m,vl,ul); 1943 int i; 1943 1944 if (MATCOLS(U) != ul) 1944 1945 { 1945 1946 int mul=si_min(ul,MATCOLS(U)); 1946 1947 matrix UU=mpNew(ul,ul); 1947 int i,j;1948 int j; 1948 1949 for(i=mul;i>0;i) 1949 1950 { … … 1956 1957 idDelete((ideal *)&U); 1957 1958 U=UU; 1959 } 1960 // make sure that U is a diagonal matrix of units 1961 for(i=ul;i>0;i) 1962 { 1963 if(MATELEM(U,i,i)==NULL) MATELEM(U,i,i)=pOne(); 1958 1964 } 1959 1965 lists L=(lists)omAllocBin(slists_bin);
Note: See TracChangeset
for help on using the changeset viewer.