2 ***********************************************************
3 $SNARK_Header: S N A R K 1 4 - A PICTURE RECONSTRUCTION PROGRAM $
4 $HeadURL: svn://dig.cs.gc.cuny.edu/snark/trunk/src/snark/lino_sumfac.cpp $
5 $LastChangedRevision: 80 $
6 $Date: 2014-07-01 21:01:54 -0400 (Tue, 01 Jul 2014) $
8 ***********************************************************
10 Sum of the prime factors of num
20 INTEGER lino_class::sumfac(INTEGER num)
22 INTEGER sum, m2s, nipf, mnipf, k;
28 while ((1 << mnipf) < num)
33 ipf = new INTEGER[mnipf];
34 primfc(num, &m2s, &nipf, ipf, mnipf);
37 for (k = 0; k < nipf; k++)
42 delete[] ipf; // bug 92 - Lajos - 03/02/2005