17 lines
274 B
C
17 lines
274 B
C
|
/* 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;
|
||
|
}
|