blob: 07ab31696abe0a1db88150028aea7d920271dd78 [file] [log] [blame]
Bill Yi4e213d52015-06-23 13:53:11 -07001/* Portable C version of peakval
2 * Copyright 2004 Phil Karn, KA9Q
3 */
4#include <stdlib.h>
5#include "fec.h"
6int peakval_port(signed short *b,int len){
7 int peak = 0;
8 int a,i;
9
10 for(i=0;i<len;i++){
11 a = abs(b[i]);
12 if(a > peak)
13 peak = a;
14 }
15 return peak;
16}