Initial Commit

2018-02-08 21:28:33 -05:00
commit 678c1d3966
14352 changed files with 3176737 additions and 0 deletions
@@ -0,0 +1,65 @@
+// qra64_subs.c
+// Fortran interface routines for QRA64
+
+#include "qra64.h"
+#include <stdio.h>
+
+static qra64codec *pqra64codec = NULL;
+
+void qra64_enc_(int x[], int y[])
+{
+  if (pqra64codec==NULL) pqra64codec = qra64_init(QRA_USERAP);  
+  qra64_encode(pqra64codec, y, x);
+}
+
+void qra64_dec_(float r[], int* nc1, int* nc2, int* ng2, int* APtype, 
+		int* iset, int* ns0, float* b0, int* nf0,
+		int xdec[], float* snr, int* rc)
+{
+/*
+  APtype:                         AP
+-----------------------------------------------------------------------
+     -1                            0     (no AP information)
+      0    [CQ/QRZ    ?      ? ]  25/37
+      1    [MyCall    ?      ? ]  25/37
+      2    [  ?    HisCall   ? ]  25/37
+      3    [MyCall HisCall   ? ]  49/68
+      4    [MyCall HisCall grid]  68
+      5    [CQ/QRZ HisCall   ? ]  49/68
+
+     rc    Message format         AP APTYPE Comments
+------------------------------------------------------------------------
+    -16                                     Failed sanity check
+     -2                                     Decoded but CRC failed
+     -1                                     No decode
+      0    [   ?      ?      ? ]   0   -1   Decode with no AP info
+      1    [CQ/QRZ    ?      ? ]  25    0
+      2    [CQ/QRZ    ?      _ ]  37    0
+      3    [MyCall    ?      ? ]  25    1
+      4    [MyCall    ?      _ ]  37    1
+      5    [MyCall HisCall   ? ]  49    3
+      6    [   ?   HisCall   ? ]  25    2   Optional
+      7    [   ?   HisCall   _ ]  37    2   Optional
+      8    [MyCall HisCall Grid]  68    4
+      9    [CQ/QRZ HisCall   ? ]  49    5   Optional (not needed?)
+     10    [CQ/QRZ HisCall   _ ]  68    5   Optional
+     11    [CQ/QRZ HisCall Grid]  68    ?   Optional
+*/
+
+  float EbNodBEstimated;
+  int err=0;
+  int nSubmode=*ns0;
+  float b90=*b0;
+  int nFadingModel=*nf0;
+
+  if(pqra64codec==NULL) pqra64codec = qra64_init(QRA_USERAP);
+  err=qra64_apset(pqra64codec,*nc1,*nc2,*ng2,*APtype);
+  if(err<0) printf("ERROR: qra64_apset returned %d\n",err);
+
+  if(*iset==0) {
+    *rc = qra64_decode_fastfading(pqra64codec,&EbNodBEstimated,xdec,r,
+    				  nSubmode,b90,nFadingModel);
+    *snr = EbNodBEstimated - 31.0;
+  }
+}
+