simulacion-permeabilidad/fftma_module/gen/lib_src/test_fact.c

#include "genlib.h"

/*tries factor*/
int test_fact(int* pnum, int fact, int* pmaxfac)
{
    int power, t;

    power = 0;
    while ((t = *pnum / fact) * fact == *pnum) {
        ++power;
        *pnum = t;
    }

    if (power != 0) {
        if (fact > *pmaxfac)
            *pmaxfac = fact;
    }

    if (t > fact) {
        return (1);
    }

    return (0);
}