Changeset 3bc8cd in git for Singular

Timestamp:

Dec 15, 1997, 12:31:32 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

e78cce968f6523cf4106e326ba2aa96b17fcf041

Parents:

2189fba1da9fd42ad0922cc953ed75e85df2ded2

Message:

*** empty log message ***


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

File:

• Singular/LIB/sing.lib (modified) (5 diffs)

Singular/LIB/sing.lib

@@ -1 @@
-// $Id: sing.lib,v 1.6 1997-09-12 13:33:29 Singular Exp $
+// $Id: sing.lib,v 1.7 1997-12-15 11:31:32 Singular Exp $
 //system("random",787422842);
 //(GMG/BM, last modified 26.06.96)
@@ -657 +657 @@
 //--------------------------- initialisation ----------------------------------
    int  n,r1,r2,d1,d2;
-  def P = basering;
+   def P = basering;
    i = simplify(i,10);
    module jac,t1,t2,sbt1,sbt2;
@@ -670 +670 @@
    SK  = modulo(Syz,Kos);                       // presentation of syz/kos
 //--------------------- fetch to quotient ring  mod i -------------------------
-  qring   Ox  = i0;                             // make P/i the basering
+   qring   Ox  = i0;                             // make P/i the basering
    module Jac = fetch(P,jac);
    matrix No  = transpose(fetch(P,Syz));        // ker(No) = Hom(syz,Ox)
@@ -683 +683 @@
    r1         = nrows(T1);
 //------------------------ pull back to basering ------------------------------
-  setring P;
+   setring P;
    t1   = fetch(Ox,T1)+i*freemodule(r1);
    t2   = fetch(Ox,T2)+i*freemodule(r2);
@@ -693 +693 @@
    if  ( size(#)>0)
    {
-      kbT1 = fetch(Ox,Nx)*kbase(sbt1);
-      Sx   = fetch(Ox,Sx);
-      L = sbt1,sbt2,d1,d2,kbT1,Syz,Sx,t1,t2;
-      return(L);
+     if (d1>0)
+     {
+       kbT1 = fetch(Ox,Nx)*kbase(sbt1);
+     }
+     else
+     {
+       kbT1 = 0;
+     }  
+     Sx   = fetch(Ox,Sx);
+     L = sbt1,sbt2,d1,d2,kbT1,Syz,Sx,t1,t2;
+     return(L);
    }
    L = sbt1,sbt2;