Changeset 5ca980 in git for Singular/gms.cc
- Timestamp:
- Feb 16, 2002, 12:00:46 PM (21 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
- Children:
- dcff1e1a496e3f2435055ab70975afe35768e727
- Parents:
- adf5bd69bf9afcfb41fbd46edfe3f594d586b715
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/gms.cc
radf5bd6 r5ca980 2 2 * Computer Algebra System SINGULAR * 3 3 *****************************************/ 4 /* $Id: gms.cc,v 1. 3 2002-02-12 18:04:23mschulze Exp $ */4 /* $Id: gms.cc,v 1.4 2002-02-16 11:00:46 mschulze Exp $ */ 5 5 /* 6 6 * ABSTRACT: Gauss-Manin system normal form … … 21 21 #include "gms.h" 22 22 23 lists gms nf(ideal p,ideal g,matrix B,int D,int K)23 lists gmsNF(ideal p,ideal g,matrix B,int D,int K) 24 24 { 25 25 ideal r=idInit(IDELEMS(p),1); … … 72 72 } 73 73 74 BOOLEAN gms nf(leftv res,leftv h)74 BOOLEAN gmsNF(leftv res,leftv h) 75 75 { 76 76 if(currRingHdl) … … 96 96 int K=(int)h->Data(); 97 97 res->rtyp=LIST_CMD; 98 res->data=(void*)gms nf(idCopy(p),g,B,D,K);98 res->data=(void*)gmsNF(idCopy(p),g,B,D,K); 99 99 return FALSE; 100 100 }
Note: See TracChangeset
for help on using the changeset viewer.