Changeset 5ca980 in git
- Timestamp:
- Feb 16, 2002, 12:00:46 PM (21 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
- Children:
- dcff1e1a496e3f2435055ab70975afe35768e727
- Parents:
- adf5bd69bf9afcfb41fbd46edfe3f594d586b715
- Location:
- Singular
- Files:
-
- 2 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 } -
Singular/gms.h
radf5bd6 r5ca980 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: gms.h,v 1. 3 2002-02-12 18:04:39mschulze Exp $ */4 /* $Id: gms.h,v 1.4 2002-02-16 11:00:46 mschulze Exp $ */ 5 5 /* 6 6 * ABSTRACT: Gauss-Manin system normal form … … 10 10 #define GMS_H 11 11 12 lists gms nf(ideal p,ideal g,matrix B,int D,int K);13 BOOLEAN gms nf(leftv res,leftv h);12 lists gmsNF(ideal p,ideal g,matrix B,int D,int K); 13 BOOLEAN gmsNF(leftv res,leftv h); 14 14 15 #endif 16 15 #endif /* GMS_H */
Note: See TracChangeset
for help on using the changeset viewer.