Changeset 3c1c6a in git

Timestamp:

Dec 4, 2000, 4:05:10 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

267f72c0715749d94765be77e2a16210cffa3387

Parents:

1576deb2c34110defeeddc936a786fa77d40ab7d

Message:

*hannes: cosmetics


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

File:

• Singular/LIB/hnoether.lib (modified) (8 diffs)

Singular/LIB/hnoether.lib

@@ -1 @@
-// $Id: hnoether.lib,v 1.21 2000-05-19 11:41:05 obachman Exp $
+// $Id: hnoether.lib,v 1.22 2000-12-04 15:05:10 Singular Exp $
 // last change:           27.04.00
 ///////////////////////////////////////////////////////////////////////////////
 // This library is for Singular 1-3-7 or newer
 
-version="$Id: hnoether.lib,v 1.21 2000-05-19 11:41:05 obachman Exp $";
+version="$Id: hnoether.lib,v 1.22 2000-12-04 15:05:10 Singular Exp $";
 info="
 LIBRARY:  hnoether.lib   Procedures for the Hamburger-Noether (Puiseux) development
@@ -476 +476 @@
   @*     [3]: int:
            0  if the 1st ring variable was transversal (with respect to f),
-  @*       1  if the variables were changed at the beginning of the 
+  @*       1  if the variables were changed at the beginning of the
               computation,
            -1 if an error has occurred.
@@ -828 +828 @@
      hqs[zeile+1]=Q;
      maxspalte=maxspalte*((Q+1) < maxspalte) + (Q+1)*((Q+1) >= maxspalte);
-     if (N <> 1) { einzweig=0; }   
+     if (N <> 1) { einzweig=0; }
      f=0;               // transformiertes Polynom wird nicht mehr gebraucht
      Abbruch=1;
@@ -2204 +2204 @@
 }
 ///////////////////////////////////////////////////////////////////////////////
-static
-proc extractHNEs(list HNEs, int transvers)
+static proc extractHNEs(list HNEs, int transvers)
 "USAGE:  extractHNEs(HNEs,transvers);  list HNEs (output from HN),
         int transvers: 1 if x,y were exchanged, 0 else
@@ -2348 +2347 @@
      if (hn[3] <> -1) {
        hne[1]=list(hn[1],hn[2],hn[3],hn[4]);
-       if (hn[5] <> 1) { 
+       if (hn[5] <> 1) {
    " ** WARNING : The curve is reducible, but only one branch could be found!";
        }
@@ -2838 +2837 @@
 
 ///////////////////////////////////////////////////////////////////////////////
-static
-proc HN (poly f,int grenze, int Aufruf_Ebene, int essential)
+static proc HN (poly f,int grenze, int Aufruf_Ebene, int essential)
 "NOTE: This procedure is only for internal use, it is called via pre_HN"
 {
@@ -3023 +3021 @@
         }
         else {
-          dbprint(printlevel+1,
+          dbprint(printlevel+1,
              " Change of basering (field extension) necessary!");
-          if (defined(HNDebugOn)) { teiler,"is not properly factored!"; }
-          if (needext==0) { poly zerlege=teiler; }
-          needext=1;
+          if (defined(HNDebugOn)) { teiler,"is not properly factored!"; }
+          if (needext==0) { poly zerlege=teiler; }
+          needext=1;
         }
       }
@@ -3310 +3308 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-static
-proc constructHNEs (list HNEs,int hnezaehler,list aneu,list azeilen,
+static proc constructHNEs (list HNEs,int hnezaehler,list aneu,list azeilen,
                     int zeile,ideal deltais,int Q,int j)
 "NOTE: This procedure is only for internal use, it is called via HN"