mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-09 14:56:45 -04:00
3016ccee01
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6848 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
37 lines
898 B
C
37 lines
898 B
C
// qra64_subs.c
|
|
// Fortran interface routines for QRA64
|
|
|
|
#include "qra64.h"
|
|
#include <stdio.h>
|
|
|
|
void qra64_enc_(int x[], int y[])
|
|
{
|
|
int ncall=0xf70c238; //K1ABC
|
|
qra64codec *codec = qra64_init(0,ncall); //codec for ncall
|
|
qra64_encode(codec, y, x);
|
|
}
|
|
|
|
void qra64_dec_(float r[], int* nmycall, int xdec[], int* rc)
|
|
{
|
|
// Return codes:
|
|
// rc=-16 failed sanity check
|
|
// rc=-2 decoded, but crc check failed
|
|
// rc=-1 no decode
|
|
// rc=0 [? ? ?] AP0 (decoding with no a-priori information)
|
|
// rc=1 [CQ ? ?] AP27
|
|
// rc=2 [CQ ? ] AP42
|
|
// rc=3 [CALL ? ?] AP29
|
|
// rc=4 [CALL ? ] AP44
|
|
// rc=5 [CALL CALL ?] AP57
|
|
|
|
static ncall0=-1;
|
|
int ncall=*nmycall;
|
|
static qra64codec *codec;
|
|
|
|
if(ncall!=ncall0) {
|
|
codec = qra64_init(1,ncall); //codec for ncall
|
|
ncall0=ncall;
|
|
}
|
|
*rc = qra64_decode(codec,xdec,r);
|
|
}
|