Changeset 2f436b in git for Singular/kstd1.cc


Ignore:
Timestamp:
Dec 31, 2000, 4:14:47 PM (23 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
e609098c45a74ac91c002ffa7ece5eebe7f8c002
Parents:
33ec1145a109507ad3e3cf4a69a847b703358e93
Message:
* version 1-3-13: sparsemat improivements


git-svn-id: file:///usr/local/Singular/svn/trunk@5003 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/kstd1.cc

    r33ec11 r2f436b  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kstd1.cc,v 1.76 2000-12-21 16:37:49 obachman Exp $ */
     4/* $Id: kstd1.cc,v 1.77 2000-12-31 15:14:33 obachman Exp $ */
    55/*
    66* ABSTRACT:
    … …  
    1111
    1212// define if tailrings should be used
    13 // #define HAVE_TAIL_RING
     13#define HAVE_TAIL_RING
    1414
    1515#include "mod2.h"
    … …  
    738738      {
    739739        pLmFree(strat->L[j].p);    /*deletes the short spoly and computes*/
     740        strat->L[j].p = NULL;
    740741        poly m1 = NULL, m2 = NULL;
    741742        // check that spoly creation is ok
    … …  
    752753                      strat->tailRing, m1, m2, strat->R);
    753754
     755        strat->L[j].SetLmCurrRing();
    754756        if (!strat->honey)
    755757          strat->initEcart(&strat->L[j]);
    … …  
    795797      {
    796798        pLmFree(strat->L[i].p);
     799        strat->L[i].p = NULL;
    797800        poly m1 = NULL, m2 = NULL;
    798801        // check that spoly creation is ok
    … …  
    810813        if (! strat->L[i].IsNull())
    811814        {
     815          strat->L[i].SetLmCurrRing();
    812816          strat->L[i].SetpFDeg();
    813817          strat->L[i].ecart
Note: See TracChangeset for help on using the changeset viewer.