| 2943 | |
| 2944 | #if 0 |
| 2945 | poly id_GCD(poly f, poly g, const ring r) |
| 2946 | { |
| 2947 | ring save_r=currRing; |
| 2948 | rChangeCurrRing(r); |
| 2949 | ideal I=idInit(2,1); I->m[0]=f; I->m[1]=g; |
| 2950 | intvec *w = NULL; |
| 2951 | ideal S=idSyzygies(I,testHomog,&w); |
| 2952 | if (w!=NULL) delete w; |
| 2953 | poly gg=pTakeOutComp(&(S->m[0]),2); |
| 2954 | idDelete(&S); |
| 2955 | poly gcd_p=singclap_pdivide(f,gg,r); |
| 2956 | p_Delete(&gg,r); |
| 2957 | rChangeCurrRing(save_r); |
| 2958 | return gcd_p; |
| 2959 | } |
| 2960 | #else |
| 2961 | poly id_GCD(poly f, poly g, const ring r) |
| 2962 | { |
nothing calls this directly
no test coverage detected