MCPcopy Create free account
hub / github.com/Singular/Singular / MivAbsMaxArg

Function MivAbsMaxArg

Singular/walk.cc:1851–1864  ·  view source on GitHub ↗

* Look for the position of the smallest absolut value in vec * **************************************************************/

Source from the content-addressed store, hash-verified

1849 * Look for the position of the smallest absolut value in vec *
1850 **************************************************************/
1851static int MivAbsMaxArg(intvec* vec)
1852{
1853 int k = MivAbsMax(vec);
1854 int i=0;
1855 while(1)
1856 {
1857 if((*vec)[i] == k || (*vec)[i] == -k)
1858 {
1859 break;
1860 }
1861 i++;
1862 }
1863 return i;
1864}
1865
1866
1867/**********************************************************************

Callers 1

MwalkNextWeightCCFunction · 0.85

Calls 1

MivAbsMaxFunction · 0.85

Tested by

no test coverage detected