2016-06-22 16:45:29 -04:00
|
|
|
// qra65_subs.c
|
|
|
|
// Fortran interface routines for QRA65
|
|
|
|
|
|
|
|
#include "qra65.h"
|
|
|
|
#include <stdio.h>
|
|
|
|
|
|
|
|
void qra65_enc_(int x[], int y[])
|
|
|
|
{
|
|
|
|
int ncall=0xf70c238; //K1ABC
|
|
|
|
qra65codec *codec = qra65_init(0,ncall); //codec for ncall
|
|
|
|
qra65_encode(codec, y, x);
|
|
|
|
}
|
|
|
|
|
|
|
|
void qra65_dec_(float r[], int xdec[], int* rc)
|
|
|
|
{
|
2016-06-23 09:58:18 -04:00
|
|
|
// Return codes:
|
|
|
|
// rc<0 no decode
|
|
|
|
// rc=0 [? ? ?] AP0 (decoding with no a-priori information)
|
|
|
|
// rc=1 [CQ ? ?] AP27
|
|
|
|
// rc=2 [CQ ? ] AP44
|
|
|
|
// rc=3 [CALL ? ?] AP29
|
|
|
|
// rc=4 [CALL ? ] AP45
|
|
|
|
// rc=5 [CALL CALL ?] AP57
|
|
|
|
|
2016-06-22 16:45:29 -04:00
|
|
|
// int ncall=0xf70c238; //K1ABC
|
|
|
|
int ncall=0x890c60c; //KA1ABC
|
|
|
|
int i;
|
|
|
|
qra65codec *codec = qra65_init(1,ncall); //codec for ncall
|
|
|
|
*rc = qra65_decode(codec,xdec,r);
|
|
|
|
}
|