Merged master 8748

2018-08-05 11:33:30 -04:00
parent 8f8772f1bd
commit 62899069bf
1095 changed files with 31298 additions and 367679 deletions
@@ -1,19 +0,0 @@
-/* ENC.H - Interface to encoding procedures. */
-
-/* Copyright (c) 1995-2012 by Radford M. Neal.
- *
- * Permission is granted for anyone to copy, use, modify, and distribute
- * these programs and accompanying documents for any purpose, provided
- * this copyright notice is retained and prominently displayed, and note
- * is made of any changes made to these programs.  These programs and
- * documents are distributed without any warranty, express or implied.
- * As the programs were written for research purposes only, they have not
- * been tested to the degree that would be advisable in any important
- * application.  All use of these programs is entirely at the user's own
- * risk.
- */
-
-void sparse_encode (char *, char *);
-void dense_encode  (char *, char *, mod2dense *, mod2dense *);
-void mixed_encode  (char *, char *, mod2dense *, mod2dense *);
-void ldpc_encode_  (char *, char *);
@@ -0,0 +1,66 @@
+/*=============================================================================
+    Copyright 2002 William E. Kempf
+    Distributed under the Boost Software License, Version 1.0. (See accompany-
+    ing file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
+=============================================================================*/
+
+H1
+{
+    FONT-SIZE: 200%;
+    COLOR: #00008B;
+}
+H2
+{
+    FONT-SIZE: 150%;
+}
+H3
+{
+    FONT-SIZE: 125%;
+}
+H4
+{
+    FONT-SIZE: 108%;
+}
+BODY
+{
+    FONT-SIZE: 100%;
+    BACKGROUND-COLOR: #ffffff;
+    COLOR: #000000;
+}
+PRE
+{
+    MARGIN-LEFT: 2em;
+    FONT-FAMILY: Courier,
+                 monospace;
+}
+CODE
+{
+    FONT-FAMILY: Courier,
+                 monospace;
+}
+CODE.as_pre
+{
+    white-space: pre;
+}
+.index
+{
+    TEXT-ALIGN: left;
+}
+.page-index
+{
+    TEXT-ALIGN: left;
+}
+.definition
+{
+    TEXT-ALIGN: left;
+}
+.footnote
+{
+    FONT-SIZE: 66%;
+    VERTICAL-ALIGN: super;
+    TEXT-DECORATION: none;
+}
+.function-semantics
+{
+    CLEAR: left;
+}
@@ -0,0 +1,23 @@
+subroutine dxped_fifo(cx,gx,isnrx)
+
+  parameter (NCALLS=268)  
+  character*6 xcall(NCALLS)
+  character*4 xgrid(NCALLS)
+  integer isnr(NCALLS)
+
+  character cx*6,gx*4
+  common/dxpfifo/nc,isnr,xcall,xgrid
+
+  if(nc.lt.NCALLS) then
+     nc=nc+1
+     cx=xcall(nc)
+     gx=xgrid(nc)
+     isnrx=isnr(nc)
+  else
+     cx='      '
+     gx='    '
+     isnrx=0
+  endif
+  
+  return
+end subroutine dxped_fifo