|
/* Portable C version of peakval
|
|
* Copyright 2004 Phil Karn, KA9Q
|
|
*/
|
|
#include <stdlib.h>
|
|
#include "fec.h"
|
|
int peakval_port(signed short *b, int len)
|
|
{
|
|
int peak = 0;
|
|
int a, i;
|
|
|
|
for (i = 0; i < len; i++) {
|
|
a = abs(b[i]);
|
|
if (a > peak) {
|
|
peak = a;
|
|
}
|
|
}
|
|
return peak;
|
|
}
|